Contoh Aplikasi Vb.Net Sederhana Menghitung Volume Tabung
Hai teman vb, kali ini aku akan menciptakan lagi agenda sederhana menghitung volume tabung. sebelumnya aku membuatnya di vb.net 2008. simak baik-baik :
- Buat tampilan menyerupai gambar di bawah ini.
- Sesuaikan properti-propertinya
- Koding tiap event, sebagai berikut :
- cmdhitung - Click
- cmdkosongkan - Click
- cmdkeluar - Click
- Form1 - Load
- Jalankan Programnya
Objek | Properti | Nilai Properti |
TextBox1 TextBox2 TextBox3 | Name Name Name | tbtinggi tbjari tbhasil |
Button1 Button2 Button3 | Name Text Name Text Name Text | cmdhitung Hitung volume tabung cmdkosongkan Kosongkan cmdkeluar Keluar |
'' deklarasi variabel
Dim t, j, h As Double
'' dikala textbox tinggi tidak diisi akan tampil peringatan
If tbtinggi.Text = "" Then
MsgBox("Masukkan tingginya!", MsgBoxStyle.Critical, "Peringatan")
'' jikalau textbox jari-jari tidak diisi akan tampil peringatan
ElseIf tbjari.Text = "" Then
MsgBox("Masukkan jari-jarinya!", MsgBoxStyle.Critical, "Peringatan")
Else
'' proses penghitungan volume tabung
t = Val(tbtinggi.Text)
j = Val(tbjari.Text)
h = 3.14 * j * j * t
End If
Dim t, j, h As Double
'' dikala textbox tinggi tidak diisi akan tampil peringatan
If tbtinggi.Text = "" Then
MsgBox("Masukkan tingginya!", MsgBoxStyle.Critical, "Peringatan")
'' jikalau textbox jari-jari tidak diisi akan tampil peringatan
ElseIf tbjari.Text = "" Then
MsgBox("Masukkan jari-jarinya!", MsgBoxStyle.Critical, "Peringatan")
Else
'' proses penghitungan volume tabung
t = Val(tbtinggi.Text)
j = Val(tbjari.Text)
h = 3.14 * j * j * t
tbhasil.Text = h
End If
'' mengkosongkan dan memtaikan textbox hasil
tbtinggi.Text = ""
tbjari.Text = ""
tbhasil.Text = ""
tbhasil.Enabled = False
tbtinggi.Text = ""
tbjari.Text = ""
tbhasil.Text = ""
tbhasil.Enabled = False
'' dikala di klik keluar akan menutup program
Close()
Close()
'' dikala agenda dijalankan otomatis textbox hasil mati
tbhasil.Enabled = False
tbhasil.Enabled = False
Kalau yang ingin file project-nya silahkan.
Download
Semoga bermanfaat
Terima kasih!
Sumber https://ferygg.blogspot.com/