Entwickler-Ecke
Sonstiges (Delphi) - Spielchen?
Delphi-sparky - Mo 11.11.02 00:04
Titel: Spielchen?
Hallöchen erstmal :D
Hab folgendes Problem:
Ich habe im Informatikunterricht eine Aufgabe bekommen die wie folgt lautet: Ein kleines Spiel entwickeln. Basis: Das sehr bekannte Spiel: SchnickSchnackSchnuck. Eine Idee und ein Design hab ich auch schon nur fehlt mir die Ahnung dieses auch funktionstüchtig umzusetzen. Ich hoffe ihr könnt mir helfen.
- RadioGroup: Stehen 3 Sachen zur Auswahl (Beispiel: Papier, Brunnen, Stein)
- GroupBox: Soll angezeigt werden was der Computer gewählt hat.
- Button: Beim Klicken soll das Spiel beginnen (mein zug + computerzug + auswertung)
- Edit: Sollen Punkte angezeigt werden (Anfangsbestand: 5)
- Label: Soll Gewonne, Verloren oder Gleichstand angezeigt werden
Nun der Ablauf:
Beim betätigen des Buttons soll das Spiel beginnen, inner Radiogroup soll man vorher sein Zeichen wählen (brunnen..) und dann soll inner GroupBox der Computerzug stehen und gleichzeitig wird im Label dann das ergebnis angezeigt. Die 5 punkte im edit feld werden beim sieg um einen vermehrt beim verlieren um einen abgezogen ...
Leider hab ich nicht die Ahnung wie ich die einzelnen Dinge bewerkstelligen soll. :(
Bitte daher um eure Hilfe. Danke im Vorraus
P.S. Ich will niemanden meine arbeit machen lassen, nur wäre nett wenn ihr mir helft und es vieleicht auch erklären könnt *gern lernen würd* :wink:
CenBells - Mo 11.11.02 00:16
Hallo
für den Computer brauchst du folgendes
Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
| myWahl := radiogroup.itemindex;
computerWahl := Random(2); //muesste 0 - 2 liefern
Case computerWahl of
0 : Label_ingroup_Box.caption := 'Papier';
1 : .... := 'Brunnen';
2 : ... := 'Stein';
end;
// nun die entscheidung
if myWahl = computerWahl then
// unentschieden
else begin
if myWahl = 0 and computerWahl = 2 then
// spieler gewonnen;
if myWahl = 1 and computerWahl = 2 then
// spieler verloren
end; |
... usw
Gruß
Ken
(10.11.02 23:54 Tino) Code-Tags hinzugefügt.
waldmeister - Mo 11.11.02 10:32
Prinzipiel ist das schon richtig aber noch nicht ganz!
Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
| myWahl := radiogroup.itemindex;
computerWahl := Random(2); //muesste 0 - 2 liefern
Case computerWahl of
0 : Label_ingroup_Box.caption := 'Papier';
1 : .... := 'Brunnen';
2 : ... := 'Stein';
end;
// nun die entscheidung
if myWahl = computerWahl then
// unentschieden
else begin
if (myWahl = 0) and (computerWahl = 2) then
// spieler gewonnen
if (myWahl = 1) and (computerWahl = 2) then
// spieler verloren
if (myWahl = 1) and (computerWahl = 0) then
//spieler verloren
end; |
Die Klammern in der IF-Abfrage um die Bedingungen sind wichtig, ohne gehts net!
Udontknow - Mo 11.11.02 11:22
Na, das hätte er aber bestimmt auch selbst bemerkt... :)
waldmeister - Mo 11.11.02 12:05
vielleicht, aber dann hätte er das andere auch alleine hinbekommen müssen. Die IF-Abfragen sin ja das entscheidende!
CenBells - Mo 11.11.02 13:36
@waldmeister...
Naja, bei der Frage ging ich eigentlich eher davon aus, das das prinzip gefragt ist. Und die klammern hätte er, wie udontknow sagt hinkriegen muessen 8)
Gruß
Ken
Delphi-sparky - Mo 11.11.02 15:57
ok, das mim computer versuch ich mal :D
und könnt ihr mir bei den anderen sachen auch helfen?
mein wäre nett *leider dumm is*
CenBells - Mo 11.11.02 16:06
also, wenn wir jetzt die anderen sachen auch machen, dann machen wir doch die ganze arbeit...
Aber wenn dir bis nachhern noch keiner geholfen hat, werde ich dir ein bisserl unter die arme greifen... :twisted:
Gruß
Ken
Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2026 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!