-
Forum: Multimedia
Delphi
by kindliche kaiserin,
28. Feb 2010
So, das Programm ist jetzt fertig. Es funktioniert auch alles......naja bei 20 Mal spielen friert es ein Mal ein und bei weiteren 20 Mal spielen setzt der die Schiffe des Computergegners falsch. Warum weiß ich nicht, da der Quellcode jetzt eigentlich diesbezüglich m.M.n. fehlerfrei ist.
Jetzt wollte ich nur noch ein wenig an der Optik was verbessern.
Und zwar möchte ich, dass nach jedem...
-
Forum: Multimedia
Delphi
by kindliche kaiserin,
24. Feb 2010
Ach verdammt..das hätte ich sehen müssen! Okay, danke! :)
-
Forum: Multimedia
Delphi
by kindliche kaiserin,
24. Feb 2010
Aber es wird doch an der Stelle gar nichts von dem ClickButton erwähnt? Also im Kopf der Funktion bzw. der Prozedur..?
-
Forum: Multimedia
Delphi
by kindliche kaiserin,
24. Feb 2010
function IstFreieStelle( SpielFeld : TSpielFeld; PosX, PosY, Hochkant ) : boolean;
.
.
.
.
procedure ZufallPos( const Laenge : integer; var PosX, PosY : integer; var Hochkant : boolean );
Wann werden diese Funktion und Prozedur ausgeführt? Denn sie werden ja durch kein Ereignis ausgelöst..oder werden diese gleich nach dem Öffnen des Programms ausgeführt unabhängig davon, wo sie im...
-
Forum: Multimedia
Delphi
by kindliche kaiserin,
23. Feb 2010
Wie meinst du das mit gleich großen Objekten? Also meine fünf einzelnen Schiffe sind ja quasi nicht gleich groß...also das eine ist 5x1, das andere 4x1 etc...
Jetzt wollte ich die Prozedur für das Hinzufügen der Computer-Schiffe machen. Folgendes habe ich da zusammengebastelt:
procedure TForm1.button_startClick(Sender: TObject);
var cpu_hoehe, cpu_laenge, pos, mx, my, a, i, j,...
-
Forum: Multimedia
Delphi
by kindliche kaiserin,
23. Feb 2010
Okay, das Hinzufügen von Schiffen in mein eigenes Feld funktioniert jetzt, dank Benutzung von Arrays, einwandfrei. Mir ist jedenfalls nach dutzenden Testdurchläufen noch kein Fehler aufgefallen.
-
Forum: Multimedia
Delphi
by kindliche kaiserin,
19. Feb 2010
@KB: Ja, also die Formatierung finde ich wirklich wesentlich übersichtlicher. Werde ich mir in Zukunft auch angewöhnen, darauf mehr zu achten.
@Mimi: Ich hatte schonmal zwei Jahre in der Schule zu tun. Jedoch haben wir da sichlerich nicht alle Möglichkeiten ausgeschöpft. Außerdem habe ich seitdem kein einziges Programm mehr mit Delphi geschrieben..deshalb ist es mitlerweile schon wieder fast...
-
Forum: Multimedia
Delphi
by kindliche kaiserin,
19. Feb 2010
Was sollte ich denn an der Formatierung deiner Meinung nach ändern?
Okay, dann werde ich es jetzt mal mit den Arrays probieren..
-
Forum: Multimedia
Delphi
by kindliche kaiserin,
19. Feb 2010
Das habe ich gerade schon gefunden und verbessert, trotzdem funktioniert es noch nicht..:/
-
Forum: Multimedia
Delphi
by kindliche kaiserin,
19. Feb 2010
Sorry, aber ich habe jetzt deine Frage nicht ganz verstanden..
Und welche Abfragen meinst du jetzt speziell?
-
Forum: Multimedia
Delphi
by kindliche kaiserin,
18. Feb 2010
@Klaus: Hmm...wäre möglich, aber jetzt habe ich mich schon so lange mit dem TImage rumgeschlagen, jetzt kann ich das auch damit zu Ende bringen..^^ Mir kam gerade folgende Idee:
procedure TForm1.img_menschMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var x_hilf, xs, y_hilf, ys, h, i: integer;
begin
if (hoehe=0) and (laenge=0) then
...
-
Forum: Multimedia
Delphi
by kindliche kaiserin,
18. Feb 2010
Mit diesem hier drei. Tut mir leid. Stütze mich aber nur noch auf dieses hier..
-
Forum: Multimedia
Delphi
by kindliche kaiserin,
18. Feb 2010
So nun stehe ich vor einem weiteren Problem:
procedure TForm1.img_menschMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var x_hilf, xs, y_hilf, ys: integer;
begin
if (hoehe=0) and (laenge=0) then
showmessage('Bitte wählen Sie ein Schiff aus.')
else
begin
-
Forum: Multimedia
Delphi
by kindliche kaiserin,
17. Feb 2010
Ja, ich nutze Delphi 7 unter Win Vista..^^
Danke, für die beiden Hilfen..:)
-
Forum: Multimedia
Delphi
by kindliche kaiserin,
17. Feb 2010
Nein, muss nicht unbedingt OnClick sein. Kannte nur die Ereignisse 'OnMouseUp/Down' noch nicht.
Die interne Delphi-Hilfe würde ich ja gerne zur Hilfe ziehen, aber die kann bei mir nicht geöffnet werden...warum auch immer..?
Ich habe jetzt das Ereignis 'OnMouseDown' genommen. Da wird mir ind ie Prozedur ja automatisch die Variablen Shift: TShiftState; X, Y: Integer); rein geschrieben? Wie...
-
Forum: Multimedia
Delphi
by kindliche kaiserin,
17. Feb 2010
Hallo,
ich habe folgendes Problem. Wie der Thread-Titel schon sagt, möchte ich gerne das Spiel Schiffe versenken programmieren. Nur komme ich jetzt nicht weiter.
Ich habe auf meinem Formular zwei Image-Felder...einmal das Spielfeld des Computergegners und einmal eigene Feld. Außerdem noch fünf unterschiedlich große Imagefelder, die die Schiffe darstellen. Wenn man nun auf ein Schiff klickt,...