Uhr mit Systemzeit I

Uhr mit Systemzeit: 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 gezeichnet.
Scale (1.5, -1.5)-(-1.5, 1.5)
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
Sponsoren und Investoren

Sponsoren und Investoren sind jederzeit herzlich willkommen! Wenn Sie die Information(en) auf diesen Seiten interessant fanden, freuen wir uns über Ihren Förderbeitrag. Empfehlen Sie uns auch gerne in Ihren Netzwerken. Herzlichen Dank!

Nutzen Sie unsere Suchfunktion:

Nach oben Sitemap
Impressum Datenschutz

Hinweis: Diese Webseite kann Werbeanzeigen und Werbeeinblendungen oder eingebundene Links von Diensten und Inhalten Dritter enthalten. Beachten Sie dazu unsere Datenschutzerklärung.