Lompat ke konten Lompat ke sidebar Lompat ke footer

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
  • ObjekPropertiNilai 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
  • Koding tiap event, sebagai berikut :
    1. cmdhitung - Click
    2.         '' 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
                  tbhasil.Text = h
              End If

    3. cmdkosongkan - Click
    4.         '' mengkosongkan dan memtaikan textbox hasil
              tbtinggi.Text = ""
              tbjari.Text = ""
              tbhasil.Text = ""
              tbhasil.Enabled = False

    5. cmdkeluar - Click
    6.         '' dikala di klik keluar akan menutup program
              Close()

    7. Form1 - Load
    8.         '' dikala agenda dijalankan otomatis textbox hasil mati
              tbhasil.Enabled = False

  • Jalankan Programnya

Kalau yang ingin file project-nya silahkan.
Download

Semoga bermanfaat
Terima kasih!
Sumber https://ferygg.blogspot.com/