Aufgabe Enumeration und Klasse

Apollo · 24. September 2016, 12:17

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

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*

petaod · 24. September 2016, 12:51

1) Ist nicht VBScript, sondern VB.Net
2) Bitte zur Code-Formatierung VB-Tags verwenden.

2) Für Zeitberechnung und -anzeige verwendet man vernünftigerweise DateTime und Timespan.

Oder ist das eine Hausaufgabe, bei der dieser manuelle Weg vorgegeben ist?

mrMo · 24. September 2016, 13:43

Mahlzeit,

1. Bitte VB-Tags verwenden um Code hier im Forum zu posten
2. Mach mal bitte Option Strict On rein / Stichwort: implizite Konvertierung von "Integer" in "Short"
3. Überleg mal das so zu machen, wie petaod schon geschrieben hat

Für Zeitberechnung und -anzeige verwendet man vernünftigerweise DateTime und Timespan.

Hab mal auf die Schnelle alles was Integer ist gegen Short ausgetauscht, jetzt macht die Console was.
Zeit: 10:24:36
Zeit: 10:74:36
Zeit: 10:74:191

Spoiler anzeigen

VB.NET-Quellcode

Option Strict On
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 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 Short)
m_sek = Sekunde
m_min = CShort(Sekunde \ 60)
m_std = CShort(Sekunde \ 60 * 60)
End Sub
Property Zeit(ByVal stunde As Short, ByVal minute As Short, ByVal sekunde As Short) As Short
Get
stunde = m_std
minute = m_min
sekunde = m_sek
End Get
Set(ByVal value As Short)
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

Apollo · 24. September 2016, 14:48

ja es ist eine Hausaufgabe

Pasta · 24. September 2016, 14:52

Dieses Forum ist aber kein Hausaufgaben-Service !
Du klatscht hier einfach code hin, ohne Fehlermeldung, ohne konkrete Frage, ohne ordentliche Formatierung (obwohl du da schon mal drum gebeten wurdest!) und erwartest, daß andere dir den korrigieren ! :thumbdown:

mrMo · 24. September 2016, 15:02

Ob Hausaufgabe oder nicht, ist ja nicht entscheidend. Diese soll dir ja VB näher bringen. Und dafür ist aus meiner Sicht dieses Forum da...

Was ist den die konkrete Aufgabenstellung? Dann können wir dir bestimmt besser helfen.

Pasta · 24. September 2016, 15:08

Sich bei seinen Hausaufgaben etwas Unterstützung zu holen ist ja ok, auf die Tour, wie hier, aber nicht !

Apollo · 24. September 2016, 15:10

Das weiß ich auch darum geht es mir auch nicht meine Hausaufgaben von anderen machen zulassen,

ich möchte meine Aufgabe selbst lösen steck eben fest und hatte gehofft jemand kann mich in die richtige Richtung anstoßen

Und nun zu Dir Pasta : Ich bin selbst seit 25 Jahren in Cad Foren unterwegs und auch Moderator.
Meiner Ansicht nach haben, solche Klugscheißer die auf andere herab sehen und meinen sie hätte die Weisheit mit Löffeln gefressen, in Foren nichts zu suchen.
Wenn wir in den CAD Foren so unfreundlich zu den hilfesuchenden wären, die etwas lernen wollen dann gäbe es diese Foren schon lange nicht mehr.
So jetz genug Frust abgelassen!

mrMo · 24. September 2016, 15:12

Apollo schrieb:

ich möchte meine Aufgabe selbst lösen steck eben fest und hatte gehofft jemand kann mich in die richtige Richtung anstoßen

Sehr löblich. Also, was ist den jetzt die konkrete Aufgabenstellung?

Apollo · 24. September 2016, 19:47

Ok das mit den Vb-Tag wußte ich nicht das das so wichtig .
Werde es das nächste mal beherzigen , aber da kommt sch on die nächst whrrscheinlich blöde Frage wie stelle ich das hier an mit den VB-Tag

