Ein Spiel mit Delphi programmieren

[c4rtm4n]

omg -,-

[haentschman]

...der kann da auch nicht mehr helfen :roll:

122 Beiträge und wir stehen immer noch vor dem Anfang...

[c4rtm4n]

Ich glaube da hast du wieder mal recht :roll:

[haentschman]

da fällt mir das dazu ein:
Das Haus, das Verrückte macht
:zwinker: wir sind hier stark gefährdet...

[Lumpiluk]

Wenn du noch das Problem mit OnCreate hast:
Ich habe das nie mit Doppelklick gemacht (kann sein, dass das auch funktioniert), sondern mit Einzelklick auf die Form und im Objektinspektor oben einem Klick auf Eigenschaften. Da ist auch ein Feld namens "OnCreate", worauf man nur noch doppelklicken muss.

[DeddyH]

Per Doppelklick auf das Formular kommst Du an dieselbe Stelle, nur schneller :zwinker:

[c4rtm4n]

Zitat:

Zitat von haentschman (Beitrag 1030275)

da fällt mir das dazu ein:
Das Haus, das Verrückte macht
:zwinker: wir sind hier stark gefährdet...

Ja, ich denke auch, dass wir da sehr gefährdet sind =)
Sehr passend der Einfall :-D

[Sfaizst]

Offtopic:

Zitat:

Zitat:

Zitat von haentschman:
da fällt mir das dazu ein:
Das Haus, das Verrückte macht
wir sind hier stark gefährdet...

Ja, ich denke auch, dass wir da sehr gefährdet sind =)
Sehr passend der Einfall

Schaut mal, 0:11, der typ hat ne Vuvuzela (oder wie das afrikanische wm teil au heißt), da komme die also her, jetz wird mir alles klar.

Zurück zum Thema:
Schönen dank, das du meine Hile ignoriert hast, "..." heißt im übrigem, das was davor ist, so langsam habe ich das gefühl, das du hier einfach nur copy&paste betreibst, was eigentlich nicht der Sinn sein sollte (sorry für den kleinen fehler, hatte nicht daran gedacht das du random+1 machst...).
deine Tausenden Images werden in kombination mit der Imagelist so wie dus jetzt hast nicht funktionieren.

Viele Grüße

[DeddyH]

Genau das sagen wir ja die ganze Zeit, aber es fruchtet anscheinend nicht. Was soll man da noch machen außer dicke Backen?

[Sfaizst]

Deine Signatur anschaue unds Version 1.0 nennen :D

[DeddyH]

:lol: Den Satz darunter zu beherzigen wäre aber zielführender (wenn auch schwieriger).

[Teekeks]

Stimmt, bei einigen Systemen kommt da nämlich eine external SIGSEGV... :stupid:

[mkinzler]

Trotzdem sollten wir beim Thema bleiben

[danielZ]

also ich komme da echt nicht weiter und weiß nicht was ich da ändern soll.
Bis jetzt habe ich die Oberfläche so aufgebaut wie es unten in dem Anhang zu sehen ist:
Und hier ist das was ich bis jetzt dazu geschrieben habe:
Kann mir noch einer mal konkret sagen, was ich da im Bezug auf die Oberfläche ändern muss, denn bei mir werden noch sehr viele Fehler angezeigt:

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);
    procedure FormCreate(Sender: TObject);
    procedure FormCreate(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.

[Namenloser]

Ist es so schwer, die [Delphi]-Tags zu benutzen? :wall: :wall: :wall:

[danielZ]

ja ich habe die gefunden, aber wozu brauche ich die?^^

[fkerber]

Damit der Quelltext ordentlich aussieht...

[mkinzler]

Zitat:

Zitat von danielZ (Beitrag 1030333)

ja ich habe die gefunden, aber wozu brauche ich die?^^

Das potientielle Helfer, den Code besser entziffern könne. Aber das scheint dir ja egal zu sein, hauptsache jemand macht deine Arbeit. :wall:

[Klaus01]

Hi Daniel,

wozu benötigst Du 12 TImage Komponeten?
Wie schon des öfteren gesagt, würde es mit einer TImageList
einfacher gehen.

Du lädst Dir die Bilder der Würfelseiten in eine Stringlist (zur Designzeit).
An Position 0 kommt das Bild mit der Augenzahl 1.
An Position 1 kommt das Bild mit der Augenzahl 2.
..
An Position 5 kommt das Bild mit der Augenzahl 6.

Auslesen:

Delphi-Quellcode:

ImageList.Draw(Wuerfel1Image1.Canvas,0,0,wurf1-1); 
ImageList.Draw(Wuerfel2Image1.Canvas,0,0,wurf2-1);

Grüße
Klaus

[danielZ]

bin echt am verzweifeln komme da nicht weiter weil bis jetzt hab ich schon sehr viel daran gearbeitet nur die Fehler kann ich jetzt nicht lösen. Kann mir da einer helfen?
Sonst weiß ich echt nicht wie ich weitermachen soll:?

[mkinzler]

@Klaus: Wie es scheint liest er die Antworten gar nicht sondern überträgt den geposteten Code, ohne unnötigen Gebrauch seines Hirns, in den Quellcodeeditor. Funktioniert es dann immer noch nicht, postet er die Fehlermeldung und wartet bist der nächste "Dumme" sich die Arbeit macht.

@D

[xZise]

Moin,
eigentlich wollte ich mich jetzt nur noch ergötzen an den Passierschein A38 (?).

Also mal eine frage: Du kennst die Farbe rot und blau. Und jetzt sagst du: Mal ein grünes Rechteck. Wird das gehen? Nein! Warum? Weil du nicht die Farbe grün kennst.

Also deine Formular kennt zwei Bilder (Image1 und Image2) und du sagst dem 3. Image — MOMENT das 3. Image kennt er doch gar nicht? Warum? weil es keins gibt, sondern die Anweisung an das 3. Image bis zum 12. Image schwachsinn sind -.-

Übrigens jede moderne Entwicklungsumgebung wird dir hilfreich den Tipp geben, was denn da hackt. Lies es dir durch (ach du sch***e hatten wir ja gestern mit Augen aufmachen und so) und denke nach.

Ich nehme dir nicht ab, dass du seit einem halben Jahr mit Delphi programmiert.

MfG
Fabian

PS: Übrigens musst du auch hier im Forum die Augen aufmachen. Einfach nur sehen: Da ist Delphicode das kopier ich mir, wird dir (zumindest hier) nicht weiterhelfen, wie wir schon an den inzwischen 15 Seiten ansehen.
PPS: Ich kanns immer noch net fassen. Das bekommt ein Bookmark.
PPPS: @ Markus: „@D“?
PPPPS: Ich bin versucht die Lösung zu posten, aber in einen solchen Level, dass es nicht von ihn sein kann. Aber bevor die korrigierende Person das als seine Lösung interpretiert.

[jfheins]

Zitat:

Zitat von mkinzler (Beitrag 1030344)

@Klaus: Wie es scheint liest er die Antworten gar nicht sondern überträgt den geposteten Code, ohne unnötigen Gebrauch seines Hirns, in den Quellcodeeditor. Funktioniert es dann immer noch nicht, postet er die Fehlermeldung und wartet bist der nächste "Dumme" sich die Arbeit macht.
@D

Echt? Wo?

@danielZ: Fehlermeldungen zu posten wäre schonmal gut. besser wäre es noch, diese zu lesen und zu überlegen was die bedeuten könnten ;)

[DeddyH]

Ihr könnt machen was Ihr wollt, ich klinke mich jetzt aus. Die Lösung steht (samt eines kleinen Fehlers) bereits hier im Thread, die Fehlerbehebung auch, ich weiß nicht, was das alles noch soll :wall:

[Matze]

Da die Komplettlösung (leider) bereits im Thema erwähnt ist und die Korrektur des darin enthaltenen Fehlers ebenfalls, sehe ich keinen Grund mehr, das Thema offen zu lassen.

Du hattest Glück, dass dir eine Komplettlösung präsentiert wurde. Zukünftig wird das hoffentlich nicht mehr der Fall sein.
Fehlende Eigeninitiative wird hier nicht unterstützt, wie auch im Kodex erwähnt: Null Bock? Nicht hier.

G E S C H L O S S E N