my place

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 ....

Detail

Lyrics to Stay Close Don't Go

Stay Close Don't Go :

I'm staring at the glass in front of me,
is it half empty of our wins or have i ruined all you've given me?
I know I've been selfish,
I know I've been foolish,
but look through that
and you will see,
I'll do better, I know,
Baby, I can do better.

If you leave me tonight, I'll wake up alone,
don't tell me I will make it on my own,
don't leave me tonight,
this heart of stone will sing till it dies
if you leave me tonight.

Sometimes I stare at you while you are sleeping,
I listen to your breathing,
amazed how I somehow managed to
sweep you off your feet girl,
your perfect little feet girl
I took for granted what you do.
But I'll do better, I know
Baby, I can do better.

If you leave me tonight, I'll wake up alone,
don't tell me I will make it on my own,
don't leave me tonight,
this heart of stone will sing till it dies
if you leave me tonight.

And don't you know my heart is open, oh,
it's putting up the fight,
and I've got this feeling,
that everything's alright,
and don't you see,
I'm not the only one for you
but you're the only one for me.

If you leave me tonight I'll wake up alone,

(stay)If you leave me tonight,
(close) I'll wake up alone,
(don't)don't tell me I will
(go)make it on my own,
(stay)don't leave me tonight,
(close)this heart of stone
(don't) will sing till it dies
(go)if you leave me tonight.
Don't leave me tonight

(Thanks to Erin for these lyrics)