MENGHITUNG LUAS DAN KELILING PERSEGI PANJANG

Tampilan from

Desain form:


1 Form1        (Name) : frmPersegiPanjang
                      Text : Luas dan Keliling Persegi Panjang
                      FormBorderStyle : FixedSingle
                      MaximizeBox : False
                      MinimizeBox : False
2 Label1        Text : Panjang =
                      TextAlign : MiddleRight
3 Label2        Text : Lebar =

4 Label3        Text : Keliling =
5 Label4        Text : Luas =
6 TextBox1    (Name) : txtPanjang
7 TextBox2    (Name) : txtLebar
8 TextBox3    (Name) : txtKeliling
9 TextBox4    (Name) : txtLuas

10 Button1     (Name) : btnHitung
                       Text : Hitung

11 Button2     (Name) : btnKosong
                      Text : Kosong
 12 Button3    (Name) : btnTutup
                       Text : Tutup

KODE YANG DIGUNAKAN:

1. Di bawah Public Class, deklarasikan variable yang dibutuhkan.

    1. Deklarasi Variabel"

Dim panjang, lebar, keliling, luas As integer

2. Buatlah Sub baru tersendiri bernama Kosong, yang berfungsi untuk melakukan prosedur pengosongan form saat user ingin memulai perhitungan baru.
  

Sub Kosongkan()

       me.Txtpanjang.text = 0

       me.Txtpanjang.Focus()

       me.TxtLebar.text = 0

       me.TxtKeliling.text = 0 

       me.Txtluas.text = 0  

3. Dobel klik control btnHitung, ikuti petunjuk di bawah ini. 

 Private sub btnHitung_click(Byval sender as system,,,,,

     '2. memberinilai var. panjang dan lebar

     panjang = Val(me.txtpanjang.text)

     lebar = val(me.txtlebar.text)

     '3.menghitung keliling dan luas

     luas = Panjang * lebar

     Keliling = 2 * (Panjang + lebar)

     '4.tampilkan ke texbox Keliling dan Luas

     TxtLuas.text= luas

     TxtKeliling.text= keliling

End Sub

4. Isikan code berikut pada tombol Kosong (btnKosong)

Private sub btnKosong_click(byval sender as system,,,,

call kosong()

End Sub

 

  SELAMAT BELAJAR