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.14Hasilnya kurang lebih seperti ini :
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
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 .
Posting Komentar untuk "VisualBasic: menghitung luas dan volume bangun"
Diperbolehkan menyalin artikel yang ada diblog ini dengan syarat menyertakan sumber. Blog anda tidak akan dihapus , deindex , adsense tidak akan menerima keluhan hak cipta dari saya.
Jika anda merasa artikel yang ada diblog ini bermanfaat, berikan donasi untuk membantu admin memperpanjang biaya domain dan dukungan dalam membiaya blog-blog saya yang lain , semoga menjadi amal jariyah dari ilmu yang bermanfaat
Donasi paypal >> Klik disini
Ulas juga kami di Google my Business