Analoge Uhr

[S.Wisser]

Ich hab eine kleine Uhr gemacht, allerdings ist mein Code etwas umständlich geworden. Aber er funktioniert.

Über Rückmeldungen würde ich mich sehr freuen.

Download als ZIP- Datei:

http://hosting.alexander-n.de/=NjkzLjEzMzAxODY5MDk=

[Bisonte]

Eine Setup.exe, dessen Hersteller relativ unbekannt ist, werden so einige nicht ausführen...

Mach ein ZipArchiv draus...

[Mr.L]

Sieht schön aus...

Der Code ist allerdings sehr umständlich.
Die wahnsinnig vielen Select / Case - Zeilen kannst du durch 3 simple Zeilen ersetzen:

Code: Alles auswählen

x = (Minute(Date())*6)
y = (Second(Date())*6)
wu = (Hour(Date())*30)

[STARGÅTE]

Was mir noch auffällt ist, dass alle deine "Prüfungen" keine Schlussfolgerung haben.
Was soll zB dieser Befehl bewirken:

Code: Alles auswählen

If InitSound() = 0
EndIf

Egal ob InitSound() fehlschläg oder erfolgreich ist; das resultat ist das selbe.

Wenn dann solltest du schon darauf reagieren:

Code: Alles auswählen

If InitSound() = 0
  MessageRequester("Fehler", "InitSound schlug fehl!")
  End
EndIf

Das gilt für den gesamten Code. (außer bei OpenWindowedScreen, da hast du es ja gemacht)

PS: ganz nebenbei hast du den Stundenzeiger mit dem Minutenzeiger vertaucht oder ?
Zumindest ist bei meinen Uhren, der kleine Zeiger immer der Stundenzeiger

[S.Wisser]

vielen Dank für die hilfreichen hinweise,


ich habe den Code jetzt ein wenig geändert.
Jetzt sind die Zeiger auch nicht mehr vertauscht.



Ich würde gerne noch ein paar Sachen ändern. Wäre schön wenn der
Uhrenhintergrund und das Fenster transparent wären,
und nur sichtbar werden wenn man mit dem Mauszeiger draufkommt.


Hier nochmal die Uhr:

http://hosting.alexander-n.de/=NjE2LjEzMDg0ODY0MTY=