- r=atn(1)*4/180 'degres
- ecartp=1
- For i = 0 To taille Step ecartP
- xx = Cos(i / r) * 1000 / 2 'pour définir
- yy = Sin(i / r) * 1000 / 2 'le point dorigine du cercle
- PSet (X + xx, Y + yy), Picture1.Point(X + xx, Y + yy) 'point du cercle
- Next
-
r=atn(1)*4/180 'degres
ecartp=1
For i = 0 To taille Step ecartP
xx = Cos(i / r) * 1000 / 2 'pour définir
yy = Sin(i / r) * 1000 / 2 'le point dorigine du cercle
PSet (X + xx, Y + yy), Picture1.Point(X + xx, Y + yy) 'point du cercle
Next