Noch eine frage zu Delphi 5
lima-city → Forum → Programmiersprachen → Delphi & Pascal
anfang
beitrag
eins
ereignis
fehler
gel
gewinnen
letzte
papier
punkten
scheren
schnelle hilfe
stehen
stein
streich
vielen dank
-
Wie gesagt, ich muss ein Schere, Stein, Papier Spiel mit Delphi5 proggramieren.
Nun soll als anfangs Punktezahl 5Punkte stehen und dann immer je nachdem ob der user gewonnen hat, oder verloren hat, sollte ein Punkt addiert oder subtrahiert werden. Soweit so gut, allerdings, f?ngt nun das Programm immer mit den 5Punkten vom Anfang an und addiert nicht die Punkte zum letzten Punkte-Stand hinzu.
Hier das was bisher funktioniert, vll kann mir ja jemand helfen, w?re sehr dankbar !!!!
if RadioButton1.checked=true then user:=1 else
if RadioButton2.checked=true then user:=2 else
if RadioButton3.checked=true then user:=3;
Randomize;
x:=Random(3)+1;
punkte:=5;
if ((user=1) and (x=2)) then punkte:=punkte+1 else
if ((user=2) and (x=3)) then punkte:=punkte+1 else
if ((user=3) and (x=1)) then punkte:=punkte+1 else
if ((user=1) and (x=3)) then punkte:=punkte-1 else
if ((user=2) and (x=1)) then punkte:=punkte-1 else
if ((user=3) and (x=2)) then punkte:=punkte-1;
Edit2.text:=floattostr(punkte);
Was muss ich ver?ndern, dass das Programm immer den letzten Punkte-Stand und nicht den AnfangsPunktestand verwendet.
Danke!!! -
Diskutiere mit und stelle Fragen: Jetzt kostenlos anmelden!
lima-city: Gratis werbefreier Webspace für deine eigene Homepage
-
Vielen Dank!!! Jetzt funktioniert es. Da sieht man ma wieder, dass es nur ein gescheites Forum gibt. LIMA forever!
Der Thread kann jetzt geschlossen werden.
Vielen Dank noch mal f?r die schnelle Hilfe!!!!!
edit von ttobsen:
Auf Wunsch geschlossen :)
Beitrag ge?ndert am 8.01 13:46 von ttobsen -
Diskutiere mit und stelle Fragen: Jetzt kostenlos anmelden!
lima-city: Gratis werbefreier Webspace für deine eigene Homepage