رسم دایره با استفاده از pset

[Mohajer_Moh]

با سلام و خسته نباشید

می خواستم با استفاده از دستور pset یک دایره توخالی رسم کنم.شعاع آن مهم نیست.فقط اینکه با دستور pset باشد.

با تشکر

[knight-rak]

سلام
شما اون کد ساعت رو مطمئنا دارید از همون ساختار استفاده کنید و فقط به جای اینکه اون خط رو بچرخونید مختصات بیرونی خط رو در نظر بگیرید و ای اون نقطه یا همون pset رو استفاده کنید
درضمن اگر برای امتحان داری کار میکنی !!! " فکر نکنم این سوال ساده رو بدن !!!! "

ایشالا موفق باشید ....

[Mohajer_Moh]

دوست عزیز کد ساعت رو ندارم.اگه امکان داره کد برنامه ای که توضیح دادم برام بگذارید.
با تشکر

[meysampasdari]

میتونی از این کد استفاده کنی .
Dim x As Integer, y As Integer
Dim d As Single
Dim irt As Integer
Dim i As Single, j As Integer

For i = 0 To 3.14 Step 0.003
For j = 0 To 20000
DoEvents
Next
d = d + 0.1
Randomize
x = 800 + (600 * Cos(d)) + (Rnd() * 100)
Randomize
y = 800 + (600 * Sin(d)) + (Rnd() * 100)
Form1.PSet (x, y), vbMagenta
irt = 0
Next