Ein Spiel mit Delphi programmieren

[danielZ]

jetzt habe ich grade einen Tipp bekommen und habe mir bei diesem Programm auch schon bischen einen Überblick verschaffen.
Also die Spielregeln lauten:
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).

Kann mir einer von euch die Spielregeln vllt. besser erklären?

[Namenloser]

Du hast eine Eigenschaft, und du willst ihr etwas zuweisen. Die Eigenschaft heißt

Delphi-Quellcode:

<objekt>.Width

und der Zuweisungsoperator ist

Delphi-Quellcode:

:=

.

[Noedel]

Zitat:

Zitat von danielZ (Beitrag 1029964)

jetzt habe ich grade einen Tipp bekommen und habe mir bei diesem Programm auch schon bischen einen Überblick verschaffen.
Also die Spielregeln lauten:
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).

Kann mir einer von euch die Spielregeln vllt. besser erklären?

besser wäre es vielleicht, das bild per

Code:

Visible:=true / false

erscheinen und verschwinden zu lassen.

[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" :-D)