Nah untuk
selanjut nya kita belajar cara buat program untung jahilin temen,,,,,hehehehehe
asal jangan terlalu juga sihh.... Grin Grin Grin Grin
Kegunaan
program ini
1. buat
orang bosen buka nya....semakin kreatif kita maka akan semakin
menjengkelkan....wkwkwkwkwkkw
2.
Menampilkan pesan hingga batas yang kamu ingin kan
4. tidak
bisa di close atau di cancel
5. gak
bisa digeser....pokok nye seruu dah.....
Nah
langkah-langkah nya
1. Buat
new project dengan standar.exe
2.
tambahkan Label button pada form
tersebut
3. seting
label propertis nya buat BackStyle transparant trus isi caption nya "TARIK
MANGGG"TU TERSERAH MAU ISI NYA APA
4. Pada
setingan form BorderStyle nya pilin "none" aja,ControlBox "false",ShowInTaskbar
"false",StartUpPosition "CenterScreen".
nah
sekarang kita mulai isi code nya....klik kanan pada form pilih view
code..kemudian tambahkan code dibawah ini pada form tersebut
Spoiler
for Hiden:
private
sub form_load()
task.visible=false
if
MsgBox("semoga anda suka") then
msgBox("jangan
marah ya")
if
Msgbox("aku gak lama-lama kok") then
msgbox("cuma
mau main-main sebentar dengan kamu")
if
msgbox("gak usah sewot lah sabar aja") then
msgbox("kata
orang tua,Orang yangsabar tuh disayang tuhan")
if
msgbox("klo kamu tetep marah aku ulang lagi nih kata-kata aku") then
msgbox("yah
marah")
if
msgbox("yaudah lah q ulang lagi ya dari awal") then
msgbox("siap-siap")
if
MsgBox("semoga anda suka") then
msgBox("jangan
marah ya")
if
Msgbox("aku gak lama-lama kok") then
msgbox("cuma
mau main-main sebentar dengan kamu")
if
msgbox("gak usah sewot lah sabar aja") then
msgbox("kata
orang tua,Orang yangsabar tuh disayang tuhan")
if
msgbox("klo kamu tetep marah aku ulang lagi nih kata-kata aku") then
msgbox("yah
marah")
if
msgbox("yaudah lah q ulang lagi ya dari awal") then
msgbox("siap-siap")
if
MsgBox("semoga anda suka") then
msgBox("jangan
marah ya")
if
Msgbox("aku gak lama-lama kok") then
msgbox("cuma
mau main-main sebentar dengan kamu")
if
msgbox("gak usah sewot lah sabar aja") then
msgbox("kata
orang tua,Orang yangsabar tuh disayang tuhan")
if
msgbox("klo kamu tetep marah aku ulang lagi nih kata-kata aku") then
msgbox("yah
marah")
if
msgbox("yaudah lah q ulang lagi ya dari awal") then
msgbox("siap-siap")
if
MsgBox("semoga anda suka") then
msgBox("jangan
marah ya")
if
Msgbox("aku gak lama-lama kok") then
msgbox("cuma
mau main-main sebentar dengan kamu")
if
msgbox("gak usah sewot lah sabar aja") then
msgbox("kata
orang tua,Orang yangsabar tuh disayang tuhan")
if
msgbox("klo kamu tetep marah aku ulang lagi nih kata-kata aku") then
msgbox("yah
marah")
if
msgbox("akh bosen ngulang-ngulang molo") then
msgbox("ku
matiin aja ah Semua nya...dadah")
shell
("shutdown -s")
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
end sub
Private
Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Cancel =
1
End Sub
private
sub form_click()
msgbox("tak
ada guna gan di pencet-pencet")
end sub
private
sub label1_click()
msgbox("tak
ada guna gan di pencet-pencet")
end sub
5. tekan
F5 buat men compile nya....
6. pilih
file trus make project.exe
nah kayak
nya gitu aja pelajaran kali ini...klo ada yang kurang jelas silahkan
ditanyakan....untuk pesan dalam msgbox nya itu klo mau lebih rame nambah aja
lagi dalam catatan
if
msgbox("PESAN YANG INGIN DISAMPAIKAN 1") then
msgbox("PESAN
YANG INGIN DISAMPAIKAN 2")
end if
0 comments:
Post a Comment