Kann mir jemand hierbei helfen ich weiß nicht was ich falsch mache
Die Zeit ewird falsch angezeigt und wennich versuch eine Eingabe zu realisieren stürtz mir das Programm ab
*Topic verschoben, VB-Tag eingefügt*
Die Zeit ewird falsch angezeigt und wennich versuch eine Eingabe zu realisieren stürtz mir das Programm ab
VB.NET-Quellcode
- Imports System.Console
- Enum Zeiteinheit As Short
- Stunde = 1
- Minute = 60
- Sekunde = 3600
- End Enum
- Class Zeit
- Private m_std As Short = 0
- Private m_min As Short = 0
- Private m_sek As Short = 0
- 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()
- WriteLine("Zeit: {0}:{1}:{2}", m_std, m_min, m_sek)
- End Sub
- Private Function zuSekunden() As Integer
- zuSekunden = CInt(m_std * 3600) + (m_min * 60) + (m_sek)
- End Function
- 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
- 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
- Property Zeit(ByVal stunde As Integer, ByVal minute As Integer, ByVal sekunde As Integer) As Integer
- Get
- stunde = m_std
- minute = m_min
- sekunde = m_sek
- End Get
- Set(ByVal value As Integer)
- m_std = value
- m_min = value
- m_sek = value
- End Set
- End Property
- End Class
- Module Module1
- Sub Main()
- Dim z As New Zeit(10, 24, 36)
- z.Anzeigen()
- z.Addieren(50, Zeiteinheit.Minute)
- z.Anzeigen()
- z.Addieren(155, Zeiteinheit.Sekunde)
- z.Anzeigen()
- ReadLine()
- End Sub
- End Module
*Topic verschoben, VB-Tag eingefügt*
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Marcus Gräfe“ ()