Seite 1 von 1
Analoge Uhr
Verfasst: 15.06.2011 07:27
von 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=
Re: Analoge Uhr
Verfasst: 15.06.2011 07:39
von Bisonte
Eine Setup.exe, dessen Hersteller relativ unbekannt ist, werden so einige nicht ausführen...
Mach ein ZipArchiv draus...
Re: Analoge Uhr
Verfasst: 17.06.2011 20:08
von 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)
Re: Analoge Uhr
Verfasst: 17.06.2011 23:06
von STARGÅTE
Was mir noch auffällt ist, dass alle deine "Prüfungen" keine Schlussfolgerung haben.
Was soll zB dieser Befehl bewirken:
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
Re: Analoge Uhr
Verfasst: 21.06.2011 18:38
von 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=