Hi zusammen
ich arbeite grad an einem Kopfrechenspiel für meinen Bruder (1.Klasse)
ich bin jetzt soweit das die zahlen und die dazugehörige Rechenoperetion ausgelost und gespeichert werden und dies dann auch abgefrat wird jetzt häng ich aber an der auslesung des ergebnis und der dazu gehörigen msgbox also ich meine das ungefähr so:
Wieviel ist 1+2
wenndie antwort 3 ist kommt die msgbox Richtig wenn nicht dann kommt oh schade falsch und das krieg ich halt iwie nich gebacken da es nicht immer die selben zahlen seien sollen aber seht selbst:
Spoiler anzeigen
Func _rand0m($sString, $sDelim = ", ")
Local $aString = StringSplit($sString, $sDelim, 1)
Return $aString[Random(1, $aString[0], 1)]
EndFunc
Func _rand1()
$a=Random(0, 10, 1)
$b=Random(0, 10, 1)
$c=_rand0m("+-", "")
Iniwrite("rechnen.ini", "1" ,"1", $a)
Iniwrite("rechnen.ini", "1" ,"2", $b)
Iniwrite("rechnen.ini", "1" ,"3", $c)
EndFunc
Func _rand2()
$a=Random(0, 10, 1)
$b=Random(0, 10, 1)
$c=_rand0m("+-", "")
Iniwrite("rechnen.ini", "2" ,"1", $a)
Iniwrite("rechnen.ini", "2" ,"2", $b)
Iniwrite("rechnen.ini", "2" ,"3", $c)
EndFunc
Func _rand3()
$a=Random(0, 10, 1)
$b=Random(0, 10, 1)
$c=_rand0m("+-", "")
Iniwrite("rechnen.ini", "3" ,"1", $a)
Iniwrite("rechnen.ini", "3" ,"2", $b)
Iniwrite("rechnen.ini", "3" ,"3", $c)
EndFunc
Func _rand4()
$a=Random(0, 10, 1)
$b=Random(0, 10, 1)
$c=_rand0m("+-", "")
Iniwrite("rechnen.ini", "4" ,"1", $a)
Iniwrite("rechnen.ini", "4" ,"2", $b)
Iniwrite("rechnen.ini", "4" ,"3", $c)
EndFunc
Func _rand5()
$a=Random(0, 10, 1)
$b=Random(0, 10, 1)
$c=_rand0m("+-", "")
Iniwrite("rechnen.ini", "5" ,"1", $a)
Iniwrite("rechnen.ini", "5" ,"2", $b)
Iniwrite("rechnen.ini", "5" ,"3", $c)
EndFunc
Func _rand6()
$a=Random(0, 10, 1)
$b=Random(0, 10, 1)
$c=_rand0m("+-", "")
Iniwrite("rechnen.ini", "6" ,"1", $a)
Iniwrite("rechnen.ini", "6" ,"2", $b)
Iniwrite("rechnen.ini", "6" ,"3", $c)
EndFunc
Func _rand7()
$a=Random(0, 10, 1)
$b=Random(0, 10, 1)
$c=_rand0m("+-", "")
Iniwrite("rechnen.ini", "7" ,"1", $a)
Iniwrite("rechnen.ini", "7" ,"2", $b)
Iniwrite("rechnen.ini", "7" ,"3", $c)
EndFunc
Func _rand8()
$a=Random(0, 10, 1)
$b=Random(0, 10, 1)
$c=_rand0m("+-", "")
Iniwrite("rechnen.ini", "8" ,"1", $a)
Iniwrite("rechnen.ini", "8" ,"2", $b)
Iniwrite("rechnen.ini", "8" ,"3", $c)
EndFunc
Func _rand9()
$a=Random(0, 10, 1)
$b=Random(0, 10, 1)
$c=_rand0m("+-", "")
Iniwrite("rechnen.ini", "9" ,"1", $a)
Iniwrite("rechnen.ini", "9" ,"2", $b)
Iniwrite("rechnen.ini", "9" ,"3", $c)
EndFunc
Func _rand0()
$a=Random(0, 10, 1)
$b=Random(0, 10, 1)
$c=_rand0m("+-", "")
Iniwrite("rechnen.ini", "0" ,"1", $a)
Iniwrite("rechnen.ini", "0" ,"2", $b)
Iniwrite("rechnen.ini", "0" ,"3", $c)
EndFunc
Func _r()
MsgBox(0,"","Richtig")
EndFunc
Func _f()
MsgBox(0,"","Oh Schade Falsch")
EndFunc
Func _auf1()
$a=IniRead("rechnen.ini", "1" ,"1","")
$b=IniRead("rechnen.ini", "1" ,"2","")
$c=IniRead("rechnen.ini", "1" ,"3","")
$1=Inputbox(" ","Wie viel ist " & $a & $c & $b & " ?")
If $1 = $a & $b & $c then
MsgBox(0,"","Richtig")
ElseIf Not $1 = $a & $b & $c then
MsgBox(0,"","Oh Schade Falsch")
EndIf
EndFunc
_rand1()
_rand2()
_rand3()
_rand4()
_rand5()
_rand6()
_rand7()
_rand8()
_rand9()
_rand0()
_auf1()
und wenn ich grad beim fragen bin gibt es eine möglichkeit das die zahlen so sind das bei minus nur größer gleich 0 rasukommen kann
jetzt schonmal danke für jede antwort
tomtomone 96
