İç İçe
Daireler
Bir
döngü içerisinde boyutları gittikçe artan daireler çizeceğiz.
1.GraphicsWindow.BackgroundColor
= "Black"
2.GraphicsWindow.PenColor =
"Red"
3.GraphicsWindow.Width = 300
4.GraphicsWindow.Height = 300
5.For i = 1 To 100 Step 5
6.GraphicsWindow. DrawEllipse (150-i, 150-i, i*2, i*2)
7.EndFor
8.GraphicsWindow.Show()
|
Yukarıdaki Programımızı açıklayalım
1.komut
ile grafik penceresinin arka zemin rengi siyah olarak belirleniyor.
2.komut ile içi boş çerçevenin rengi kırmızı olarak belirleniyor.
3.komut ile grafik penceresinin genişliği 300 birim olarak belirleniyor.
4.komut ile grafik penceresinin yüksekliği 300 birim olarak belirleniyor.
5.komut ile bir döngü başlatılıyor. Bu döngü 1 den başlayıp 5’er 5’er devam edip 100 kadar devam ediyor. Döngü 7 komutta sona eriyor.
6.komut ile ekrana i değişkenin değerine göre ekrana daire çizdiriliyor.( GraphicsWindow. DrawEllipse (sağdan uzaklık, yukarıdan uzaklık, elipsin genişliği, elipsin yüksekliği))
7.komut ile döngü sonlandırılıyor.
8.komut ile ile grafik penceresi ekranda gösteriliyor
2.komut ile içi boş çerçevenin rengi kırmızı olarak belirleniyor.
3.komut ile grafik penceresinin genişliği 300 birim olarak belirleniyor.
4.komut ile grafik penceresinin yüksekliği 300 birim olarak belirleniyor.
5.komut ile bir döngü başlatılıyor. Bu döngü 1 den başlayıp 5’er 5’er devam edip 100 kadar devam ediyor. Döngü 7 komutta sona eriyor.
6.komut ile ekrana i değişkenin değerine göre ekrana daire çizdiriliyor.( GraphicsWindow. DrawEllipse (sağdan uzaklık, yukarıdan uzaklık, elipsin genişliği, elipsin yüksekliği))
7.komut ile döngü sonlandırılıyor.
8.komut ile ile grafik penceresi ekranda gösteriliyor
Değişik bir örnek verelim…
Yukarıdaki örneği zenginleştirelim
GraphicsWindow.BackgroundColor = "Black"
GraphicsWindow.Width = 300
GraphicsWindow.Height = 300
start:
GraphicsWindow.PenColor = GraphicsWindow.GetRandomColor()
For i = 1 To 100 Step 5
GraphicsWindow.DrawEllipse(150 - i, 150 - i, i * 2, i * 2)
Program.Delay(15)
EndFor
Goto start
GraphicsWindow.Show()
|
