Nanaki
Erfahrenes Mitglied
also ist glaub ich mal net schlecht wenn ich hier dazuposte.
Ich hab ja den timer mal schön nachgeschrieben. Nur wenn er jetzt auf 0 ist soll er wieder von vorne anfangen, ohne dass ich was drücken muss und es soll ein sound gespielt werden (egal - nur akustisches signal) und dieses so lange bis ich einen Button drücke. Kann mir da bitte jemand den code schicken und ne minierklärung basteln.
code von dem timer:
Option Explicit
Dim i As Integer
Private Sub Command1_Click()
Unload Me
End Sub
Private Sub Form_Activate()
i = 720
Label2.Caption = i
Do
DoEvents
Loop Until i <= 0
Label1.ForeColor = vbRed
Timer1.Enabled = False
End Sub
Private Sub Timer1_Timer()
i = i - 1
Label2.Caption = i
End Sub
mfg
Lord
Ich hab ja den timer mal schön nachgeschrieben. Nur wenn er jetzt auf 0 ist soll er wieder von vorne anfangen, ohne dass ich was drücken muss und es soll ein sound gespielt werden (egal - nur akustisches signal) und dieses so lange bis ich einen Button drücke. Kann mir da bitte jemand den code schicken und ne minierklärung basteln.
code von dem timer:
Option Explicit
Dim i As Integer
Private Sub Command1_Click()
Unload Me
End Sub
Private Sub Form_Activate()
i = 720
Label2.Caption = i
Do
DoEvents
Loop Until i <= 0
Label1.ForeColor = vbRed
Timer1.Enabled = False
End Sub
Private Sub Timer1_Timer()
i = i - 1
Label2.Caption = i
End Sub
mfg
Lord