Tutorial

VisualBasic: menghitung luas dan volume bangun

by

helmy

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 .

Related Post

Tutorial download file terabox dari komputer dan smartphone

Cara mendaftarkan bayi baru lahir ke BPJS Kesehatan melalui Whatsapp

Cara mengembalikan saldo paypal yang dicuri dan akun paypal dihack

Cara install windows 11 dan cara upgrade windows 11 bagi pemula

Cara download sertifikat vaksinasi covid-19 pertama dan kedua

Tutorial membuat akun soundcloud.com dengan mudah

2024 helmykediri.com