Und hier sind Ihre Aufgaben:
a) Erstellen Sie eine Enumeration Zeiteinheit mit den Membern Stunde, Minute, Sekunde.
Deklarieren Sie mit dem (kleinsten) passenden Datentyp.
Geben Sie den Membern in passender Reihenfolge die Werte 1, 60, 3600, so, dass Sie die hinterlegten Zahlenwerte später zum Rechnen verwenden können.
b) Definieren Sie eine Klasse Zeit. Sie enthält die privaten Member m_std, m_min, m_sek, die Sie als Short deklarieren.
c) Schreiben Sie einen Konstruktor, mit dem Sie Objekte der Klasse Zeit mitsamt Zeitangabe erstellen können. Sie übergeben die Werte für Stunde, Minute und Sekunden.
Der Aufruf ist in der oben abgedruckten Main() enthalten.
d) Definieren Sie eine Methode Anzeigen. Bei Aufruf wird die Zeit angezeigt, wie oben abgebildet.
e) Die Klasse enthält die Methode Addieren():Sub Addieren(ByVal Anzahl As Short, ByVal Einheit AsZeiteinheit)
End SubSie geben einen beliebigen Wert als Anzahl ein, und als zweites Argument, ob es sich um Stunden, Minuten oder Sekunden handelt.
Zur Verwendung der Prozedur finden Sie im abgedruckten Programm E_1 zwei Aufrufbeispiele in den Zeilen 47 und 49. Im ersten Beispiel werden 50 Minuten addiert, im zweiten 155 Sekunden.
Zu Ihrer Unterstützung möchte ich noch die folgenden Hinweise hinzufügen:Die Methode Addieren wandelt für interne Berechnung die in den Feldern m_std, m_min, m_sec gespeicherte Zeit in Sekunden um.
Definieren Sie zu diesem Zweck eine Funktion zuSekunden(), die als Rückgabewert (Integer) die Anzahl der Sekunden erhält, die der im Objekt gespeicherten Zeit entspricht.
Nun werden die übergebenen Argumente Anzahl und Einheit verwendet und hinzuaddiert.Mittels der Sub-Prozedur zuZeit ( Sekunden as Integer) wird das Ergebnis wieder in den Datenmembern gespeichert.

mrMo · 24. September 2016, 20:06

Ok, das erklärt warum du über diesen Weg mit Zeiten rechnest...

Schreib bei dir im VisualStudio im Code gaaaaanz oben (Zeile 1) Option Strict On hin.
Dann wird dein VS anfangen zu jammern, bitte die markierten Fehler beheben (Gibt ne Fehlerliste, die einfach durcharbeiten).

Das dir die "falsche" Zeit angezeigt wird z.B.
Zeit: 10:24:36
Zeit: 10:74:36
Zeit: 10:74:191

Liegt evtl. daran, das deine Stunden, Minuten und Sekunden kein "Ende" haben. Bei Short ergibt z.B. 30 (Min.) + 50 (Min.) eben 80 und nicht 1 Stunde, 20 Minuten. Aber hier gibt dir der Aufgabensteller ja sogar einen Tipp:

Zu Ihrer Unterstützung möchte ich noch die folgenden Hinweise hinzufügen: Die Methode Addieren wandelt für interne Berechnung die in den Feldern m_std, m_min, m_sec gespeicherte Zeit in Sekunden um.

Glaube, das hast du hier nicht drin, oder?

VB.NET-Quellcode

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

Pasta · 24. September 2016, 20:18

Im Editor auf den je nach gewünschter Sprache entsprechenden Button drücken (rechts). :rolleyes:

Alle möglichen: [Forum] Welche BBCodes (Tags) gibt es hier im Forum zum Einfärben von Quellcodes (Syntax-Highlighting)?

Du hast immer noch keine konkrete Frage gestellt ! :rolleyes:

[Forum] Grundlagen der Forennutzung und warum der Hilfreich-Button kein Stacheldraht ist

Es gibt hier einen guten Artikel zum Thema debuggen (Ich finde den grade nicht, kann den bitte wer posten), denn solltest du lesen.
Dann kannst du die Fehler selber nachvollziehen und lernst was dabei.
... obwohl ... es sieht sieht nicht so aus, als ob das in deinem Interesse liegt.

Apollo · 24. September 2016, 20:44

