Analoguhr

[MrFish]

Ich habe ein Programm für eine Analoguhr geschrieben.
Es ist nur eine Übung gewesen, da ich noch Anfänger bin und mir Delpi selber beibringe.
Ich würde mich freuen wenn ihr mal drüberschaut und sagt was ihr davon haltet.

Delphi-Quellcode:

 unit Uhr;

interface

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

type
  TAnaloguhr = class(TForm)
    Edit1: TEdit;
    Uhr: TTimer;
    procedure UhrTimer(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Analoguhr: TAnaloguhr;
  SecWinkel : integer;
  MinWinkel : Integer;
  StdWinkel : Integer;
  SecWinkelAlt : integer;
  MinWinkelAlt : integer;
  StdWinkelAlt : integer;
  Zeit : String;
  XPos : integer;
  YPos : Integer;
  Std : Integer;
  Min : Integer;
  Sec : Integer;


implementation

{$R *.dfm}

procedure TAnaloguhr.UhrTimer(Sender: TObject);


begin
{---------------Systemzeit auslesen und zuweisen -------------------}

Zeit := TimeToStr(Time);
Edit1.Text := Zeit;
Std := StrToInt(Copy(Zeit,1,2));
Min := StrToInt(Copy(Zeit,4,2));
Sec := StrToInt(Copy(Zeit,7,2));

{-------------Zeigerwinkel berechnen--------------------------------}

SecWinkel := (( 6 * Sec)+90);
MinWinkel := (( 6 * Min)+90);
StdWinkel := ((30 * Std)+90);

{------------Zeiger Löschen-----------------------------------------}
{-------------Sekunde-----------------------------------------------}

XPos := Trunc (cos(SecWinkelAlt * Pi /180) *(-100));
YPos := Trunc (sin(SecWinkelAlt * Pi /180) *(-100));

Canvas.MoveTo(150,150);
Canvas.Pen.Color := clBtnFace;
Canvas.Pen.Width := 1;
Canvas.LineTo((XPos + 150),(YPos + 150));

{--------------Minuten---------------------------------------------}

XPos := Trunc (cos(MinWinkelAlt * Pi /180) *(-100));
YPos := Trunc (sin(MinWinkelAlt * Pi /180) *(-100));

Canvas.MoveTo(150,150);
Canvas.Pen.Color := clBtnFace;
Canvas.Pen.Width := 3;
Canvas.LineTo((XPos + 150),(YPos + 150));

{--------------Stunde----------------------------------------------}

XPos := Trunc (cos(StdWinkelAlt * Pi /180) *(-80));
YPos := Trunc (sin(StdWinkelAlt * Pi /180) *(-80));

Canvas.MoveTo(150,150);
Canvas.Pen.Color := clBtnFace;
Canvas.Pen.Width := 3;
Canvas.LineTo((XPos + 150),(YPos + 150));


{-------------Zeiger Zeichnen---------------------------------------}
{-------------Sekunde-----------------------------------------------}

XPos := Trunc (cos(SecWinkel * Pi /180) *(-100));
YPos := Trunc (sin(SecWinkel * Pi /180) *(-100));

Canvas.MoveTo(150,150);
Canvas.Pen.Color := 0;
Canvas.Pen.Width := 1;
Canvas.LineTo((XPos + 150),(YPos + 150));

{--------------Minuten---------------------------------------------}

XPos := Trunc (cos(MinWinkel * Pi /180) *(-100));
YPos := Trunc (sin(MinWinkel * Pi /180) *(-100));

Canvas.MoveTo(150,150);
Canvas.Pen.Color := 0;
Canvas.Pen.Width := 3;
Canvas.LineTo((XPos + 150),(YPos + 150));

{--------------Stunde----------------------------------------------}

XPos := Trunc (cos(StdWinkel * Pi /180) *(-80));
YPos := Trunc (sin(StdWinkel * Pi /180) *(-80));

Canvas.MoveTo(150,150);
Canvas.Pen.Color := 0;
Canvas.Pen.Width := 3;
Canvas.LineTo((XPos + 150),(YPos + 150));

{------------Alte Winkel Zwischenspeichern-------------------------}

SecWinkelAlt := SecWinkel;
MinWinkelAlt := MinWinkel;
StdWinkelAlt := StdWinkel;


end;

end.

Dank
Gruß MrFish

[Nicodius]

haha du genie du

aber wenn ich mir mein erstes programm anschaue dann denke ich mir was hab ich am anfang falsch gemacht

für nen Anfänger

[glkgereon]

ich hab nicht gesagt, das das prog fürn anfänger leicht ist (ich wüsste nicht, ob ichs könnte...)

[Nicodius]

hat ja auch niemand behauptet das du das gesagt hast

[glkgereon]

stimmt auch wieder

wenn ich mir anschaue, was ich mir am anfang da zusammengesch**** hab....
ich versteh die quelltexte heute selber nicht mehr, statt se mir durzulesen, schreib ich se neu

[MrFish]

Ich habe den schönen Code von Luckie verunstaltet. Jetzt hat die Uhr ein Ziffernblatt.

@Luckie
Ich habe da noch zwei Fragen:
1 Du nutzt die Procedure CalcAngel. Ich dachte bisher das jede Procedure deklariert werden muss.
Ich finde aber keine Deklaration dafür. Was stimmt hier nicht.
2 Die unterstrichene Codeteile verstehe ich nicht.
Ich habe zwar erkannt des das die Zeigerlänge ist aber mehr auch nicht. Kannst du mir daq eine genauere Erklärun geben.

Delphi-Quellcode:

 
  // Zeiger löschen
  ClearHands(Start, OldSecs, [u]Paintbox1.Height div 2 div 2 - 40[/u], 1);
  // Zeiger zeichnen
  PaintHands(Start, secs, [u]Paintbox1.Height div 2 div 2 - 40[/u], 1);
  // alten Winkel merken
  OldSecs := secs;

  ClearHands(Start, OldMins, [u]Paintbox1.Height div 2 div 3 - 45[/u], 2);
  PaintHands(Start, mins, [u]Paintbox1.Height div 2 div 3 - 45[/u], 2);
  OldMins := mins;

  ClearHands(Start, OldHrs, [u]Paintbox1.Height div 2 div 6 - 55[/u], 4);
  PaintHands(Start, hrs, [u]Paintbox1.Height div 2 div 6 - 55[/u], 4);
  OldHrs := hrs;

[edit=Luckie]Delphi-Tag geschlossen. Mfg, Luckie[/edit]

[XeRo]

Wenn ich die Form vergrößere werden die zeiger größer aber nicht der kreis um die zeiger...

[glkgereon]

sieht doch schon richtig gut aus

was ncoh fehlt, sind zahlen um den kreis.....

[grayfox]

hallo mrfish!

werd nicht gleich nervös! luckie wird schon noch vorbeischauen!
in der zwischenzeit beantworte ich mal deine frage zur procedure 'CalcAngels'

wie du siehst, kann man auch 'nichtdefinierte' proceduren verwenden, und zwar dann, wenn sie
nur in jener unit verwendet werden, in der sie erstellt sind. es spricht ja nichts dagegen, oder?
nachdem CalcAngels nur eine berechnung durchführt und nicht in direktem zusammenhang mit Form1 steht, ist es auch nicht notwendig, sie in die objektdefinition aufzunehmen.
CalcAngels ist eine procedure, die du zb in einer eigenen unit auslagern und später in anderen programmen einbinden könntest. dann ist sie allerdings im interface-abschnitt der unit anzuführen, sonst wird sie von den anderen programmen nicht gefunden (sie wird ja nun ausserhalb der unit verwendet, in der sie zu finden ist. klar?)

ich hoffe, dass ich mich nicht zu kompliziert ausgedrückt habe *gg*

mfg, stefan

[Luckie]

Die Prozedur muss nur zum Zeitpunkt der Benutzung bekannt sein. Deklariere ich A vor B kann ich A in B benutzen aber nicht B in A.

[grayfox]

jup! so kann man es auch sagen

mfg, stefan