Hallo,
ich hab wieder mal ein warscheinlich dummen fehler eingebaut, och weiß nicht wo er liegt.
Also ich habe ein Programm dass einen Spielplan zusammenstellt.
Jetzt soll es, falls ich einen Button drücke, prüfen od eine Mannschaft gewonnen hat, falls ja dann soll der mannschaft 2 punkte gegeben werden, falls nein keiner und falls unentschieden beiden 1 punkt.
soweit so gut:
nun änderet der die variable nur ein mal, bzw. addier nur ein mal 2 hinzu, wie kann ich das ändern?
hier der teil des scripts:
Spoiler anzeigen
case $Okay
if guictrlread($a11) > guictrlread($a12) Then
IniWrite("Punkte.ini","Gruppe A","p7",$p7 + 2)
ElseIf guictrlread($a12) > guictrlread($a11) Then
IniWrite("Punkte.ini","Gruppe A","p2",$p2 + 2)
elseif guictrlread($a12) = guictrlread($a11) Then
IniWrite("Punkte.ini","Gruppe A","p7",$p7 + 1)
IniWrite("Punkte.ini","Gruppe A","p2",$p2 + 1)
EndIf
if guictrlread($a21) > guictrlread($a22) Then
IniWrite("Punkte.ini","Gruppe A","p3",$p3 + 2)
ElseIf guictrlread($a22) > guictrlread($a21) Then
IniWrite("Punkte.ini","Gruppe A","p4",$p4 + 2)
elseif guictrlread($a22) = guictrlread($a21) Then
IniWrite("Punkte.ini","Gruppe A","p3",$p3 + 1)
IniWrite("Punkte.ini","Gruppe A","p4",$p4 + 1)
EndIf
if guictrlread($a31) > guictrlread($a32) Then
IniWrite("Punkte.ini","Gruppe A","p5",$p5 + 2)
ElseIf guictrlread($a32) > guictrlread($a31) Then
IniWrite("Punkte.ini","Gruppe A","p6",$p6 + 2)
elseif guictrlread($a32) = guictrlread($a31) Then
IniWrite("Punkte.ini","Gruppe A","p5",$p5 + 1)
IniWrite("Punkte.ini","Gruppe A","p6",$p6 + 1)
EndIf
if guictrlread($a41) > guictrlread($a42) Then
IniWrite("Punkte.ini","Gruppe A","p1",$p1 + 2)
ElseIf guictrlread($a42) > guictrlread($a41) Then
IniWrite("Punkte.ini","Gruppe A","p7",$p7 + 2)
elseif guictrlread($a32) = guictrlread($a31) Then
IniWrite("Punkte.ini","Gruppe A","p7",$p5 + 1)
IniWrite("Punkte.ini","Gruppe A","p6",$p6 + 1)
EndIf
if guictrlread($a51) > guictrlread($a52) Then
IniWrite("Punkte.ini","Gruppe A","p2",$p2 + 2)
ElseIf guictrlread($a52) > guictrlread($a51) Then
IniWrite("Punkte.ini","Gruppe A","p3",$p3 + 2)
elseif guictrlread($a52) = guictrlread($a51) Then
IniWrite("Punkte.ini","Gruppe A","p2",$p2 + 1)
IniWrite("Punkte.ini","Gruppe A","p3",$p3 + 1)
EndIf
if guictrlread($a61) > guictrlread($a62) Then
IniWrite("Punkte.ini","Gruppe A","p4",$p4 + 2)
ElseIf guictrlread($a62) > guictrlread($a61) Then
IniWrite("Punkte.ini","Gruppe A","p5",$p5 + 2)
elseif guictrlread($a62) = guictrlread($a61) Then
IniWrite("Punkte.ini","Gruppe A","p4",$p4 + 1)
IniWrite("Punkte.ini","Gruppe A","p5",$p5 + 1)
EndIf
if guictrlread($a71) > guictrlread($a72) Then
IniWrite("Punkte.ini","Gruppe A","p6",$p6 + 2)
ElseIf guictrlread($a72) > guictrlread($a71) Then
IniWrite("Punkte.ini","Gruppe A","p1",$p1 + 2)
elseif guictrlread($a72) = guictrlread($a71) Then
IniWrite("Punkte.ini","Gruppe A","p6",$p6 + 1)
IniWrite("Punkte.ini","Gruppe A","p1",$p1 + 1)
EndIf
if guictrlread($a81) > guictrlread($a82) Then
IniWrite("Punkte.ini","Gruppe A","p7",$p7 + 2)
ElseIf guictrlread($a82) > guictrlread($a81) Then
IniWrite("Punkte.ini","Gruppe A","p3",$p3 + 2)
elseif guictrlread($a82) = guictrlread($a81) Then
IniWrite("Punkte.ini","Gruppe A","p7",$p7 + 1)
IniWrite("Punkte.ini","Gruppe A","p3",$p3 + 1)
EndIf
if guictrlread($a91) > guictrlread($a92) Then
IniWrite("Punkte.ini","Gruppe A","p2",$p2 + 2)
ElseIf guictrlread($a92) > guictrlread($a91) Then
IniWrite("Punkte.ini","Gruppe A","p4",$p4 + 2)
elseif guictrlread($a92) = guictrlread($a91) Then
IniWrite("Punkte.ini","Gruppe A","p2",$p2 + 1)
IniWrite("Punkte.ini","Gruppe A","p4",$p4 + 1)
EndIf
if guictrlread($a101) > guictrlread($a102) Then
IniWrite("Punkte.ini","Gruppe A","p5",$p5 + 2)
ElseIf guictrlread($a102) > guictrlread($a101) Then
IniWrite("Punkte.ini","Gruppe A","p1",$p1 + 2)
elseif guictrlread($a102) = guictrlread($a101) Then
IniWrite("Punkte.ini","Gruppe A","p4",$p5 + 1)
IniWrite("Punkte.ini","Gruppe A","p5",$p1 + 1)
EndIf
if guictrlread($a111) > guictrlread($a112) Then
IniWrite("Punkte.ini","Gruppe A","p6",$p6 + 2)
ElseIf guictrlread($a112) > guictrlread($a111) Then
IniWrite("Punkte.ini","Gruppe A","p7",$p7 + 2)
elseif guictrlread($a112) = guictrlread($a111) Then
IniWrite("Punkte.ini","Gruppe A","p6",$p6 + 1)
IniWrite("Punkte.ini","Gruppe A","p7",$p7 + 1)
EndIf
if guictrlread($a121) > guictrlread($a122) Then
IniWrite("Punkte.ini","Gruppe A","p3",$p3 + 2)
ElseIf guictrlread($a122) > guictrlread($a121) Then
IniWrite("Punkte.ini","Gruppe A","p5",$p5 + 2)
elseif guictrlread($a122) = guictrlread($a121) Then
IniWrite("Punkte.ini","Gruppe A","p3",$p3 + 1)
IniWrite("Punkte.ini","Gruppe A","p5",$p5 + 1)
EndIf
if guictrlread($a131) > guictrlread($a132) Then
IniWrite("Punkte.ini","Gruppe A","p4",$p4 + 2)
ElseIf guictrlread($a132) > guictrlread($a131) Then
IniWrite("Punkte.ini","Gruppe A","p1",$p1 + 2)
elseif guictrlread($a132) = guictrlread($a131) Then
IniWrite("Punkte.ini","Gruppe A","p4",$p4 + 1)
IniWrite("Punkte.ini","Gruppe A","p1",$p1 + 1)
EndIf
if guictrlread($a141) > guictrlread($a142) Then
IniWrite("Punkte.ini","Gruppe A","p6",$p6 + 2)
ElseIf guictrlread($a142) > guictrlread($a141) Then
IniWrite("Punkte.ini","Gruppe A","p2",$p2 + 2)
elseif guictrlread($a142) = guictrlread($a141) Then
IniWrite("Punkte.ini","Gruppe A","p6",$p6 + 1)
IniWrite("Punkte.ini","Gruppe A","p2",$p2 + 1)
EndIf
if guictrlread($a151) > guictrlread($a152) Then
IniWrite("Punkte.ini","Gruppe A","p7",$p7 + 2)
ElseIf guictrlread($a152) > guictrlread($a151) Then
IniWrite("Punkte.ini","Gruppe A","p5",$p5 + 2)
elseif guictrlread($a152) = guictrlread($a151) Then
IniWrite("Punkte.ini","Gruppe A","p7",$p7 + 1)
IniWrite("Punkte.ini","Gruppe A","p5",$p5 + 1)
EndIf
if guictrlread($a161) > guictrlread($a162) Then
IniWrite("Punkte.ini","Gruppe A","p3",$p3 + 2)
ElseIf guictrlread($a162) > guictrlread($a161) Then
IniWrite("Punkte.ini","Gruppe A","p1",$p1 + 2)
elseif guictrlread($a162) = guictrlread($a161) Then
IniWrite("Punkte.ini","Gruppe A","p3",$p3 + 1)
IniWrite("Punkte.ini","Gruppe A","p1",$p1 + 1)
EndIf
if guictrlread($a171) > guictrlread($a172) Then
IniWrite("Punkte.ini","Gruppe A","p4",$p4 + 2)
ElseIf guictrlread($a172) > guictrlread($a171) Then
IniWrite("Punkte.ini","Gruppe A","p6",$p6 + 2)
elseif guictrlread($a172) = guictrlread($a171) Then
IniWrite("Punkte.ini","Gruppe A","p4",$p4 + 1)
IniWrite("Punkte.ini","Gruppe A","p6",$p6 + 1)
EndIf
if guictrlread($a181) > guictrlread($a182) Then
IniWrite("Punkte.ini","Gruppe A","p5",$p5 + 2)
ElseIf guictrlread($a182) > guictrlread($a181) Then
IniWrite("Punkte.ini","Gruppe A","p2",$p2 + 2)
elseif guictrlread($a182) = guictrlread($a181) Then
IniWrite("Punkte.ini","Gruppe A","p5",$p5 + 1)
IniWrite("Punkte.ini","Gruppe A","p2",$p2 + 1)
EndIf
if guictrlread($a191) > guictrlread($a192) Then
IniWrite("Punkte.ini","Gruppe A","p7",$p7 + 2)
ElseIf guictrlread($a192) > guictrlread($a191) Then
IniWrite("Punkte.ini","Gruppe A","p4",$p4 + 2)
elseif guictrlread($a192) = guictrlread($a191) Then
IniWrite("Punkte.ini","Gruppe A","p7",$p7 + 1)
IniWrite("Punkte.ini","Gruppe A","p4",$p4 + 1)
EndIf
if guictrlread($a201) > guictrlread($a202) Then
IniWrite("Punkte.ini","Gruppe A","p1",$p1 + 2)
ElseIf guictrlread($a202) > guictrlread($a201) Then
IniWrite("Punkte.ini","Gruppe A","p2",$p2 + 2)
elseif guictrlread($a202) = guictrlread($a201) Then
IniWrite("Punkte.ini","Gruppe A","p1",$p1 + 1)
IniWrite("Punkte.ini","Gruppe A","p2",$p2 + 1)
EndIf
if guictrlread($a211) > guictrlread($a212) Then
IniWrite("Punkte.ini","Gruppe A","p3",$p3 + 2)
ElseIf guictrlread($a212) > guictrlread($a211) Then
IniWrite("Punkte.ini","Gruppe A","p6",$p6 + 2)
elseif guictrlread($a212) = guictrlread($a211) Then
IniWrite("Punkte.ini","Gruppe A","p1",$p3 + 1)
IniWrite("Punkte.ini","Gruppe A","p6",$p6 + 1)
EndIf
Hierbei steht z.B. $a11 für Gruppe A,erstes Spiel erste Inputbox.
$a12 = Gruppe A, erstes Spiel zweite Inputbox.
naja wäre cool wen ihr mir helfen könnt;-)