🚀 go-pugleaf

probeer altijd je variabelen te declareren in VB, het scheelt een pak.

dit kan je met Option Explicit in het begin te zetten.


"gatekeeper" <wesley.wellekens@pandora.be> wrote in message
news:BAsN6.4012$RA.344939@afrodite.telenet-ops.be...
> 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
> >
> >
>
>