X
تبلیغات
رایتل
دوشنبه 24 تیر‌ماه سال 1387 ساعت 01:48 ب.ظ

خوب دو ستان عزیز این یکی از سورس هایی است که مربوط به ریاضی هست و کسانی که از ریاضی خوششون میاد حتما از این کد لذت می برند . با چند تکه کد زیر می توانید یک چرخ دنده طراحی کنید . کد های زیر را در یک 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 .

del.icio.us  digg  newsvine  furl  Y!  smarking  segnalo