title image


Smiley Polarkoordinaten - das liebe ich...
Hier etwas "Selbstgestricktes":Const Pi = 3.1415926535898Private Sub Form_Load() Form_TimerEnd SubPrivate Sub Form_Resize() Me.Rect.Width = Me.InsideWidth - 100 Me.Rect.Height = Me.InsideHeight - 100 Form_TimerEnd SubPrivate Sub Form_Timer() Me.Caption = Now Zeiger Me!Std, (270 + ((Hour(Now) Mod 12) * 30)) Mod 360, 0.75, 5 Zeiger Me!Min, (270 + Minute(Now) * 6) Mod 360, 0.85, 3 Zeiger Me!Sek, (270 + Second(Now) * 6) Mod 360, 0.95, 1End SubPrivate Sub Zeiger(Ctl As Control, Grad As Long, LängenFaktor As Double, Dicke As Long)Dim Bogen As Double, Radius As Double, Height As Long, Width As Long Bogen = Grad / 180 * Pi On Error Resume Next With Ctl Radius = Me.InsideWidth \ 2 Width = Cos(Bogen) * Radius * LängenFaktor If Width > 0 Then .Left = Radius Else ' vertauschen .Left = Radius + Width End If .Width = Abs(Width) Radius = Me.InsideHeight \ 2 Height = Sin(Bogen) * Radius * LängenFaktor If Height > 0 Then .Top = Radius Else ' vertauschen .Top = Radius + Height End If .Height = Abs(Height) ' im 2. und 4. Quadranten die Orientierung ändern .LineSlant = Grad > 90 And Grad 270 And Grad .BorderWidth = Dicke End WithEnd SubJetzt brauchst du nur noch 3 Linien "Std", "Min" und "Sek"...Reinhard

Gruß aus dem Norden

Reinhard


Bitte immer die Access-Version angeben


 



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: