Habe ein Mathe-Übungs-Programm,
funktioniert soweit so gut aber folgendes:
- Ich habe 2 Textfelder, eines zum festlegen der mininmalen Zahl des Ergebnisses und eine zur Maxmimalen Zahl des Ergebnisses.
- Nur leider wird immer nur für die zwei Summand-Glieder z.b. der Addition z.B. zwischen 0-20 ausgewählt und das Ergbiss ist dann trotzdem höher als 20.
- Nun die Frage, wie stelle ich das an das das Ergebnis in diesem Bereich erzwungen wird ?
- Achso und Bei Minus, Mal und Durch, wie stelle ich das dort an ?
Hier mein Code:
Alles anzeigen
Also 2 Textfelder für Begrenzung des Ergebnisses VON und BIS, die Rechenart, und ein Button für die neue Aufgabe ist vorhanden in der Form.
Will nur wissen wie ich das Ergebniss so festlegen kann.
Danke schonmal im Vorraus für jede Hilfe!!!
funktioniert soweit so gut aber folgendes:
- Ich habe 2 Textfelder, eines zum festlegen der mininmalen Zahl des Ergebnisses und eine zur Maxmimalen Zahl des Ergebnisses.
- Nur leider wird immer nur für die zwei Summand-Glieder z.b. der Addition z.B. zwischen 0-20 ausgewählt und das Ergbiss ist dann trotzdem höher als 20.
- Nun die Frage, wie stelle ich das an das das Ergebnis in diesem Bereich erzwungen wird ?
- Achso und Bei Minus, Mal und Durch, wie stelle ich das dort an ?
Hier mein Code:
Quellcode
- Private Sub Form_Load()
- Randomize
- End Sub
- Private Sub Command1_Click()
- Dim frage As String
- ' Initalisieren
- Randomize
- ' Plus +
- If Option1.Value = True Then
- gen_1 = Int((zb2.Text * Rnd) + zb1.Text)
- gen_2 = Int((zb2.Text * Rnd) + zb1.Text)
- aufgabe = gen_1 & "+" & gen_2
- aufgabe_loesung = gen_1 + gen_2
- ' Minus -
- ElseIf Option2.Value = True Then
- gen_1 = Int((zb2.Text * Rnd) + zb1.Text)
- gen_2 = Int((zb2.Text * Rnd) + zb1.Text)
- aufgabe = gen_1 & "-" & gen_2
- aufgabe_loesung = gen_1 - gen_2
- ' Mal *
- ElseIf Option3.Value = True Then
- gen_1 = Int((zb2.Text * Rnd) + zb1.Text)
- gen_2 = Int((zb2.Text * Rnd) + zb1.Text)
- aufgabe = gen_1 & "*" & gen_2
- aufgabe_loesung = gen_1 * gen_2
- ' Durch /
- ElseIf Option4.Value = True Then
- gen_1 = Int((zb2.Text * Rnd) + zb1.Text)
- gen_2 = Int((zb2.Text * Rnd) + zb1.Text)
- aufgabe = gen_1 & "/" & gen_2
- aufgabe_loesung = gen_1 / gen_2
- End If
- ' Frage stellen
- frage = InputBox(aufgabe, "Rechen-König", , 3200, 1600)
- ' Aufgabe überprüfen
- If aufgabe_loesung = frage Then
- MsgBox "Richtig"
- Else
- MsgBox "Falsch"
- End If
- End Sub
Also 2 Textfelder für Begrenzung des Ergebnisses VON und BIS, die Rechenart, und ein Button für die neue Aufgabe ist vorhanden in der Form.
Will nur wissen wie ich das Ergebniss so festlegen kann.
Danke schonmal im Vorraus für jede Hilfe!!!
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von ricardohassa ()