"PROGRAM MENCARI LUAS PERSEGI PANJANG"

  
 Langkah mencari Luas Persegi Panjang :
• 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 Persegi Panjang”
• Dan untuk membuat User Interface klik dan drag-drop komponen label didalam ToolBox ke Form sebanyak 3kali dan kemudian ganti nama Captionnya Label1 dengan PANJANG, Label2 dengan LEBAR dan Caption3 dengan nama LUAS. Lalu klik dan drag-drop TextBox sebanyak 3kali, dan kosongkan semua textnya kemudian beri nama pada text1 dengan TXTPANJANG, Text2 dengan TXTLEBAR dan Text3 dengan nama TXTHASIL.
• Kemudian klik dan drag CommandButton sebanyak 3kali. Ganti nama Caption Command1 dengan PROSES, Command2 dengan ULANG dan Command3 dengan nama EXIT. Dan beri nama Command1 dengan CMDPROSES, Command2 dengan CMDULANG dan Command3 dengan CMDEXIT.
• Klik View Code untuk menampilkan Jendela Code kemudian masukan rumusnya :
Private Sub CMDPROSES_Click()
TXTHASIL.Text = TXTPANJANG.Text * TXTLEBAR.Text
CMDULANG.Enabled = True
CMDPROSES.Enabled = False
End Sub

Private Sub CMDULANG_Click()
TXTPANJANG.Text = ""
TXTLEBAR.Text = ""
TXTHASIL.Text = ""
TXTPANJANG.SetFocus
CMDPROSES.Enabled = True
CMDULANG.Enabled = False
End Sub

Private Sub CMDEXIT_Click()
End
End Sub