Java, Delphi, Pascal | Forum profile

Danke schalker und eolomea....kann geschlossen werden..

Das Hauptproblem ist, dass man beim Klicken die Maus nicht bewegen darf, was man aber auf Grund des Ballflugs gerne macht Verschieb den ganzen Code nach mousePressed und es wird um einiges besser funktionieren. getX, getY gibt es auf vielen grafischen Komponenten, aber nur in der MouesClicked-Methode hast Du ein MouseEvent zur Hand. Nur dieses enthält die aktuelle Position des Mauszeigers zum Zeitpunkt des Klicks, Methoden auf Komponenten...

hmpf das spiel funktioniert jetzt naja leider aber nicht so wie ich will ^^ ( wie so oft :P ) es scheint mir fast so als das mein PC zu langsamm ist um die userhit methode auszuführen es hengt hinterher, denn manchmal gehts manchmal aber auch wieder nicht was kann ich denn machen um mein programm allgemein schneller/effizienter zu machen ? den es ist ja schon ein ziemlicher aufwand für den rechner das ganze immer neu zu zeichnen mit jedem...

Variable "Letztes" übrigens auch! Nichts ugewiesen, also 0, also wird der Sortieralg. nicht durchlaufen. Das ist identisch mit "10" Das sieht sowieso merkwürdig aus. Normalerweise: Code: CONSt iMax=10; TYPE <typ>: Irgendwas; tDatabase= ARRAY [1..iMAx] OF <typ>; PROCEDURE SortList(VAR fl: tListe;iFrom, iTo: Integer); PROCEDURE Vertausche(i, j: Integer); VAR...

Ihr habt also Autos programmiert... Was kann man denn mit diesen "Autos" machen? Und wie funktioniert das? Ein Codebeispiel wäre vielleicht nicht verkehrt. Ich jedenfalls kann mir bisher nicht so recht vorstellen, was ihr genau gemacht habt.

Danke, das klappt super Eolomea. Nun ist nur noch ein Fehler da: "Fatal Syntax error, ; expected but . found". Das bezieht sich auf das schluss "End.". Wenn ich daraus ein "End;" mache, kommt "Fatal: Unexpected end of file". Also müsste das mit dem Punkt (End.) ja eigentlich richtig sein, oder?

Ändere das Zitat: PROCEDURE sortieren(Var database:tdatabase); VAR index,i,kleinstes : INTEGER; temp:integer; BEGIN kleinstes:=1 FOR index:= 1 TO letztes -1 DO FOR i:= 1 TO letztes DO BEGIN IF database[index]<database[kleinstes] THEN kleinstes:=i; END; BEGIN temp:= database[index]; database[index]:= database[kleinstes]; database[kleinstes]:= temp; END; END; mal in Code: PROCEDURE sortieren(Var database:tdatabase); VAR...

Guten Morgen, ähm nein, wie du es vorgeschlagen hast, werden die TetraNumber-Werte z.b. bei der Eingabe von 4 viermal aufaddiert und egeben somit 85 Mein Problem liegt darin, dass der TertaNumber ja n-Werte zugewiesen werden und nur der erste ausgegeben wird, dabei benötige ich den letzten... ich hoffe ich konnte es verständlich erklären Edit (8:25) ich glaube, ich habe das Problem gelöst: Ich glaube, dank deiner Erklärung, habe ich es...

wenn man if benutzt muss man dan auch automatisch else benutzen?

Weil wir ein Autorennen programmieren und jeder ein Auto in einer eigenen class programmiert hat. Und jetzt sollen die Autos natürlich gleichzietig fahren.