🚀 go-pugleaf

Probeer dit eens..
Dim randno As Integer

Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As
Single, Y As Single)
Timer1.Interval = 1000
If randno = Val(Text2.Text) Then
Call MsgBox("Het is juist. " & vbNewLine & "Het getal was " & randno & ".",
_
vbInformation, "Het is je gelukt")
End If
End Sub

Private Sub Form_Load()
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
minr = 0
maxr = 5
randno = minr + Fix(Rnd * (maxr - minr + 1))
Label1.Caption = "Het getal is " & randno & "."
End Sub

ten eerste , declareer je bovenaan die randno....
dan voor controle .. zet  je   randno = Val(Text2.text)   => haalt uit een
string de decimale waarde..
en je zet de timer interval > 0 ! anders heeft de het geen zin..
Nu zal je progje wel werken !

Peter.



"Jeroen" <jeroen@zegmijnmeellieverniet.com> schreef in bericht
news:_egN6.1409$RA.193481@afrodite.telenet-ops.be...
> Hey.
> Be zo eens iets simpel aan het schrijven en dat maakt een get tussen 0 en
> 100 en jij schrijft een getal en als je klikt stopt het getal en indien
het
> dat is krijg je een msgbox, iendien niet laat je je muis los en telt gij
> verder.
> Dit is de code
> Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As
> Single, Y As Single)
> Timer1.Interval = 0
> If randno = Text2.Text Then
> Call MsgBox("Het is juist. " & vbNewLine & "Het getal was " & randno &
".",
> vbInformation, "Het is je gelukt")
> End If
> End Sub
> Private Sub Timer1_Timer()
> minr = 0
> maxr = 5
> randno = minr + Fix(Rnd * (maxr - minr + 1))
> Label1.Caption = "Het getal is " & randno & "."
> End Sub
>
> Als ik dan een getal invul en het komt dan ook echt overeen zegt gij
niets,
> laat ik het leeg, zegt gij het altijd.
> Wat te doen.
> Bedankt
>
>