Sitemap
Mitgliederliste Mitgliederliste
Gruppen Gruppen
Das Team Das Team
Museum Richtlinien
Synonyme Synonyme
Hilfe
Login
Registrieren
würfelspiel
in Delphi Programmierung » Sonstiges (Delphi)
  • delphi
Autor Beitrag
infogenie
Hält's aus hier
Beiträge: 6
BeitragVerfasst: Mo 18.06.07 08:37 
hey ihr im wolrd wide web... wir brauchen eure hilfe wir haben ein formular, mit jeweils spieler 1 und speiler 2... und dazu jeweils einen startknopf zum würfeln und 5 würfel jeder spielr soll 3 mal würfeln... hintereinander weg... und dann soll es addiert werden und ausgegeben und dann soll der gewinner ermittelt werden...


WIE UM HIMMELS WILLEN GEHT DAS, DASS ICH 3 MAL HINTEREINANDER WÜRFELN KANN???
zongo-joe
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starhalf ontopic star
Beiträge: 134

win xp prof
D3, D4, D7
BeitragVerfasst: Mo 18.06.07 08:48 
Tach & Welkom erstmal !

Also,
- zum würfeln kannst Du die RANDOM - Funktion nehmen
- wenn Du dreimal mit 5 Würfeln würfelst, würfelst Du einfach mit einer FOR -Schleife 15 mal und addierst die Ergebnisse (würfel, würfel !)
- dann die Ergebnisse vergleichen und fertich

Schau mal in den Tutorials, da gibt es ein paar prima Grundlagentutorials für Delphi
infogenie Threadstarter
Hält's aus hier
Beiträge: 6
BeitragVerfasst: Mo 18.06.07 08:48 
markieren
ausblenden volle Höhe Delphi-Quelltext 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
 
type augenzahl = 1..6;
var
  Form1: TForm1;
  w1,w2,w3,w4,w5:augenzahl;
  hilf: boolean;
implementation

{$R *.DFM}

procedure wuerfeln(var w:augenzahl);
 begin
    w:=random(6)+1;

 end;


procedure TForm1.FormCreate(Sender: TObject);
begin
 randomize;
 button3.enabled:=false;
 button4.enabled:=false;

 button2.enabled:=false;
 hilf:=false;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 wuerfeln(w1);
 panel1.caption:=inttostr(w1);
 wuerfeln(w2);
 panel2.caption:=inttostr(w2);
 wuerfeln(w3);
 panel3.caption:=inttostr(w3);
 wuerfeln(w4);
 panel4.caption:=inttostr(w4);
 wuerfeln(w5);
 panel5.caption:=inttostr(w5);
 button1.enabled:=false;
 button2.enabled:=true;


end;

 procedure TForm1.Panel1Click(Sender: TObject);
begin
    wuerfeln(w1);
 panel1.caption:=inttostr(w1);
end;

procedure TForm1.Panel2Click(Sender: TObject);
begin
    wuerfeln(w2);
 panel2.caption:=inttostr(w2);
end;

procedure TForm1.Panel3Click(Sender: TObject);
begin
   wuerfeln(w3);
 panel3.caption:=inttostr(w3);
end;

procedure TForm1.Panel4Click(Sender: TObject);
begin
    wuerfeln(w4);
 panel4.caption:=inttostr(w4);
end;

procedure TForm1.Panel5Click(Sender: TObject);
begin
    wuerfeln(w5);
 panel5.caption:=inttostr(w5);
end;
procedure TForm1.Button5Click(Sender: TObject);
begin
       hilf:=false;
    button3.enabled:=false;
    button2.enabled:=true;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin  if hilf=true then
     begin
      wuerfeln(w1);
      panel1.caption:=inttostr(w1);
      wuerfeln(w2);
      panel2.caption:=inttostr(w2);
      wuerfeln(w3);
      panel3.caption:=inttostr(w3);
      wuerfeln(w4);
      panel4.caption:=inttostr(w4);
      wuerfeln(w5);
      panel5.caption:=inttostr(w5);
     end;


    button2.enabled:=false;
    button3.enabled:=false;
end;


procedure TForm1.Button4Click(Sender: TObject);
begin
       hilf:=true;
    button2.enabled:=false;
    button3.enabled:=true;
