Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Timer Probleme
Autor: Peter Schneider
Datum: 08.07.02 09:36
nein habe mich geirrt, der intervall gibt an wann der timer starten soll. Hier´haste das beispiel aus der msdn hilfe(ist ein timer mit alarm funktion hilft dir vielleicht) Option Explicit Dim AlarmTime Const conMinimized = 1 Private Sub Form_Click() AlarmTime = InputBox("Geben Sie die Weckzeit ein:", "VB Alarm", AlarmTime) If AlarmTime = "" Then Exit Sub If Not IsDate(AlarmTime) Then MsgBox "Sie haben keine gültige Uhrzeit eingegeben." Else ' Zeichenfolge, die von InputBox übergegeben ' wird, hat gültiges Zeitformat, AlarmTime = CDate(AlarmTime) ' daher speichern als ' Datum/Zeit-Wert. End If End Sub Private Sub Form_Load() AlarmTime = "" End Sub Private Sub Form_Resize() If WindowState = conMinimized Then ' Anzeigen der Zeit in Überschrift, ' falls Formular minimiert. SetCaptionTime Else Caption = "Wecker" End If End Sub Private Sub SetCaptionTime() Caption = Format(Time, "Short Time") ' Anzeigen der Zeit im ' Format "Short Time". End Sub Private Sub Timer1_Timer() Static AlarmSounded As Integer If lblTime.Caption <> CStr(Time) Then ' Sekundenzahl ist jetzt verschieden vom angezeigten Wert. If Time >= AlarmTime And Not AlarmSounded Then Beep MsgBox "Es ist nun " & Time AlarmSounded = True ElseIf Time < AlarmTime Then AlarmSounded = False End If If WindowState = conMinimized Then ' Wenn minimiert, Formulartitel jede Minute aktualisieren. If Minute(CDate(Caption)) <> Minute(Time) Then SetCaptionTime Else ' Ansonsten Caption-Eigenschaft des Bezeichnungsfelds ' jede Sekunde aktualisieren. lblTime.Caption = Time End If End If End Sub

Timer Probleme	87	alex	08.07.02 08:54
Re: Timer Probleme	28	Peter Schneider	08.07.02 09:02
Re: Timer Probleme	33	alex	08.07.02 09:26
Re: Timer Probleme	30	Peter Schneider	08.07.02 09:36
Re: Timer Probleme	29	nessy	08.07.02 09:45
Re: Timer Probleme	23	alex	08.07.02 10:09
Das geht so...	246	Dieter	08.07.02 09:58

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen