Hallo,
ich versuche mich gerade am Anwendungsentwickler der SGD und hänge schon bei der Einsendeaufgabe von VBDn06
genau geht es um das Programm das man einsenden muss, hat das jemand gelöst und kann sich mit mir austauschen?
Also ich war soweit aber nach ewiger zeit hin und her probieren kam ich auch nicht weiter.
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
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(155, Zeiteinheit.Sekunde)
z.Anzeigen()
ReadLine()
End Sub
End Module
wäre nett wenn mir jemand eine PM schicken könnte was ich falsch gemacht habe, vielen dank
