A voir également:
- Question ki parait simple
- Simple cabinet médical - Forum Visual Basic
- Fond ecran simple ✓ - Forum Visual Basic
- Simple scanner ✓ - Forum VB.NET
- Simple cote ✓ - Forum Visual Basic 6
- Cadre dessin simple - Forum Graphisme/design
1 réponse
for a= 0 to 6.28 step 0.2
' Cercle (car 10/10=1)
' le centre : 20,20
' rayon de 10.
x = sin(a)*10+20
y = cos(a)*10+20
Picture1.Pset (x,y)
next
for a= 0 to 6.28 step 0.2
' Elpise (car 20/10 = 2)
' Centre : 15,10
' rayon : 10 le plus fin
' et : 20 le plus grand
x = sin(a)*10+15
y = cos(a)*20+10
Picture1.Pset (x,y)
next
Voila, bon reveillon, a+
int19h
' Cercle (car 10/10=1)
' le centre : 20,20
' rayon de 10.
x = sin(a)*10+20
y = cos(a)*10+20
Picture1.Pset (x,y)
next
for a= 0 to 6.28 step 0.2
' Elpise (car 20/10 = 2)
' Centre : 15,10
' rayon : 10 le plus fin
' et : 20 le plus grand
x = sin(a)*10+15
y = cos(a)*20+10
Picture1.Pset (x,y)
next
Voila, bon reveillon, a+
int19h