Hi,
ich verstehe nicht, warum bei dem folgenden Quelltext, auch wenn ich passende Eingaben eingeben, immer der Catch-Teil arbeitet und der Try-Teil nicht funktioniert. Hoffe ihr könnt mir Helfen.
LG
eliman20000
ich verstehe nicht, warum bei dem folgenden Quelltext, auch wenn ich passende Eingaben eingeben, immer der Catch-Teil arbeitet und der Try-Teil nicht funktioniert. Hoffe ihr könnt mir Helfen.
LG
eliman20000
Quellcode
- Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
- Dim HPZ As Single = Form2.HPZ
- Try
- Eingabe(0) = HPZ * 1
- Eingabe(1) = HPZ * 0.96
- Eingabe(2) = HPZ * 0.95
- Eingabe(3) = HPZ * 0.91
- Eingabe(4) = HPZ * 0.9
- Eingabe(5) = HPZ * 0.86
- Eingabe(6) = HPZ * 0.85
- Eingabe(7) = HPZ * 0.81
- Eingabe(8) = HPZ * 0.8
- Eingabe(9) = HPZ * 0.76
- Eingabe(10) = HPZ * 0.75
- Eingabe(11) = HPZ * 0.71
- Eingabe(12) = HPZ * 0.7
- Eingabe(13) = HPZ * 0.66
- Eingabe(14) = HPZ * 0.65
- Eingabe(15) = HPZ * 0.61
- Eingabe(16) = HPZ * 0.6
- Eingabe(17) = HPZ * 0.56
- Eingabe(18) = HPZ * 0.55
- Eingabe(19) = HPZ * 0.51
- Eingabe(20) = HPZ * 0.5
- Eingabe(21) = HPZ * 0.46
- Eingabe(22) = HPZ * 0.45
- Eingabe(23) = HPZ * 0.41
- Eingabe(24) = HPZ * 0.4
- Eingabe(25) = HPZ * 0.34
- Eingabe(26) = HPZ * 0.33
- Eingabe(27) = HPZ * 0.27
- Eingabe(28) = HPZ * 0.26
- Eingabe(29) = HPZ * 0.2
- Eingabe(30) = HPZ * 0.19
- Eingabe(31) = HPZ * 0
- EingabeTB = CInt(TextBox1.Text)
- If EingabeTB < 0 Or EingabeTB > Eingabe(0) Then Label1.Text = "Fehler in Syntax!"
- If EingabeTB <= Eingabe(0) And EingabeTB >= Eingabe(1) Then B = 15
- If EingabeTB <= Eingabe(2) And EingabeTB >= Eingabe(3) Then B = 14
- Label1.Text = CStr(B) + P
- Catch
- Label1.Text = "Fehler in Eingabe-Syntax!"
- End Try
- Protokoll.Add(TextBox3.Text)
- Protokoll.Add(TextBox1.Text + PP)
- Protokoll.Add(Label1.Text & Chr(10))
- Sicher = False
- End Sub