حرکت دایره رنگی تو خالی روی موج سینوسی [بایگانی]

xxxxx_xxxxx

چهارشنبه 28 مرداد 1388, 04:00 صبح

سلام،
درخواست سورس ممنوع هست.
توضيح:
شما بايد در يك روال از 2P- تا 2P خاصيت هاي left و top دايره رو تغيير بديد. كه left آن همان شمارنده اي هست كه 2P- تا 2P را مي شماره و top آن Sin همان مقدار است. به عبارتي يه چيزي تو اين مايه ها كه بايد تغييراتي بهش بديد:

For i = (-2 * p) To (2 * p)
Shape1.Left = i
Shape1.Top = Sin(i)
Next i

متغير P را به صورت public با مقدار اوليه 3.14 تعيين كنيد.