Analogové hodiny – Visual Basic – Fórum – Programujte.com

Čau, víte někdo jak udělat analogové hodiny? Skoušel jsem to všelijak, ale pořád to nechce fungovat tak jak má. :)

a zkousel si funkce typu sinus, cosinus?

Napadlo mě to, ale nevím jak to mám zapsat do zdrojového kódu. :)

tak libovolnej bod muzes vzit jako polomer a pythagorovu vetu... resp vsem znamy rozklad vektoru na osy :D
takze mas cosinus na prilehlou a sinus na protilehlou... a pak mas stred od ktereho zacinas

To Petr : Vím.. mám je udělané doma... ted sem v práci a nechce se mi to vymejšlet bez VB... když si odpoledne vzpomenu.. tak ti to sem pak napíšu

To JMM : to je zase skoda.. jen at to zkousi sam ... od ceho se na zakladce ucil matematiku?

Function SourX(ByVal r As Double, ByVal Alfa As Double) As Integer
SourX = r * Math.Cos(Alfa * Math.PI / 180)
End Function

Function SourY(ByVal r As Double, ByVal Alfa As Double) As Integer
SourY = r * Math.Sin(Alfa * Math.PI / 180)

Tady más f.ce pro výpočet krajního bodu ručičky,repektive pokud začináš kreslit drawline s bodu 0.0. Jinak doporuřuji deklarovat proměné jako globální.