ساخت گل رز با ويژوال بيسيك

[admin]

اول در داخل form يك timer رسم كرده و وارد خصوصيات آن مي شويم interval را 100 قرار ميدهيم

و enabled را به true تغيير مي دهيم

در داخل form كد زير را تايپ مي كنيم :

کد:

Private Sub Form_Load()
WindowState = 2
End Sub

سپس كد زير را در داخل timer تايپ مي كنيم :

کد:

Private Sub Timer1_Timer()
Call Randomize

Scale (3, -3)-(-3, 3)

b = 8 * Atn(1)

ForeColor = QBColor(Rnd() * 15)

g = 3 * Rnd()

For l = 0 To b Step 0.01

e = g * Sin(6 * l)

x = e * Cos(l)

y = e * Sin(l)

Print "خورجوان"

PSet (x, y)

Next l
End Sub

توجه
اگر بخواهيد شكل گل را تغيير دهيد در كد بالا قسمت e = g * Sin(6 * l) به جاي شماره 6 شماره اي را به دلخواه خود وارد كنيد سپس شكل گل شما تغيير مي كند