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 .