Vb timer en variable

Article View: be.comp.programming

Article #13862

Back to be.comp.programming Previous Next

#13862

From: Jeroen
Date: Fri, 18 May 2001 21:12

25 lines
1795 bytes

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

Technical Details

Message-ID: <_egN6.1409$RA.193481@afrodite.telenet-ops.be>

Path:

arc1-ca.pugleaf.net!archiver1.sj.google.com!newsfeed.google.com!sn-xit-02!supernews.com!isdnet!skynet.be!newsfeeds.belnet.be!news.belnet.be!afrodite.telenet-ops.be!not-for-mail

Show Full Headers

Complete Article Headers

X-Google-Language: DUTCH,ASCII-7-bit
X-Google-Thread: fcea4,8cfcca1f3b34e0b2,start
X-Google-Attributes: gidfcea4,public
X-Google-ArrivalTime: 2001-05-18 14:12:27 PST
Path: arc1-ca.pugleaf.net!archiver1.sj.google.com!newsfeed.google.com!sn-xit-02!supernews.com!isdnet!skynet.be!newsfeeds.belnet.be!news.belnet.be!afrodite.telenet-ops.be!not-for-mail
From: "Jeroen" <jeroen@zegmijnmeellieverniet.com>
Newsgroups: be.comp.programming
Subject: Vb timer en variable
Lines: 27
X-Priority: 3
X-MSMail-Priority: Normal
X-Newsreader: Microsoft Outlook Express 5.50.4133.2400
X-MimeOLE: Produced By Microsoft MimeOLE V5.50.4133.2400
Message-ID: <_egN6.1409$RA.193481@afrodite.telenet-ops.be>
Date: Fri, 18 May 2001 21:12:26 GMT
NNTP-Posting-Host: 213.224.100.199
X-Complaints-To: abuse@pandora.be
X-Trace: afrodite.telenet-ops.be 990220346 213.224.100.199 (Fri, 18 May 2001 23:12:26 MET DST)
NNTP-Posting-Date: Fri, 18 May 2001 23:12:26 MET DST
Organization: Telenet Internet