[R] Variables defilantes dans MsgBox

[jcaspar]

B onjour à tous

voici un code qui permet de simuler le tirage de 7 numéros

j'aurais souhaité que les nombres apparaissent dans la msgbox au fur et à mesure du tirage et non pas tous à la fois
il me semble que cela est possible mais j'ignore comment faire pouvez vous svp m'expliquer comment faire svp

En vous remerciant

Jean-Marc

Code : Tout sélectionner

global $tirage[8]

for $i = 1 to 7 step 1


    $tirage[$i] = Random(1, 7, 1)

    msgbox(64, "Construction du Tableau", "La valeur de i est de " & $i & @crlf & " La valeur de tirage " & $tirage[$i])
Next

;~ _ArrayDisplay($tirage)

msgbox(64, "Tirage Loto ", "" & UBound($tirage) & @CRLF & $tirage[1] & @CRLF &    $tirage[2] & @crlf &  $tirage[3]& $tirage[4] & @CRLF &    $tirage[5] & @crlf &  $tirage[6]& @crlf &  $tirage[7])




 

[Hugues]

Un truc dans ce genre?

Code : Tout sélectionner

Global $Number

_Tirage()

Func _Tirage()
    For $i = 1 To 7 Step 1
        $Number &= Random(1, 7, 1)  & "-"
        MsgBox(64, "Construction du Tableau", "Tirage N°" & $i & ":" & @CRLF & StringTrimRight($Number, 1))
    Next
EndFunc
 

[jguinch]

@jcaspar : merci de mettre un titre approprié au message.