[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

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

MfG
freak

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

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
• Das Programm sollte nicht starten, wenn die Wörterliste und die andere Datei nicht vorhanden sind.

MfG

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

Zitat von Thorben77:

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

Gute idee...

Zitat von Thorben77:

Und vielleicht nch ein bisschen Farbe rein

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

Zitat von Thorben77:

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

hmpf, vergessen, is jetzt drin

Zitat von glkgereon:

Was soll farbig werden?
wie farbig?

Überleg dir was 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 .

MfG

Zitat von Thorben77:

Zitat von glkgereon:

Was soll farbig werden?
wie farbig?

Überleg dir was 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 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 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 .

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

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.

Zitat von glkgereon:

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

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

zusammenfalten · markieren

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

MfG

[quote="Thorben77"]

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. [quote="Thorben77"]
Ooops, jetzt seh ichs auch...gefixed

Zitat von Thorben77:

Zitat von glkgereon:

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

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

zusammenfalten · markieren

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 von Thorben77:

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

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

Hi

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