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

http://rcm.amazon.com/e/cm?t=sharingmrarie-20&o=1&p=8&l=bpl&asins=0735605580&fc1=000000&IS2=1&lt1=_blank&m=amazon&lc1=0000FF&bc1=000000&bg1=FFFFFF&f=ifrSemoga Bermanfaat..:D

About arieve techno

My name arieve, i'm from Purworejo..i live in Yogyakarta more aboute me YM/twitter : arieve_techno

Posted on April 8, 2011, in Tutorial. Bookmark the permalink. Leave a comment.

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s

%d bloggers like this: