QuickBasic - 15: Grafik işlemleri-3

Yayınlama: 4 Temmuz 2020

PRESET

Kullanımı:

PRESET [STEP] (x , y) [, renk]

PRESET komutu PSET komutu gibi grafik ekranda koordinatları(x,y) belirtilen konuma belirtilen renk ile nokta koyar.

PSET komutundan farkı renk belirtilmezse zemin rengi ile nokta koyar (koordinata zemin rengiyle nokta koyduğu için silme işlemi uygulanmış olur)

STEP olursa bir önceki nokta referans alınarak göreceli koordinat sistemi kullanılır.

Örnek 1:

DEFINT A-Z
SCREEN 7
COLOR , 4
A = 10
FOR x = 0 TO 50
    FOR y = 0 TO 20
        ' PSET (x + A, y + A), 14
        PRESET (x + A, y + A), 14 'Nokta koy
    NEXT
NEXT
SLEEP
FOR x = 0 TO 50
    FOR y = 0 TO 20 STEP 3
        PRESET (x + A, y + A) ' Sil
    NEXT
NEXT

Örnek 2:

QuickBasic - 14: Grafik işlemleri-2

Yayınlama: 11 Haziran 2020

VIEW

Sonraki grafik komutlarına çıktı için ekran sınırlarını belirler. Fiziksel ekran üzerinde sanal çizim alanı oluşturur(port). Ekran içinde ekran gibi.

Kullanımı:

VIEW [SCREEN] (x1,y1)-(x2,y2) [,renk][,çerçeve]

Herhangi bir parametre girilmezse varsayılan ekranı tanımlar.

SCREEN parametresi kullanıldığında sonraki çizim komutlarında ekranın mutlak koordinat sistemine göre işlem yapılacağını belirtir.

Normalde yani SCREEN parametresi kullanılmadığında göreceli koordinat sistemi kullanılır.

Oluşturulan ekranın;
sol üst köşesi (x1,y1) 0,0 olarak,
sağ alt köşesi (x2,y2) VIEW de belirtilen genişlik ve yükseklik olur (x2-x1, y2-y1)

renk: Belirtilen renk ile tanımlanan alan doldurulur. Altta kalan alan silinir. Belirtilmezse silme olmaz.

çerçeve: Tanımlanan alanın kenarlarına verilen renk kodu ile sınır çizgileri çizilir. Belirtilmezse çizilmez.

Örnek:

SCREEN 12
VIEW (50, 50)-(300, 300), 2, 14
LOCATE 1, 1: PRINT "VIEW"
CIRCLE (0, 0), 250, 15 ' oluşturulan ekranın göreceli koordinatları kullanılır
SLEEP
VIEW SCREEN (50, 50)-(300, 300), 3, 11
LOCATE 1, 1: PRINT "VIEW SCREEN"
CIRCLE (0, 0), 250, 11 ' fiziksel ekranın mutlak koordinatları kullanılır
SLEEP
VIEW (200, 200)-(400, 400), 4
CIRCLE (100, 100), 50
LOCATE 14, 27: PRINT "Silinecek !"
SLEEP
CLS 'aktif VIEW siler
LINE (0, 0)-(200, 200), 14
LINE (0, 200)-(200, 0), 14
SLEEP
VIEW 'Fiziksel ekran
LINE (0, 0)-(200, 200), 15
LINE (0, 200)-(200, 0), 15

VIEW PRINT