Ein Spiel mit Delphi programmieren

[DeddyH]

IMHO noch besser wäre es, nur 2 Images zu haben und die Grafiken entsprechend der Augenzahl hineinzuladen.

[danielZ]

Ich habe mir jetzt halt das Spiel ausgewählt:
Man soll einen einsatz machen und dann mit zwei Würfeln würfeln.
bei insgesamter augenzahl von 1 bis 6 soll man den einsatz verlieren bei 7,8,9 zurück, bei 10 verdoppeln, bei 11 verdreifacht und bei 12 vervierfacht zurück bekommen.
Das habe ich schon alles geschaft nur jetzt muss ich noch Grafiken erscheinen lassen. also wenn Würfel 1 ne 5 ist dann soll die Grafik mit einem Würfel mit einer augenzahl 5 auch erscheinen. die bilder hab ich schon alle eingefügt und auf Width 0 gemacht.
Nun weiß ich aber nicht wie man das macht das sich die Width auf 80 (und somit das bild erscheint mit dem würfel erscheint).


http://666kb.com/i/awwltfdqp2pvomcyn.jpg
http://666kb.com/i/awwludg20h1ujwxzz.jpg

Was haltet ihr davon nur ich hab halt das oben genannte Problem?!
lg

[danielZ]

nur ich weiß halt nicht was mit diesem width:= 80;
gemeint ist

[DeddyH]

Du hast "die Width auf 0 gemacht", nun musst Du sie doch nur "auf 80 machen" *koppschüttel*

[c4rtm4n]

Wie DeddyH schon sagte ist es am einfachsten, wenn du die Bilder, je nach geworfener Augenzahl, in die Image-Komponente lädst.

Das spart dir viel Code und du brauchst deine Image Komponenten vorher nicht immer wieder verstecken...

[danielZ]

also sind meine Formeln alles richtig nur halt die Width auf 80 machen, nicht auf 0.
Aber was bedeutet das eig. diese width und was hat die 80 damit zu tun?
Kann mir das jemand sagen? Und hab ich sonst alles richtig?
Oder wie würdet ihr meine Formeln noch verändern?

[David Martens]

Woher hast du denn das mit dem width := 80? brauchst du doch garnicht wenn du schon mir Visible := true / false arbeitest.

Du brauchst auch keine 12 Images.
1. Pack die beiden Images dahin wo die Würfel zu sehen sein sollen, Größe einstellen; Transparens auf false.
2. Nimm eine ImageList, pass die Bildergröße an deine Bilder an und lade die Bilder in die ImageList (Transparens dabei auf clNone stellen); Masked auf false stellen.

jetzt nur noch:

Delphi-Quellcode:

  wurf1 := random(6) + 1;
  wurf2 := random(6) + 1;

  Image1.Visible := false;
  Image1.Visible := true;
  ImageList1.Draw(Image1.Canvas, 0, 0, wurf1 - 1, dsNormal, itImage);

  Image2.Visible := false;
  Image2.Visible := true;
  ImageList1.Draw(Image2.Canvas, 0, 0, wurf2 - 1, dsNormal, itImage);

Hoffe das hilft, David

P.S.: du kannst den Code auch direkt hier einfügen (mit dem "Streithelm" )

[danielZ]

ja nur damit hab ich bischen Probleme das nachzuvollziehen was du damit meinstu brauchst auch keine 12 Images.
1. Pack die beiden Images dahin wo die Würfel zu sehen sein sollen, Größe einstellen; Transparens auf false.
2. Nimm eine ImageList, pass die Bildergröße an deine Bilder an und lade die Bilder in die ImageList (Transparens dabei auf clNone stellen); Masked auf false stellen

Könnte ich nicht alles so lassen, wie ich das gemacht hab und hier ins Forum geschrieben hab nur das was du meintest also das mit den width 80 weglassen? Und könnte mir vllt. einer erklären, wie ich das Projekt dazu mit den Buttons etc. darstellen soll, weil bis jetzt hab ich halt nur die Formeln dazu?

lg

[danielZ]

http://666kb.com/i/awwltfdqp2pvomcyn.jpg
http://666kb.com/i/awwludg20h1ujwxzz.jpg

Also das waren halt die Formeln für das Würfelspiel.
Nun wollte ich wissen, wo ich sie einfügen muss, also welche Buttons ich brauche, um die Formeln in die jeweiligen Buttons einzufügen?

kann mir da einer konkret etwas zu sagen, was sich nicht so kompliziert anhört.

Ich weiß halt nicht wie ich das SPiel darstellen soll.
Weil die FOrmeln hab ich ja schon für das Laufen des SPieles?!