Seid gegrüßt,
wir müssen für das Fach Wirtschaftsinformatik ein eigenes Programm in Visual Basic 2015 schreiben. Mit Büchern und den Sachen aus dem Unterricht bin ich für einen Anfänger relativ weit gekommen.
Ich kann das Programm ohne Probleme starten. Wenn ich allerdings den Preis für die ausgewählten Artikel ausrechnen will stürzt das Programm ab und es kommt diese Meldung:
Ein Ausnahmefehler des Typs "System.InvalidCastException" ist in Microsoft.VisualBasic.dll aufgetreten.
Zusätzliche Informationen: Der Operator * ist für Zeichenfolge 2 und Typ TextBox nicht definiert.
Spoiler anzeigen
Er zeigt mir als Fehler die Reihe 41 an, aber wenn er dort schon meckert, dann wird er sicherlich auch bei Reihe 67 meckern. Das ist nicht der gesamte Code. Ich habe das raus gelassen was meiner Meinung nach unwichtig ist, bei Bedarf lade ich gerne noch den Rest hoch. Ich habe jetzt mehrere Stunden das Internet durchsucht, aber wirklich schlauer bin ich nicht geworden. Eventuell hat hier jemand eine Idee.
Gruß Paldaos
wir müssen für das Fach Wirtschaftsinformatik ein eigenes Programm in Visual Basic 2015 schreiben. Mit Büchern und den Sachen aus dem Unterricht bin ich für einen Anfänger relativ weit gekommen.
Ich kann das Programm ohne Probleme starten. Wenn ich allerdings den Preis für die ausgewählten Artikel ausrechnen will stürzt das Programm ab und es kommt diese Meldung:
Ein Ausnahmefehler des Typs "System.InvalidCastException" ist in Microsoft.VisualBasic.dll aufgetreten.
Zusätzliche Informationen: Der Operator * ist für Zeichenfolge 2 und Typ TextBox nicht definiert.
Visual Basic-Quellcode
- Public Class Form1
- Public Structure Kunde ' Wir erstellen eine neue Struktur. Damit fassen wir Variablen unterschiedlichen Datentyps zusammen, die sachlich zusammen gehören.
- Public Kundennummer As Integer 'Die Kundennummer ist eine ganze Zahl
- Public Name As String ' Ist eine Zeichenkette mit variabler Länge
- Public Vorname As String
- End Structure
- Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load 'Programmstart
- Dim philip, francis, matthias, michelle As Kunde 'wir legen zum Programmstart 4 Variablen an
- philip.Kundennummer = 1
- philip.Name = "Meier"
- philip.Vorname = "Philip"
- francis.Kundennummer = 2
- francis.Name = "Schubert"
- francis.Vorname = "Francis"
- matthias.Kundennummer = 3
- matthias.Name = "Kuhlen"
- matthias.Vorname = "Matthias" 'Eingabe Kundendaten
- michelle.Kundennummer = 4
- michelle.Name = "Schmidt"
- michelle.Vorname = "Michelle"
- Kundenliste(1) = philip 'variable 1=philip ist die Kundennummer 1 für Philip Meier usw.
- Kundenliste(2) = francis
- Kundenliste(3) = matthias
- Kundenliste(4) = michelle
- End Sub
- Public Function AnzeigeEinzelpreis(ByVal Auswahl, ByRef Preis)
- If Auswahl = "Schuhe" Then
- Preis = 39.99
- ElseIf Auswahl = "Hemd" Then
- Preis = 17.99
- ElseIf Auswahl = "Handtasche" Then
- Preis = 24.99
- End If
- Return True
- End Function
- Public Function Preiskalkulation(ByVal Anzahl, ByVal Einzelpreis, ByRef Preis)
- If Anzahl <> "" Then
- Preis = Anzahl * Einzelpreis
- End If
- Return True
- End Function
- Private Sub ButtonEndpreis_Click(sender As Object, e As EventArgs) Handles ButtonEndpreis.Click
- Const USt As Double = 0.19
- Dim Preis1, Preis2, Preis3, Summe, Steuer, Endpreis As Double
- If tb_Auswahl1_Preis.Text <> "" Then
- Preis1 = CDbl(tb_Auswahl1_Preis.Text)
- Else
- Preis1 = 0.00
- End If
- If tb_Auswahl2_Preis.Text <> "" Then
- Preis2 = CDbl(tb_Auswahl2_Preis.Text)
- Else
- Preis2 = 0.00
- End If
- If tb_Auswahl3_Preis.Text <> "" Then
- Preis3 = CDbl(tb_Auswahl3_Preis.Text)
- Else
- Preis3 = 0.00
- End If
- Summe = Preis1 + Preis2 + Preis3
- Steuer = Summe * USt
- Endpreis = Summe + Steuer
- tb_SummePreise.Text = Summe.ToString
- tb_Umsatzsteuer.Text = Steuer.ToString
- tb_Endpreis.Text = Endpreis.ToString
- End Sub
- End Class
Er zeigt mir als Fehler die Reihe 41 an, aber wenn er dort schon meckert, dann wird er sicherlich auch bei Reihe 67 meckern. Das ist nicht der gesamte Code. Ich habe das raus gelassen was meiner Meinung nach unwichtig ist, bei Bedarf lade ich gerne noch den Rest hoch. Ich habe jetzt mehrere Stunden das Internet durchsucht, aber wirklich schlauer bin ich nicht geworden. Eventuell hat hier jemand eine Idee.
Gruß Paldaos