Hi,
ich habe letztens versucht Variablen, die ich als Double und Integer deklariert habe, in eine TextBox zu setzen. Da eine TextBox nur Strings ausgibt, wollte ich die jeweiligen TextBoxen in Integer und Double umwandeln. Nach dem Starten des Programms weist Visual Studio mich auf die Zeile 11 hin. Die Fehlermeldung lautet: "Ungültige Konvertierung von der Zeichenfolge in Typ Integer". Als ich die Typumwandlung auf der Zeile 11 entfernt habe, kam trotzdem die gleiche Fehlermeldung. Fehler dieser Art kamen bei mir schon sehr häufig vor. Option Strict ist bei mir eingeschaltet. Könnt Ihr mir dabei helfen? Irgendwie kriege ich es nicht hin eine explizite Typumwandlung durchzuführen.
Könnt Ihr mir dabei helfen? Irgendwie kriege ich es nicht hin eine explizite Typumwandlung durchzuführen. Ich würde mich über eure Hilfe sehr freuen.
MfG
MeSiAk
ich habe letztens versucht Variablen, die ich als Double und Integer deklariert habe, in eine TextBox zu setzen. Da eine TextBox nur Strings ausgibt, wollte ich die jeweiligen TextBoxen in Integer und Double umwandeln. Nach dem Starten des Programms weist Visual Studio mich auf die Zeile 11 hin. Die Fehlermeldung lautet: "Ungültige Konvertierung von der Zeichenfolge in Typ Integer". Als ich die Typumwandlung auf der Zeile 11 entfernt habe, kam trotzdem die gleiche Fehlermeldung. Fehler dieser Art kamen bei mir schon sehr häufig vor. Option Strict ist bei mir eingeschaltet. Könnt Ihr mir dabei helfen? Irgendwie kriege ich es nicht hin eine explizite Typumwandlung durchzuführen.
Quellcode
- Public Class Form1
- Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
- Dim k0 As Double
- Dim p As Double
- Dim n As Integer
- Dim i As Integer
- Dim kn As Double
- k0 = CDbl(TextBox1.Text)
- p = CDbl(TextBox2.Text)
- n = CInt(TextBox3.Text)
- kn = CDbl(TextBox4.Text)
- If IsNumeric(k0 And p) Then
- For i = 0 To n Step 1
- n = i + 1
- kn = k0 * ((1 + p) / 100) ^ n
- Next i
- TextBox3.Text = CInt(n)
- TextBox4.Text = CDbl(k0)
- Else MsgBox("Bitte Geben Sie Zahlen ein.", vbCritical)
- End If
- End Sub
- End Class
Könnt Ihr mir dabei helfen? Irgendwie kriege ich es nicht hin eine explizite Typumwandlung durchzuführen. Ich würde mich über eure Hilfe sehr freuen.
MfG
MeSiAk