Zähler mit Sekundentaktung
17.09.2003 10:27:25
Moni
hab da ein Problem. Und zwar versuche ich einen Zähler zu programmieren
der nach 5 Sekunden immer eins hochzählt.
Habe das in VB sehr schnell hinbekommen, jedoch ist das in VBA nicht so einfach,
da die Timer funktion fehlt.
Habe es soweit das die Systemzeit ausgegeben wird. Diese soll in einem anderen
Textfeld laufen.
Kann mir da von euch jemand weiterhelfen?
Mein VB-Code:
Option Explicit
Private nSek As Integer
Private Sub Form_Load()
' Timer Werte zuweisen
Timer1.Interval = 6000
'Zähler
nSek = 0
'Ausgabe in Bezeichnungsfeld
Label1.Caption = CStr(nSek)
End Sub
Private Sub Timer1_Timer()
' und wieder eine Sekunde vorbei
nSek = nSek + 1
Label1.Caption = CStr(nSek)
' Falls 10 Sekunden erreicht, Timer deaktivieren
If nSek >= 10 Then Timer1.Enabled = False
End Sub
Mein vorläufiger VBA-Code:
Private Sub UserForm_Layout()
Call Scroll_Text
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Stopped = 1
End Sub
Private Sub Scroll_Text()
Stopped = 0
Do
TextBox1 = Time
Call Pause(100, 1) 'Tempo des Wechsel
Loop Until Stopped = 1
End Sub
Private Sub Pause(ByVal Pau As Single, ByVal DoEv As Integer)
Call Sleep(Pau)
If DoEv = 1 Then DoEvents
End Sub
Private Sub CommandButton1_Click()
If Stopped = 1 Then
Stopped = 0
CommandButton1.Caption = "Stop"
Call Scroll_Text
Else
Stopped = 1
CommandButton1.Caption = "Start"
End If
End Sub
Danke schonmal im Voraus.