/ Forside / Teknologi / Udvikling / VB/Basic / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
VB/Basic
#NavnPoint
berpox 2425
pete 1435
CADmageren 1251
gibson 1230
Phylock 887
gandalf 836
AntonV 790
strarup 750
Benjamin... 700
10  tom.kise 610
Timer i et modul
Fra : Bjarne Østergård


Dato : 31-01-03 08:47

Hej jeg er ved at lavet et lille grafikløs program, men skal bruge en timer
funktion
Jeg har forsøgt dette i et modul, men det virker ikke.

Hvordan får jeg en timerfunktion ind i et modul, altså ikke en form, da
programmet helt skal være uden grafiske elementer.

Programmet starter op i Public Sub Main()


Option Explicit
Dim Timer1 As Timer
Dim Tid As Integer

Public Sub Main()
Timer1.Interval = 1000
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
Tid = Tid + 1
If Tid > 10 Then End

End Sub

Hvad gør jeg forkert i overnævnte kode.



MVH
Bjarne


 
 
John Doe (31-01-2003)
Kommentar
Fra : John Doe


Dato : 31-01-03 09:05

Kig evt her:

http://w3.one.net/~kevinw/VB/s_cls_modules.htm

Led efter timer

-- håber ikke du føler dig "spist af" -- ellers kigger jeg på det



Bjarne Østergård (31-01-2003)
Kommentar
Fra : Bjarne Østergård


Dato : 31-01-03 09:12


"John Doe" <john@doe.com> skrev i en meddelelse
news:b1dan7$mng$1@news.net.uni-c.dk...
> Kig evt her:
>
> http://w3.one.net/~kevinw/VB/s_cls_modules.htm
>
> Led efter timer
>
> -- håber ikke du føler dig "spist af" -- ellers kigger jeg på det

Nej mange tak det ser rigtig ud
jeg forsøger at bruge det

MVH
Bjarne


Bjarne Østergård (31-01-2003)
Kommentar
Fra : Bjarne Østergård


Dato : 31-01-03 09:08

Hm jeg har lavet denne her løsning, og den ser ud til at virke, jeg ved bare
ikke lige hvor smart den er

Public Sub TidMal()
dblEndTime = Timer + 10#
Do While dblEndTime > Timer
' Do nothing but allow other
' applications to process
' their events.
DoEvents
Loop

End Sub

Nu virker de´tte lille modul lige som en timer og venter 10 sek med at
forlade løkken.
Men der må vist være en smartere måde at løse det på ?


MVH
Bjarne


Søg
Reklame
Statistik
Spørgsmål : 177557
Tips : 31968
Nyheder : 719565
Indlæg : 6408879
Brugere : 218888

Månedens bedste
Årets bedste
Sidste års bedste