Menghitung  Volume Kubus dengan Menggunakan Visual basic  6.0

1.Aktifkan VB 6.0 melalui tombol Start→Program→Microsof Visual  Studio 6.0→ Microsof Visual  Basic 6.0  untuk membuka aplikasi Visual Basic 6.0 seperti tampilandi bawah ini

2.Akan muncul Tampilan seperti  beikut:
  Click Open.

3.Maka Akan Tampil gambar seperi di bawah ini

4.Selanjutnya Mendesign Prorgam Seperti gambar berikut

Propertis

Objeck	Properti	Setting
Form	Name Caption	FrmLat1 Menghitung Volume Kubus
Label1	Caption	SISI
Label2	Caption	VOLUME
Text1	Name	sisi
Text2	Name	volume
Command1	Name Caption	Cmdhitung &Hitung
Command2	Name Caption	Cmdhapus &Hapus
Command3	Name Caption	Cmdkeluar &Keluar

Jika anda ingin mewarnai Form atau merubah bentuk tulisan, rubah di propertiesnya

Back  color  →Fungsinya Untuk mewarnai tampilan

Fore color → Fungsinya Untuk mewarnai tulisan

Font → Fungsinya Untuk merubah jenis dan ukuran tulisan

Double Click Form anda  ketikkan program di bawah ini

Sub hapus()

    sisi.Text = ""

    volume.Text = ""

End Sub

Private Sub Cmdhitung_Click()

volume = sisi * sisi * sisi

End Sub

Private Sub Cmdhapus_Click()

    hapus

End Sub

Jalankan programnya tekan  F5

selanjutnya Tambahkan kode program yang di atas seperti berikut

Private Sub Cmdhitung_Click()

    If sisi.Text = "" And volume.Text = "" Then

        MsgBox "sisi dan volume belum di isi..!" (Menampilkan pesan jika “sisi.text And volume.text “belum di isi)

        sisi.SetFocus ( Posisi kursor Anda focus pada” sisi”)

 Exit Sub

        Else

    If volume.Text = "" Then

        MsgBox "volume belum di isi..!" (Menampilkan pesan jika” volume belum di isi”)

        volume.SetFocus

    Exit Sub

    Else

    volume =sisi * sisi * sisi

    End If

    End If

End Sub

Private Sub cmdkeluar_Click()

    Dim pesan As String

    pesan = MsgBox("Anda yakin keluar..?", vbQuestion + vbYesNo)

    If pesan = vbYes Then

     Unload Me

     End If

End Sub

Private Sub Form_Load()

    hapus

end Sub

Private Sub sisi_ KeyPress(KeyAscii As Integer)                               

    If KeyAscii = 13 Then

    volume.SetFocus

    End If

End Sub

Private Sub vol_KeyPress(KeyAscii As Integer)

    If KeyAscii = 13 Then

    Cmdhitung.SetFocus

    End If

End Sub