Projekt für die Schule

[himitsu]

Ja, sowas wurde mal vor Jahren "erschaffen", um es Schülern noch einfacher zu machen ... ist quasi ein Framwork, welches viele Delphifunktionen kapselt und hinter deutschen Bezeichungen versteckt.
Leider ist es manchmal nicht unbedingt leicht verständlich, was sich hinter soeiner Funktion wirklich versteckt, wenn man die entsprechende Lib nicht kennt.
Und im Gegenzug können wir schlechter Tipps geben, da wir ja nicht wissen wie die von uns empfohlene Funktion oder Komponente denn darin eventuell heißen könnte.

Hide oder Visible:=False > Verschwinden
Show oder Visible:=True > Erscheinen
Left und Top > Bewegen

Nja, dann mal sehn was Julie uns am Montag presentiert.

[fkerber]

Hi,

Zitat von hans ditter:

wie jetzt? das ist sogar eine eigene Bibliothek? Unglaublich...

Jepp, so ist es.
Nennt sich "Stifte und Mäuse (SuM)" und scheint es für zig Programmierspracehn (u.a. eben auch Delphi) zu geben.


LG, Frederic

[Luckie]

Ich hoffe, der Entwickler dieser Bibliothek wurde danach gezwungen ein Office Paket damit zu programmieren.

[Thom]

Zitat:

Stifte und Mäuse wurde als Konzept zur Einführung in die objektorientierte Programmierung entwickelt. Strukturelle Restriktionen und die Art des Einsatzes lassen erhebliche Zweifel aufkommen, ob es noch für einen zeitgemäßen Einführungsunterricht brauchbar ist.

Da.

[Julie92]

Den Quelltext gibts weiter unten.

[-187-]

Verwende bitte die Delphi Tags um Code zu posten. Diesen Code möchte so sicherlich keiner lesen^

[Julie92]

Wir sollen den Kreis erstmal setzen, und dann mit der Hintergrundfarbe ausfüllen damit nur noch die Linie zu sehen ist. Wir sollen den Kreis "zappeln" lassen, indem wir immer wieder den Mittelpunkt um ein kleines Stückchen verschieben.
Vielen Dank schonmal für die ganze Hilfe.

[Julie92]

Wie funktioniert das mit den Delphi Tags? Tut mir Leid, bin hier neu..

[-187-]

Editier den Beitrag und markier den Code. Dann klickst du auf den Delphi Helm...

In etwa so:

Code:

[DELPHI]HIER DEIN CODE[/DELPHI]

[Julie92]

Delphi-Quellcode:

unit Rund2;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;

type
  TKreis = class
  private
    x, y, Durchm: Integer;
  public
    constructor Create (xx,yy,dd: Integer);
    procedure Erscheinen;
    procedure Bewegen;
    procedure Verschwinden;
  end;

  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  end;

var
  Form1: TForm1;
  Kreis: TKreis;

implementation

{$R *.DFM}

constructor TKreis.Create (xx,yy,dd: Integer);
begin
  x := xx; y := yy; Durchm := dd;
end;

procedure TKreis.Erscheinen;
begin
  Form1.Canvas.Ellipse (x, y, x+Durchm, y+Durchm);
end;

procedure TKreis.Bewegen;
var i: Integer; Quelle, Ziel: TRect;
begin
  for i := x-5 to Form1.ClientWidth-Durchm-x-5 do
  begin
    //Kopieren einer Figur an einen anderen Platz
    Quelle := Rect(i,   y-5, i+Durchm+5, y+Durchm+5);
    Ziel   := Rect(i+1, y-5, i+Durchm+6, y+Durchm+5);
    Form1.Canvas.CopyRect(Ziel, Form1.Canvas, Quelle);
    sleep (10);  //Pause
  end;
end;

procedure TKreis.Verschwinden;
begin
  Form1.Refresh; //Form1 erneuern
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Kreis := TKreis.Create (30,30,180);
  Canvas.Brush.Color := clWhite;  // ansonsten Grau
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Kreis.Erscheinen;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  Kreis.Bewegen;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  Kreis.Verschwinden;
end;

end.