Rnd getallen genereren na elkaar (vb6)

Status
Niet open voor verdere reacties.
S

satriano17

Gebruiker
Lid geworden
30 sep 2012
Berichten
331
Dag ik wil 4 random getallen generen na elkaar.
Onderstand code werkt goed maar ik zou willen dat
de getallen zo genereren:
34 41 21 44
dus na elkaar en zichtbaar blijven.

Code: 
Private Sub Timer1_Timer()
Randomize
teller = teller + 1
ris = ris & Format(Int(Rnd * 100), "00") + "  "
rata = ris ' (rata is de textbox waar de resultaat  getoond word)

If teller = 4 Then
teller = 0
ris = ""
Timer1.Enabled = False
End If
End Sub

ik denk dat iets ontbreekt
dank u
 
Laatst bewerkt:
Zo?
Code: 
Randomize
For i = 1 To 4
    ris = ris & Format(Int(Rnd * 100), "00") & "  "
Next i
 
werkt bijna...... goed. Na 4 getallen moet normaal stoppen maar stopt niet.
Raar want
Code: 
Timer1.Enabled = False
zou laten stoppen na 4 getallen.
 
Van die timer in je project weet ik niks natuurlijk.
Het stukje dat ik plaatste genereert wat je vroeg, dat heeft niets met een timer te maken.
 
Opgelost
Nu werkt het

ik moest 'ook' dimensioneren
Code: 
Dim teller As Integer
Dim ris As String


bedankt Edmoor
 
Laatst bewerkt:
Die teller is niet nodig omdat er al een string van 4 x 2 tekens wordt gegenereerd.
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan