"PROGRAM MENCARI LUAS BUJUR SANGKAR"

 
 Langkah mencari Luas Bujur Sangkar:
• Masuklah ke program Microsoft Visual Basic, akan keluar tampilan New Project, pilih Standar EXE kemudian klik Open.
• Kemudian muncul tampilan Form1, dan ganti nama Form1 pada Caption menjadi “Mencari Luas Bujur Sangkar”
• Dan untuk membuat User Interface klik dan drag-drop komponen label didalam ToolBox ke Form sebanyak 3kali dan kemudian ganti nama Captionnya Label1 dengan Sisi1, Label2 dengan Sisi2, dan Label3 dengan Luas. Lalu klik dan drag-drop TextBox sebanyak 3kali, dan kosongkan semua textnya kemudian beri nama pada text1 dengan Txt_sisi1, text2 dengan Txt_sisi2 dan text3 dengan Txt_luas.
• Kemudian klik dan drag CommandButton sebanyak 2kali. Ganti nama Caption Command1 dengan ULANG dan Command2 dengan HITUNG. Dan beri nama Command1 dengan Cmd_Ulang dan Command2 dengan Cmd_Hitung.
• Klik View Code untuk menampilkan Jendela Code kemudian masukan rumusnya :
Private Sub Cmd_Hitung_Click()
Txt_luas.Text = Val(Txt_sisi1.Text) * Val(Txt_sisi2.Text)
End Sub

Private Sub Cmd_Ulang_Click()
Txt_sisi1.Text = ""
Txt_sisi2.Text = ""
Txt_luas.Text = ""
Txt_sisi1.SetFocus
End Sub