SMALL BASİC PROGRAMLAMA DİLİ

Dikdörtgen Kodları:

GraphicsWindow.Width =400
GraphicsWindow.Height =250
GraphicsWindow.PenColor ="Blue"
GraphicsWindow.DrawRectangle(50, 20, 300, 75)
GraphicsWindow.BrushColor = "Orange"
GraphicsWindow.FillRectangle(50, 140, 300, 75)
GraphicsWindow.Show()

Açıklama:

1.komut ile grafik penceresinin genişliği 400 birim olarak belirleniyor.

2.komut ile grafik penceresinin yüksekliği 250 birim olarak belirleniyor.

3.komut ile içi boş çerçevenin rengi yeşil olarak belirleniyor.

4.komut ile içi boş bir çerçeve çizdiriliyor.

(bu çerçevenin sol üst köşesi sağdan 50 birim, 

yukarıdan 20 birim aşağısından başlatılıyor… 

çerçevenin genişliği 300 birim yüksekliği ise 75 birim…   )

5.komut ile içi dolu dikdörtgenin rengi kırmızı olarak belirleniyor.

6.komut ile içi dolu bir dikdörtgen çizdiriliyor.

(bu dikdörtgenin üst köşesi sağdan 50 birim, 

yukarıdan 140 birim aşağısından başlatılıyor… 

çerçevenin genişliği 300 birim yüksekliği ise 75 birim…   )

7.komut ile grafik penceresi ekranda gösteriliyor.



Elips Kodları:

GraphicsWindow.Width = 400
GraphicsWindow.Height = 250
GraphicsWindow.PenColor = "Green"
GraphicsWindow.DrawEllipse (50, 20, 300, 75)
GraphicsWindow.BrushColor = "Red"
GraphicsWindow.FillEllipse (50, 140, 300, 75)
GraphicsWindow.Show()



Birlikte Şekil Oluşturma:

GraphicsWindow.Width = 400
GraphicsWindow.Height = 250
GraphicsWindow.BrushColor = "Blue"
GraphicsWindow.FillEllipse (70, 200, 300, 75)
GraphicsWindow.Show()
GraphicsWindow.Width = 400
GraphicsWindow.Height = 175
GraphicsWindow.PenColor = "Red"
GraphicsWindow.FillRectangle (100, 30, 100, 100) 
GraphicsWindow.BrushColor = "Blue"
GraphicsWindow.FillRectangle(225, 30, 100, 100)
GraphicsWindow.Show()