http://www.mrmind13.blogspot.com 1.00 daily http://www.mrmind13.blogspot.com/feeds/posts/default 1.00 daily http://www.mrmind13.blogspot.com/#main 0.75 daily http://www.mrmind13.blogspot.com/#sidebar 0.75 daily Make Marquee Text With VB 6
Spiga

Make Marquee Text With VB 6



Hallo temen2 semua,.
Kali ini gwa akan mostingin gimana caranya membuat Marquee Text menggunakan Visual Basic 6 (VB 6).
Secara singkat,Marquee text merupakan text yang berjalan,atau biasanya ada di stasiun TV,yang berupa News Ticker,text yang biasa berjalan yg berada di bagian bawah layar televisi kita.
Cara membuatnya sangat sederhana sekali.
1. Buka Ms.VB 6.
2. Pilih Standard Exe lalu tekan OK
3. Selanjutnya buat 2 buah label baru dan 1 timer.

4. Ubah caption dari masing2 label (terserah aja).
5. Ubah property left dari label1 & 2 menjadi 480.
6. Interval timer diberi nilai 1.
7. Double Click pda gambar timer.,Coding dah..,
nih dia scriptnya


Private Sub Timer1_Timer()
'marquee text kiri ke kanan
Label1.Left = Label1.Left - 20 '1
If Label1.Left = -3400 Then Label1.Left = 3500 '2

'marquee text kanan ke kiri
Label2.Left = Label2.Left + 20 '3
If Label2.Left = 4000 Then Label2.Left = -3500 '4

'//keterangan:
'1. Posisi dari label1(left position) akan dikurangi terus menerus
'2. Hingga nilai dari posisinya menjadi -3400,ketika mencapai nilai tersebut,maka posisi dari label1 berubah menjadi 3500
'3 & 4 prinsip sama sprti 1 & 2,hanya pda 3 nilainya di tambah terus menerus.

End Sub

8. Tinggal di RUN (pencet F5).
Gimana?Mau jalan apa nggak?.
Kalo gak jalan,brarti ada ketidakcocokkan nilai pada property left dan counternya.
Script diatas bisa dikembangkan lagi menjadi dari atas ke bawah dan sebaliknya.

Download Source Code

Jangan lupa kritik dan sarannya..

4 komentar:

  Unknown

6 Juli 2009 pukul 15.11

nice blog....



http://muja94.blogspot.com



~ muja94 ~

  MRMIND

7 Juli 2009 pukul 06.35

oke,makasi bos..
makasi juga atas kunjungannya.

  GST Impact Analysis

14 Juni 2017 pukul 00.09

Blogging is the new poetry. I find it wonderful and amazing in many ways.

  Bausch & Lomb PureVision

27 Juni 2017 pukul 02.20

Hey keep posting such good and meaningful articles.

Posting Komentar

Yang Penting Soppan..