70 likes | 218 Views
9. BİR ÇİZİM ORTAMININ YARATILMASI. VB’de bir çizim ortamı oluşturmak için aşağıdaki komutlardan yararlanılmaktadır. PSET LINE CIRCLE VB’ de FORM ve PICTURE nesneleri üzerinde çizim yapılabilir. Koordinat Sistemi ve Ölçeklendirme.
E N D
9. BİR ÇİZİM ORTAMININ YARATILMASI • VB’de bir çizim ortamı oluşturmak için aşağıdaki komutlardan yararlanılmaktadır. • PSET • LINE • CIRCLE • VB’ de FORM ve PICTURE nesneleri üzerinde çizim yapılabilir. Koordinat Sistemi ve Ölçeklendirme • Matematikteki koordinat sisteminin tersidir. Formun sol üst noktası orijindir (0,0). • ScaleWidth ile çizim yapılabilecek nesnenin genişliği, ScaleHeight ile çizim yapılabilecek nesnenin yüksekliği ayarlanabilir. • Scale metodu ile koordinat sistemi yeniden belirlenerek, çizim ortamı ölçeklendirilebilir. Scale (x1,y1)-(x2,y2)
Nokta Çizme: (Pset Komutu) • Verilen (x,y) koordinatlarına nokta nokta çizer. Renk parametresi opsiyoneldir. Pset (x,y),renk Çizgi Çizme: (LINE Komutu) • Koordinatları verilen (x,y) iki nokta arasında çizgi çizer. Renk parametresi opsiyoneldir. Line (x1,y1) – (x2,y2),renk • En son kalınan noktadan x,y noktasına bir çizgi çizer. Line –(x,y),renk • DrawWidth özelliği ile çizgi kalınlığı belirlenir.
x y Örnek : • Form Scale komutu ile ölçeklenirse;
Dikdörtgen Çizme: (LINE Komutu) • Line komutunda, en son parametre olarak B verilirse; verilen iki noktanın koordinatlarını köşe olarak kabul eden bir dikdörtgen çizer. Line (x1,y1) – (x2,y2), renk, B • Line komutunda, en son parametre olarak BF verilirse; dikdörtgenin içi renk parametresinde belirtilen renk ile boyanır. Line (x1,y1) – (x2,y2), renk, BF Örnek : Form1.AutoRedraw = True Form1.Width = Form1.Height W=Form1.ScaleWidth L= Form1.ScaleHeight For i = 0 To L / 2 Step W / 20 Form1.Line (i, i)-(W - i, L - i), 250, B Next i
Çember Çizme: (Circle Komutu) • Verilen (x,y) koordinatlarında, r yarıçaplı çemberi, belirtilen renk parametresi ile çizer. Circle (x,y),r,renk Yay Çizme: (Circle Komutu) • Verilen (x,y) merkezli, r yarıçaplı bir yayı çemberi, belirtilen renk parametresi ile, a-b açıları arasında çizer. Açıların (a,b) birimi radyandır. Circle (x,y),r,renk,a,b Örnek : Form’un MouseDown olayında yazınız. pi= 3.141592 For i = 1 To 5 DrawWidth = i Circle (x, y), i * 100, QBColor(Fix(15 * Rnd)) Circle (x, y), i * 100, , 0, pi / 4 Next i
Elips Çizme: (Circle Komutu) • Verilen (x,y) koordinatlarında, r yarıçaplı elipsi, belirtilen renk parametresi ile çizer Son parametre (c) elipsin basıklık oranını verir, çember için parametre değeri 1’e eşittir. Circle (x,y),r,renk,,,c Örnek : a = 0.1 For i = 1 To 5 DrawWidth = i Circle (X, Y), i * 100, QBColor(Fix(15 * Rnd)), , , i * a Next i