end;

end.


DAS HABEN WIR SCHON ABER WEN WUNDERTS???? ES GEHT NICHT!!!! BITTE HELFT UNS???? WO SIND DIE FEHLER???

Moderiert von user profile iconraziel: Delphi-Tags hinzugefügt
zongo-joe
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starhalf ontopic star
Beiträge: 134

win xp prof
D3, D4, D7
BeitragVerfasst: Mo 18.06.07 08:55 
was genau geht nicht ?

wozu soll HILF gut sein ?

Die Würfel werden nirgendwo addiert...
infogenie Threadstarter
Hält's aus hier
Beiträge: 6
BeitragVerfasst: Mo 18.06.07 09:03 
wir ahben jetzt alles aber genau wie werden sie addiert und im label ausgegebne und der gewinner bekanntgegeben
infogenie Threadstarter
Hält's aus hier
Beiträge: 6
BeitragVerfasst: Mo 18.06.07 09:06 
markieren
ausblenden volle Höhe Delphi-Quelltext 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111:
112:
113:
114:
115:
116:
117:
118:
119:
120:
121:
122:
123:
124:
125:
 
type augenzahl = 1..6;
var
  Form1: TForm1;
  w1,w2,w3,w4,w5:augenzahl;
  z:byte;
implementation

{$R *.DFM}

procedure wuerfeln(var w:augenzahl);
 begin
    w:=random(6)+1;

 end;


procedure TForm1.FormCreate(Sender: TObject);
begin
 randomize;
 button3.enabled:=false;
 button4.enabled:=false;

 button2.enabled:=false;

end;

procedure TForm1.Button1Click(Sender: TObject);
begin
z:=0;



 button2.enabled:=true;


end;

 procedure TForm1.Panel1Click(Sender: TObject);
begin
    wuerfeln(w1);
 panel1.caption:=inttostr(w1);
end;

procedure TForm1.Panel2Click(Sender: TObject);
begin
    wuerfeln(w2);
 panel2.caption:=inttostr(w2);
end;

procedure TForm1.Panel3Click(Sender: TObject);
begin
   wuerfeln(w3);
 panel3.caption:=inttostr(w3);
end;

procedure TForm1.Panel4Click(Sender: TObject);
begin
    wuerfeln(w4);
 panel4.caption:=inttostr(w4);
end;

procedure TForm1.Panel5Click(Sender: TObject);
begin
    wuerfeln(w5);
 panel5.caption:=inttostr(w5);
end;
procedure TForm1.Button5Click(Sender: TObject);
begin

    button3.enabled:=false;
    button2.enabled:=true;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
      z:=z+1;

      wuerfeln(w1);
      panel1.caption:=inttostr(w1);
      wuerfeln(w2);
      panel2.caption:=inttostr(w2);
      wuerfeln(w3);
      panel3.caption:=inttostr(w3);
      wuerfeln(w4);
      panel4.caption:=inttostr(w4);
      wuerfeln(w5);
      panel5.caption:=inttostr(w5);
      if z=3 then begin
      button2.enabled:=false;
      button1.enabled:=false;
      button4.enabled:=true;
     end;
     end;





procedure TForm1.Button4Click(Sender: TObject);
begin
    z:=0;
    button2.enabled:=false;
    button3.enabled:=true;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
      z:=z+1;

      wuerfeln(w1);
      panel1.caption:=inttostr(w1);
      wuerfeln(w2);
      panel2.caption:=inttostr(w2);
      wuerfeln(w3);
      panel3.caption:=inttostr(w3);
      wuerfeln(w4);
      panel4.caption:=inttostr(w4);
      wuerfeln(w5);
      panel5.caption:=inttostr(w5);
      if z=3 then begin
      button2.enabled:=false;
      button1.enabled:=false;
      button4.enabled:=false;
      button3.enabled:=false;
     end;


Moderiert von user profile iconraziel: Delphi-Tags hinzugefügt
infogenie Threadstarter
Hält's aus hier
Beiträge: 6
BeitragVerfasst: Mo 18.06.07 09:06 
markieren
ausblenden volle Höhe Delphi-Quelltext 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111:
112:
113:
114:
115:
116:
117:
118:
119:
120:
121:
122:
123:
124:
125:
 
