/ Forside / Teknologi / Udvikling / VB/Basic / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
VB/Basic
#NavnPoint
berpox 2425
pete 1435
CADmageren 1251
gibson 1230
Phylock 887
gandalf 836
AntonV 790
strarup 750
Benjamin... 700
10  tom.kise 610
Analogt Ur
Fra : Ole J. Hansen


Dato : 03-02-02 18:08

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



 
 
Søg
Reklame
Statistik
Spørgsmål : 177557
Tips : 31968
Nyheder : 719565
Indlæg : 6408885
Brugere : 218888

Månedens bedste
Årets bedste
Sidste års bedste