VB -Timer1

VB -Timer1 (31 Beiträge, 130 Mal gelesen)

Du bist nicht angemeldet. [ Login/Registrieren ]

Private Sub Form_Load()
  GoOnFlag = False
  TStart = -1
  Timer1.Interval = 50
  Timer1.Enabled = False
  Command1.Caption = "Verzögerung starten"
  Command2.Caption = "Event Test"
End Sub

Private Sub Timer1_Timer()
  Static ofFlag As Boolean

  If TStart = -1 Then
    TStart = Timer
    ofFlag = IIf(TStart + Delay > 86400, True, False)
  End If

  If Not ofFlag And Timer - TStart >= Delay Then
    GoOnFlag = True
  ElseIf Timer <= Delay And Timer + 86400 - TStart >= Delay Then
    GoOnFlag = True
  End If

  If GoOnFlag Then Timer1.Enabled = False
End Sub

Private Sub Command1_Click()
  GoOnFlag = False
  TStart = -1
  Delay = 3.1 'Sekunden
  Command1.Enabled = False
  Me.Caption = "Wartezustand"
  Timer1.Interval = 50
  Timer1.Enabled = True

  Do While Not GoOnFlag
    DoEvents
  Loop

  Me.Caption = "Fertig"
  Command1.Enabled = True
End Sub

Meine Frage.... 86400 was ist da für eine Zahl?
wie kommt man auf die.. der Timer macht ned viel.. soll nur 3,1 Sekunden warten und dann den Button wieder zum clicken freigeben.. aber ich check ned was die Zahl in der TimerFunktion macht?

Irgendeine Idee?

sad to see your sorrow sad to see you

17.02.2005, 17:13 Uhr - Editiert von Entity, alte Version: hier

Re: VB -Timer1 (Roscoe am 17.02.2005, 17:16:30)

Re(2): VB -Timer1 (Entity am 17.02.2005, 17:18:56)

Re: VB -Timer1 (Somnatic am 17.02.2005, 17:18:48)

Re(2): VB -Timer1 (Entity am 17.02.2005, 17:20:59)

Re(3): VB -Timer1 (Somnatic am 17.02.2005, 17:26:51)

Re(4): VB -Timer1 (Entity am 17.02.2005, 17:28:40)

Re(4): VB -Timer1 (Entity am 17.02.2005, 17:35:05)

Re(5): VB -Timer1 (Somnatic am 17.02.2005, 18:28:01)

Re(6): VB -Timer1 (Entity am 17.02.2005, 19:01:25)

Re(7): VB -Timer1 (Somnatic am 17.02.2005, 19:01:52)

Re(8): VB -Timer1 (Entity am 17.02.2005, 19:06:59)

Re(9): VB -Timer1 (Somnatic am 17.02.2005, 19:17:02)

Re(10): VB -Timer1 (Entity am 17.02.2005, 19:32:12)

Re(11): VB -Timer1 (Somnatic am 17.02.2005, 19:40:59)

Re(12): VB -Timer1 (Entity am 17.02.2005, 20:14:13)

Re(13): VB -Timer1 (Somnatic am 17.02.2005, 20:20:55)

Re(14): VB -Timer1 (Entity am 17.02.2005, 20:30:00)

Re(15): VB -Timer1 (Somnatic am 17.02.2005, 20:39:52)

Re(16): VB -Timer1 (Entity am 17.02.2005, 20:48:30)

Re(17): VB -Timer1 (Somnatic am 17.02.2005, 20:53:39)

Re(18): VB -Timer1 (Entity am 17.02.2005, 20:57:51)

Re(19): VB -Timer1 (Somnatic am 17.02.2005, 21:00:44)

Re(20): VB -Timer1 (Entity am 17.02.2005, 21:09:17)

Re(21): VB -Timer1 (Somnatic am 17.02.2005, 21:10:42)

Re(22): VB -Timer1 (Entity am 17.02.2005, 21:11:31)

Re(19): VB -Timer1 (Somnatic am 17.02.2005, 21:10:03)

Re(15): VB -Timer1 (Somnatic am 17.02.2005, 20:40:38)

Re(16): VB -Timer1 (Entity am 17.02.2005, 20:43:43)

Dieses Forum ist eine frei zugängliche Diskussionsplattform.
Der Betreiber übernimmt keine Verantwortung für den Inhalt der Beiträge und behält sich das Recht vor, Beiträge mit rechtswidrigem oder anstößigem Inhalt zu löschen.
Datenschutzerklärung