Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Benötige etwas Hlfe beim erstellen eines Code zum addieren von Zeiteinheiten!!
Autor: Neueinsteiger
Datum: 13.09.08 13:20
Hallo Leute, ich bin am verzweifeln, ich schreibe ein kleines Programm, das mir Stunden minuten und sekunden addiert und eine richtige Uhrzeit angibt. Ich will zum beispiel zu der Zeit 10:24:36 einmal 50 minuten addieren und auf diese Ergebnis dann nochmal 135 sekunden. Ich habe den Code jetzt soweit fertig, dass das Programm rechnet. allerdings kommt keine anstädige Uhrzeit heraus. Bei mir sieht es dann so aus: 10:24:36 10:74:36 10:74:171 statt so: 10:24:36 11:14:36 11:16:51 Hier ist mein Code: Imports System.Console Enum Zeiteinheit As Integer Stunde = 1 Minute = 60 Sekunde = 3600 End Enum Class Zeit Private m_std As Short Private m_min As Short Private m_sek As Short Public Sub New(ByVal Stunde As Short, _ ByVal Minute As Short, _ ByVal Sekunde As Short) m_std = Stunde m_min = Minute m_sek = Sekunde End Sub Sub Anzeigen() Write("Zeit: {0}:{1}:{2} ", m_std, m_min, m_sek) ReadLine() End Sub Public Sub Addieren(ByVal Anzahl As Short, _ ByVal Einheit As Zeiteinheit) Select Case Einheit Case Zeiteinheit.Sekunde m_sek += Anzahl Case Zeiteinheit.Minute m_min += Anzahl Case Zeiteinheit.Stunde m_std += Anzahl End Select End Sub Function zuSekunde() As Integer Dim Sekunde As Integer Sekunde = CInt(3600 * m_std) + (60 * m_min) + m_sek End Function Private Sub zuZeit(ByVal Sekunde As Integer) m_sek = Sekunde Mod 60 m_min = (Sekunde \ 60) Mod 60 m_sek = Sekunde \ 60 * 60 End Sub End Class Module abc Sub MAin() Dim z As New Zeit(10, 24, 36) z.Anzeigen() z.Addieren(50, Zeiteinheit.Minute) z.Anzeigen() z.Addieren(135, Zeiteinheit.Sekunde) z.Anzeigen() ReadLine() End Sub End Module Ich denke mal mein Fehler kann eigentlich nur in der Sub Anzeigen liegen, aber ich komme einfach nnicht drauf. kann mir vlt. jemand helfen. LG Michael

Benötige etwas Hlfe beim erstellen eines Code zum addieren v...	1.300	Neueinsteiger	13.09.08 13:20
Re: Benötige etwas Hlfe beim erstellen eines Code zum addier...	931	cookstdu	13.09.08 14:36
Re: Benötige etwas Hlfe beim erstellen eines Code zum addier...	801	engelmarkus	13.09.08 14:37
Re: Benötige etwas Hlfe beim erstellen eines Code zum addier...	761	Neueinsteiger	13.09.08 15:11
Re: Benötige etwas Hlfe beim erstellen eines Code zum addier...	742	mitsch	13.09.08 15:36
Re: Benötige etwas Hlfe beim erstellen eines Code zum addier...	755	Neueinsteiger	13.09.08 15:45
Re: Benötige etwas Hlfe beim erstellen eines Code zum addier...	814	icetea123	13.09.08 16:26
Re: Benötige etwas Hlfe beim erstellen eines Code zum addier...	773	cookstdu	13.09.08 16:30
Re: Benötige etwas Hlfe beim erstellen eines Code zum addier...	826	Neueinsteiger	13.09.08 16:31
Re: Benötige etwas Hlfe beim erstellen eines Code zum addier...	781	icetea123	13.09.08 16:32

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