Delphi Schiebregler (Sierpinski Dreieck)

[Frankfurtoder]

Schau dir Tutorials an:

http://www.delphi-treff.de/tutorials/

Delphi-Quellcode:

 
repeat
  inc(n);
  zufall:=random(6);
  Case zufall of
    0: begin
         x:=(xstart+a1) div 2;
         y:=(ystart+b1) div 2;
         canvas.Pixels[x,y]:=clred;
         xstart:=x;
         ystart:= y ;
       end;
    1: begin
         x:=(xstart+a2) div 2;
         y:=(ystart+b2) div 2 ;
         canvas.Pixels[x,y]:=clgreen;
         xstart:=x;
         ystart:= y;
       end;
    2: begin
         x:=(xstart+a3) div 2;
         y:=(ystart+b3) div 2;
         canvas.Pixels[x,y]:=clblue;
         xstart:=x; 
         ystart:=y;
       end;
    3: begin
         x:=(xstart+a4) div 2;
         y:=(ystart+b4) div 2;
         canvas.Pixels[x,y]:=clyellow;
         xstart:=x;
         ystart:=y;
       end;
    4: begin
         x:=(xstart+a5) div 2;
         y:=(ystart+b5) div 2;
         canvas.Pixels[x,y]:=clpurple;
         xstart:=x;
         ystart:=y;
       end;
    5: begin
         x:=(xstart+a6) div 2;
         y:=(ystart+b6) div 2;
         canvas.Pixels[x,y]:=clsilver;
         xstart:=x; 
         ystart:=y;
       end;
  end;
until n=anzahl;
end; // end of with  <-- geiler Kommentar

[DevilsCamp]

Sehe ich das richtig?
Ihr sollt bereits etwas grafisch darstellen, habt aber noch nicht alle Grundlagen von Pascal gelernt? Sehr komisch...


Aber andererseits scheint mir dein Quell-Code auf das Chaos-Spiel (z.B. hier: http://www.jgiesen.de/ChaosSpiel/Chaos.html) hinzuführen, oder?

[nahpets]

Hallo,

zieh Dir von der Seite Win32 in Delphi die Komponente TrackBar auf Dein Formular.
Die hat die Attribute Min und Max, in denen Du für Deinen Zufallsgenerator einen Mindest- und einen Höchstwert angeben kannst. In Deinem Quelltext änderst Du dann die Zeile

Delphi-Quellcode:

inc(n); zufall:=random(6);

in

Delphi-Quellcode:

inc(n); zufall:=random(TrackBar1.Position);

und schon hast Du das gewünschte Ergebnis.
Position ist der per Trackbar eingestellte Wert, irgendwo von Min bis Max. Wenn Min also 1 ist und Max 10, so kannst Du die Werte 1 bis 10 auswählen.

[DeddyH]

Wäre RandomRange da nicht geeigneter? Wenn Min > 0 ist, kann bei Random(TrackBar1.Position) ja auch ein Wert < TrackBar.Min herauskommen.

[nahpets]

Zitat:

Zitat von DeddyH

Wäre RandomRange da nicht geeigneter? Wenn Min > 0 ist, kann bei Random(TrackBar1.Position) ja auch ein Wert < TrackBar.Min herauskommen.

Zitat:

Zitat von Delphihilfe

In Delphi gibt Random eine Zufallszahl im Bereich 0 <= X < Range zurück.

Zitat:

Zitat von Delphihilfe

RandomRange gibt einen zufälligen Integer-Wert im Bereich von AFrom bis ATo zurück (inklusive). RandomRange funktioniert auch mit negativen Bereichen (wenn AFrom größer als ATo ist).

Jo, da könntest Du recht haben.