Hej NG
Jeg er i gang med at lave et analogt Ur, jeg har fået minutter og skundviser
på plads med følgende kode:
Sub Ttegnviser(nu As Integer, max As Integer)
ForeColor = "128"
Line (0, 0)-(-Cos(max / 60 * 6 * (nu + 15) / 180 * pi), Sin(max / 60 * 6
* (nu + 15) / 180 * pi))
End Sub
Er der en venlig sjæl der kunne forklare mig, hvorledes jeg får timer til at
gå, gerne med et lille letfor-
ståeligt eksempel.
m.v.h.
ole
|