eine Uhr

[Förstli]

Also ich bin einer von vielen, der Info in der Schule hat und mit Delphi proggt. Wir benutzen natürlich noch mSuM, hab das Fach auch erst seit 2 Monaten.

Jetzt sollen wir eine Uhr proggen, mit Zifferblatt, Sekunden, Minuten und Stundenzeiger.. Also Zifferblatt und Sekundenzeiger sind soweit kein Problem, nur komm ich mit den anderen beiden zeigern nicht klar. Alle Versuche sind gescheitert, kann mir da jemand helfen? Zumindest welche Schleife ich einbauen muss? Kenn mich damit überhaupt nicht aus ^^

Delphi-Quellcode:

program pUhr;



uses
  mSuM;

var zackBildschirm:Bildschirm;
    zackStift:Buntstift;
    zackMaus:Maus;
    lauf:ganzezahl;

    begin

    //Objekte erzeugen
    zackBildschirm:=Bildschirm.init;
    zackStift:=Buntstift.init;
    zackMaus:=Maus.init;

    //Objekte benutzen

    //Kreis
    zackStift.bewegeBis(zackBildschirm.breite DIV 2,zackBildschirm.hoehe DIV 2);
    zackStift.zeichneKreis(zackBildschirm.breite DIV 4);

    //5min Striche
    for lauf:=1 to 12 do
    begin
    zackStift.setzeLinienBreite(2);
    zackStift.bewegeUm((zackBildschirm.breite DIV 4)-30);
    zackStift.runter;
    zackStift.bewegeUm(30);
    zackStift.hoch;
    zackStift.bewegeBis(zackBildschirm.breite DIV 2,zackBildschirm.hoehe DIV 2);
    zackStift.dreheUm(30);
    end;

    //1min Striche
    for lauf:=1 to 60 do
    begin
    zackStift.setzeLinienBreite(1);
    zackStift.bewegeUm((zackBildschirm.breite DIV 4)-15);
    zackStift.runter;
    zackStift.bewegeUm(15);
    zackStift.hoch;
    zackStift.bewegeBis(zackBildschirm.breite DIV 2,zackBildschirm.hoehe DIV 2);
    zackStift.dreheUm(-6);
    end;

    //Sekundenzeiger
    zackStift.dreheBis(96);
    repeat
    for lauf:=1 to 59 do
    zackStift.bewegeBis(zackBildschirm.breite DIV 2,zackBildschirm.hoehe DIV 2);
    zackStift.radiere;
    zackStift.bewegeUm((zackBildschirm.breite DIV 4)-40);
    zackStift.dreheUm(-6);

    zackStift.bewegeBis(zackBildschirm.breite DIV 2,zackBildschirm.hoehe DIV 2);
    zackStift.normal;
    zackStift.runter;
    zackStift.bewegeUm((zackBildschirm.breite DIV 4)-40);
    warte(1000);

    //Minutenzeiger

    until zackMaus.doppelklick;



    zackBildschirm.gibFrei;
    zackStift.gibFrei;
    zackMaus.gibFrei;
end.