Membuat Program Menghitung Volume Kubus Menggunakan VB 6.0

Membuat Program Menghitung Volume Kubus Menggunakan VB 6.0, 
Sedikit share neh ane baru aja bikin program(cie bikin program?...ky jago2 adja ya..hahha) programnya sederhana seh, cuman ngitung volume kubus. Tapi lumayan lah mungkin diluar sana ada yang belum tau...:D
Oke langsunga aja ya kita bikin design interfacenya dulu.
kira-kira seperti ini :

Propertinya kira-kira seperti itu
Lebel1 = Jari -Jari Lingkaran
Label2 = Tinggi Tabung
Label3 = Luas Alas (phi * r^2)
Label4 = Volume (Luas Alas * Tinggi
TextBox1 = txtJari
TextBox2 = txtTinggi
TextBox3 = txtLuas
TextBox4 = txtVolume
CommandButtom1 = cmdProses "PROSES"
CommandButtom2 = cmdReset "RESET"
CommandButtom3 = cmdKeluar "KELUAR"

Kode Progaramnya


Dim r As Double
Dim t As Double
Dim volume As Double
Dim area As Double
Const pi As Double = 3.14

Private Sub cmdKeluar_Click()
'MsgBox = vbYes " Anda Yakin Akan keluar?"
Unload Me
End Sub

Private Sub cmdProses_Click()

r = txtJari.Text
t = TxtTinggi.Text
luas = pi * r * r
txtLuas = luas
volume = luas * t
txtVolume = volume
End Sub

Private Sub cmdReset_Click()
txtJari.Text = ""
TxtTinggi.Text = ""
txtLuas.Text = ""
txtVolume.Text = ""

End Sub

Private Sub Form_Load()

End Sub

Private Sub Timer1_Timer()
lblTime.Caption = Time
End Sub

Semoga Bermanfaat..:D