Uhr raster malen/zeichnen!

Gast Erhaltene Danke: 1

Ok,

da ich von sowas überhaupt gar keinen plan hab hier meine Frage.

ihr könnt euch sicher alle ne Uhr mit nem Sekundenzeiger vorstellen oder?
Wenn nein bitte hier her... Link

Ok, weiter..., der Sekundenzeiger bewegt sich. Dabei passiert er ne art hilfslinien, für 1 uhr, 2 uhr, 3 uhr, 4 uhr 5 uhr..u.s.w.

Jetzt möchte ich, das der zeiger weg ist, und mir nur die hilfslinien nach und nach angezeigt werden, also einmal rum (360°), das muss auch nicht zeitgesteuert laufen.

Hoffe ihr habts verstanden

Gruß

ixtreme.de

derDoc · Beiträge: 623 Win Vista Prof D2007 Prof

Du meinst das hier oder?

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:

var
  Rect: TRect;
begin
  Rect.Left := 0;
  Rect.Top := 0;
  Rect.Right := Image1.Width; //160
  Rect.Bottom := Image1.Height; //160

  Image1.Canvas.MoveTo(80, 80);
  Image1.Canvas.Ellipse(Rect);

  Image1.Canvas.LineTo(Round(Sin(DegToRad(0))*80+80), Round(Cos(DegToRad(0))*80+80));
  Image1.Canvas.MoveTo(80, 80);
  Image1.Canvas.LineTo(Round(Sin(DegToRad(30))*80+80), Round(Cos(DegToRad(30))*80+80));
  Image1.Canvas.MoveTo(80, 80);
  Image1.Canvas.LineTo(Round(Sin(DegToRad(60))*80+80), Round(Cos(DegToRad(60))*80+80));
  Image1.Canvas.MoveTo(80, 80);
  Image1.Canvas.LineTo(Round(Sin(DegToRad(90))*80+80), Round(Cos(DegToRad(90))*80+80));
  Image1.Canvas.MoveTo(80, 80);
  Image1.Canvas.LineTo(Round(Sin(DegToRad(120))*80+80), Round(Cos(DegToRad(120))*80+80));
  Image1.Canvas.MoveTo(80, 80);
  Image1.Canvas.LineTo(Round(Sin(DegToRad(150))*80+80), Round(Cos(DegToRad(150))*80+80));
  Image1.Canvas.MoveTo(80, 80);
  Image1.Canvas.LineTo(Round(Sin(DegToRad(180))*80+80), Round(Cos(DegToRad(180))*80+80));
  Image1.Canvas.MoveTo(80, 80);
  Image1.Canvas.LineTo(Round(Sin(DegToRad(210))*80+80), Round(Cos(DegToRad(210))*80+80));
  Image1.Canvas.MoveTo(80, 80);
  Image1.Canvas.LineTo(Round(Sin(DegToRad(240))*80+80), Round(Cos(DegToRad(240))*80+80));
  Image1.Canvas.MoveTo(80, 80);
  Image1.Canvas.LineTo(Round(Sin(DegToRad(270))*80+80), Round(Cos(DegToRad(270))*80+80));
  Image1.Canvas.MoveTo(80, 80);
  Image1.Canvas.LineTo(Round(Sin(DegToRad(300))*80+80), Round(Cos(DegToRad(300))*80+80));
  Image1.Canvas.MoveTo(80, 80);
  Image1.Canvas.LineTo(Round(Sin(DegToRad(330))*80+80), Round(Cos(DegToRad(330))*80+80));
end;

_________________
MfG derDoc
There are only 10 types of people: those who understand binary and those who don't.

Gast Erhaltene Danke: 1

degtorad = undeclared intifier

Muss ich noch was einbinden?

gruß

ixtreme.de

P.S. ab welcher version läuft dieses beispiel?

Gast Erhaltene Danke: 1

ok, in der hilfe stand diese unit, jetzt gehts:

jclUnitConv

Leider nicht ganz das was ich gesucht hab, komme jetzt aberklar!

umpani · Beiträge: 389

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:

var
  Rect: TRect;
  i:integer;
procedure sekunde_zeichnen(sec:byte);
begin
  Image1.Canvas.MoveTo(Round(Sin(DegToRad(sec*6))*70+Image1.Width div 2), Round(Cos(DegToRad(sec*6))*70+Image1.height div 2));
  Image1.Canvas.LineTo(Round(Sin(DegToRad(sec*6))*80+Image1.Width div 2), Round(Cos(DegToRad(sec*6))*80+Image1.height div 2));
end;


begin
  Rect.Left := 0;
  Rect.Top := 0;
  Rect.Right := Image1.Width; //160
  Rect.Bottom := Image1.Height; //160

  Image1.Canvas.Ellipse(Rect);

  for i := 0 to 59 do
    begin
      sekunde_zeichnen(i);
      image1.Refresh;
      sleep(500);
    end;

end;

Ich habe mir mal die Mühe gemacht, das Beispiel von DerDoc auf deine Frage umzubasteln.

Jetzt hast du eine Uhr, in der sich nicht der Zeiger dreht, sondern die Sekundenangabe am äußeren Rand.

In diesem Beispiel jedoch gegen den Uhrzeigersinn und von unten. Aber das wird eine kleinigkeit sein, daß zu ändern.

Gruß Umpani

_________________
Lernen, ohne zu denken, ist eitel; denken, ohne zu lernen, ist gefährlich. Konfuzius

Gast Erhaltene Danke: 1

danke, habs mir mal angeschaut, ist genau das was ich brauche! Von wo es ausgeht ist nebensächlich...

thx

ixtreme.de

derDoc · Beiträge: 623 Win Vista Prof D2007 Prof

Also nur noch generell für alle:

DegToRad steht in der Unit Math (zumindest im 6er).

_________________
MfG derDoc
There are only 10 types of people: those who understand binary and those who don't.

Gast Erhaltene Danke: 1

ja aber ich greife da lieber auf jedi zurück :-)

*besser*

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme