Hi @ll,
ich bin neu hier und da ich nicht alleine weiter komme wollte ich euch fragen , wo mein Fehler im VB Code liegt dmait mein Programm auch Funktuniert. Es kommt immer die Fehlermeldung "Ungültige Konvertierung" Vielleicht kann mir da jemand helfen. Ich wollte nur ein paar werte zusammen zählen und eine Zwischensumme bilden, seht ihr ja bei der Berechnung. Und am Ende eine Gesamt Punktzahl haben.
LG Andy
Mein Programmcode:
Public Class FrmGanes
Private Sub CmdStart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdStart.Click
'Variablendeklaration
Dim spaßfaktor As Integer
Dim spieldauer As Integer
Dim steuerung As Integer
Dim einstieg As Integer
Dim grafik As Integer
Dim sound As Integer
Dim videoszenen As Integer
Dim atmosphaere As Integer
Dim singleplayer As Integer
Dim multiplayer As Integer
Dim extras As Integer
Dim schwierigkeitsgrad As Integer
Dim gesamt1 As Integer
Dim gesamt2 As Integer
Dim gesamt3 As Integer
Dim update As Integer
Dim preis As Integer
Dim punktzahl As Integer
'Wertzuweisung
spaßfaktor = CInt(TxtSpaßfaktor.Text)
spieldauer = TxtSpieldauer.Text
steuerung = TxtSteuerung.Text
einstieg = TxtEinstieg.Text
sound = TxtSound.Text
videoszenen = TxtVideoszenen.Text
atmosphaere = TxtAtmosphaere.Text
singleplayer = TxtSingleplayer.Text
multiplayer = TxtMultiplayer.Text
extras = TxtExtras.Text
schwierigkeitsgrad = TxtSchwierigkeitsgrad.Text
gesamt1 = TxtGesamt1.Text
gesamt2 = TxtGesamt2.Text
gesamt3 = TxtGesamt3.Text
update = TxtUpdate.Text
preis = TxtPreis.Text
punktzahl = TxtPunktzahl.Text
grafik = TxtGrafik.Text
'Berechnung
gesamt1 = spieldauer + spaßfaktor + steuerung + einstieg
End
gesamt2 = grafik + sound + atmosphaere + videoszenen
End
gesamt3 = singleplayer + multiplayer + extras + schwierigkeitsgrad
End
punktzahl = gesamt1 + gesamt2 + gesamt3 + update + preis
End
'Ausgabe
TxtGesamt1.Text = Str(gesamt1)
TxtGesamt2.Text = Str(gesamt2)
TxtGesamt3.Text = Str(gesamt3)
End Sub
Private Sub CmdEnde_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdEnde.Click
Me.Close()
End Sub
End Class
Der Beitragstitel wurde angepasst (von Chrisber)
ich bin neu hier und da ich nicht alleine weiter komme wollte ich euch fragen , wo mein Fehler im VB Code liegt dmait mein Programm auch Funktuniert. Es kommt immer die Fehlermeldung "Ungültige Konvertierung" Vielleicht kann mir da jemand helfen. Ich wollte nur ein paar werte zusammen zählen und eine Zwischensumme bilden, seht ihr ja bei der Berechnung. Und am Ende eine Gesamt Punktzahl haben.
LG Andy
Mein Programmcode:
Public Class FrmGanes
Private Sub CmdStart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdStart.Click
'Variablendeklaration
Dim spaßfaktor As Integer
Dim spieldauer As Integer
Dim steuerung As Integer
Dim einstieg As Integer
Dim grafik As Integer
Dim sound As Integer
Dim videoszenen As Integer
Dim atmosphaere As Integer
Dim singleplayer As Integer
Dim multiplayer As Integer
Dim extras As Integer
Dim schwierigkeitsgrad As Integer
Dim gesamt1 As Integer
Dim gesamt2 As Integer
Dim gesamt3 As Integer
Dim update As Integer
Dim preis As Integer
Dim punktzahl As Integer
'Wertzuweisung
spaßfaktor = CInt(TxtSpaßfaktor.Text)
spieldauer = TxtSpieldauer.Text
steuerung = TxtSteuerung.Text
einstieg = TxtEinstieg.Text
sound = TxtSound.Text
videoszenen = TxtVideoszenen.Text
atmosphaere = TxtAtmosphaere.Text
singleplayer = TxtSingleplayer.Text
multiplayer = TxtMultiplayer.Text
extras = TxtExtras.Text
schwierigkeitsgrad = TxtSchwierigkeitsgrad.Text
gesamt1 = TxtGesamt1.Text
gesamt2 = TxtGesamt2.Text
gesamt3 = TxtGesamt3.Text
update = TxtUpdate.Text
preis = TxtPreis.Text
punktzahl = TxtPunktzahl.Text
grafik = TxtGrafik.Text
'Berechnung
gesamt1 = spieldauer + spaßfaktor + steuerung + einstieg
End
gesamt2 = grafik + sound + atmosphaere + videoszenen
End
gesamt3 = singleplayer + multiplayer + extras + schwierigkeitsgrad
End
punktzahl = gesamt1 + gesamt2 + gesamt3 + update + preis
End
'Ausgabe
TxtGesamt1.Text = Str(gesamt1)
TxtGesamt2.Text = Str(gesamt2)
TxtGesamt3.Text = Str(gesamt3)
End Sub
Private Sub CmdEnde_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdEnde.Click
Me.Close()
End Sub
End Class
Der Beitragstitel wurde angepasst (von Chrisber)
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Chrisber“ ()