Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: code
Autor: Nepster
Datum: 04.01.05 20:46
Dim Counter As Integer Dim minuten As Integer Dim stunden As Integer Private Sub Command1_Click() End End Sub Private Sub Form_Load() Dim Seriennummer As String Seriennummer = InputBox("Geben Sie ihre Seriennummer ein.") If Seriennummer = "dkl1rd-0056589-dgw" Then Else MsgBox " Ihre Seriennummer ist ungültig!" MsgBox " Wenden sie sich bitte an ihren Gesprächspartner." End End If End Sub Private Sub Timer1_Timer() Counter = Counter + 1 If Counter > 59 Then minuten = minuten + 1 Counter = 0 End If If Counter < 10 Then If minuten < 10 Then Label2.Caption = "0" End If Label2.Caption = Label2.Caption & minuten & ":0" & Counter Else Label2.Caption = "0" & minuten & ":" & Counter End If End Sub

Stoppuhr Stoppen!	904	Nepster	04.01.05 18:04
Re: Stoppuhr Stoppen!	611	mst547	04.01.05 18:33
Re: Stoppuhr Stoppen!	543	Nepster	04.01.05 18:40
Re: Stoppuhr Stoppen!	529	mst547	04.01.05 18:55
Re: Stoppuhr Stoppen!	535	Nepster	04.01.05 19:20
Re: code	584	Nepster	04.01.05 20:46
Re: Stoppuhr Stoppen!	638	zillertaler	04.01.05 19:01
Re: Stoppuhr Stoppen!	447	Nepster	04.01.05 19:12

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