[vb6] Mathe-Übungs-Programm *Brauche Hilfe*

Diese Seite verwendet Cookies. Durch die Nutzung unserer Seite erklären Sie sich damit einverstanden, dass wir Cookies setzen. Weitere Informationen

  • [vb6] Mathe-Übungs-Programm *Brauche Hilfe*

    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:

    Quellcode

    1. Private Sub Form_Load()
    2. Randomize
    3. End Sub
    5. Private Sub Command1_Click()
    7. Dim frage As String
    9. ' Initalisieren
    10. Randomize
    12. ' Plus +
    13. If Option1.Value = True Then
    14. gen_1 = Int((zb2.Text * Rnd) + zb1.Text)
    15. gen_2 = Int((zb2.Text * Rnd) + zb1.Text)
    16. aufgabe = gen_1 & "+" & gen_2
    17. aufgabe_loesung = gen_1 + gen_2
    18. ' Minus -
    19. ElseIf Option2.Value = True Then
    20. gen_1 = Int((zb2.Text * Rnd) + zb1.Text)
    21. gen_2 = Int((zb2.Text * Rnd) + zb1.Text)
    22. aufgabe = gen_1 & "-" & gen_2
    23. aufgabe_loesung = gen_1 - gen_2
    24. ' Mal *
    25. ElseIf Option3.Value = True Then
    26. gen_1 = Int((zb2.Text * Rnd) + zb1.Text)
    27. gen_2 = Int((zb2.Text * Rnd) + zb1.Text)
    28. aufgabe = gen_1 & "*" & gen_2
    29. aufgabe_loesung = gen_1 * gen_2
    30. ' Durch /
    31. ElseIf Option4.Value = True Then
    32. gen_1 = Int((zb2.Text * Rnd) + zb1.Text)
    33. gen_2 = Int((zb2.Text * Rnd) + zb1.Text)
    34. aufgabe = gen_1 & "/" & gen_2
    35. aufgabe_loesung = gen_1 / gen_2
    36. End If
    38. ' Frage stellen
    39. frage = InputBox(aufgabe, "Rechen-König", , 3200, 1600)
    41. ' Aufgabe überprüfen
    42. If aufgabe_loesung = frage Then
    43. MsgBox "Richtig"
    44. Else
    45. MsgBox "Falsch"
    46. End If
    48. End Sub
    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!!!

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von ricardohassa ()

  • Ganz einfach:
    Bei Plus generiest du zuerst eine Zufallszahl, nimmst dann das Maximum ziehtst davon die erste Zahl ab und nimmst diese zahl als dein neues Maximum.


    Hier mal etwas Pseudocode dafür ...

    Quellcode

    1. # Bei Plus
    2. gen1 = generate(Max)
    3. newMax = Max - gen1
    4. gen2 = generate(newMax)
    6. #Bei Minus
    7. gen1 = generate(Max)
    8. newMax = gen1
    9. gen2 = generate(newMax)
    11. #mal
    12. gen1 = generate(Max)
    13. newMax = Max / gen1
    14. gen2 = generate(newMax)
    16. #geteilt
    17. # Es gibt keine Probleme, da beim Teilen nichts negativ werden kann und die Zahlen nicht größer werden (solang du dich auf natürliche Zahlen beschränkst)
    Alles anzeigen



    Einfach immer abprüfen, dass die Zahlen eben nicht zu groß / klein werden.

    MrSpider


    PS: Ich hoffe, dass ich dich richtig verstanden habe .... :)

  • Ich habs für PLUS, ich teile das Maximale durch 2 und da kann ein Glied nur die hälfte sein und nicht das maximale überschreiten:

    Quellcode

    1. ' Plus +
    2. If Option1.Value = True Then
    3. gen_1 = Int((zb2.Text / 2 * Rnd) + zb1.Text)
    4. gen_2 = Int((zb2.Text / 2 * Rnd) + zb1.Text)
    5. aufgabe = gen_1 & "+" & gen_2
    6. aufgabe_loesung = gen_1 + gen_2


    Aber wie mach ich das bei den anderen drei Recharten?