Uhr Programmieren

[Perlsau]

Zitat von GroZ:

Ich soll eine Uhr programmieren. Ich habe bereits einen Kreis und davon den Mittelpunkt. Zeiger habe ich auch schon einen. Wie muss ich nun fortfahren? Bin mit Delphi nicht so gut.

Für einen Anfänger mag das vielleicht schon etwas zu anspruchsvoll sein, denn man muß sich, will man die Aufgabe lösen, ein wenig mit den Canvas-Funktionen auskennen. Zum Beispiel ist es wichtig, den richtigen Zeichen-Modus zu wählen, damit man den jeweiligen Zeiger ohne Verlust des Hintergrundes löschen und neu zeichnen kann. Dann ist auch noch wichtig, wie man die jeweiligen Positionen berechnet, zu denen gezeichnet werden soll. Ausgangspunkt ist ja immer das Zentrum des Kreises. Nun benötigt man noch die X-Y-Koordinate des Zielpunktes auf der Kreisfläche für den Befehl LineTo. Um diesen nicht ständig neu berechnen zu müssen, ist es sinnvoll, die Berechnung beim Programmstart nur einmal durchzuführen und die Koordinaten dann in einem Array[0..59,1..2] of Integer zu speichern. Die Berechnung selbst hast du hoffentlich im Unterricht gelernt, ich müßte sie auch erst nachschlagen, weil mir das nicht geläufig ist.

[Popov]

@GroZ

Uhr mit Zeigern programmieren hat etwas mit Sinus, Cosinus und Pi zu tun.

Gegeben sind x1 und y1 als Position für Mitte. Indirekt ist noch der Winkel gegeben. Ein voller Kreis hat 360°, ein halber Tag 12 Stunden. Den Winkel für eine Stunde kann man somit mit einem Dreisatz berechnen, genauso wie den für eine Minute und eine Sekunde. Dann ist noch der Radius gegeben (Länge des Zeigers):

Delphi-Quellcode:

var
  al: Integer = 0;

function LineAnglePoint(Canvas: TCanvas; p: TPoint; r: Integer; Angle: Double): TPoint;
begin
  Result.X := p.X + Round(Cos(Angle * Pi / 180) * r);
  Result.Y := p.Y - Round(Sin(Angle * Pi / 180) * r);
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var
  p1, p2: TPoint;
  r,
  x2, y2: Integer;
begin
  p1 := Point(100, 100);
  r := 100;
  Canvas.FillRect(Canvas.ClipRect);
  p2 := LineAnglePoint(Canvas, p1, r, al);
  Canvas.Polyline([p1, p2]);
  Inc(al);
  if al >= 360 then al := 0;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  DoubleBuffered := True;
  Timer1.Interval := 1;
end;

[alleinherrscher]

@Popov Ich dachte wir lösen hier keine Schulaufgaben, sondern geben Hilfestellungen

[baumina]

Na wenigstens haben dann alle schlauen Schüler, die hier lesen, die selbe Lösung.

[Uwe Raabe]

Zitat von baumina:

Na wenigstens haben dann alle schlauen Schüler, die hier lesen, die selbe Lösung.

Nicht nur die schlauen...

[Luckie]

Dann zeichnet man das ganze noch auf ein Bitmap im Speicher und kopiert es alle Sekunden auf den Canvas der Form. Dann wäre es perfekt.

[Daniel]

Ich bin hier mal mit den Feudel durch.
Einige Beiträge könnte es erwischt haben.

[DeddyH]

Mutter, wir danken Dir

[Perlsau]

Dem kann ich nur beipflichten, das ist voll in Ordnung so!