كودات لرسم بالفيجوال بيسك

لمحبي الرسم والبرمجة

هذا كود لرسم دوائر متداخلة مع بعضها

Private Sub Command1_Click()

Dim t, x, y As Integer

For t = 1 To 9000 Step 90

x = 5800 + 912 * Cos(t)

y = 3900 + 445 * Sin(t)

Circle (x, y), 550, 443

Next t

End Sub

حاول تغير الارقام وشاهد بنفسك ما يحدث

وطبعا هناك المزيد

والله الموفق

;)