🚀 go-pugleaf

Dim randno As Integer

Private Sub Command1_MouseUp(Button As Integer, Shift As Integer, X As
Single, Y As Single)
Timer1.Interval = 100
End Sub

Private Sub Timer1_Timer()
randno = Int(Rnd() * 100) + 1
Label1.Caption = "Het getal is " & randno & "."
End Sub

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

' als je vragen hebt mail me maar
' LET WEL OP JE PROG. CODE IS VRIJ SLORDIG

"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
>
>