خوب دو ستان عزیز این یکی از سورس هایی است که مربوط به ریاضی هست و کسانی که از ریاضی خوششون میاد حتما از این کد لذت می برند . با چند تکه کد زیر می توانید یک چرخ دنده طراحی کنید . کد های زیر را در یک command بنویسید و بعد اجراش کنید .
Cls
p = 4 * Atn(1(
a = 0
CurrentX = 85 - 35 * -Cos(a(
CurrentY = 50 + 35 * -Sin(a(
f = 1
Do
x = 85 - 35 * -Cos(a(
y = 50 + 35 * -Sin(a(
X1 = 85 - 25 * -Cos(a(
Y1 = 50 + 25 * -Sin(a(
If f = 1 Then
Line -(x, y), BackColor
Else
Line -(x, y), Color
End If
f = f * -1
Line (X1, Y1)-(x, y(
a = a + 2 * p / 20
Loop Until a > 4 * p
a = 0
CurrentX = 85 - 25 * -Cos(a(
CurrentY = 50 + 25 * -Sin(a(
f = 1
Do
x = 85 - 25 * -Cos(a(
y = 50 + 25 * -Sin(a(
If f = 1 Then
Line -(x, y), Color
Else
Line -(x, y), BackColor
End If
f = f * -1
a = a + 2 * p / 20
Loop Until a > 4 * p
Circle (85, 50), 15
برای آزمایش این کد بهتر است پهنای فرم بالا ی 8000 باشد و درازای فرم بالای 5000 .