cs_the_best
Messages postés212Date d'inscriptionjeudi 13 novembre 2003StatutMembreDernière intervention 6 avril 2006
-
13 mai 2005 à 12:53
cs_clementpat
Messages postés406Date d'inscriptionlundi 2 décembre 2002StatutMembreDernière intervention25 janvier 2014
-
14 mai 2005 à 11:55
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
14 mai 2005 à 11:55
13 mai 2005 à 17:15
au cas ou dans les déclarations, tu déclare ca :
Private Const PI as Long = 3.14159265358979
Et tu remplace partout la valeur numérique par PI
13 mai 2005 à 12:53
private sub timer2_timer()
timer2.enabled = false
DrawWidth = 1
'le cadran un angle de 6° pour 1 sec
For j = 1 To 60
s1 = Sin((6 * j) * 3.14159265358979 / 180) * 1100
c1 = Cos((6 * j) * 3.14159265358979 / 180) * 1100
s2 = Sin((6 * j) * 3.14159265358979 / 180) * 1200
c2 = Cos((6 * j) * 3.14159265358979 / 180) * 1200
Form1.Line (2000 + s1, 900 + 1100 - c1)-(2000 + s2, 800 + 1200 - c2), vbBlack
Next
End sub
Pense aussi à mettre la proprité de la form Autoredraw à True.
Mais c'est aussi la 1000 source de ce type sur vbfrance...