Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Fortlaufende Uhrzeiten selbst erstellen
Autor: sudave
Datum: 08.01.09 16:53
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _ System.EventArgs) Handles Button1.Click Dim StdAnz Dim MinAnz Dim SekAnz Dim Antwort StdAnz = InputBox("Bitte geben sie die Stundenzahl am Start an") MinAnz = InputBox("Bitte geben sie die Minutenzahl am Start an") SekAnz = InputBox("Bitte geben sie die Sekundenzahl am Start an") Do If SekAnz = 59 Then SekAnz = 0 MinAnz += 1 If MinAnz = 59 Then MinAnz = 0 StdAnz += 1 If StdAnz = 24 Then StdAnz = 0 MsgBox("Alles geht von vorne los") End If End If Else SekAnz += 1 End If Antwort = MsgBox("Es ist nicht " & TimeOfDay & " Uhr, sondern " & _ Format(StdAnz, "00") & ":" & _ Format(MinAnz, "00") & ":" & _ Format(SekAnz, "00") & " Uhr." & _ Chr(13) & "Weitermachen?", MsgBoxStyle.YesNo) Loop While Antwort = MsgBoxResult.Yes End Sub

Fortlaufende Uhrzeiten selbst erstellen	1.105	ass	08.01.09 14:29
Re: Fortlaufende Uhrzeiten selbst erstellen	528	ass	08.01.09 16:39
Re: Fortlaufende Uhrzeiten selbst erstellen	527	icetea123	08.01.09 16:49
Re: Fortlaufende Uhrzeiten selbst erstellen	590	sudave	08.01.09 16:53
Re: Fortlaufende Uhrzeiten selbst erstellen	519	ass	08.01.09 18:19
Re: Fortlaufende Uhrzeiten selbst erstellen	786	ass	09.01.09 17:56

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