Ich habe eine Textbox, in die nur Werte von 1 bis 64 eingegeben werden dürfen, alle anderen Eingaben sollen abgefangen werden, was auch soweit klappt.
Nurdie Zahlen 7, 8 und 9 werden komischerweiße auch als Fehlerhafte Eingabe Abgefangen.
Villeicht kann mir hier ja wer meinen Fehler sagen.
Danke Schonmal im vorraus.
Mfg
Nurdie Zahlen 7, 8 und 9 werden komischerweiße auch als Fehlerhafte Eingabe Abgefangen.
Villeicht kann mir hier ja wer meinen Fehler sagen.
Danke Schonmal im vorraus.
Mfg
VB.NET-Quellcode
- Public Class Form1
- Dim Feld, Zähler As Byte
- Dim Zahl_Reiskörner, Zahl_Reiskörner_Gesamt, Berechnung_Reiskörner_Gesamt As Double
- Private Sub cmdStart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdStart.Click
- Ausgabe_Feld.Text = "Feld:"
- Ausgabe_Reiskörner.Text = "Reiskörner:"
- Ausgabe_Reiskörner_Gesamt.Text = "Reiskörner gesamt:"
- Zahl_Reiskörner_Gesamt = 0
- Select Case EingabeZahl.Text
- Case ""
- MsgBox("Bitte geben Sie eine Zahl zwischen 1 und 64 ein!", 0, "Fehler!")
- Case Is < 1
- MsgBox("Bitte geben Sie eine Zahl zwischen 1 und 64 ein!", 0, "Fehler!")
- Case Is > 64
- MsgBox("Bitte geben Sie eine Zahl zwischen 1 und 64 ein!", 0, "Fehler!")
- Case Else
- Feld = EingabeZahl.Text
- Ausgabe_Feld.Text = "Feld: " & Feld
- Zahl_Reiskörner = 2 ^ (Feld - 1)
- Ausgabe_Reiskörner.Text = "Reiskörner: " & Zahl_Reiskörner
- Zähler = 1
- For Test = Zähler To Feld
- Berechnung_Reiskörner_Gesamt = 2 ^ (Zähler - 1)
- Zahl_Reiskörner_Gesamt = Zahl_Reiskörner_Gesamt + Berechnung_Reiskörner_Gesamt
- Zähler = Zähler + 1
- Next
- Ausgabe_Reiskörner_Gesamt.Text = "Reiskörner gesamt: " & Zahl_Reiskörner_Gesamt
- End Select
- End Sub
- End Class