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)

Hi. Du hast alle Variablen als Integer Deklariert.
Wenn du jetzt ein Integer mit einer Textbox verbinden willst (Das auch geht), musst du aufpassen das in der Textbox wirklich nur ne Zahl steht. Selbst eine Leerstelle bringt das Programm um.
Ich hoffe es hilft

Greetings

mach den VB Code mal in einem VB-Code Tag, das gibt es nicht umsonst. Außerdem ließt sich hier keiner den ganzen Code durch also stell bloß einen Code Teil rein!

Außerdem glaube ich nicht das er sich wieder Meldet. Wieder so ein 0815 User der sich einfach anmeldet und nie wieder erscheint. Aber mal sehen.

Sieht mir ziemlich nach einem Project aus nem Buch abgeschrieben.
Also guck mal bei dem meisten Büchern ist noch ne Cd dabei, wo die Projekte druff sind.