Ein Spiel mit Delphi programmieren

[danielZ]

Also habe ich jetzt zwei Buttons mit Close und Würfeln.
Drei Labels mit der Überschrift(Würfelspiel), EinsatzLbl und GuthabenLbl.
Dann hab ich noch TComboBox
und zwei TImage wo ich dann zwei Würfel mit sechsen hereingefügt habe, denn das ist auch eine Möglichket, spielt ja keine rolle welche möglichkeit ich da einfüge?
Zudem hab ich dann noch eine ImageListe mit den sechs Bildern, jeweils die eins,zwei,drei,vier,fünf und sechs, also jede einzelne Seit auf einem Bild.

SOll ICH DAS JETZT SO LASSEN, MIT DEM PROJEKT UND MIT DEN PROCEDUREN ANFANGEN?
ICH WÜRDE SAGEN, DASS STIMMT JETZT SO ODER?

[danielZ]

also das habe ich jetzt alles im Projekt fertig.
Als nächstes und als letztes brauch ich doch jetzt mehrere schritte für die procedure damit das programm für das WÜrfeln klappt?

[haentschman]

Zitat:

also das habe ich jetzt alles im Projekt fertig.

dann zippe doch mal das Projekt und hänge es an. Dann sehen wir wie fertig du bist.

Als nächstes schreibst du auf Papier was, wann und wie reagieren soll. Quasi der logische Programmablauf im Klartext.

[DeddyH]

Du kannst die beiden TImages auch zur Entwurfszeit leer lassen. Ich hatte da nur deshalb die "6"-Grafiken hineingeladen, um optisch deutlich zu machen, wozu sie gut sein sollen. Im Spielverlauf sollen sie ja aus der Imageliste befüllt werden.

[danielZ]

also, wollte ich jetzt zu den proceduren kommen:
Was müsste da mein erster Schritt sein?
Kann mir da jemand helfen.
Brauche schnell eure Hilfe.

[DeddyH]

Erster Schritt: nachdenken, was wann passieren soll.

[haentschman]

der nächste Schritt ist wie gesagt, das Projekt anhängen und den Programmablauf auf Papier aufschreiben.

[danielZ]

habe sie jetzt einfach so hingemacht, nur bei mir zeigen sich noch 14 Fehler an.
Kann mir da jemand bei den proceduren helfen, was ich falsch gemacht habe etc.
Muss bis morgen fertig werden.
Danke schonmal
Hier meine proceduren:
Was haltet ihr davon, was muss ich da verbessern?

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ImgList, ExtCtrls;

type
  TForm1 = class(TForm)
    EinsatzLbl: TLabel;
    EndeBtn: TButton;
    ImageList1: TImageList;
    GuthabenLbl: TLabel;
    EinsatzCbB: TComboBox;
    Label1: TLabel;
    TButton: TButton;
    Image1: TImage;
    Image2: TImage;
    procedure EndeBtnClick(Sender: TObject);
    procedure TButtonClick(Sender: TObject);
  private
    { Private-Deklarationen}
  public
    { Public-Deklarationen}
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.EndeBtnClick(Sender: TObject);
begin
close;
end;

procedure TForm1.TButtonClick(Sender: TObject);
var einsatz, guthaben, wurf1, wurf2, augensumme: byte;
begin randomize; end;
Image1.Visible:=false;
Image2.Visible:=false;
Image3.Visible:=false;
Image4.Visible:=false;
Image5.Visible:=false;
Image6.Visible:=false;
Image7.Visible:=false;
Image8.Visible:=false;
Image9.Visible:=false;
Image10.Visible:=false;
Image11.Visible:=false;
Image12.Visible:=false;

einsatz:=strtoint (einsatzCbB.text);
Wurf1:=random(6)+1;
wurf2:=random(6)+1;
augensumme:=wurf1+wurf2;

case augensumme OF
  2..6:BEGIN
  ErgebnisPanel.Caption:='Einsatz verloren';
   faktor:= 0 ;
   end;

  7,8,9:BEGIN
  ErgebnisPanel.Caption:='Einsatz zurück';
  faktor:= 1;
  end;

  10:=BEGIN
  ErgebnisPanel.Caption:=Einsatz verdoppelt';
  faktor:= 2;
  end;

  11:=BEGIN
  ErgebnisPanel.Caption:='Einsatz verdreifacht';
  faktor:= 3;
  end;

  12:=BEGIN
  ErgebnisPanel.Caption:='Einsatz vervierfacht';
  faktor:= 4;
  end;

else ErgebnisPanel.Caption:='Würfel auf Kippe :P';


case wurf1 OF
1: BEGIN Image1.visible:=true; Image1.width:=80;end;
2: BEGIN Image2.visible:=true; Image2.width:=80;end;
3: BEGIN Image3.visible:=true; Image3.width:=80;end;
4: BEGIN Image4.visible:=true; Image4.width:=80;end;
5: BEGIN Image5.visible:=true; Image5.width:=80;end;
6: BEGIN Image6.visible:=true; Image6.width:=80;end;
  END;

case wurf2 OF
1:BEGIN Image7.visible:=true; Image7.width:=80;end;
2.BEGIN Image8.visible:=true; Image8.width:=80;end;
3.BEGIN Image9.visible:=true; Image9.width:=80;end;
4.BEGIN Image10.visible:=true; Image10.width:=80;end;
5.BEGIN Image11.visible:=true; Image11.width:=80;end;
6.BEGIN Image12.visible:=true; Image12.width:=80;end;
end;
end;//of case ;-)

Ergebnis2Panel.caption:=inttostr(faktor*einsatz);
end;





end.

[Sir Rufo]

Zitat von danielZ:

habe sie jetzt einfach so hingemacht, nur bei mir zeigen sich noch 14 Fehler an.
Kann mir da jemand bei den proceduren helfen, was ich falsch gemacht habe etc.
Muss bis morgen fertig werden.
Danke schonmal
Hier meine proceduren:
Was haltet ihr davon, was muss ich da verbessern?

Nutze die Delphi-Tags (Das ist der lustige Delphi-Helm - wurde hier auch schon mal gesagt!)