Cara membuat grafik dan bentuk dalam "Visual Basic"

Langkah 1

Buka proyek Visual Basic baru menggunakan template "Standard EXE", salah satu opsi yang muncul ketika Anda memilih proyek baru. Simpan proyek dan formulir ketika Anda memintanya sebagai MyGraphicsDemo. Sesuaikan tinggi "Form1" di jendela Properties dengan 5400 dan lebarnya dengan 6800.

Langkah 2

Klik dua kali pada ikon "CommandButton" di kolom Toolbox di sebelah kiri untuk menambahkannya ke formulir. Ini adalah kotak kecil yang biasanya ditempatkan di kolom alat yang tepat dan di baris ketiga dari atas. Tag muncul saat Anda mengarahkan kursor ke atasnya. Klik pada tombol untuk fokus pada "Properties" di jendela di sebelah kanan dan mengubah properti "Label" untuk membaca "Tampilkan saya beberapa titik berwarna!" tanpa tanda kutip. Ubah properti Ketinggian menjadi 500 dan Lebar hingga 3000.

Langkah 3

Buka jendela kode dengan mengklik "Lihat" dan kemudian "Kode" di tingkat atas menu Visual Basic. Pertama-tama sesuaikan titik lokasi di layar, ukuran dan warna dengan kode ilustratif. Kemudian ubah pengaturan untuk mempelajari apa yang dapat Anda lakukan hanya dengan menggunakan satu titik. Dalam kode ini, "PSet" membuat garis-garis warna yang berbeda, sedangkan baris kode yang berisi "Rnd" menduplikasi banyak titik dengan tempat dan warna acak. Setelah selesai, tekan "F5" untuk melihat hasilnya.

Private Sub Command1_Click () BackColor = vbRed PSet (0, 0) PSet (15, 5), vbCyan PSet (20, 10), vbYellow CurrentX = 500: CurrentY = 500 Untuk i = 1 Ke 20 PSet Step (0, 0) Berikutnya Untuk i = 1 Ke 500 DrawWidth = Rnd * 5 + 1 PSet (Rnd * ScaleWidth, Rnd * ScaleHeight), RGB (Rnd * 255, Rnd * 255, Rnd * 255) Next DrawWidth = 1 Akhir Sub

Langkah 4

Buat segitiga besar menggunakan perintah "Line" di Visual Basic, yang menggunakan pengaturan lokasi untuk menggambar segitiga. Tambahkan persegi panjang berwarna dengan perintah Line menggunakan titik lokasi yang berbeda. Tambahkan dua CommandButtons ke form seperti pada langkah 2. Ubah properti Label sehingga tertulis "Menggambar segitiga" dan "Menggambar persegi panjang" masing-masing. Anda hanya perlu memperbesar kotak seperti pada langkah 2. Kemudian masukkan kode berikut di bawah baris kode sebelumnya. Setelah selesai, tekan "F5" untuk melihatnya.

Private Sub Command2_Click () Line (1500, 3000) - Step (1000, 0), vbBlack Line - Langkah (0, 1000), vbBlack Line - (1500, 3000), vbBlack End Sub Private Sub Command3_Click () Line (1200, 1500) - Langkah (2100, 1100), vbGreen, B End Sub

Langkah 5

Gambar sebuah lingkaran dengan baris kode berikut. Gambar elips dan busur menggunakan proses yang sama. Ini hanya memodifikasi dimensi dan tempat di mana lingkaran akan mulai dan berakhir. Memperluas satu aspek lingkaran, Anda mengubahnya menjadi elips dan tanpa menutup lingkaran Anda membuat busur. Untuk mengkonfigurasi ini, tambahkan CommandButton, beri label sebagai "Menggambar lingkaran".

Private Sub Command4_Click () DrawWidth = 5 FillStyle = vbFSSolid FillColor = vbCyan Circle (2000, 2000), 1000, vbBlue End Sub