Lompat ke konten Lompat ke sidebar Lompat ke footer
Beranda / Aplikasi Vb.net

Contoh Aplikasi Vb.Net Sederhana Menghitung Luas Dan Volume Balok

Berikut ini saya akan menciptakan program/aplikasi sederhana vb.net 2008 menghitung luas dan volume balok simak baik-baik :

  1. Buat tampilan form ibarat dibawah ini.
  2. Sesuaikan propertinya :
    3. ObjectPropertiNilai Properti
    TextBox1
    TextBox2
    TextBox3
    TextBox4    		Name
    Name
    Name
    Name    		tbpanjang
    tblebar
    tbtinggi
    tbhasil
    Button1

    Button2

    Button3

    Button4

    		Name
    Text
    Name
    Text
    Name
    Text
    Name
    Text    		cmdluas
    Hitung luas
    cmdvolume
    Hitung volume
    cmdkosongkan
    Kosongkan
    cmdkeluar
    Keluar
  3. Masukkan koding tiap event, sebagai berikut :
    1. cmdluas - Click "Koding menghitung luas balok"
      2.         '' deklarasi variabel
              Dim p, l, t, h As Integer

              '' ketika panjang tidak diisi akan tampil peringatan
              If tbpanjang.Text = "" Then
                  MsgBox("Masukkan panjangnya!", MsgBoxStyle.Critical, "Peringatan")
              '' ketika lebar tidak diisi akan tampil peringatan
              ElseIf tblebar.Text = "" Then
                  MsgBox("Masukkan lebarnya!", MsgBoxStyle.Critical, "Peringatan")
              '' ketika tinggi tidak diisi akan tampil peringatan
              ElseIf tbtinggi.Text = "" Then
                  MsgBox("Masukkan tingginyanya!", MsgBoxStyle.Critical, "Peringatan")
              Else
              '' proses perhitungan luas balok
                  p = Val(tbpanjang.Text)
                  l = Val(tblebar.Text)
                  t = Val(tbtinggi.Text)
                  h = 2 * ((p * l) + (p * t) + (l * t))
                  tbhasil.Text = h
              End If

    2. cmdvolume - Click "Koding menghitung volume balok"
      3.         '' deklarasi variabel
              Dim p, l, t, h As Integer

              '' ketika panjang tidak diisi akan tampil peringatan
              If tbpanjang.Text = "" Then
                  MsgBox("Masukkan panjangnya!", MsgBoxStyle.Critical, "Peringatan")
              '' ketika lebar tidak diisi akan tampil peringatan
              ElseIf tblebar.Text = "" Then
                  MsgBox("Masukkan lebarnya!", MsgBoxStyle.Critical, "Peringatan")
              '' ketika tinggi tidak diisi akan tampil peringatan
              ElseIf tbtinggi.Text = "" Then
                  MsgBox("Masukkan tingginyanya!", MsgBoxStyle.Critical, "Peringatan")
              Else
              '' proses perhitungan volume balok
                  p = Val(tbpanjang.Text)
                  l = Val(tblebar.Text)
                  t = Val(tbtinggi.Text)
                  h = p * l * t
                  tbhasil.Text = h
              End If

    3. cmdkosongkan - Click
      4.         '' mengkosongkan textbox
              tbpanjang.Text = ""
              tblebar.Text = ""
              tbtinggi.Text = ""
              tbhasil.Text = ""
              tbhasil.Enabled = False

    4. cmdkeluar - Click
      5.         '' ketika di klik keluar akan menutup program
              Close()

    5. Form1 - Load
      6.         '' ketika dijalankan otomatis textbox hasil mati
              tbhasil.Enabled = False

    6. tbpanjang - KeyPress
      7.         '' TextBox ketika diketik, hanya dapat angka saja 0-9
              If Not ((e.KeyChar >= "0" And e.KeyChar <= "9") Or e.KeyChar = vbBack) Then e.Handled = True

    7. tblebar - KeyPress
      8.         '' TextBox ketika diketik, hanya dapat angka saja 0-9
              If Not ((e.KeyChar >= "0" And e.KeyChar <= "9") Or e.KeyChar = vbBack) Then e.Handled = True

    8. tbtinggi - KeyPress
      9.         '' TextBox ketika diketik, hanya dapat angka saja 0-9
              If Not ((e.KeyChar >= "0" And e.KeyChar <= "9") Or e.KeyChar = vbBack) Then e.Handled = True

  4. Kalau sudah tinggal jalankan programnya.

Jika masih belum paham, saya kasih projectnya.

Semoga membantu
Terima kasih!

Sumber https://ferygg.blogspot.com/

Anda mungkin menyukai postingan ini :