würfelprogramm

[anni]

hejhej.
hab ein problem und zwar sollen wir ein einfaches würfelspiel in delphi programmieren,
wobei der würfel in 2D angezeigt werden muss..
kann mir da irgendwer helfen??
bin jetzt soweit,aber es klappt nicht wirklich...
__________________________________________________ __
procedure TForm1.Button1Click(Sender: TObject);
begin
randomize;
case zahl of
1: Image1.Picture.Loadfromfile(w1.bmp);
2: Image1.Picture.Loadfromfile(O:\\hermann\home\akauf mann\profile\Eigene Dateien\Eigene Bilder\w2.bmp);
3: Image1.Picture.Loadfromfile(O:\\hermann\home\akauf mann\profile\Eigene Dateien\Eigene Bilder\w3.bmp);
4: Image1.Picture.Loadfromfile(O:\hermann\home\akaufm ann\profile\Eigene Dateien\Eigene Bilder\w4.bmp);
5: Image1.Picture.Loadfromfile(O:\hermann\home\akaufm ann\profile\Eigene Dateien\Eigene Bilder\w5.bmp);
6: Image1.Picture.Loadfromfile(o:\hermann\home\akaufm ann\profile\Eigene Dateien\Eigene Bilder\w6.bmp);
end;
end;

end.
__________________________________________________ ___

wär super wenn ihr mir sagen könntet wie ich die würfelbilder angezeigt bekomme!!

[angos]

Hi und herzlich willkommen in der DP

das ist doch schonmal ein Anfang den du da hast.

Folgende Tips:
- randomize nur einmal zum start des Programmes aufrufen. Dieser Befehl initialisiert nur die nächsten "Zufallswerte"
- deine Variable zahl musst du auch noch deklarieren
- und dann musst du ja nur deiner zahl einen Zufallswert zuweisen. mit dem Befehl Random. Schau dazu mal in die Onlinehilfe


Gruß
angos

[Larsi]

Hi,

herzlich Willkommen in der Delphi- Praxis

Wo ist dennd ie Variable Zahl dekliniert?

Also ich würde erstmal einen Bereich machen in dem die Zufallszahlen überhaupt sein können:

Delphi-Quellcode:

function Zufallszahl(Von, Bis: Integer): Integer;
begin
  Result := Random(Succ(Bis - Von)) + Von;
end;

Das Randomize könntest du in FormOnCreate schreiben, dass muss nicht so oft aufgerufen werden.

Dann muss die Variable Zahl dekliniert sein:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
Zahl: Integer;
begin
...
end;

Dann musst du die durch die oben genannte Funktion der Variable Zahl einen Wert zwischen 1 und 6 zugeben und es müsste gehen.


Setzte deinen Delphi Code bitte in Tags sodass man ihn einfacher sehn kann.


MFG Lars Wiltfang


Edit: Zu spät

[DeddyH]

Und Quellcode bitte in Delphi-Tags einschließen ([ delphi] und [ /delphi] ohne die Leerzeichen). Außerdem bitte auch mitteilen, wo es hakt, "funktioniert nicht" ist keine aussagefähige Fehlerbeschreibung.

P.S.: Auch von mir Willkommen in der DP

@Larsi: deklinieren ist etwas anderes

[Corpsman]

Nachdem man davon ausgehen kann das du sehr heäufog würfelst, und die Würfelbilder ansich klein sind würde ich dir ein Array of TBitmap empfehlen, dann hast du weniger HDD zugriffe.

Delphi-Quellcode:

var Bilder:Array[1..6] of Tbitmap;

Procedure TForm1.create ( .. ) ;
var i:Integer;
begin
  for i := 1 to 6 do begin
    bilder[i] := Tbitmap.create;
    Bilder[i].loadfromfile(Dateimane+inttostr(i));
  end;
  randomize;
end;

procedure TForm1.Button1Click(Sender: TObject);
var Zahl:Integer;
begin
  zahl := Random(6)+1;
  Image1.Picture.assign(Bilder[Zahl]);
 ..
end;

[Larsi]

Zitat von DeddyH:

@Larsi: deklinieren ist etwas anderes

[OT] Latein hat eben doch negative Auswirkungen [OT]

[angos]

@Larsi,

Delphi-Quellcode:

function Zufallszahl(Von, Bis: Integer): Integer;
begin
  Result := Random(Succ(Bis - Von)) + Von;
end;

dafür gibts schon eine Funktion in Delphi [Edit] ab Delphi 6, danke Corpsman[/Edit] schau mal nach RandomRange

Gruß
angos

[Corpsman]

@angos

in D5 gibts die noch nicht, die ist glaubig erst mit D6 gekommen.

[Larsi]

Ich habe den Beitrag aus der Codelib.

[Fussball-Robby]

Random(6) + 1; tuts doch genau so gut. Wozu da noch ne Funktion?