"Visual Basic" de grafikler ve şekiller nasıl oluşturulur
1. Adım
Yeni bir proje seçtiğinizde görüntülenen seçeneklerden biri olan "Standart EXE" şablonunu kullanarak yeni bir Visual Basic projesi açın. MyGraphicsDemo olarak sorduğunuzda projeyi ve formu kaydedin. Properties penceresinde "Form1" yüksekliğini 5400 ve genişliğini 6800 ile ayarlayın.
2. Adım
Forma eklemek için soldaki Araç Kutusu sütunundaki "CommandButton" simgesini çift tıklayın. Normal olarak araçların sağ sütununda ve üçüncü sıradaki yukarıdan yerleştirilen küçük bir dikdörtgendir. Etiket, üzerine geldiğinizde görünür. Sağdaki pencerede "Özellikler" e odaklanmak ve "Etiketle" özelliğini değiştirmek için "Bana bazı renkli noktaları göster" düğmesini tıklayın. tırnaksız. Yükseklik özelliğini 500 ve Genişliği 3000 olarak değiştirin.
3. adım
Visual Basic menüsünün üst düzeyindeki "Görüntüle" ve sonra "Kod" u tıklayarak bir kod penceresi açın. Öncelikle ekran üzerindeki konum noktalarını, boyut ve rengi açıklayıcı kodla ayarlayın. Daha sonra, yalnızca tek noktaları kullanarak neler yapabileceğinizi öğrenmek için ayarları değiştirin. Bu kodda "PSet" satırları farklı renk noktaları yaratırken, "Rnd" içeren kod satırları rastgele yer ve renklerle birçok noktayı çoğaltır. İşiniz bittiğinde, sonucu görmek için "F5" tuşuna basın.
Özel Alt Komut1_Click () BackColor = vbRed PSet (0, 0) PSet (15, 5), vbCyan PSet (20, 10), vbSellow CurrentX = 500: CurrentY = 500 i = 1 - 20 PSet Adımı (0, 0) Next i = 1 - 500 DrawWidth = Rnd * 5 + 1 PSet (Rnd * ScaleWidth, Rnd * ScaleHeight), RGB (Rnd * 255, Rnd * 255, Rnd * 255) Sonraki DrawWidth = 1 End Sub
4. Adım
Üçgen çizmek için konum ayarını kullanan Visual Basic'te "Çizgi" komutunu kullanarak büyük bir üçgen oluşturun. Farklı konum noktalarını kullanarak Çizgi komutuyla renkli bir dikdörtgen ekleyin. Adım 2'deki forma iki tane daha CommandButtons ekleyin. Etiketin özelliklerini değiştirin, böylece sırasıyla "Üçgen çizin" ve "Dikdörtgen çizin" yazınız. Kutuları yalnızca 2. adımda olduğu gibi büyütmeniz gerekebilir. Daha sonra, aşağıdaki kod satırlarının altına aşağıdaki kodu girin. Bittiğinde, görmek için "F5" tuşuna basın.
Özel Alt Command2_Click () Hattı (1500, 3000) - Adım (1000, 0), vbBlack Line - Adım (0, 1000), vbBlack Line - (1500, 3000), vbBlack End Alt Özel Sub Command3_Click () Line (1200, 1500) - Adım (2100, 1100), vbGreen, B End Sub
Adım 5
Aşağıdaki kod satırlarıyla bir daire çizin. Aynı işlemi kullanarak elips ve yaylar çizin. Boyutları ve dairelerin başlayacağı ve biteceği yeri basitçe değiştirir. Dairenin bir yönünü genişletmek, onu bir elips haline dönüştürmek ve bir ark oluşturduğunuz daireyi kapatmadan. Bunu yapılandırmak için, "Çember çiz" olarak etiketleyerek daha fazla KomutDüğmesi ekleyin.
Özel Alt Command4_Click () DrawWidth = 5 FillStyle = vbFSSolid FillColor = vbCyan Çemberi (2000, 2000), 1000, vbBlue End Sub
