vb.net willekeurige getallen

[2Old]

Ik zoek hulp...
Ik wil in een textbox willekeurige nummers laten genereren tussen 0 en 9. Dit moet blijven loopen gedurende 10 seconden (dus met een timer) en dus stoppen met een willekeurig getal. Kan iemand me op weg zetten?

Alvast bedankt op voorhand.

 

[etri]

Probeer deze code maar eens:

  Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim StartTime As DateTime
    Dim TimePassed As TimeSpan
    Dim RandomGetal As Random
    Dim Getal As Integer

    'Initialiseer de random generator
    RandomGetal = New Random()

    'Onthoud de starttijd
    StartTime = DateTime.Now()
    'Laat 10 seconden lang randomgetallen zien
    Do Until TimePassed.Seconds >= 2
      'Bepaal hoeveel tijd verstreken is
      TimePassed = Now.Subtract(StartTime)
      'Bepaal een nieuw positief, geheel getal kleiner dan 10
      Getal = RandomGetal.Next(10)
      'Toon de getallen op het formulier
      Label1.Text = Getal.ToString
      'Update het formulier regelmatig 
      '(zodat we de getallen zien veranderen)
      Application.DoEvents()
    Loop

  End Sub

Wel eerst een formulier maken met een label ('label1') en een button ('button1').

Succes!

 

[2Old]

snelheid

Schitterend en welbedankt voor de snelle hulp!
Ik heb jouw code ingepast en het werkt. Ik heb nu met een s'elect case' afbeeldingen laten inladen in een picturebox (gerelateerd aan het random getal). Dit gaat echter zo snel dat alleen de laatste afbeelding wordt getoond. Kan je de snelheid van het genereren van de getallen trager laten verlopen zodat elke afbeelding getoond wordt?

Het is namelijk voor een Jackpot (schoolopdracht)... nu zie je de figuren niet verlopen, je ziet enkel het eindresultaat...

 

[etri]

Volgens mij via de code:

Application.Sleep(1000)

waarbij 1000 (milliseconden) gelijk staat aan 1 seconde...

 

[etri]

Deze code moet je dus in de loop zetten...

 

[2Old]

sleep

Hey, Etri
Heb ik geprobeerd maar 'Sleep is not a member of system.windows.forms.application'
is de foutboodschap die daaruit komt..
Andere voorstellen?

 

[etri]

Sorry. De syntax was inderdaad fout. Het moet zijn:

System.Threading.Thread.Sleep(1000)

 

[2Old]

vertragen random functie

Beste Etri,
Hartelijk bedankt, dit werkt inderdaad.
Nu blijkt mijn opzet niet geslaagd maar deze thread mag wel afgesloten worden.