Menghitung Luas dan Keliling Persegi Panjang Menggunakan Microsoft Visual Studio 2008

Assalamualaikum semua..

Bagaimana kabarnya hari ini?semoga teman-teman semua selalu diberikan kesehatan oleh Allah swt.

Kali ini saya mau berbagi ilmu tentang bagaimana Menghitung Luas dan Keliling Persegi Panjang Menggunakan Microsoft Visual Basic tentunya..

Buat program untuk menghitung Luas dan Keliling Persegi Panjang dengan tampilan sbb:

 _______________________________________________________________

1. Buka Microsoft Visual Studio 2008

2. Buka Project Baru (Ctrl+Shift+N)

3. klik "Windows Forms Application" lalu klik "OK"

4. Setelah itu, kita lakukan seperti sebelumnya, disain terlebih dahulu Form-nya seperti ini

5. Nah, setelah kita disain Form-nya, lalu kita Disain Tool nya, seperti ini

NO.	OBJEK	PROPERTIES	PENGATURAN
1	Label1	Text	PROGRAM PERSEGI PANJANG
		Font Size	9
		Bold	True
2	GroupBox1	Text	Input :
3	GroupBox2	Text	Hasil :
4	Label1	Text	Panjang :
5	Label2	Text	Lebar :
6	Label3	Text	Luas :
7	Label4	Text	Keliling :
8	TextBox1	Name	TxtP
9	TextBox2	Name	TxtL
10	TextBox3	Name	TxtLuas
11	TextBox4	Name	TxtKel
12	Botton1	Text	Proses
		Name	BtnProses
13	Botton2	Text	Bersih
		Name	BtnBersih
11	Button3	Text	Tutup
		Name	BtnTutup

6. jika sudah selesai mendisain lalu kita masuk ke Perintah kode atau Perintah Program, double klik saja pada salah satu Button yang ada di Form, lalu otomatis akan masuk ke Perintah Program, Jika sudah masuk di Perintah Program, lalu kita Input Kode-Kode berikut :

    Private Sub btnproses_Click(ByValsender As System.Object, ByVal e AsSystem.EventArgs) Handlesbtnproses.Click

        txtLuas.Text = txtP.Text * txtL.Text

        txtKel.Text = Val(2 * txtP.Text) + Val(2 * txtL.Text)

    End Sub

    Private Sub btnbersih_Click(ByValsender As System.Object, ByVal e AsSystem.EventArgs) Handlesbtnbersih.Click

        txtKel.Text = ""

        txtL.Text = ""

        txtP.Text = ""

        txtLuas.Text = ""

    End Sub

    Private Sub btntutup_Click(ByValsender As System.Object, ByVal e AsSystem.EventArgs) Handlesbtntutup.Click

        End

    End Sub

7. setelah itu tekan tombol F5 pada Keyboard untuk cek error atau tidak programnya atau pun menjalankan program, jika error coba anda cek kemabali disain Form yang anda buat, mungkin ada kesalahan mengetik pada saan memberi Name pada disain Toll, jika sudah tidak error maka otomatis Form akan Muncul dan bisa langsung kita jalankan. seperti ini..