you're welcome guys

yaps, entri ini ditujukan buat semua yang udah buka blog ini demi kelancaran ulangan komputer yang rumus nya setengah mampus (lebay -.-) banyaknya. ya emang sih 1 lembar alias 2 halaman harus lo apalin buat bikin 1 program yang hanya diliat kita hafal atau nggak rumusnya. awal mula gue bikin entri rumus kemarin adalaahh..........

gue yang tau kalo tanggal 17 november adalah hari untuk melaksanakan ulangan komputer. tanggal 10 november nya, dikasih rumus yang bener (ga guna banget buku yang di beli rumus nya salah). jengjeng kertas rumus cuma 1 lembar, tapi 2 halaman FULL. setelah tau kayak gitu gue males bacanya. sampe hari H untuk ulangan pun gue belum baca sama sekali rumus itu dan hanya gue simpen di dalam buku komputer gue.

pagi pagi, di kelas, ada seorang anak cewek imut (wakaka) yang nyamperin gue yg lagi frustasi berat karena belum belajar komputer sama sekali. nama dia itu Annisa Meiliani atau anak yg kerap di panggil "Mei". terjadilah sebuah percakapan licik diantara kita.......

M = "nizma, udah belajar komputer belum?"
N = "belum nih aduh aku pusing banget meeei"(sedikit menangis)
muncul ide NAKAL dari Mei.........
M = "kamu bawa handphone gak nizma?"
N = "bawa, emang kenapa mei?" (anak nakal yang membawa hp ke sekolah -.-)
M = "tulis di blog aja nizma rumusnyaaa!"
N = "wah boleh2 tuh mei"
M = "sini aku ketikin lewat hp kamu, sekalian ngehafal"

yaudah tuh, Mei ngetik penuh perjuangan dan bercucuran keringat ~ lebay. setelah selesai, gue publikasikan deh kalo blog gue ada rumusnya, walau di singkat2. alhasil langsung ke siang hari di saat ulangan, semua anak dapet nilai 100 GREAT JOB! ga ketauan kalo ada anak yg buka blog ini, padahal hampir semua, BAHKAN anak2 kelas lain juga ikutan buka blog gue karena udah pada nyerah semua.

i said "you're welcome to you all who said thanks to me, also thanks for visited my blog, don't forget to follow me guys!"

~ see you all!

wayolooo!

Combo1_click
Check1.setfocus
End sub

Command_2
Text1.text = ""
Sampe text7.text = ""
Combo1.text = ""
Check1.value = 0
sampe check3.value = 0
Option1.value = false
Option2.value = false
End sub

Command_1
Dim gapok as currency
Dim tunjangan as currency
Sama semua : gator, pajak, gaber
If combo1.text = "direktur" then
Gapok = 5juta (pake angka)
Elseif combo1.text = "manager" then
Gapok = 3juta
Sama semua sampe"staff","office boy", "receptionist"
End if
If option1.value = true then
Tunjangan = 0,5 * gapok
Else tunjangan = 0
End if
Gator = gapok + tunjangan
Pajak = 0.1 * gator
Gaber = gator-pajak
text3.text = gapok
Sampe text7.text = gaber
End sub

Command_3
Unload me
End sub

Form_load
Combo1.additem "direktur"
Sampe "receptionist"
End sub

Text1_keypress (keyascii as interger)
If keyascii = 13 then
Combo1.setfocus
End if
End sub

Text2_keypress
If keyascii = 13 then
Text1.setfocus
End if
End sub

Jam.timer
Label(label keberapa).caption = format (now, "hh:mm:dd")
End sub