Sternenhimmel programmieren

[bobo11bobo]

Guten Abend.
Zurzeit arbeite ich an einem Programm zur zufälligen Generierung von Sternen in einem Sternenhimmel. Das Problem, welches ich zurzeit habe besteht darin, dass ich zwar eine Prozedur dafür schreiben kann, jedoch jeweils immer nur ein Stern erzeugt wird (warum verstehe ich). Meine Idee war jetzt, ein paar Prozeduren zu erstellen (zwar viel Code, aber mit copy&paste geht das) und diese daraufhin einfach in einen Thread einzubinden, um dann viele Sterne gleichzeitig erstellen zu lassen. Aber irgendwie schaffe ich das nicht so ganz, da Delphi in dem Thread-Programmteil die Prozeduren nicht mehr anerkennt.

Kann mir jemand sagen, wie ich meinen Thread schreiben muss, um sagen wir mal Procedure1 und Procedure2 gleichzeitig auszuführen ?
(Ich hab mal den Quelltext mithochgeladen)

[LTE5]

Nur eine Sache zum Thread-Teil: was soll der Thread denn abarbeiten wenn erstens keine Instanz erstellt wird und zweitens die Execute-Methode leer ist?

Lass das mit dem Thread lieber bleiben und nutze

Delphi-Quellcode:

TTask.Run(
 procedure
  begin
   TThread.Queue(nil,
    procedure
     begin
      blinki;
     end);
  end);

Wieso rufst du blinki denn nicht einfach 10x hintereinander auf?

[bobo11bobo]

Naja, wenn man die Proceduren 10x hintereinander ablaufen lassen würde, dann würde trotzdem immer nur ein Stern erzeugt werden, da ja sich die Prozeduren immer nur auf einen Stern beschränken. Aber ich versuchs mal mit nem Task.

[LTE5]

Versuch mal in eine PaintBox zu zeichnen oder ein Bitmap statt direkt auf das Canvas des Formulars.

[Namenloser]

Wenn du das ganze machen willst, um den Umgang mit Threads zu üben, kannst du das machen. Allerdings musst du bedenken, dass die VCL nicht threadsafe ist und du alle Zugriffe auf das Canvas mit Synchronize absichern musst.

Andernfalls würde ich dir vorschlagen, die Sterne mitsamt ihrem jeweiligen "Enstehungszeitpunkt" und "Todeszeitpunkt" in einer Liste oder einem Array zu speichern und einen TTimer mit kleinem Intervall (z.B. 20ms) zu verwenden. Z.B. so (ungetestet, nur zur Illustration):

Delphi-Quellcode:

TStern = record
  a,b: integer;
  start: integer;
  ende: integer;
end;

var
  Sterne: array[0..49] of TStern;

procedure SternZeichnen(const Stern: TStern; const Farbe: TColor);
begin
  Form1.Canvas.Pen.Color:=Farbe;
  Form1.Canvas.MoveTo(Stern.a,Stern.b);
  Form1.Canvas.LineTo((Stern.a+5),Stern.b);
  Form1.Canvas.MoveTo(Stern.a,Stern.b);
  Form1.Canvas.LineTo(Stern.a,Stern.b-5);
  Form1.Canvas.MoveTo(Stern.a,Stern.b);
  Form1.Canvas.LineTo(Stern.a,Stern.b+5);
  Form1.Canvas.MoveTo(Stern.a,Stern.b);
  Form1.Canvas.LineTo(Stern.a-5,Stern.b);
end;

procedure SternNeu(var Stern: TStern);
var
  Zeit: integer;
  y: integer;
begin
  Zeit := GetTickCount;
  y := random(400) + 100;
  Stern.start := Zeit + y;
  Stern.ende := Stern.start + y; 
  Stern.a := random(800);
  Stern.b := random(800) - 10;
end;

procedure TForm1.Timer1Timer;
var
  i: integer;
  Zeit: integer;
begin
  Zeit := GetTickCount;
  for i := low(Sterne) to high(Sterne) do
  begin
    if Sterne[i].ende < Zeit then
    begin
      SternZeichnen(Sterne[i], clBlack);
      SternNeu(Sterne[i]);
    end;
    if Sterne[i].start < Zeit then
      SternZeichnen(Sterne[i], clYellow);
  end;
end;

[bobo11bobo]

Erstmal danke für die Lösungen. Ich probier sie mal morgen aus (sofern ich das irgendwie hinkriege). Ich glaub, heute wird das nichts mehr

[himitsu]

Als Aller Erstes:
Man ruft Randomize nicht mehrmals auf und schon garnicht mehrmals direkt hintereinander.


Direkt auf den Canvas der Form, einer PaintBox oder Dergleichen kann/darf man direkt zeichnen, aber niemals ohne im OnPaint den Bildinhalt "gleich" neuzuzeichnen, denn sonst ist das bisher Gezeichnete weg, wenn dieses Control durch irgendwas sich neu zeichnen muß.


TSterne ist natürlich bissher noch nutzlos, aber ich hoffe du weißt, dass du dort auch synchronisieren mußt, falls du daraus auf die VCL (Form) zugreifen willst.

Und da dein WHILE kein Ende kennt, kommt der Button-Click auch niemals zurück und das Programm reagiert auf nichts mehr, womit Windows die Oberfläche auch schnell einfrieren wird, mit dem bekannten "Programm reagiert nicht".