130 likes | 813 Views
VİSUAL BASIC İLE GRAFİK ÇİZİMİ. (0,0). (0,0). x. x. y. y. Picture Box. 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.
E N D
VİSUAL BASIC İLE GRAFİK ÇİZİMİ (0,0) (0,0) x x y y Picture Box 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.
VİSUAL BASIC İLE GRAFİK ÇİZİMİ (x1,y1) Sol Üst Köşe y Form1.Scale (x1,y1)-(x2,y2) x (0,0) Sağ Alt Köşe (x2,y2) 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.
VİSUAL BASIC İLE GRAFİK ÇİZİMİ (x1,y1) y Sol Üst Köşe Picture1.Scale (x1,y1)-(x2,y2) x (0,0) (x2,y2) Picture Box Sağ Alt Köşe (-100,100) y y x (100,-100) (0,100) x (200,-100) Örnekler: Bir Picture Box’ı 200x200 boyutlarında ölçeklendirelim Picture1.Scale (-100,100)-(100,-100) (0,0) Picture1.Scale (0,100)-(200,-100) (0,0)
VİSUAL BASIC İLE GRAFİK ÇİZİMİ (0,200) Picture1.Scale (0,200)-(200,0) x x (200,0) (-100,200) y y (100,0) (0,0) x y (200, 200) (0,0) Picture1.Scale (0,200)-(200,0) (0,0) Picture1.Scale (0, 0)-(200, -200)
VİSUAL BASIC İLE GRAFİK ÇİZİMİ Picture1.DrawWidth =2 Picture1.DrawWidth =10 Picture1.DrawStyle =0 Picture1.DrawStyle =1 Picture1.FillStyle =0 Picture1.FillColor =vbRed Picture1.FillStyle =2 Picture1.FillColor =vbRed Çİ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.
VİSUAL BASIC İLE GRAFİK ÇİZİMİ Pset (x,y), Renk Picture1.PSet (10, 50), vbBlue x,y koordinatlarına nokta çizer (x3,y3) (x1,y1) Picture1.Line (x1, y1)-(x2, y2), Renk (x2,y2) Başlangıç Bitiş Bir önceki çizginin bitiş noktasından devam eden bir çizgi çizer Picture1.Line -(x3, y3), Renk (x1,y1) İçi boş kutu çizer Picture1.Line (x1, y1)-(x2, y2), Renk, B (x2,y2) (x1,y1) İçi dolu kutu çizer Picture1.Line (x1, y1)-(x2, y2), Renk, BF (x2,y2) Çizim Komutları:
VİSUAL BASIC İLE GRAFİK ÇİZİMİ Yarıçap (x,y) Daire Dilimi Çizimi: Picture1.Circle (x,y), Yarıçap, Renk, - 3.1415/4, - 3*3.1415/4 (- işaretler çember dilimini merkezde kapatır) (x,y) Elips Çizimi: a/b<0 (Yükseklik / Genişlik Oranı) a b a/b>0 Picture1.Circle (x,y), Yarıçap, Renk, , , 0.5 Çember Çizimi: Picture1.Circle (x,y), Yarıçap, Renk Çember Parçası Çizimi: (Açılar Radyandır!!!) Yarıçap Picture1.Circle (x,y), Yarıçap, Renk, 3.1415/4, 3*3.1415/4 (x,y) Bitiş Açısı (Radyan) Başlangıç Açısı (Radyan) (Saat ibresi tersi yönünde dolanır) a/b
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İ 4 5 7 3 8 6 2 1 Örnek: Şekildeki çizimi elde etmek için gerekli programı yazınız.
VİSUAL BASIC İLE GRAFİK ÇİZİMİ Private Sub Command1_Click() pi = 3.1415 Picture1.Scale (0, 400)-(600, 0) Picture1.BackColor = vbGreen Picture1.DrawWidth = 4 Picture1.Line (300, 50)-(425, 50), vbBlue Picture1.Circle (500, 50), 75, vbBlue, pi / 2, pi Picture1.Line (500, 125)-(500, 350), vbBlue Picture1.Line -(100, 350), vbBlue Picture1.Line -(100, 250), vbBlue Picture1.Line -(300, 50), vbBlue Picture1.Line (100, 300)-(500, 300), vbBlue Picture1.FillStyle = 7 Picture1.Circle (300, 200), 50, vbBlue End Sub
VİSUAL BASIC İLE GRAFİK ÇİZİMİ Spriral Çizimi: Private Sub Command1_Click() a = 2 b = 0.22 Picture1.Scale (-200, 200)-(200, -200) Picture1.BackColor = vbWhite Picture1.DrawWidth = 3 For t = 0 To 20 Step 0.01 x = a * Exp(b * t) * Cos(t) y = a * Exp(b * t) * Sin(t) Picture1.PSet (x, y), vbRed Next t End Sub