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

Contoh Aplikasi Vb.Net Sederhana Menghitung Luas Dan Volume Kubus

Pada kesempatan kali ini aku akan menciptakan kegiatan sederhana di vb.net 2008 menghitung luas dan volume kubus. simak baik-baik :

  1. Kita buat terlebih dahulu tampilan menyerupai gambar dibawah ini.
  2. Sesuaikan properti - propertinya
    3. ObjectPropertiNilai Properti
    TextBox1
    TextBox2    		Name
    Name    		tbsisi
    tbhasil
    Button1

    Button2

    Button3

    Button4    		Name
    Text
    Name
    Text
    Name
    Text
    Name
    Text    		cmdluas
    Hitung Luas
    cmdvolume
    Hitung Volume
    cmdkosongkan
    Kosongkan
    cmdkeluar
    Keluar
  3. Koding kegiatan tiap event, sebagai berikut :
    1. cmdluas - Click
      2.         '' deklarasi variabel
              Dim s, h As Integer

              '' kalau sisi tidak diisi akan tampil peringatan
              If tbsisi.Text = "" Then
                  MsgBox("Masukkan sisinya", MsgBoxStyle.Critical, "Peringatan")
              Else
              '' proses perhitungan luas kubus
                  s = Val(tbsisi.Text)
                  h = 6 * s * s
                  tbhasil.Text = h
              End If

    2. cmdvolume - Click
      3.         '' deklarasi variabel
              Dim s, h As Integer

              '' ketika sisi tidak diisi akan tampil peringatan
              If tbsisi.Text = "" Then
                  MsgBox("Masukkan sisinya!", MsgBoxStyle.Critical, "Peringatan")
              Else
              '' proses perhitungan volume kubus
                  s = Val(tbsisi.Text)
                  h = s * s * s
                  tbhasil.Text = h
              End If

    3. cmdkosongkan - Click
      4.         '' akan mengkosongkan sisi dan hasil
              tbsisi.Text = ""
              tbhasil.Text = ""
              tbhasil.Enabled = False

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

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

    6. tbsisi - KeyPress
      7.         '' TextBox dikala 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 semua jalankan.

Kalau yang belum paham, dapat didownload file projectnya.
Download

Terima Kasih!
Sumber https://ferygg.blogspot.com/