je débute en visual basic et on m'a donner un exercice à faire et je n'y arrive pas...

je vous cite ce fameux exercice:

"une partie consiste à lancer un certain nombrede fois un dé à six faces numérotées de 1 à 6. A chaque lancer, le gain obtenu est fonction du résultat du lancer, il est donné dans le tableau suivant:
               -  1,2...........-2€
               -   3.............-1€
               -   4,5............2€
               -   6...............7€

Le jeu s'arrête lorsque le joueur obtient, àdeux lancers consécutifs, le même résultat.
La mise est de 1€ pour chaque partie.
Tous les lancers sont pris en compte pour le calcul du gain total.

On veut écrire un algorithme qui permet de simuler une partie et affiche, pour chaque lancer, le numéro obtenu et, à la fin de la partie, le gain total (positif, nul ou négatif) du joueur."

j'ai commencé quelquechose mais ça ne fonctionne pas et je suis en train de craquer!!!!

Private Sub CommandButton3_Click()
Dim D, D2, Diff, G As Integer

G = -1

Do
D = Int(6 * Rnd() + 1)
    MsgBox (D)
    If D < 3 Then
    G = G + -2
        Else
        If D = 3 Then
        G = G + -1
            Else
            If D < 6 Then
            G = G + 2
            Else: G = G + 7
            End If
        End If
    End If
D2 = Int(6 * Rnd() + 1)
    MsgBox (D2)
    If D2 < 3 Then
    G = G + -2
        Else
        If D2 = 3 Then
        G = G + -1
            Else
            If D2 < 6 Then
            G = G + 2
            Else: G = G + 7
            End If
        End If
    End If
Diff = D2 - D

Loop Until Diff = 0
MsgBox "gain total : " & G & " €."

End Sub

je vous remercie de m'aider quelques peu......

rien à voir...

Ca marche ton truc je vois pas le pb

Excuse j'ai rien dit

ben voilà c mon problème du jour... merci de t'etre pencher sur mon cas...

rien à voir...

Je propose ca
Peut être amélioré

Private Sub CommandButton1_Click()
Dim D, D2, Diff, G As Integer

G = -1

Debut:
D = Int(6 * Rnd() + 1)
    MsgBox (D)
    If D < 3 Then
    G = G + -2
        Else
        If D = 3 Then
        G = G + -1
            Else
            If D < 6 Then
            G = G + 2
            Else: G = G + 7
            End If
        End If
    End If
Diff = D2 - D
If Diff = 0 Then
GoTo Fin
End If
D2 = Int(6 * Rnd() + 1)
    MsgBox (D2)
    If D2 < 3 Then
    G = G + -2
        Else
        If D2 = 3 Then
        G = G + -1
            Else
            If D2 < 6 Then
            G = G + 2
            Else: G = G + 7
            End If
        End If
    End If
Diff = D2 - D
If Diff <> 0 Then
GoTo Debut
End If
Fin:
MsgBox "gain total : " & G & " €."

End Sub

je te remercie ça fonctionne bien, mais sans vouloir abuser il faut que j'écrive le programme en VB et en algorithme nomal genre:

algorithme Dés
   lexique
        identificateur         type            rôle


   début Dés
      écrire(".....;

je sais pas comment traduire du VB en algo, tu pourrai me donner un coup de main?

je te remercie pour ta réponse et ta rapidité....félicitation...

rien à voir...

Moi, je proposerait plutot ceci :

Option Explicit

Private Sub Command1_Click()
Dim OldDe As Long, De As Long, Gain As Long

    Gain = 0
    OldDe = 0
    De = 1
    Do While OldDe <> De
        OldDe = De
        Gain = Gain - 1
        De = Int(6 * Rnd() + 1)
        Select Case De
            Case 1, 2
                Gain = Gain - 2
            Case 3
                Gain = Gain - 1
            Case 4, 5
                Gain = Gain + 2
            Case 6
                Gain = Gain + 7
        End Select
        Debug.Print "Lancé = " & De & vbCrLf & "Gain = " & Gain
    Loop
    Debug.Print "Gain final = " & Gain
End Sub

Private Sub Form_Load()
    Randomize
End Sub

Christophe R

J'avoue que le code de crenaud76 est plaisant à lire. Celui que je t'ai donné marche mais n'est pas des plus

Nostra78 < Je dirais même plus !! Mettre des Goto, c'est beuuuurrrrrkkkkkkk

Christophe R

merci vous m'avez sauver la vie!!!!!!!!

et en plus vous étes trop rapide...

rien à voir...