Ich verzweifel wieder mal. Ich hab ein ganz "simples" Programm geschrieben um Klassen und Enumerationen besser zu verstehen. Aber irgendwie ist das Ergebnis nicht das was ich will. Das Programm soll folgendes machen:
Ich gebe am Anfang einen Zeit vor. Hier 10:24:36 Uhr. Dazu sollen dann erst 50 Minuten und im nächsten Schritt 135 Sekunden dazu gerechnet werden. Leider hab ich irgendwo noch einen Fehler und ich komm nicht weiter.
Ich hoffe ihr versteht was ich mein und könnt mir helfen!?
Danke schonmal für eure Mühe
Ich gebe am Anfang einen Zeit vor. Hier 10:24:36 Uhr. Dazu sollen dann erst 50 Minuten und im nächsten Schritt 135 Sekunden dazu gerechnet werden. Leider hab ich irgendwo noch einen Fehler und ich komm nicht weiter.
Code:
Imports System.Console Enum Zeiteinheit As Short 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 m_std As Short, ByVal m_min As Short, ByVal m_sek As Short) m_std = Zeiteinheit.Stunde m_min = Zeiteinheit.Minute m_sek = Zeiteinheit.Sekunde End Sub Sub Anzeige() WriteLine("Zeit: {0,2}:{1,2}:{2,2}", m_std, m_min, m_sek) End Sub Sub Addieren(ByVal Anzahl As Short, _ ByVal Einheit As Zeiteinheit) End Sub Private Sub zuSekunde(ByVal Sekunde As Integer) End Sub Private Sub zuZeit(ByVal Sekunde As Integer) m_sek = Sekunde Mod 60 m_min = (Sekunde \ 60) Mod 60 m_std = Sekunde \ 60 * 60 End Sub End Class Module abc Sub Main() Dim z As New Zeit(10, 24, 36) z.Anzeige() z.Addieren(50, Zeiteinheit.Minute) z.Anzeige() z.Addieren(135, Zeiteinheit.Sekunde) z.Anzeige() ReadLine() End Sub End Module
Danke schonmal für eure Mühe
Comment