Č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á. :)
Fórum › Visual Basic
Analogové hodiny
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
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í.
Přidej příspěvek
Ano, opravdu chci reagovat → zobrazí formulář pro přidání příspěvku
×Vložení zdrojáku
×Vložení obrázku
×Vložení videa
Uživatelé prohlížející si toto vlákno
Moderátoři diskuze