جلوه گرافیکی

86/1/18 , 2:14 ع نظر

Dim x(50), y(50), Velocity(50), Size(50) As Integer <br> Private Sub Form_Load() <br>"از این حلقه برای تعیین موقعیت و اندازه دانه های قطره استفاده شده است <br>For i = 1 To 50 <br> <br>"موقعیت هر یک از دانه ها به صورت تصادفی در آرایه گذاشته می شود <br>x(i) = Int(Me.Width * Rnd) <br>y(i) = Int(Me.Height * Rnd) <br>Velocity(i) = Int(500 - (Int(Rnd * 499))) <br>"اندازه هر کدام از دانه ها به صورت تصادفی بین صفر و صد تعیین می شود <br>Size(i) = 100 * Rnd <br>Next <br>End Sub <br>Private Sub Timer1_Timer() <br>For i = 1 To 50 <br>"رسم دایره <br>Circle (x(i), y(i)), Size(i), BackColor <br>"ایجاد یک شمارنده برای تغییر موقعیت دانه ها <br>y(i) = y(i) + Velocity(i) <br>If y(i) >= Me.Height Then <br>y(i) = 0 <br>x(i) = Int(Me.Width * Rnd) <br>End If <br>Circle (x(i), y(i)), Size(i), vbWhite <br>Next <br>End Sub