brauche ne kleine Hilfe zu Kniffel :)

[dragi]

Hallo,

ich möchte gerne ein Kniffel Spiel programmieren. Nun habe ich auf meinem Formular 5 Image Felder und 5 Integer Variabeln die jeweils ein Würfel repräsentieren. Die Integer Variabeln bekommen nun per Random einen Wert zwischen 1-6 zugewiesen. Jetzt Frage ich den Wert einer Jeden Variablen ab und setze dann das entsprechende Bild in das Image Feld.

PseudoCode:

Code:

if wuerfel1 = 1 then
  Image = 1.jpg;
if wuerfel1 = 2 then
  Image = 2.jpg;
if wuerfel1 = 3 then
  Image = 3.jpg;
...

Das ganze jetzt natürlich für 5 Würfel! Das ist jetzt ein riesiger haufen If-Abfragen. Kann man das auch intelligenter lösen?
Ich komm nicht drauf :(

Gruss

Dragi

[Chegga]

Hi,

Case

MfG Marc

[SubData]

Delphi-Quellcode:

const
  Wuerfel : Array[0..6] of String = ('', '1.jpg', '2.jpg', '3.jpg', '4.jpg', '5.jpg', '6.jpg');
begin
  Image = Wuerfel[wurfel1];
end;

[PierreB]

Moin,

hier mal ein kleines Beispiel:

Code:

procedure TForm1.Button1Click(Sender: TObject);
var
wuerfel : integer;
begin
case Wuerfel of
1 : Image1.visible := true;
2 : Image1.visible := true;
3 : Image1.visible := true;
4 : Image1.visible := true;
5 : Image1.visible := true;
6 : Image1.visible := true;
end
end;

Hoffe das ist das was du meinst. ;)

[Chegga]

Zitat:

Zitat von delphman

Moin,

hier mal ein kleines Beispiel:

Code:

procedure TForm1.Button1Click(Sender: TObject);
var
wuerfel : integer;
begin
case Wuerfel of
1 : Image1.visible := true;
2 : Image1.visible := true;
3 : Image1.visible := true;
4 : Image1.visible := true;
5 : Image1.visible := true;
6 : Image1.visible := true;
end
end;

Hoffe das ist das was du meinst. ;)

Was habe ich gepostet? :gruebel:
:duck:

MfG Marc

P.S.: Tolles Beispiel...
Ich glaube kaum, dass bei jedem Würfel das gleiche Bild angezeigt werden soll.
(Image1) :zwinker:

[PierreB]

Zitat:

Zitat von Chegga

Hi,

Case

MfG Marc

Hast du gepostet. Ich dachte ja nur das er die Case vielleicht noch nicht kennt, und habe ihm deshalb ein sehr simples Beispiel dazu gegeben. :roll:

Zitat:

Ich glaube kaum, dass bei jedem Würfel das gleiche Bild angezeigt werden soll.
(Image1)

Ups, hab ich in der Eile wohl übersehen. :oops:

[dragi]

Danke, habs verstanden :) Jetzt kann ich das direkt mal ganz schnell umbauen...ist ja peinlich das mir das nicht selbst eingefallen ist *rotwerd*

Gruss

Dragi

[SubData]

Ohne die Case Anweisung schlecht machen zu wollen, möchte ich darauf aufmerksam machen, dass meine Methode noch ein wenig mehr Arbeit spart:

Delphi-Quellcode:

const 
  Wuerfel : Array[0..6] of String = ('', '1.jpg', '2.jpg', '3.jpg', '4.jpg', '5.jpg', '6.jpg'); 
begin 
  Image1 = Wuerfel[wuerfel1]; 
  Image2 = Wuerfel[wuerfel2]; 
  Image3 = Wuerfel[wuerfel3]; 
  Image4 = Wuerfel[wuerfel4]; 
  Image5 = Wuerfel[wuerfel5]; 
end;

Damit haste dann schon alle Bilder für alle 5 Würfel ...

[Binärbaum]

Zitat:

Zitat von SubData

Ohne die Case Anweisung schlecht machen zu wollen, möchte ich darauf aufmerksam machen, dass meine Methode noch ein wenig mehr Arbeit spart:

Delphi-Quellcode:

const 
  Wuerfel : Array[0..6] of String = ('', '1.jpg', '2.jpg', '3.jpg', '4.jpg', '5.jpg', '6.jpg'); 
begin 
  Image1 = Wuerfel[wuerfel1]; 
  Image2 = Wuerfel[wuerfel2]; 
  Image3 = Wuerfel[wuerfel3]; 
  Image4 = Wuerfel[wuerfel4]; 
  Image5 = Wuerfel[wuerfel5]; 
end;

Damit haste dann schon alle Bilder für alle 5 Würfel ...

Das dürfte so wohl kaum funktionieren, da man einem Image nicht einfach einen String-Typ zuweisen kann. Folgendes ist besser:

Delphi-Quellcode:

const 
  Bilder : Array[1..6] of String = ('1.jpg', '2.jpg', '3.jpg', '4.jpg', '5.jpg', '6.jpg');
var i: Byte;
    Augenzahl: array[1..5] of Byte;//Augenanzahl der Würfel 
begin 
  Randomize;
  for i:= 1 to 5 do
    Augenzahl[i]:= Random(6)+1;//Würfeln
  Image1.Picture.LoadFromFile(Bilder[Augenzahl[1]]);
  Image2.Picture.LoadFromFile(Bilder[Augenzahl[2]]);
  Image3.Picture.LoadFromFile(Bilder[Augenzahl[3]]);
  Image4.Picture.LoadFromFile(Bilder[Augenzahl[4]]);
  Image5.Picture.LoadFromFile(Bilder[Augenzahl[5]]);
end;

MfG
Binärbaum

[SubData]

Das man einem Image keinen String zuweisen kann ist mir klar, allerdings hat er dann eine Variable in der der Dateiname steht, welches Bild er denn anzeigen möchte.

Deine Methode wäre dann halt das Endergebniss ^^