Baik, Pada postingan kali ini saya mau berbagi cara membuat circle berwarna menggunakan vb, disini saya menggunakan visual basic 6.0.
Mungkin ada di antara teman-teman semua mendapatkan tugas membuat circle berwarna dari dosen sama seperti saya, jujur waktu itu saya tidak tahu bagaimana cara membuatnya dan akhirnya saya bertemu dengan kakak kelas saya di mushola kampus dan mulai bertanya-tanya mengenai tugas membuat circle berwarna menggunakan visual basic 6.0 dan akhirnya berhasil hehe..
Oke langsung saja ke pokok pembahasannya, berikut langkah-langkahnya:
1. Buat project baru di vb
2. Buat form baru dengan klik project di toolbar lalu pilih add form.
Buat Form Baru Di VB |
Setelah itu akan muncul jendela seperti gambar dibawah.
Buat Form Baru di VB |
Pilih form lalu klik open atau bisa juga dengan double klik di Form nya.
Untuk membuat circle berwarna ini buatlah 2 form.
3. Pada form1 buatlah design seperti gambar di bawah.
Design VB |
Sebenarnya untuk desing bebas gimana selera masing-masing yang penting ada tempat untuk mengeksekusi, disini saya menggunakan CommondButton.
masukkan listing nya di CommondButton
Private Sub commond1_Click()
Form2.Show
End Sub
4. Pada form2 buatlah seperti gambar dibawah.
Buat Timer di VB |
Buatlah timer di form2 dan masukkan listingnya
Private Sub Timer1_Timer()
Form2.BackColor = black
Dim cx, cy, radius, limit
limit = limit + 2
ScaleMode = 3
cx = ScaleWidth / 2
cy = ScaleHeight / 2
If cx > cy Then limit = cy Else limit = cx
For radius = 0 To limit
Circle (cx, cy), radius, RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Next radius
End Sub
Listing di form click
Private Sub Form_Click()
Unload Me
End Sub
Jangan lupa mengubah intervalnya di timer menjadi 100
5. Simpan project ini di komputer/laptop. Selesai.
Hasilnya seperti gambar dibawah ini.
Hasil Circle Berwarna di VB |
Bagaimana? cukup mudah kan membuat circle berwarna mengguanakan visual basic ini?
Selamat mencoba.. Baca juga Pengenalan IDE Visual Basic 6
Salam hangat dan sampai jumpa di postingan berikutnya..
Selamat Atas Postingan Blognya Mas Edu,
ReplyDeleteWalau Agak Kurang Menarik, Tapi ILmunya Ada...
Next Postingannya, Harus Lebih Menarik yaa, Biar Gak NgeBosenin... Gak Selalu Tentang Ilmu Pelajaran, ILmu Share Tentang Kehidupan Juga OK kok... #Semangat.
siap, mas Rudy..
Deletenanti kalo ada ide buat nulis tentang kehidupan nanti di share kok..
makasih sudah berkunjung ke blog saya dan sarannya..
mantap, info yang bermanfaat.
ReplyDeletekeep posting min.
makasih gan udah berkunjung..
DeleteKakak yg satu ini Prohremeur handal. Skill, Logika, analisis + Problem solvingnya ciamik...
ReplyDelete*XembahXujudku*
ah kakak ini suka berlebay-an,kakak yang prohremeur expert mah..
Deletemakacih ya kaks udah nengokin n komen ksini..
*xalimxembahxujud*
MGM Casino, Hotel & Spa - DRM CD
ReplyDeleteGet the inside 춘천 출장샵 scoop 세종특별자치 출장안마 for your favorite casino 서울특별 출장마사지 and hotel. 고양 출장샵 The MGM Grand Hotel & Spa in Las Vegas, 군산 출장안마 the premiere resort in the Las Vegas Strip.