Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Zähler (stopuhr)
Autor: Ralf
Datum: 27.11.01 17:50
Hi, als erstes fügst du Deiner Form das Timer Steuerelement hinzu, sowie eine textbox und einen Commandbutton, aber die wirst du wahrscheinlich schon haben Und dann folgenden Code: Option Explicit Dim SHour, SMinute, SSecond Dim gStart As Integer Private Sub Command1_Click() If gStart = 0 Then gStart = 1 Command1.Caption = "&Stop" Else gStart = 0 Command1.Caption = "&Start" End If End Sub Private Sub Form_Load() gStart = 0 Timer1.Interval = 1000 SHour = 23 SMinute = 59 SSecond = 30 Text1.Text = TimeSerial(SHour, SMinute, SSecond) End Sub Private Sub Timer1_Timer() If gStart = 1 Then SSecond = SSecond + 1 End If If SSecond = 60 Then SSecond = 0 SMinute = SMinute + 1 End If If SMinute = 60 Then SMinute = 0 SHour = SHour + 1 End If If SHour = 24 Then SHour = 0 End If Text1.Text = TimeSerial(SHour, SMinute, SSecond) End Sub Gruss Ralf

Zähler (stopuhr)	104	D159aniel	27.11.01 16:40
Re: Zähler (stopuhr)	54	Ralf	27.11.01 17:50
Re: Zähler (stopuhr)	64	ronny	27.11.01 18:06
Und noch eine Variante	339	Dieter	27.11.01 18:42
Re: Und noch eine Variante	47	iceduck	27.11.01 20:07
Re: Und noch eine Variante	53	Ralf	27.11.01 20:39
ja stimmt	44	iceduck	27.11.01 20: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