Wiedermal Analoge Uhr :)

[ruskij]

Hallo, hab mich hier im Forum umgeschaut und relativ viele lösungen gefunden um ein Analoge Uhr auf ein Canvas zu mahlen. Nun zu meinem Problem! Ich hab hier ein einfach Programm welches ein RAD zeichnet mit einer angegebenen Zahl an Speichen einer angegebenen Grösse und GEschwindigkeit!

Code:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, StdCtrls, Spin, ExtCtrls, Gauges;

type
  TRad=class(TObject)
   xm,ym,w,r,s,v:integer; //W: Winkel, r: Radius, s: Speichen, v: Speed
   constructor create(xmi,ymi,winkel,radius,speichen,speed:integer);
   destructor destroy; override;
   procedure drehe;
   procedure male(modus:TPenmode); virtual;
  end;


  TForm1 = class(TForm)
    Image1: TImage;
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    SpinEdit1: TSpinEdit;
    TrackBar1: TTrackBar;
    TrackBar2: TTrackBar;
    Timer1: TTimer;
    Gauge1: TGauge;
    TrackBar3: TTrackBar;
    procedure ImageMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure TrackBar1Change(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;
  Rad:TRad;
  Liste:TList;
  v1:integer;

implementation

{$R *.dfm}

constructor TRad.create(xmi,ymi,winkel,radius,speichen,speed:integer);
begin
 inherited create;
 xm:=xmi;
 ym:=ymi;
 w:=winkel;
 r:=radius;
 s:=speichen;
 v:=speed;
 self.male(pmcopy);
 Liste.Add(self);
end;
destructor TRad.destroy;
begin
  inherited destroy;
end;

procedure Trad.male(modus:TPenmode);
var an, dalpha:integer;
begin
 with form1.Image1.Canvas do
 begin
  pen.mode:=modus;
  pen.color:=clblack;
  pen.width:=1;
  ellipse(xm-r,ym-r,xm+r,ym+r);
  an:=0;
  dalpha:=360 div s;
  while an<360 do
  begin
   moveto(xm,ym);
   lineto(xm+round(r*cos((w+an)*3.14/180)),ym-round(r*sin((w+an)*3.14/180))); //Winkelberechnung
   an:=an+dalpha;
  end;
 end;
end;

procedure Trad.drehe;
begin
 w:=w+v1+v;
 if w>360 then w:=w-360;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Liste:=Tlist.Create;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var i:integer;
begin
 for i:=0 to liste.Count-1 do
 begin
  Trad(liste[i]).male(pmnotxor);
  Trad(liste[i]).drehe;
  Trad(liste[i]).male(pmcopy);
 end;
end;

procedure TForm1.TrackBar1Change(Sender: TObject);
begin
 v1:=form1.TrackBar3.Position
end;

procedure TForm1.ImageMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
 Trad.create(x,y,20,form1.TrackBar2.Position,strtoint(form1.SpinEdit1.Text),form1.TrackBar1.Position);
 form1.Timer1.Interval:=1;
 form1.Timer1.Enabled:=true;
end;

end.

So nun will ich anhand dieses Beispiels eine Analoge Uhr hinbekommen! Das soll so aussehen das ich ein kleines Canvas habe daneben 2 Buttons(Start, Ende) und wenn ich mit der Maus aufs Canvas drücke soll da eine Analoge Uhr erscheinen und nach dem Klicken auf Start anfangen zu laufen! erstmal nicht genau nach der Uhrzeit sondern einfach nut dir Funktion soll stimmen!! also bei einer Umdrehung des Sekundenzeigers soll der Minutenzeiger auch ein Stück weiter!

So weit bin ich grad, brauche auf jeden fall hilfe!!!! Am besten mit Quellcode da ich noch nicht der Profi in Delphi bin!! Danke:

ich hab eine Klasse gemacht: TUhr=class(Tobject)
dann Variaeln: sek, min, hour, winkel, radius, x, y
die procedures: constructor create, destructor destroy, male, drehe

so das wars auch schon, brache auf jeden fall um diese prucedures auch mit leben zu füllen :)

[MathiasSimmack]

Zitat:

Zitat von ruskij

Hallo, hab mich hier im Forum umgeschaut und relativ viele lösungen gefunden um ein Analoge Uhr auf ein Canvas zu mahlen. Nun zu meinem Problem! Ich hab hier ein einfach Programm welches ein RAD zeichnet mit einer angegebenen Zahl an Speichen einer angegebenen Grösse und GEschwindigkeit!

:lol: Ist das ein Serienbrief? Sei nicht sauer, aber wenn du doch so viele Lösungen hier und im DF gefunden haben willst, dann müsste doch auch was dabei gewesen sein, dass dein Problem löst. :stupid:

[Matze]

Zitat:

Zitat von MathiasSimmack

:lol: Ist das ein Serienbrief? [...]

:mrgreen:


Ich denke aber auch, dass man über Analoge Uhr, Analoguhr vieles findet, was dir auch hilft. :)
Nachtrag: Ich habe gerade geguckt, im DF steht auch wirklich viel darüber.

[MathiasSimmack]

Matze, wir wollen das nun aber nicht ins Lächerliche ziehen und dadurch vllt. den Ärger von ruskij provozieren. Das artet u.U. nur aus. Es geht mir nur um folgendes: Ich sehe leider nicht den Zusammenhang zwischen den angeblich gefundenen Lösungen und dem präsentierten Quellcode.

Ich habe mich mittlerweile mit Crosspostings abgefunden. Mir ist nur die Arbeit zu schade, sie zu beantworten, weil ich nie weiß, ob das überhaupt noch erforderlich ist, oder ob vllt. schon jemand in einem anderen Forum eine Lösung präsentiert hat. Aber wenn man schon in mehreren Foren postet, dann doch bitte nicht mit dem absolut gleichen Text.

So, aber nun genug ot.

[Khabarakh]

Den obigen Quellcode würde ich nicht als Beispiel verwenden :wink: .

[TeronG]

sorry OT aber ... :
so Antworten wie "Den obigen Quellcode würde ich nicht als Beispiel verwenden" oder "Warum machst du das nicht Digital" helfen glaub ich echt nicht weiter ... :gruebel:
Schreib(t) doch lieber dazu warum den NICHT oder WELCHEN schon ...

[Khabarakh]

Ich war mir nicht sicher, ob der Code von ihm ist, deshalb wollte ich lieber nichts sagen :mrgreen: .
Jedenfalls ist das noch kein wirkliches OOP-Konzept und mit pmXor stößt man schnell an dessen Grenzen, überhaupt ist es doch viel umständlicher als ein TBitmap.

Und ob man den Code auf eine Uhr übertragen kann...

Eigentlich ist das Problem doch einfach: Nur die Sekunden/Minuten in Winkel umrechnen:

Delphi-Quellcode:

// Sekundenzeiger
// Bogenmaß und y-Achse nach unten
alpha := -Pi / 2 + sek / 60 * 2 * Pi;
// Minutenzeiger
alpha := -Pi / 2 + min / 60 * 2 * Pi + sek / 60 * 2 * Pi / 60;