Ein kleines HangMan

[glkgereon]

Hi

ich habe in letzter Zeit ein kleines Hangman programmiert.

Was dieses Programm macht sollte bekannt sein...Ein normales HangMan-Ratespiel eben

Was kann dieses Programm was andere Event. nicht können/haben/sind?

• Einfach zu bearbeitende Wortliste
• komplett anpassbare Zeichnung (siehe Draw.txt)
• Es ist selbstgeschrieben :)
• Es ist komplett Objektorientiert

Der Source kommt, sobald ich ihn etwas durchkommentiert hab...

ihr könnt ja mal was damit rumspielen...und natürlich Bugs und verbesserungen posten!

vielleicht hat ja auch einer ne Idee wie man es optisch etwas ansprechender machen könnte? da bin ich nämlich immer zu faul mir was zu überlegen :(

Fixed:

• Hangman wird gelöscht
• Neue Runde-Button
• Fehler-Handling bei fehlender Datei
• Buttons werden Enabled bei neuer Runde
• AV bei Fehlender Datei
• Fehler bei neuer Runde

Add:

• Hintergrundfarbe
• Farbe für einzelne Elemente
• Rahmenfarbe
• Füllen von Elementen
• Skins
• Auswahl: Zeichnung oder Bilder

Und Jetzt endlich hänge ich auch mal meinen Quellcode an..ihr dürft mich jetzt auseinandernehmen :)

[freak4fun]

So auf den ersten Blick: Du solltest den Hangman wieder weg machen, wenn man das Wort erraten hat und ein neues kommt. ;)

MfG
freak

[glkgereon]

Upps...da fehlte wohl ein Clear;....lade sofort neu hoch....

[Thorben77]

Morgen.

Ein paar kleine Fehler/Verbesserungsvorschläge:

• Bau noch einen Button für eine neue Runde ein.
• Der Galgen sollte wieder verschwinden, wenn man gewonnen hat. (Hat sich erledigt.)
• Und vielleicht nch ein bisschen Farbe rein :wink:
• Das Programm sollte nicht starten, wenn die Wörterliste und die andere Datei nicht vorhanden sind.

MfG

[glkgereon]

erstmal danke für die anregungen
[quote="Thorben77"]

Zitat:

Zitat von Thorben77

Bau noch einen Button für eine neue Runde ein.

Gute idee...

Zitat:

Zitat von Thorben77

Und vielleicht nch ein bisschen Farbe rein :wink:

Da tu ich mir wie gesagt immer was schwer mit.
Was soll farbig werden?
wie farbig?

Zitat:

Zitat von Thorben77

Das Programm sollte nicht starten, wenn die Wörterliste und die andere Datei nicht vorhanden sind.

hmpf, vergessen, is jetzt drin :)

[Thorben77]

Zitat:

Zitat von glkgereon

Was soll farbig werden?
wie farbig?

Überleg dir was :idea: :wink: Kannst z. B. den Hintergrund der Zeichenfläche weiß und den Galgen blau machen. Das könnte man ja auch in der "Draw.txt" selber festlegen können.

-----

Das mit der neuen Runde funktioniert noch nicht so ganz:

• Der Galgen verschwindet immer noch nicht, wenn man gewonnen hat.
• Die Buchstaben-Buttons werden nicht "geenabled".

-----

Wenn die beiden Dateien fehlen, kommt zwar eine Fehlermeldung, aber das Programm startet trotzdem und man kann es dann nicht ohne Gewalt beenden :wall: .

MfG

[glkgereon]

Zitat:

Zitat von Thorben77

Zitat:

Zitat von glkgereon

Was soll farbig werden?
wie farbig?

Überleg dir was :idea: :wink: Kannst z. B. den Hintergrund der Zeichenfläche weiß und den Galgen blau machen. Das könnte man ja auch in der "Draw.txt" selber festlegen können.

ja, das wär ne idee....

Zitat:

Zitat von Thorben77

Das mit der neuen Runde funktioniert noch nicht so ganz:

• Der Galgen verschwindet immer noch nicht, wenn man gewonnen hat.
• Die Buchstaben-Buttons werden nicht "geenabled".

das erste konnte ich nicht feststellen :?:
das zweite stimmt, is gefixt

Zitat:

Zitat von Thorben77

Wenn die beiden Dateien fehlen, kommt zwar eine Fehlermeldung, aber das Programm startet trotzdem und man kann es dann nicht ohne Gewalt beenden :wall: .

hmm, in dem Fall reicht Close wohl nicht...
aber ein Application.Terminate ist vielleicht nicht so elegant, aber es funktionier :twisted:

[Thorben77]

Zitat:

Zitat von glkgereon

das erste konnte ich nicht feststellen :?:

Nicht? Hm, also wenn ich ein Wort erraten habe, kommt "You won", das Wort verschwindet aus dem Edit, aber der Galgen nicht. :gruebel:

Zitat:

Zitat von glkgereon

hmm, in dem Fall reicht Close wohl nicht...
aber ein Application.Terminate ist vielleicht nicht so elegant, aber es funktionier :twisted:

Das könntest du schon in der Projektdatei machen, bevor das Fenster überhaupt erstellt wir, dann brauchst du auch kein Terminate:

Delphi-Quellcode:

program HangMan;

uses
  Forms,
  SysUtils,
  YourUnit in 'YourUnit.pas' {YourForm};

begin
  if FileExists(ExtractFilePath(ParamStr(0)) + 'Draw.txt') then
  begin
    Application.Initialize;
    Application.CreateForm(TYourForm, YourForm);
    Application.Run;
  end
  else
    // Die Fehlermeldung...
end.

Mir ist noch aufgefallen, dass nach den Start unten keine Unterstriche in dem Edit sind :wink:

MfG

[glkgereon]

[quote="Thorben77"]

Zitat:

Zitat von glkgereon

das erste konnte ich nicht feststellen :?:

Nicht? Hm, also wenn ich ein Wort erraten habe, kommt "You won", das Wort verschwindet aus dem Edit, aber der Galgen nicht. :gruebel: [quote="Thorben77"]
Ooops, jetzt seh ichs auch...gefixed

Zitat:

Zitat von Thorben77

Zitat:

Zitat von glkgereon

hmm, in dem Fall reicht Close wohl nicht...
aber ein Application.Terminate ist vielleicht nicht so elegant, aber es funktionier :twisted:

Das könntest du schon in der Projektdatei machen, bevor das Fenster überhaupt erstellt wir, dann brauchst du auch kein Terminate:

Delphi-Quellcode:

program HangMan;

uses
  Forms,
  SysUtils,
  YourUnit in 'YourUnit.pas' {YourForm};

begin
  if FileExists(ExtractFilePath(ParamStr(0)) + 'Draw.txt') then
  begin
    Application.Initialize;
    Application.CreateForm(TYourForm, YourForm);
    Application.Run;
  end
  else
    // Die Fehlermeldung...
end.

stimmt....ginge auch

Zitat:

Zitat von Thorben77

Mir ist noch aufgefallen, dass nach den Start unten keine Unterstriche in dem Edit sind :wink:

stimmt, bei der rumbastelei mit der Fehlermeldung wegen der Dateien hab ich da weas vertauscht...wird gefixt...

[BrunoT]

Hi

ich habe eine Fehlermeldung erhalten, sobald ich einen falschen Buchstaben angeklickt habe. :mrgreen: