VSUAL BASIC LE GRAFK ZM Visual Basic programlama

VİSUAL BASIC İLE GRAFİK ÇİZİMİ Visual Basic programlama dilinde program çıktılarını ekranda görüntülemek, programın arayüzüne grafik öğeler katmak veya hareketli görüntüler (animasyonlar) hazırlamak için kullanılan temel grafik komutları mevcuttur. VB ile bir grafik çıktı elde edebilmek için Form nesnesi ve Picture Box nesnesi kullanılabilir. Grafik çıktılar oluşturma sırasında en önemli nokta, kullanılan çizim nesnesinin koordinat başlangıcının ve nesne sınırlarının bilinmesidir. Form nesnesi ve Picture Box nesnesi için eksen takımının orijini Şekilde görüldüğü gibi nesnelerin sol üst köşeleridir ve x ve y ekseni yönleri de Şekilde verilmiştir. (0, 0) x y Picture Box

VİSUAL BASIC İLE GRAFİK ÇİZİMİ Form ve Picture Box nesnelerinin çizim boyutları ve koordinatları twips, milimetre, inch, santimetre, pixel şeklinde ayarlanabilir. Fakat çizim yapılacak alanın boyutları kullanıcı tarafından belirlenebilir ve eksen takımı orijini nesnenin istenilen bir yerine yerleştirilebilir. Bu şekildeki bir kullanım grafik çizimlerinde kullanıcıya büyük kolaylık sağlar. Bu tip bir boyutlandırma ve eksen takımı konumlandırma için temel kullanım şöyledir. (x 1, y 1) Sol Üst Köşe y (0, 0) x Form 1. Scale (x 1, y 1)-(x 2, y 2) Sağ Alt Köşe (x 2, y 2)

VİSUAL BASIC İLE GRAFİK ÇİZİMİ (x 1, y 1) Sol Üst Köşe y x (0, 0) Picture Box Picture 1. Scale (x 1, y 1)-(x 2, y 2) Sağ Alt Köşe Örnekler: Bir Picture Box’ı 200 x 200 boyutlarında ölçeklendirelim (-100, 100) y Picture 1. Scale (-100, 100)-(100, -100) (0, 0) x (100, -100) (0, 100) y Picture 1. Scale (0, 100)-(200, -100) (0, 0) x (200, -100)

VİSUAL BASIC İLE GRAFİK ÇİZİMİ (0, 200) Picture 1. Scale (0, 200)-(200, 0) y (0, 0) x (200, 0) (-100, 200) Picture 1. Scale (0, 200)-(200, 0) y (0, 0) x (100, 0) (0, 0) x y Picture 1. Scale (0, 0)-(200, -200) (200, 200)

VİSUAL BASIC İLE GRAFİK ÇİZİMİ ÇİZİM KOMUTLARI: VB’de kullanılan çizim komutları aşağıda verilmiştir. VB’de çizim için kullanılan nesnenin (Form, Picture Box) çizim kalınlığı ve tipini belirlemek mümkündür. Picture 1. Draw. Width =2 Picture 1. Draw. Width =10 Picture 1. Draw. Style =1 Picture 1. Fill. Style =0 Picture 1. Fill. Color =vb. Red Picture 1. Fill. Style =2 Picture 1. Fill. Color =vb. Red

VİSUAL BASIC İLE GRAFİK ÇİZİMİ Çizim Komutları: Pset (x, y), Renk x, y koordinatlarına nokta çizer Picture 1. PSet (10, 50), vb. Blue (x 3, y 3) (x 1, y 1) Picture 1. Line (x 1, y 1)-(x 2, y 2), Renk Başlangıç (x 2, y 2) Bitiş Picture 1. Line -(x 3, y 3), Renk Bir önceki çizginin bitiş noktasından devam eden bir çizgi çizer (x 1, y 1) İçi boş kutu çizer Picture 1. Line (x 1, y 1)-(x 2, y 2), Renk, B (x 2, y 2) (x 1, y 1) Picture 1. Line (x 1, y 1)-(x 2, y 2), Renk, BF İçi dolu kutu çizer (x 2, y 2)

VİSUAL BASIC İLE GRAFİK ÇİZİMİ Çember Çizimi: Yarıçap Picture 1. Circle (x, y), Yarıçap, Renk (x, y) Çember Parçası Çizimi: (Açılar Radyandır!!!) Picture 1. Circle (x, y), Yarıçap, Renk, 3. 1415/4, 3*3. 1415/4 Yarıçap (x, y) Bitiş Açısı (Radyan) Başlangıç Açısı (Radyan) (Saat ibresi tersi yönünde dolanır) Daire Dilimi Çizimi: Picture 1. Circle (x, y), Yarıçap, Renk, - 3. 1415/4, - 3*3. 1415/4 (- işaretler çember dilimini merkezde kapatır) Elips Çizimi: (Yükseklik / Genişlik Oranı) Picture 1. Circle (x, y), Yarıçap, Renk, , , 0. 5 a/b (x, y) a/b<0 a b a/b>0

VİSUAL BASIC İLE GRAFİK ÇİZİMİ Visual Basic’de Shape ve Line Nesneleri de Çizim amacı ile kullanılabilir.

VİSUAL BASIC İLE GRAFİK ÇİZİMİ Örnek: Şekildeki çizimi elde etmek için gerekli programı yazınız. 4 5 7 6 3 8 2 1

VİSUAL BASIC İLE GRAFİK ÇİZİMİ Private Sub Command 1_Click() pi = 3. 1415 Picture 1. Scale (0, 400)-(600, 0) Picture 1. Back. Color = vb. Green Picture 1. Draw. Width = 4 Picture 1. Line (300, 50)-(425, 50), vb. Blue Picture 1. Circle (500, 50), 75, vb. Blue, pi / 2, pi Picture 1. Line (500, 125)-(500, 350), vb. Blue Picture 1. Line -(100, 250), vb. Blue Picture 1. Line -(300, 50), vb. Blue Picture 1. Line (100, 300)-(500, 300), vb. Blue Picture 1. Fill. Style = 7 Picture 1. Circle (300, 200), 50, vb. Blue End Sub

VİSUAL BASIC İLE GRAFİK ÇİZİMİ Spriral Çizimi: Private Sub Command 1_Click() a=2 b = 0. 22 Picture 1. Scale (-200, 200)-(200, -200) Picture 1. Back. Color = vb. White Picture 1. Draw. Width = 3 For t = 0 To 20 Step 0. 01 x = a * Exp(b * t) * Cos(t) y = a * Exp(b * t) * Sin(t) Picture 1. PSet (x, y), vb. Red Next t End Sub