| Form_Paint, Form_Resize, Form1.Circle, Form1.Line, Refresh |
| |
| |
| Prozeduren im Formular | |
| Private Sub Form_Paint() | |
| Form1.Circle (0, 0), 1, RGB(0, 0, 0), , , 0.96 | Zeichnet äußeren Kreis beim Start. |
| Call zeit1 | |
| End Sub | |
| |
| Private Sub Form_Resize() | Bei Größenänderung des Formulars wird die Uhr neu |
| Scale (1.5, -1.5)-(-1.5, 1.5) | gezeichnet. |
| Refresh | |
| End Sub | |
| |
| Private Sub Timer1_Timer() |
| Call zeit1 |
| End Sub |
|
|
| Prozeduren im Modul |
| Public Const pi = 3.14159265359 | |
| Public sec#, min#, h# | |
| |
| Public Sub zeit1() | |
| " Static sec# | Andere Methode mit Static... |
| " Static min# | |
| " Static h# | |
| |
| sec = (2 * pi * (Second(Time) + 15) / 60) | Systemzeit. |
| min = (2 * pi * (Minute(Time) + 15) / 60) | |
| h = Hour(Time) | |
| |
| Form1.Cls | |
| Form1.DrawWidth = 2 | |
| Form1.Circle (0, 0), 1, RGB(250, 0, 0), , , 0.96 | Zeichnet äußeren Kreis rot. |
| | |
| Form1.DrawWidth = 1 | |
| Form1.Line (0, 0)-(Cos(sec), -Sin(sec)) | Sekundenzeiger. |
| " sec = sec + (2 * pi / 60) | |
| | |
| Form1.DrawWidth = 2 | |
| Form1.Line (0, 0)-(Cos(min), -Sin(min)) | Minutenzeiger. |
| " min = min + (2 * pi / 3600) | |
| | |
| Form1.DrawWidth = 4 | |
| Form1.Line (0, 0)-(Cos(h), -Sin(h)) | Stundenzeiger. |
| " h = h ' + (2 * pi / 3600 / 12) | |
| |
| End Sub | |
| |
zurück