.jpg)
Scrip Menghitung Luas Persegi
Caranya :
Klik pada form1, kemudian pada jendela properti cari
baris name, kemudian ketik nilainya MyForm,
kemudian cari baris caption, kemudian ketik nilainya
menjadi Program Menghitung Luas Persegi.
Klik pada Label1, kemudian pada jendela properti
cari baris caption, kemudian ketik nilainya &Panjang.
Lakukan juga untuk kontrol lainnya berdasarkan
tabel berikut.
Catatan : Untuk menampilkan jendela properties,
anda dapat menggunakan F4
Catatan : tanda ampersand & pada Visual Basic digunakan sebagai penanda kunci akses
penekanan Alt oleh pemakai.
4. Lakukan koding untuk menghitung Luas, ketika pemakai melakukan klik atau Alt H,
pada cmdHitung
Lakukan double klik pada kontrol cmdHitung, sehingga akan muncul jendela koding dan procedure event
cmdHitung_Click :
Private Sub cmdHitung_Click()
End Sub
procedure event, adalah subrutin yang akan dibangkitkan oleh aplikasi, ketika pemakai melakukan klik pada
kontrol cmdHitung. Perintah-perintah yang anda ketik diantara Sub dan End Sub akan dijalankan.
Atau ngga ada cara lain dengan cara menekan F7 pada Keyboard, nati akan muncul image seperti ini
Private Sub cmdHitung_Click()
TxtLuas.Text = Val(TxtPanjang.Text) * Val(TxtLebar.Text)
End Sub
kemudian pilih daftar kejadian (event) seperti yang ditunjukkan pada gambar berikut :
Dan jangan lupa lakukan coding untuk selesai jika program ini sudah berjalan.
Private Sub cmdSelesai_Click()
Unload Me
End Sub
Tampilkan kembali MyForm dengan klik View Object pada jendela Project Explorer
GIMANA MUDAH BUKAN..?
SELAMAT MENCOBA ....
Caranya :
Klik pada form1, kemudian pada jendela properti cari
baris name, kemudian ketik nilainya MyForm,
kemudian cari baris caption, kemudian ketik nilainya
menjadi Program Menghitung Luas Persegi.
Klik pada Label1, kemudian pada jendela properti
cari baris caption, kemudian ketik nilainya &Panjang.
Lakukan juga untuk kontrol lainnya berdasarkan
tabel berikut.
Catatan : Untuk menampilkan jendela properties,
anda dapat menggunakan F4
Catatan : tanda ampersand & pada Visual Basic digunakan sebagai penanda kunci akses
penekanan Alt oleh pemakai.
4. Lakukan koding untuk menghitung Luas, ketika pemakai melakukan klik atau Alt H,
pada cmdHitung
Lakukan double klik pada kontrol cmdHitung, sehingga akan muncul jendela koding dan procedure event
cmdHitung_Click :
Private Sub cmdHitung_Click()
End Sub
procedure event, adalah subrutin yang akan dibangkitkan oleh aplikasi, ketika pemakai melakukan klik pada
kontrol cmdHitung. Perintah-perintah yang anda ketik diantara Sub dan End Sub akan dijalankan.
Atau ngga ada cara lain dengan cara menekan F7 pada Keyboard, nati akan muncul image seperti ini
Private Sub cmdHitung_Click()
TxtLuas.Text = Val(TxtPanjang.Text) * Val(TxtLebar.Text)
End Sub
kemudian pilih daftar kejadian (event) seperti yang ditunjukkan pada gambar berikut :
Dan jangan lupa lakukan coding untuk selesai jika program ini sudah berjalan.
Private Sub cmdSelesai_Click()
Unload Me
End Sub
Tampilkan kembali MyForm dengan klik View Object pada jendela Project Explorer
GIMANA MUDAH BUKAN..?
SELAMAT MENCOBA ....
.jpg)
