Membuat Timer Shutdown Dengan VB6

Membuat Timer Shutdown Dengan VB6

test

05:00

0 komentar

1. buka vb6 nya
2. buat form baru
3. buat 1 textbox(text = kosong), 1 button(caption : Mulai), 1 label, dan 1 timer(interval : 1000, enabled =
    false)
4. masukan code ini :

button1 :
label1.caption = text1.text 'label1 caption menjadi text 1 text nya
timer1.enabled = true 'timer1 menyala

timer1 :
label1.caption = label1.caption - 1 'perintah ini untuk mengurangi angka di label1 caption
if label1.caption = 0 then
label1.caption = 0 'perintah ini digunakan untuk mengurangi adanya bug label captionnya jadi -1
call shell("shutdown -s")
timer1.enabled = false
end if