1. Buat Project baru, Kemudian tambahkan2 label, 3 text box, dan 2 buah commandButtonseperti berikut ini: 2. Kemudian rubahlah property gambar di samping, seperti tabel dibawah ini:
kontrol
|
Properti
|
Setting
|
Project
|
Name
|
PersegiPanjang( tidak boleh ada spasi)
|
Form
|
Caption
|
Menghitung Luas persegi Panjang
|
Label1
|
Caption
|
Panjang
|
Label2
|
Caption
|
Lebar
|
Text1
|
Caption
|
-
|
Text2
|
Caption
|
-
|
Text3
|
Caption
|
-
|
Command1
|
Caption
|
&Luas
|
Command2
|
Caption
|
&Hapus
|
3. Setelah Semuanya di rubah maka tampilannya sebagai berikut :4. Kemudian Masukkan code(Listingnya) sebagai berikut :Private Sub Command1_Click()Text3.Text = Val(Text1.Text) * Val(Text2.Text)End SubPrivate Sub Command2_Click()Text1.Text = ""Text2.Text = ""Text3.Text = ""End Sub
Tidak ada komentar:
Posting Komentar