Cara Membuat Label Countdown di Visual Basic 6

Hai! Kali ini, saya akan post tentang Cara Membuat Label Countdown di Visual Basic 6, sesuai dengan request Dimaz. Oke, ini dia caranya:

Tools:

• Visual Basic 6

Step:

1. Buka Visual Basic 6
2. Tambahkan 1 Label, beri nama LabelDetik, Captionnya terserah
3. Tambahkan 1 Timer, beri nama TimerDetik
4. Dobel klik Form yang kosong, tambahkan kode di bawah ini:


Dim detik As Integer

Private Sub Form_Load()
TimerDetik.Interval = 1000
LabelDetik.Caption = "20"
End Sub

Private Sub TimerDetik_Timer()
detik = LabelDetik - 1
LabelDetik.Caption = detik
If LabelDetik.Caption = "0" Then
Call MsgBox("Game Over", vbInformation)
TimerDetik.Interval = 0
End If
End Sub





5. Note: Ganti 20 dengan berapa detik countdown yang akan dilakukan, Ganti Game Over dengan tulisan yang akan muncul apabila countdown selesai.
6. Selesai

Sekian dulu posting kali ini. Terima kasih untuk Dimaz yang telah me-request artikel ini :)

Kode diatas adalah buatan saya sendiri :)

Pasang Widget Twitter di Blogger

Haloooo, maaf, ini update blog saya setelah hampir satu tahun enggak update. Maklum lah, harus belajar buat UN. Kali ini saya akan memposting tentang Pasang Widget Twitter di Blogger. Mau tahu? enggak, maunya ikan bakar. Langsung aja ya!

1. Login blogger, klik blogmu
2. Klik Tata Letak > Tambah Gadget > HTML/Javascript
3. Masukkan kode dibawah ini kedala konten:

<!-- Twitter Follower Box -->

<script type='text/javascript'>

function fanbox_init(screen_name){document.getElementById('twitterfanbox').innerHTML='\<iframe name=\"fbfanIFrame_0\" frameborder=\"0\" allowtransparency=\"true\" src=\"http://s.moopz.com/connect.html?user='+screen_name+'\" class=\"FB_SERVER_IFRAME\" scrolling=\"no\" style=\"width: 295px; height: 250px; border-top-style: none; border-right-style: none; border-bottom-style: none; border-left-style: none; border-width: initial; border-color: initial; \"\>\<\/iframe\>';}

</script>

<div id="twitterfanbox"></div><script

type="text/javascript">fanbox_init("ariqfadlan");</script

type="text><div

style="font-size:10px;margin-top:-8px;"></div>

<!-- End Twitter Follower Box --> 

4. Ganti ariqfadlan dengan username twitter-mu
5. Klik Simpan

Sampai disini dulu ya posting kali ini.

Jangan lupa follow twitter-ku!!

Thanks to: http://www.scrawlxz.net/2012/06/widget-box-follow-twitter.html