Membuat Program Mencari Luas Bangun Datar Dengan Visual Basic 6.0

Program Mencari Luas Bangun Datar

Kali ini wisnuanggara1.blogspot.com akan membahas tentang cara membuat program dengan Visual Basic 6.0. Program yang akan dibuat kali ini adalah mencari luas bangun datar yang terdiri dari luas persegi, luas persegi panjang, dan luas segitiga. Konsep dari program ini adalah akan terdiri dari 2 form. Form 1 digunakan untuk tampilan awal yang merujuk ke form2 yang berisi program utama.Oke langsung saja kita bahas berikut langkah-langkahnya :

1. Ketika membuka program Microsoft Visual Basic 6.0, maka akan secara otomatis akan menampilkan jendela  Form1.
   
2. Setelah jendela Form1 muncul kemudian menyusun komponen programnya, komponen yang perlu dimasukan ke dalam Form1 adalah 1 Label dan 1 Button.
3. Menyusun komponen programnya seperti berikut :
   
4. Lalu masukan kodingannya :
   

• - Private Sub Command1_Click() Menyatakan kejadian ketika command1 diklik. 
• - Form2.Show Menampilkan Form2 ketika command1 (button mulai) diklik.
•  - Unload Me Mengatur agar Form1 akan tertutup ketika perintah menampilkan Form2 dijalankan.
•  - End Sub Mengakhiri kejadia/perintah.  

     5. Kemudian klik kanan pada project kita yang berada padamenu project sebelah kanan, kemudian          pilih add dan pilih form untuk membuat Form2.

    6. Komponen yang diperlukan untuk Form2 , sebagai berikut : 3 Frame , 5 TextBox, 12 Label, 3              Button

    7. Susun komponenya seperti berikut :

   

    8. Kemudian masukan kodingannya, sebagai berikut :     

• Private Sub Command1_Click() Menyatakan kejadian ketika command1 diklik. 
•  If Text1 = "" Then MsgBox ("Silahkan Masukan Nilai Sisi") Else Menyatakan percabangan if-else dimana dengan kondisi (jika Text1=" ") maka akan ditampilkan MsgBox("Silahkan Masukan Nilai Sisi") jika tidak maka, akan melanjutkan ke perintah (Label8.Caption = Text1 * Text2) 
•  Label8.Caption = Text1 * Text2 Menampilkan hasil dari perintah yang terjadi antara Text1 * Text2 ke dalam Label8. 
•  End If Menyatakan akhir dari percabangan 
•  End Sub Mengakhiri kejadian/perintah   
•  Private Sub Command2_Click() Menyatakan kejadian ketika command2 diklik. 
•  If Text3 = "" And Text4 = "" Then MsgBox ("Silahkan Masukan Nilai Panjang dan Lebar") Else  
• Menyatakan percabangan if-else dimana dengan kondisi (jika Text1 dan Text4 =" ") maka akan ditampilkan MsgBox("Silahkan Masukan Nilai Panjang dan Lebar") , jika tidak maka akan melanjutkan ke perintah (Label5.Caption = Text3 * Text4). 
• Label5.Caption = Text3 * Text4 "Menampilkan hasil dari perintah yang terjadi antara Text3 * Text4 ke dalam Label5." 
•  End If Menyatakan akhir dari percabangan. 
• End Sub "Mengakhiri kejadian/perintah."  
• Private Sub Command3_Click() Menyatakan kejadian ketika command3 diklik.
•  If Text2 = "" And Text5 = "" Then MsgBox ("Silahkan Masukan Nilai Alas dan Tinggi") Else  Menyatakan percabangan if-else dimana dengan kondisi (jika Text2 dan Text5 =" ") maka akan ditampilkan MsgBox("Silahkan Masukan Nilai Alas dan Tinggi") , jika tidak maka akan melanjutkan ke perintah (Label5.Caption = Text2 * Text5).  
•  Label5.Caption = (Text2 * Text5)/2 Menampilkan hasil dari perintah yang terjadi antara (Text2 * Text5)/2 ke dalam Label5.  End If Menyatakan akhir dari percabangan.  End Sub Mengakhiri kejadian/perintah. 

Output program :

TERIMA KASIH