Membuat Aplikasi Dasar "Rumus Trapesium" Visual Basic 8.0

• Buka visual basic 8.0 dan ikuti langkah berikut ini 

• Buat Project Baru Pilih seperti ini 

•   Design pada form,Berikan  seperti :

•  Ganti nama text dan nama design pada form seperti ini

• label 1 

tulisan text diganti menjadi "Sisi Pertama"

•  label 2

Tulisan text diganti menjadi "Sisi Kedua"

• label 3

Tulisan text diganti menjadi "Tinggi"

• label 4

Tulisan text diganti menjadi "Luas"

• Button 1

Tulisan text diganti menjadi "Hapus" dan Design name di ganti menjadi "BtnHapus"

• Button 2

Tulisan Text diganti menjadi "Hitung" dan Design name diganti menjadi "BtnHitung"

• Button 3

Tulisan Text diganti menjadi "Selesai" dan Design name diganti menjjadi "BtnSelesai"

• klik 2x pada "HAPUS"/"Btnhapus" di form,lalu tuliskan format seperti ini

Private Sub Btnhapus_Click()
txtsisipertama.Text = “”
txtsisikedua.Text = “”
txttinggi.Text = “”
txtluas.Text = “”
txtsisipertama.SetFocus
End Sub

•  klik 2x pada "Btnhitung"/"HITUNG" di form,lalu tuliskan format seperti ini

txtLuas.text = 0.5*(txtSisiPertama.text*txtSisikedua.text)*txtTinggi.text

• klik 2x pada " BtnSelesai"/"SELESAI" di form,lalu tuliskan format seperti ini

If MsgBox("Anda yakin ingin keluar", vbYesNo, "Konfirmasi") = vbYes Then
Me.Close()
Exit Sub
End If
End Sub

• Selesai