Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Stoppuhr
Autor: TommyLee
Datum: 16.09.02 12:28
Hi, hier is ne einfache Stopuhr. Dim zehntel As Integer Dim sec As Integer Dim min As Integer Dim std As Integer Private Sub Command1_Click() Timer1.Interval = 100 End Sub Private Sub Command2_Click() Timer1.Interval = 0 End Sub Private Sub Form_Load() zehntel = 0 sec = 0 min = 0 std = 0 End Sub Private Sub Timer1_Timer() zehntel = zehntel + 1 If zehntel = 10 Then sec = sec + 1 zehntel = 0 End If If sec = 60 Then min = min + 1 sec = 0 End If If min = 60 Then std = std + 1 min = 0 End If Label1.Caption = zehntel Label2.Caption = sec Label3.Caption = min Label4.Caption = std End Sub

Stoppuhr	102	Hannibal	16.09.02 10:44
Re: Stoppuhr	355	Dieter	16.09.02 11:26
Re: Stoppuhr	79	Hannibal	16.09.02 11:43
Re: Stoppuhr	86	TommyLee	16.09.02 12:28
Re: Stoppuhr	69	Hannibal	16.09.02 13:24

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