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...
Oke langsunga aja ya kita bikin design interfacenya dulu.
kira-kira seperti ini :

[You must be registered and logged in to see this image.]

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

Spoiler:

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

Sumber BySharing Mr Arieve

Admin [You must be registered and logged in to see this image.]★★★|Absolutë zÑø|★★★

[Absolute]master

» Cara edit Audition.exe menggunakan hex editor
» Cara membuat Light Injector
» Cara membuat Light Injector
» Cara Membuat Trainer AUDITION
» Membuat Aplikasi Jam Analog - Visual Basic 6.0