type augenzahl = 1..6;
var
  Form1: TForm1;
  w1,w2,w3,w4,w5:augenzahl;
  z:byte;
implementation

{$R *.DFM}

procedure wuerfeln(var w:augenzahl);
 begin
    w:=random(6)+1;

 end;


procedure TForm1.FormCreate(Sender: TObject);
begin
 randomize;
 button3.enabled:=false;
 button4.enabled:=false;

 button2.enabled:=false;

end;

procedure TForm1.Button1Click(Sender: TObject);
begin
z:=0;



 button2.enabled:=true;


end;

 procedure TForm1.Panel1Click(Sender: TObject);
begin
    wuerfeln(w1);
 panel1.caption:=inttostr(w1);
end;

procedure TForm1.Panel2Click(Sender: TObject);
begin
    wuerfeln(w2);
 panel2.caption:=inttostr(w2);
end;

procedure TForm1.Panel3Click(Sender: TObject);
begin
   wuerfeln(w3);
 panel3.caption:=inttostr(w3);
end;

procedure TForm1.Panel4Click(Sender: TObject);
begin
    wuerfeln(w4);
 panel4.caption:=inttostr(w4);
end;

procedure TForm1.Panel5Click(Sender: TObject);
begin
    wuerfeln(w5);
 panel5.caption:=inttostr(w5);
end;
procedure TForm1.Button5Click(Sender: TObject);
begin

    button3.enabled:=false;
    button2.enabled:=true;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
      z:=z+1;

      wuerfeln(w1);
      panel1.caption:=inttostr(w1);
      wuerfeln(w2);
      panel2.caption:=inttostr(w2);
      wuerfeln(w3);
      panel3.caption:=inttostr(w3);
      wuerfeln(w4);
      panel4.caption:=inttostr(w4);
      wuerfeln(w5);
      panel5.caption:=inttostr(w5);
      if z=3 then begin
      button2.enabled:=false;
      button1.enabled:=false;
      button4.enabled:=true;
     end;
     end;





procedure TForm1.Button4Click(Sender: TObject);
begin
    z:=0;
    button2.enabled:=false;
    button3.enabled:=true;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
      z:=z+1;

      wuerfeln(w1);
      panel1.caption:=inttostr(w1);
      wuerfeln(w2);
      panel2.caption:=inttostr(w2);
      wuerfeln(w3);
      panel3.caption:=inttostr(w3);
      wuerfeln(w4);
      panel4.caption:=inttostr(w4);
      wuerfeln(w5);
      panel5.caption:=inttostr(w5);
      if z=3 then begin
      button2.enabled:=false;
      button1.enabled:=false;
      button4.enabled:=false;
      button3.enabled:=false;
     end;


Moderiert von user profile iconraziel: Delphi-Tags hinzugefügt
zongo-joe
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starhalf ontopic star
Beiträge: 134

win xp prof
D3, D4, D7
BeitragVerfasst: Mo 18.06.07 09:07 
einfach zwei integervariablen nehmen und die Würfelwürfe von spieler1 und spieler2 aufaddieren...
infogenie Threadstarter
Hält's aus hier
Beiträge: 6
BeitragVerfasst: Mo 18.06.07 09:09 
aber wo bringen wir das rein
Blackheart666
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starofftopic star
Beiträge: 2195

XP
D3Prof, D6Pers.
BeitragVerfasst: Mo 18.06.07 09:45 
Setze mal deinen Code in Delphi Tags, kann ja kein Mensch lesen.
Code Selektieren und unter Bereich bei delphi auf das + klicken oder in Tags sezten
markieren
ausblenden Quelltext 
1:
 
<span class="inlineSyntax"><span class="codecomment">{PROTECTTAG18c0d2da0ef548afadf3f3917b504396}</span></span>

_________________
Blackheart666
Der Irrsinn ist bei Einzelnen etwas Seltenes, - aber bei Gruppen, Parteien, Völkern, Zeiten die Regel. (Friedrich Nietzsche)

Entwickler-Ecke.de rev.276b99aea638 based on phpBB
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!

Impressum | Datenschutzerklärung | Kontakt zum Team