Ein Spiel mit Delphi programmieren

[Noedel]

Zitat von DeddyH:

Ich hab noch einen Fehler gefunden, aber den soll der TE selbst beheben

denkst du denn, der TE weiß, dass die ImageList bei 0 anfängt zu nummerieren?

es muss (für den TE) so lauten:

Delphi-Quellcode:

    ImageList1.GetBitmap(Wurf1-1,Image1.Picture.Bitmap); //<-- Wenn Bitmaps in der Liste sind...
    ImageList1.GetBitmap(Wurf2-1,Image2.Picture.Bitmap); //<-- Natürlich auch für das 2. Image

Noedel

[haentschman]

Spielverderber... wir quälen uns seit Stunden (bald Tagen) dem TE auf die Sprünge zu helfen, damit er auch versteht was er treibt.

[danielZ]

Also ich habe noch immer nur diese Formeln, denn ich habe euch das Problem mit der OnCreate geschildert, da musste ich ja das randomize hinmachen, also wie kann ich das Prolbem beheben wenn ich mit einem DOppelklick auf die Form klicke?
Hier meine FOrmeln bis zu diesem Zeitpunkt.

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;
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';
 end;


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;

// of case //

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





end.

[DeddyH]

Sag mal, ignorierst Du andere Posts absichtlich? Du hast immer noch keine Delphi-Tags benutzt, die ganzen Images sind plötzlich wieder da usw. usf. Ich verliere echt die Lust

[Noedel]

im Prinzip braucht er sich sein Projekt ja jetzt aus den ganzen Codeschnipseln, die hier schon stehen und als richtig befunden wurden, auch nur zusammensetzen. Eigene Denkarbeit ist jetzt schon nicht mehr benötigt.
Aber wer nicht lesen kann, ist auch nicht im Vorteil

//Edit: Rächtschraibunk^^

[c4rtm4n]

Zitat von Noedel:

im Prinzip kann er sich sein Projekt ja jetzt aus den ganzen Codeschnipseln, die hier schon stehen und als richtig befunden worden, auch nur zusammensetzen. Eigene Denkarbeit ist jetzt schon nicht mehr benötigt.
Aber wer nicht lesen kann, ist auch nicht im Vorteil

Da hast du verdammt nochmal recht, Noedel ^^

[haentschman]

der TE ist der Thread-Ersteller. Könnte man auch ein Akronym draus machen

[c4rtm4n]

Zitat von haentschman:

der TE ist der Thread-Ersteller. Könnte man auch ein Akronym draus machen

Achso, danke =)

Bin auch noch nicht so lange in der DP aktiv...
Ändert sich in Zukunft aber =)

Meine Erste Frage war aber auch so selten d*ch...
Hab mir aber trotzdem nicht mein Programm remote-schreiben lassen

[mkinzler]

Zitat:

@haentschman: Was ist ein TE?

Threadersteller

Zitat:

im Prinzip braucht er sich sein Projekt ja jetzt aus den ganzen Codeschnipseln, die hier schon stehen und als richtig befunden wurden, auch nur zusammensetzen. Eigene Denkarbeit ist jetzt schon nicht mehr benötigt.

Scheinbar doch noch zu viel

[haentschman]

Zitat:

und wo finde ich die Delphi Tags in der erweiterten ANsicht bei Delphi4?

ähmmm...irgendwie komme ich mir grad veräppelt vor. Das kann doch nur ein Scherz sein das ganze.