wenn ich es nicht lernen wollte hätte ich nicht gefragt. Für mich sind zur Zeit die vielen Neutheiten in Stoff noch etwas undurchsichtig.
Ich bin für jedes Hilfsmittel und Lernvorschläge offen.

mrMo · 24. September 2016, 20:56

Hilfsmittel sind Bücher, der Debugger, dieses Forum und der eigene Verstand. Hast du dir denn mal das was wir oben geschrieben haben angeschaut?

Apollo schrieb:

Die Zeit wird falsch angezeigt und wenn ich versuch eine Eingabe zu realisieren stürzt mir das Programm ab

Komm schon Pasta, drück mal ein Auge zu, das könnte man doch fast schon als Frage werten

Pasta · 24. September 2016, 20:59

Habe den Artikel gefunden.
Debuggen, Fehler finden und beseitigen

edit:
"Hilfsmittel sind Bücher, der Debugger, dieses Forum und der eigene Verstand."
Besser so:
Eigener Verstand, Debugger & Intellisence (IDE beherrschen), Bücher, Google & Co -> Foren, Tutorials, et cetera lesen, ..., in einem Forum fragen, gehe zum Anfang.

MichaHo · 24. September 2016, 21:18

Klingt nach Fernstudium, hatte die Aufgabe auch. Ich kann morgen mal gucken wie ich sie gelöst hatte und geb Dir dann nen Hinweis...

mrMo · 24. September 2016, 21:39

Ja, scheint wohl ne Standardaufgabe zu sein. Hab grad in google gesucht. Ältester zu dieser Aufgabe gefundener Thread ist von 2007, leider ohne Lösung.

Hier ein Thread hier im Forum, vielleicht hilf der ein wenig weiter, scheint aber auch ungelöst sein.
Enumeration und Klasse(Hausaufgabe)

MichaHo · 24. September 2016, 22:02

Ich schreib die Lösung gern hier rein...

petaod · 24. September 2016, 22:17

Ohne es getestet zu haben:

VB.NET-Quellcode

Sub Addieren(ByVal Anzahl As Short, ByVal Einheit As Zeiteinheit)
zuZeit(Anzahl * Einheit)
End Sub

Einheit ist doch bereits der Multiplikator für die Sekunden und zuZeit berechnet aus den Sekunden die Zeit-Properties.
Was nicht funktionieren wird, ist der Tageswechsel.
Dazu müsste in zuZeit für die Stunden noch ein Mod 24 eingefügt werden.

faxe1008 · 25. September 2016, 00:30

VB.NET-Quellcode

Private Sub zuZeit(ByVal Sekunde As Short)
m_sek = Sekunde
m_min = CShort(Sekunde \ 60)
m_std = CShort(Sekunde \ 60 * 60)
End Sub

Wenn du hier > 60 übergibst dann ist m_sek > 60, was eher unüblich auf normalen Uhren ist :D.

VB.NET-Quellcode

Property Zeit(ByVal stunde As Short, ByVal minute As Short, ByVal sekunde As Short) As Short
Set(ByVal value As Short)
m_std = value
m_min = value
m_sek = value
End Set
End Property

Der Setter ist eher schlecht gestaltet - hier wird einfach alles auf value gesetzt. Generell verwendest du die Property überhaupt nicht :O .

So hätte ich es gelöst:

VB.NET-Quellcode

Private Function zuSekunden() As Integer
Return 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
zuZeit(zuSekunden())
End Sub
Private Sub zuZeit(ByVal Sekunde As Integer)
m_std = CShort(Math.Floor(Sekunde / 3600))
Sekunde = CShort(Sekunde - m_std * 3600)
m_std = CShort(m_std Mod 24)
m_min = CShort(Math.Floor(Sekunde / 60))
Sekunde = CShort(Sekunde - m_min * 60)
m_sek = CShort(Sekunde)
End Sub

Auf die Weise verwendest du sogar mal die zuSekunde Methode

Aufgabe Enumeration und Klasse

Aufgabe Enumeration und Klasse

VB.NET-Quellcode

VB.NET-Quellcode

Apollo schrieb:

VB.NET-Quellcode

Apollo schrieb:

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

Ähnliche Themen

7 Benutzer haben hier geschrieben