www.pc3enter.tk
چهارشنبه 22 مهر 1394, 19:39 عصر
شما فقط این کد را در داخل ویژوال بیسیک بگذارید و اجرا کنید.
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
On Error Resume Next
Cls
p = 3.141593
For s = 0 To 370 Step 5
Xx = 4000 + 1500 * Cos(p * s / X)
Yy = 3705 + 900 * Sin(p * s / Y)
Circle (Yy + s, Xx), 300, Paint
Next s
End Sub
بعد تست کد می توانید عدد 300 را پاک کرده و جای ان X بگذارید
و حتی می توانید به 370 , 3700 نیز بگذارید
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
On Error Resume Next
Cls
p = 3.141593
For s = 0 To 370 Step 5
Xx = 4000 + 1500 * Cos(p * s / X)
Yy = 3705 + 900 * Sin(p * s / Y)
Circle (Yy + s, Xx), 300, Paint
Next s
End Sub
بعد تست کد می توانید عدد 300 را پاک کرده و جای ان X بگذارید
و حتی می توانید به 370 , 3700 نیز بگذارید