Vier Gewinnt

Diese Seite verwendet Cookies. Durch die Nutzung unserer Seite erklären Sie sich damit einverstanden, dass wir Cookies setzen. Weitere Informationen

  • Vier Gewinnt

    Hallo Leute!!
    Ich hoffe Ihr könnt mir weiterhelfen ! Ich sollte ein vier Gewinnt Spiel programmieren aber irgendwie gelingt mir das nicht so ganz (bin nicht gerade ein Profi mit C++ ;-))
    (Borland)

    Quellcode

    1. //---------------------------------------------------------------------------
    3. #include <vcl.h>
    4. #pragma hdrstop
    6. #include "FuckofPesiU.h"
    7. //---------------------------------------------------------------------------
    8. #pragma package(smart_init)
    9. #pragma resource "*.dfm"
    10. TForm1 *Form1;
    11. //---------------------------------------------------------------------------
    12. __fastcall TForm1::TForm1(TComponent* Owner)
    13. : TForm(Owner)
    14. {
    15. Stein[0]=Shape1;
    16. Stein[1]=Shape2;
    17. Stein[2]=Shape3;
    18. Stein[3]=Shape4;
    19. Stein[4]=Shape5;
    20. Stein[5]=Shape6;
    21. Stein[6]=Shape7;
    22. Stein[7]=Shape8;
    23. Stein[8]=Shape9;
    24. Stein[9]=Shape10;
    25. Stein[10]=Shape11;
    26. Stein[11]=Shape12;
    27. Stein[12]=Shape13;
    28. Stein[13]=Shape14;
    29. Stein[14]=Shape15;
    30. Stein[15]=Shape16;
    32. Spielfeld [0] [0] = Shape17;
    33. Spielfeld [0] [1] = Shape18;
    34. Spielfeld [0] [2] = Shape19;
    35. Spielfeld [0] [3] = Shape20;
    36. Spielfeld [1] [0] = Shape21;
    37. Spielfeld [1] [1] = Shape22;
    38. Spielfeld [1] [2] = Shape23;
    39. Spielfeld [1] [3] = Shape24;
    40. Spielfeld [2] [0] = Shape25;
    41. Spielfeld [2] [1] = Shape26;
    42. Spielfeld [2] [2] = Shape27;
    43. Spielfeld [2] [3] = Shape28;
    44. Spielfeld [3] [0] = Shape29;
    45. Spielfeld [3] [1] = Shape30;
    46. Spielfeld [3] [2] = Shape31;
    47. Spielfeld [3] [3] = Shape32;
    49. for (int spalte=0; spalte <=3; spalte++)
    50. for (int zeile=0; zeile <=3; zeile++)
    52. {
    53. Spielfeld [zeile][spalte] -> Left = 200 + spalte * 49;
    54. Spielfeld [zeile][spalte] -> Top = 200 + zeile * 49;
    56. Feld[zeile][spalte]=NULL;
    58. }
    60. for (int cnt=0; cnt<=15; cnt++)
    61. {
    62. if (cnt<=7)
    63. {Stein[cnt]->Left=60+cnt*45;
    64. Stein [cnt]->Top=65;}
    66. if (cnt<=7)
    67. {Stein[cnt]->Left=400+(cnt-8)*45;
    68. Stein [cnt]->Top=65;}
    70. }
    71. }
    72. //---------------------------------------------------------------------------
    74. void __fastcall TForm1::Shape1MouseDown(TObject *Sender,
    75. TMouseButton Button, TShiftState Shift, int X, int Y)
    76. {
    77. Stone = Shape1;
    78. Stone -> Left = xrich=0;
    79. Stone -> Top = yrich=0;
    80. }
    82. //---------------------------------------------------------------------------
    83. void __fastcall TForm1::Shape2MouseDown(TObject *Sender,
    84. TMouseButton Button, TShiftState Shift, int X, int Y)
    85. {
    86. Stone = Shape2;
    87. Stone -> Left = xrich=0;
    88. Stone -> Top = yrich=0;
    89. }
    90. //---------------------------------------------------------------------------
    91. void __fastcall TForm1::Shape3MouseDown(TObject *Sender,
    92. TMouseButton Button, TShiftState Shift, int X, int Y)
    93. {
    94. Stone = Shape3;
    95. Stone -> Left = xrich=0;
    96. Stone -> Top = yrich=0;
    97. }
    98. //---------------------------------------------------------------------------
    99. void __fastcall TForm1::Shape4MouseDown(TObject *Sender,
    100. TMouseButton Button, TShiftState Shift, int X, int Y)
    101. {
    102. Stone = Shape4;
    103. Stone -> Left = xrich=0;
    104. Stone -> Top = yrich=0;
    105. }
    106. //---------------------------------------------------------------------------
    107. void __fastcall TForm1::Shape5MouseDown(TObject *Sender,
    108. TMouseButton Button, TShiftState Shift, int X, int Y)
    109. {
    110. Stone = Shape5;
    111. Stone -> Left = xrich=0;
    112. Stone -> Top = yrich=0;
    113. }
    114. //---------------------------------------------------------------------------
    115. void __fastcall TForm1::Shape6MouseDown(TObject *Sender,
    116. TMouseButton Button, TShiftState Shift, int X, int Y)
    117. {
    118. Stone = Shape6;
    119. Stone -> Left = xrich=0;
    120. Stone -> Top = yrich=0;
    121. }
    122. //---------------------------------------------------------------------------
    123. void __fastcall TForm1::Shape7MouseDown(TObject *Sender,
    124. TMouseButton Button, TShiftState Shift, int X, int Y)
    125. {
    126. Stone = Shape7;
    127. Stone -> Left = xrich=0;
    128. Stone -> Top = yrich=0;
    129. }
    130. //---------------------------------------------------------------------------
    131. void __fastcall TForm1::Shape8MouseDown(TObject *Sender,
    132. TMouseButton Button, TShiftState Shift, int X, int Y)
    133. {
    134. Stone = Shape8;
    135. Stone -> Left = xrich=0;
    136. Stone -> Top = yrich=0;
    137. }
    138. //---------------------------------------------------------------------------
    139. void __fastcall TForm1::Shape9MouseDown(TObject *Sender,
    140. TMouseButton Button, TShiftState Shift, int X, int Y)
    141. {
    142. Stone = Shape9;
    143. Stone -> Left = xrich=0;
    144. Stone -> Top = yrich=0;
    145. }
    146. //---------------------------------------------------------------------------
    147. void __fastcall TForm1::Shape10MouseDown(TObject *Sender,
    148. TMouseButton Button, TShiftState Shift, int X, int Y)
    149. {
    150. Stone = Shape10;
    151. Stone -> Left = xrich=0;
    152. Stone -> Top = yrich=0;
    153. }
    154. //---------------------------------------------------------------------------
    155. void __fastcall TForm1::Shape11MouseDown(TObject *Sender,
    156. TMouseButton Button, TShiftState Shift, int X, int Y)
    157. {
    158. Stone = Shape11;
    159. Stone -> Left = xrich=0;
    160. Stone -> Top = yrich=0;
    161. }
    162. //---------------------------------------------------------------------------
    163. void __fastcall TForm1::Shape12MouseDown(TObject *Sender,
    164. TMouseButton Button, TShiftState Shift, int X, int Y)
    165. {
    166. Stone = Shape12;
    167. Stone -> Left = xrich=0;
    168. Stone -> Top = yrich=0;
    169. }
    170. //---------------------------------------------------------------------------
    171. void __fastcall TForm1::Shape13MouseDown(TObject *Sender,
    172. TMouseButton Button, TShiftState Shift, int X, int Y)
    173. {
    174. Stone = Shape13;
    175. Stone -> Left = xrich=0;
    176. Stone -> Top = yrich=0;
    177. }
    178. //---------------------------------------------------------------------------
    Alles anzeigen
    Bilder

    • vier Gewinnt.JPG

      279,26 kB, 1.202×738, 598 mal angesehen

  • "Teil2"

    Quellcode

    1. void __fastcall TForm1::Shape14MouseDown(TObject *Sender,
    2. TMouseButton Button, TShiftState Shift, int X, int Y)
    3. {
    4. Stone = Shape14;
    5. Stone -> Left = xrich=0;
    6. Stone -> Top = yrich=0;
    7. }
    8. //---------------------------------------------------------------------------
    9. void __fastcall TForm1::Shape15MouseDown(TObject *Sender,
    10. TMouseButton Button, TShiftState Shift, int X, int Y)
    11. {
    12. Stone = Shape15;
    13. Stone -> Left = xrich=0;
    14. Stone -> Top = yrich=0;
    15. }
    16. //---------------------------------------------------------------------------
    17. void __fastcall TForm1::Shape16MouseDown(TObject *Sender,
    18. TMouseButton Button, TShiftState Shift, int X, int Y)
    19. {
    20. Stone = Shape16;
    21. Stone -> Left = xrich=0;
    22. Stone -> Top = yrich=0;
    23. }
    24. //---------------------------------------------------------------------------
    27. void __fastcall TForm1::Shape1MouseMove(TObject *Sender, TShiftState Shift,
    28. int X, int Y)
    29. {
    30. bool active = Shift.Contains(ssLeft);
    31. if (active)
    32. {
    33. Stone->Left = Stone ->Left +X - Stone->Width/2;
    34. Stone->Top = Stone ->Top +Y - Stone->Height/2;
    35. }
    36. }
    37. //---------------------------------------------------------------------------
    39. void __fastcall TForm1::Shape2MouseMove(TObject *Sender, TShiftState Shift,
    40. int X, int Y)
    41. {
    42. bool active = Shift.Contains(ssLeft);
    43. if (active)
    44. {
    45. Stone->Left = Stone ->Left +X - Stone->Width/2;
    46. Stone->Top = Stone ->Top +Y - Stone->Height/2;
    47. }
    48. }
    49. //---------------------------------------------------------------------------
    51. void __fastcall TForm1::Shape3MouseMove(TObject *Sender, TShiftState Shift,
    52. int X, int Y)
    53. {
    54. bool active = Shift.Contains(ssLeft);
    55. if (active)
    56. {
    57. Stone->Left = Stone ->Left +X - Stone->Width/2;
    58. Stone->Top = Stone ->Top +Y - Stone->Height/2;
    59. }
    60. }
    61. //---------------------------------------------------------------------------
    63. void __fastcall TForm1::Shape4MouseMove(TObject *Sender, TShiftState Shift,
    64. int X, int Y)
    65. {
    66. bool active = Shift.Contains(ssLeft);
    67. if (active)
    68. {
    69. Stone->Left = Stone ->Left +X - Stone->Width/2;
    70. Stone->Top = Stone ->Top +Y - Stone->Height/2;
    71. }
    72. }
    73. //---------------------------------------------------------------------------
    75. void __fastcall TForm1::Shape5MouseMove(TObject *Sender, TShiftState Shift,
    76. int X, int Y)
    77. {
    78. bool active = Shift.Contains(ssLeft);
    79. if (active)
    80. {
    81. Stone->Left = Stone ->Left +X - Stone->Width/2;
    82. Stone->Top = Stone ->Top +Y - Stone->Height/2;
    83. }
    84. }
    85. //---------------------------------------------------------------------------
    87. void __fastcall TForm1::Shape6MouseMove(TObject *Sender, TShiftState Shift,
    88. int X, int Y)
    89. {
    90. bool active = Shift.Contains(ssLeft);
    91. if (active)
    92. {
    93. Stone->Left = Stone ->Left +X - Stone->Width/2;
    94. Stone->Top = Stone ->Top +Y - Stone->Height/2;
    95. }
    96. }
    97. //---------------------------------------------------------------------------
    99. void __fastcall TForm1::Shape7MouseMove(TObject *Sender, TShiftState Shift,
    100. int X, int Y)
    101. {
    102. bool active = Shift.Contains(ssLeft);
    103. if (active)
    104. {
    105. Stone->Left = Stone ->Left +X - Stone->Width/2;
    106. Stone->Top = Stone ->Top +Y - Stone->Height/2;
    107. }
    108. }
    109. //---------------------------------------------------------------------------
    111. void __fastcall TForm1::Shape8MouseMove(TObject *Sender, TShiftState Shift,
    112. int X, int Y)
    113. {
    114. bool active = Shift.Contains(ssLeft);
    115. if (active)
    116. {
    117. Stone->Left = Stone ->Left +X - Stone->Width/2;
    118. Stone->Top = Stone ->Top +Y - Stone->Height/2;
    119. }
    120. }
    121. //---------------------------------------------------------------------------
    123. void __fastcall TForm1::Shape9MouseMove(TObject *Sender, TShiftState Shift,
    124. int X, int Y)
    125. {
    126. bool active = Shift.Contains(ssLeft);
    127. if (active)
    128. {
    129. Stone->Left = Stone ->Left +X - Stone->Width/2;
    130. Stone->Top = Stone ->Top +Y - Stone->Height/2;
    131. }
    132. }
    133. //---------------------------------------------------------------------------
    135. void __fastcall TForm1::Shape10MouseMove(TObject *Sender,
    136. TShiftState Shift, int X, int Y)
    137. {
    138. bool active = Shift.Contains(ssLeft);
    139. if (active)
    140. {
    141. Stone->Left = Stone ->Left +X - Stone->Width/2;
    142. Stone->Top = Stone ->Top +Y - Stone->Height/2;
    143. }
    144. }
    145. //---------------------------------------------------------------------------
    147. void __fastcall TForm1::Shape11MouseMove(TObject *Sender,
    148. TShiftState Shift, int X, int Y)
    149. {
    150. bool active = Shift.Contains(ssLeft);
    151. if (active)
    152. {
    153. Stone->Left = Stone ->Left +X - Stone->Width/2;
    154. Stone->Top = Stone ->Top +Y - Stone->Height/2;
    155. }
    156. }
    157. //---------------------------------------------------------------------------
    159. void __fastcall TForm1::Shape12MouseMove(TObject *Sender,
    160. TShiftState Shift, int X, int Y)
    161. {
    162. bool active = Shift.Contains(ssLeft);
    163. if (active)
    164. {
    165. Stone->Left = Stone ->Left +X - Stone->Width/2;
    166. Stone->Top = Stone ->Top +Y - Stone->Height/2;
    167. }
    168. }
    169. //---------------------------------------------------------------------------
    171. void __fastcall TForm1::Shape13MouseMove(TObject *Sender,
    172. TShiftState Shift, int X, int Y)
    173. {
    174. bool active = Shift.Contains(ssLeft);
    175. if (active)
    176. {
    177. Stone->Left = Stone ->Left +X - Stone->Width/2;
    178. Stone->Top = Stone ->Top +Y - Stone->Height/2;
    179. }
    180. }
    181. //---------------------------------------------------------------------------
    183. void __fastcall TForm1::Shape14MouseMove(TObject *Sender,
    184. TShiftState Shift, int X, int Y)
    185. {
    186. bool active = Shift.Contains(ssLeft);
    187. if (active)
    188. {
    189. Stone->Left = Stone ->Left +X - Stone->Width/2;
    190. Stone->Top = Stone ->Top +Y - Stone->Height/2;
    191. }
    192. }
    193. //---------------------------------------------------------------------------
    195. void __fastcall TForm1::Shape15MouseMove(TObject *Sender,
    196. TShiftState Shift, int X, int Y)
    197. {
    198. bool active = Shift.Contains(ssLeft);
    199. if (active)
    200. {
    201. Stone->Left = Stone ->Left +X - Stone->Width/2;
    202. Stone->Top = Stone ->Top +Y - Stone->Height/2;
    203. }
    204. }
    205. //---------------------------------------------------------------------------
    207. void __fastcall TForm1::Shape16MouseMove(TObject *Sender,
    208. TShiftState Shift, int X, int Y)
    209. {
    210. bool active = Shift.Contains(ssLeft);
    211. if (active)
    212. {
    213. Stone->Left = Stone ->Left +X - Stone->Width/2;
    214. Stone->Top = Stone ->Top +Y - Stone->Height/2;
    215. }
    216. }
    217. //---------------------------------------------------------------------------
    Alles anzeigen


    Bitte helft mir !! ;(

  • d0nut schrieb:

    du musst uns schon irgendwie mitteilen was nicht funktioniert.
    ;) sry

    also die Aufgabenstellung lautet:

    Ich muss ein Shape nehmen (Stone) Und es über einer Spalte ablegen und dann muss das Shape automatisch so weit runter gehen
    bis es entweder von dem untesten Shape gefangen wird oder wenn in dem Shape darunter schon ein anderer Stein liegt.

    mein problem ist es wie kann ich eine abfrage machen damit in der listbox notiert wird wo der Stein liegt
    und 2tens soll der Stein innerhalb von dem rechteck shape zentriert werden.
    3. wie programmiere ich dass der Stein automatisch darunter geht ??
    4. soll wenn 4 steine der selben farbe senkrecht, waagrecht oder diagonal nebeneinander liegen
    eine meldung kommen wer gewonnen hat.
    (am ende des ersten beitrages ist ein bild von dem programm)

  • na da hast du ja noch einiges vor.
    Ich würde den Weg erstmal anders gehen. Anstatt gleich bei Drag und Drop anzufangen, reagiere doch erstmal nur auf Klicks auf die Spalte.
    Das ist doch wesentlich einfacher. Sind auch nur alles Shapes im Spielfeld Array.

    Und dann machst du erstmal Spielfeld[spalte][0] grün... und dann nimmst du noch eine toggle variable damit zwischen grün und blau abgewechselt wird...
    und ... und ... und...

    ihr habt doch bestimmt unterrichtsmaterialien dazu.