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

Contoh Aplikasi Vb.Net Sederhana Menghitung Luas Dan Keliling Persegi Panjang

Pada kesempatan kali ini aku akan membahas tentang, Contoh Aplikasi Vb.net Sederhana Menghitung Luas dan Keliling Persegi Panjang dengan memakai Vb.net 2008.
Untuk proses pembuatan programnya akan aku jelaskan sebagai berikut dan yang Ingin Projectnya link ada dibawah postingan.

Sebelumnya kita rancang terlebih dahulu tampilan programnya menyerupai dibawah ini:
  1. Sesuaikan Propertinnya
    2. Objek Properti Nilai Properti
    TextBox1
    TextBox2
    TextBox3    		 Name
    Name
    Name    		 tbpanjang
    tbluas
    tbhasil
    Button1

    Button2

    Button3

    Button4

    		 Name
    Text
    Name
    Text
    Name
    Text
    Name
    Text    		 cmdhitungl
    Hitung luas
    cmdhitungk
    Hitung Keliling
    cmdkosongkan
    Kosongkan
    cmdkeluar
    Keluar
    Label1
    Label2
    Label3    		Text
    Text
    Text    		Panjang
    Lebar
    Hasil
    GroupBox1Text<kosongkan>
    Form1

    		Text
    ControlBox    		Persegi Panjang
    false
  2. Koding kegiatan tiap event, sebagai berikut :
    1. cmdhitungl - click "koding menghitung luas persegi panjangnya"
      2. '' Deklarasi variabel
      Dim p, l As New Integer
      Dim h As New Double

      '' Jika Panjang belum diisi akan tampil Peringatan
      If tbpanjang.Text = "" Then
      MsgBox("Masukkan Panjangnya!", MsgBoxStyle.Critical, "Peringatan")
      '' Jika Lebar belum diisi akan tampil peringatan
      ElseIf tbluas.Text = "" Then
      MsgBox("Masukkan Lebarnya!", MsgBoxStyle.Critical, "Peringatan")
      Else
      '' Jika lebar dan panjang sudah diisi akan diproses penghitungan luasnya kemudian di tampilkan keTextbox hasil
      p = Val(tbpanjang.Text)
      l = Val(tbluas.Text)
      h = p * l
      tbhasil.Text = h
      End If

    2. cmdhitungk - click "koding menghitung keliling persegi panjangnya"
      3. '' Deklarasi variabel
      Dim p, l As New Integer
      Dim h As New Double

      '' Jika Panjang belum diisi akan tampil Peringatan
      If tbpanjang.Text = "" Then
      MsgBox("Masukkan Panjangnya!", MsgBoxStyle.Critical, "Peringatan")
      '' Jika Lebar belum diisi akan tampil peringatan
      ElseIf tbluas.Text = "" Then
      MsgBox("Masukkan Lebarnya!", MsgBoxStyle.Critical, "Peringatan")
      Else
      '' Jika lebar dan panjang sudah diisi akan diproses penghitungan kelilingnya kemudian di tampilkan keTextbox hasil
      p = Val(tbpanjang.Text)
      l = Val(tbluas.Text)
      h = 2 * (p + l)
      tbhasil.Text = h
      End If

    3. cmdkosongkan - click
      4. '' Mengkosongkan TextBox Panjang, Lebar, Hasil dan mematikan TextBox Hasil
      tbpanjang.Text = ""
      tbluas.Text = ""
      tbhasil.Text = ""
      tbhasil.Enabled = False

    4. cmdkeluar - click
      5. '' Jika diklik tombol keluar akan menutup program
      Close()

    5. form1 - load
      6. '' ketika dijalankan otomatis TextBox Hasil akan dimatikan
      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. tbluas - keypress
      8. '' Sama dengan TextBox panjang 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

  3. Lalu jalankan kegiatan dan lihat hasilnya


Jika belum paham, dapat di download projectnya
Download

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