VisualBasic: menghitung luas dan volume bangun

SCRIPT VISUAL BASIC MENGHITUNG VOLUME DAN LUAS BANGUN

Selamat Datang di Blog Orang IT . Kemarin saya baru UTS mata kuliah pemrograman visual basic 1 dan kebetulan soal UTS nya disuruh membuat program sederhana untuk menghitung rumus luas dan volume bangun kebanyakan mahasiswa pasti pada browsing di internet kan ? oleh karena itu saya akan share script hasil UTS kemarin siapa tau berguna bagi yang membutuhkanya . Oh ya memang scriptnya sederhana karena ini baru visual 1 soalnya di perkuliahan saya sebelumnya D3 tidak ada pemrograman visual basic jadi saat transfer S1 mata kuliah ini harus diambil sampai materi ke 2

Saya anggap anda sudah bisa desain layoutnya samakan dengan gambar hasil , buat 3 buah panel masing-masing untuk menghitung rumus kubus , balok dan tabung 

Script visual basic menghitung volume kubus

Private Sub balok_Click()
formkubus.Hide
formbalok.Show
End Sub

Private Sub hapus_Click()
sisi.Text = ""
volume.Text = ""
sisi.SetFocus
End Sub

Private Sub hitung_Click()
volume.Text = sisi.Text * sisi.Text * sisi.Text
End Sub

Private Sub keluar_Click()
End
End Sub

Private Sub tabung_Click()
formkubus.Hide
formbalok.Hide
formtabung.Show
End Sub

Script Visual basic menghitung luas dan volume balok

Private Sub hapus_Click()
panjang.Text = ""
lebar.Text = ""
tinggi.Text = ""
hasil.Text = ""
panjang.SetFocus
End Sub

Private Sub keluar_Click()
End
End Sub

Private Sub kubus_Click()
formkubus.Show
formbalok.Hide
End Sub

Private Sub luas_Click()
Dim p, l, t, w As Integer
p = Val(panjang.Text)
l = Val(lebar.Text)
t = Val(tinggi.Text)
w = Val(2 * panjang * lebar) + (2 * panjang * tinggi) + (2 * lebar * tinggi)
hasil.Text = w
End Sub

Private Sub tabung_Click()
formkubus.Hide
formbalok.Hide
formtabung.Show
End Sub

Private Sub volume_Click()
Dim p, l, t, v As Integer
p = Val(panjang.Text)
l = Val(lebar.Text)
t = Val(tinggi.Text)
v = Val(panjang * lebar * tinggi)
hasil.Text = v
End Sub

Script visual basic menghitung volume tabung

Const phi As Double = 3.14

Private Sub balok_Click()
formkubus.Hide
formbalok.Show
formtabung.Hide
End Sub

Private Sub hapus_Click()
Dim hasil As Double
tinggi.Text = ""
radius.Text = ""
hasil.Text = ""
tinggi.SetFocus
End Sub

Private Sub hitung_Click()
Dim volumetabung As Double

If tinggi.Text = "" Or radius.Text = "" Then
MsgBox "Masukkan Tinggi dan Jari-jari Tabung", vbOKOnly, "Informasi"
tinggi.SetFocus
Else
luasalas = phi * (radius.Text * radius.Text)
volumetabung = luasalas * tinggi.Text
hasil.Text = volumetabung
End If
End Sub

Private Sub keluar_Click()
End
End Sub

Private Sub kubus_Click()
formkubus.Show
formbalok.Hide
formtabung.Hide
End Sub

Hasilnya kurang lebih seperti ini :

Nah ini yang ditunggu - tunggu silahkan download project visualbasic 6.0 cara menghitung rumus volume dan luas bangun datar melalui link dibawah ini , setelah didownload tinggal diload saja ke software VB lalu dirunning jika sudah berhasil tinggal ngadepin dosen semoga bisa jelasin / presentasi kodingnya .

Demikian postingan saya mengenai script visual basic untuk menghitung rumus[ volume dan luas bangun datar semoga bermanfaat jika ada yang mau menambah atau bertanya silahkan berkomentar yang relevans tidak menerima komentar sara .