MEMBUAT PROGRAM BENTUK BANGUN DENGAN VB

Ket yang di perlukan untuk artikel ini gambar bentuk formnya dapat di sesuaikan pada tampilan gambar ... Selamat mencoba..

Untuk membuat bentuk bangun ini hal yang perlu diperhatikan adalah formula dari bangun tersebut.

A.    Bentuk Lingkaran

Dalam membuat program aplikasi bentuk lingkaran anda pertama kali membuat tampilannya terlebih dahulu seperti yang terlihat pada gambar 2.1

Langkah kedua yaitu merubah properties dari tampilan yang telah dibuat dengan jalan merubah nilai yang terdapat pada objek seperti terlihat pada tabel 2.1.

Tabel 2.1. Perubahan yang dilakukan pada windows properties

Objek	Properti	Nilai (Value)
Form1	Caption	Lingkaran
Command1	Caption	&Hitung
Command2	Caption	H&apus
Cammand3	Caption	K&eluar
Label1	Caption	Perhitungan Lingkaran
Label2	Caption	Diameter
Label3	Caption	Keliling
Label4	Caption	Luas
Text1	Text	(kosongkan)
Text2	Text	(kosongkan)
Text3	Text	(kosongkan)

Langkah ketiga yaitu membuat kode program aplikasi tetapi sebelumnya anda harus sudah mengetahui rumus-rumus yang akan digunakan untuk program aplikasi ini yaitu rumus keliling lingkaran dan Luas lingkaran serta tanda-tanda untuk operasi matematika (tabel 2.2).

Tabel 2.2. Operasi Matematika

Tanda Operasi Matematika Untuk Visual Basic 6.0	Keterangan
+	Penjumlahan
-	Pengurangan
/	Pembagian
*	Perkalian
^	Pangkat

Untuk rumus keliling lingkaran adalah (π  x diameter^2 ) / 4 dan rumus Luas lingkaran adalah  π  x diameter.

Pada tampilan program aplikasi yang anda buat diameter yang diisi terletak pada Text1, Keliling terletak pada Text2 dan Luas terletak pada Text3 maka rumus-rumus diatas berubah menjadi:

Untuk Keliling lingkaran berubah : Text2.Text = 3.14  * Text1.Text

Untuk Luas lingkaran berubah : Text3.Text = (3.14 * Text1.Text^2) / 4

Tahapan Untuk Membuat Kode program adalah

1. Klik dua kali pada Command1 (Untuk Hitung)

Private Sub Command1_Click()

Text3.Text = ( 3.14* Text1.Text ^ 2) / 4   ‘Perhitungan Luas Lingkaran

Text2.Text = 3.14 * Text1.Text                          ‘Perhitungan Keliling Lingkaran

End Sub

2. Klik dua kali pada Command2 (Untuk Hapus)

Private Sub Command2_Click()

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

End Sub

3. Klik dua kali pada Command3 (Untuk Keluar)

Private Sub Command3_Click()

End

End Sub

B.     Memodifikasi Kode Program

Untuk memodifikasi kode program berarti anda merubah tampilan program aplikasinya, untuk itu ubahlah apliksi diatas menjadi seperti dibawah ini. Yaitu dengan menambahkan komponen objek 1 Frame, 2 OptionButton dan 2 CheckBox.

 Atur propeti dalam objek tambahan sebagai berikut:

Objek	Properti	Nilai (Value)
Frame1	Caption	Pilihan
Option1	Caption	Biru
Option2	Caption	Hijau
Check1	Caption	Tebal
Check2	Caption	Miring

Objek Frame1 dibuat terlebih dahulu di form, dan selanjutnya Option dan Check di buat di dalam Frame1. Tujuan dari ini sebagi pilihan di program aplikasi.

Tambahkan Kode Program berikut ini:

1. Klik Ganda pada Option1 kemudian ketik kode berikut:

Private Sub Option1_Click()

 Text1.ForeColor = vbBlue

 Text2.ForeColor = vbBlue

 Text3.ForeColor = vbBlue

End Sub

2. Klik Ganda pada Option2 kemudian ketik kode berikut:

Private Sub Option2_Click()

 Text1.ForeColor = vbGreen

 Text2.ForeColor = vbGreen

 Text3.ForeColor = vbGreen

End Sub

3. Klik Ganda pada Check1 kemudian ketik kode berikut:

Private Sub Check1_Click()

 Text1.FontBold = Check1.Value

 Text2.FontBold = Check1.Value

 Text3.FontBold = Check1.Value

End Sub

4. Klik Ganda pada Check2 kemudian ketik kode berikut:

Private Sub Check2_Click()

 Text1.FontItalic = Check2.Value

 Text2.FontItalic = Check2.Value

 Text3.FontItalic = Check2.Value

End Sub

Kemudian simpan Form1, kemudian jalankan program aplikasi ini dan lihta hasilnya:

C.    Bentuk yang lain yang dapat dibuat

Dengan mengikuti langkah-langkah yang telah dilakukan anda dapat membuat perhitungan untuk bentuk lainnya. Tampilan dari perhitungan dapat anda buat dengan selera. Hal yang perlu di perhatikan adalah anda harus mengerti rumus dan perubahan rumus kedalam aplikasi program yang akan di buat pada visual basic 6.0.