VisualBasic menghitung luas dan volume bangun

SCRIPT VISUAL BASIC MENGHITUNG VOLUME DAN LUAS BANGUN

VisualBasic menghitung volume dan volume 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 .

Belum ada Komentar untuk "VisualBasic menghitung luas dan volume bangun"

Posting Komentar

Sumber artikel: Pengetahuan penulis , pos tamu , tulisan temen dan situs lain

Jika ingin melakukan full copas/nyepin cantumkan sumber , dari pada site-mu saya laporkan ke DMCA ditandai sebagai web spam dan disembunyikan dari Serp

Apabila ditemukan dead link tolong beri tahu saya melalui komentar

Tidak menerima pemasangan slot iklan apapun.

Iklan Atas Artikel

Iklan Tengah Artikel 1

Iklan Tengah Artikel 2

Iklan Bawah Artikel