Açılara Göre Elips Yayı Çizme
 
Private Sub Form_Load()

Show
Dim A, B, I
A = Form1.ScaleWidth
B = Form1.ScaleHeight
For I = 0 To A
Line (I, I)-(A, B)
Line (A, I)-(I, B)
Next
For I = 1 To B / 2 Step B / 200
Circle (A / 2, B / 2), I
Next

End Sub

Yazar: Turk_Ajan
  
 
Bugün 15 ziyaretçi BuRaDaYDı..!

 
 
Bu web sitesi ücretsiz olarak Bedava-Sitem.com ile oluşturulmuştur. Siz de kendi web sitenizi kurmak ister misiniz?
Ücretsiz kaydol