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

Contoh Aplikasi Vb.Net Sederhana Menghitung Luas Segitiga

Kali ini aku akan memperlihatkan tutorial menciptakan aktivitas sederhana menghitung luas segitiga di vb.net 2008. berikut langkah-langkahnya :

  1. Buat tampilan menyerupai gambar dibawah ini.
  2. Sesuaikan propertinya.
    3. ObjekPropertiNilai Properti
    TextBox1
    TextBox2
    TextBox3    		Name
    Name
    Name    		tbalas
    tbtinggi
    tbhasil
    Button1

    Button2

    Button3

    		Name
    Text
    Name
    Text
    Name
    Text    		cmdluas
    Hitung Luas
    cmdkosongkan
    Kosongkan
    cmdkeluar
    Keluar
  3. Koding tiap event, berikut ini :
    1. cmdluas - Click
      2.         '' deklarasi variabel
              Dim a, t, h As Double

              '' saat textbox ganjal tidak diisi akan tampil peringatan
              If tbalas.Text = "" Then
                  MsgBox("Masukkan alasnya!", MsgBoxStyle.Critical, "Peringatan")
              '' saat textbox tinggi tidak diisi akan tampil peringatan
              ElseIf tbtinggi.Text = "" Then
                  MsgBox("Masukkan tingginya!", MsgBoxStyle.Critical, "Peringatan")
              Else
              '' proses penghitungannya disini
                  a = Val(tbalas.Text)
                  t = Val(tbtinggi.Text)
                  h = 0.5 * a * t
                  tbhasil.Text = h
              End If

    2. cmdkosongkan - Click
      3.         '' mengkosongkan textbox dan mematikan textbox hasil
              tbalas.Text = ""
              tbtinggi.Text = ""
              tbhasil.Text = ""
              tbhasil.Enabled = False

    3. cmdkeluar - Click
      4.         '' saat diklik tombol keluar akan menutup program
              Close()

    4. Form1 - Load
      5.         '' saat aktivitas dijalankan otomatis textbox hasil mati
              tbhasil.Enabled = False

  4. Kalau sudah semua jalankan.

Kalau masih belum paham aku kasih projectnya.
Download

Semoga membantu.
dan jangan lupa di share ya...
Terima kasih!
Sumber https://ferygg.blogspot.com/