01 September 2010

Program Visual Basic: Membuat Teks Berjalan dengan Label di Visual Basic

01 September 2010
Sekarang saya akan share tentang cara membuat Teks Berjalan dengan Visual Basic, coding Program ini saya dapatkan di listingprogram.blogspot.com,


Program selengkapnya bisa di download di sini

Cara Membuat:
1. Kita buka program visual basic 6.0 - standart exe

2. Kita buad 2 label, biarkan saja (name)nya label1 dan label 2 dan tambahkan 1 timer dengan interval 1000 pada properties timer.

3. seperti gambar di bawah ini:

atau sesuai dengan selera dan kreasi anda sendiri, atur di properties label dan form untuk mengubah warna dan bentuk font.

4. untuk coding copy-paste coding di bawah ini untuk coding timer:
Private Sub Timer1_Timer()
s$ = Label1.Caption
s$ = Right$(s$, 1) & Mid$(s$, 1, Len(s$) - 1)
Label1.Caption = s$

s$ = Label2.Caption
s$ = Mid$(s$, 2, Len(s$)) & Left$(s$, 1)
Label2.Caption = s$
End Sub


Kemudian jalankan!
dan teks akan bergerak, label1 teks akan bergerak dari kiri ke kanan, sedangkan pada label2 teks akan berjalan dari kanan ke kiri.

Program selengkapnya bisa di download di sini


sumber:
http://listingprogram.blogspot.com/2010/01/visual-basic-membuat-teks-berjalan.html


3 comments:

mochamad nizwar mengatakan...

:d:

yanti ae mengatakan...

:f:

andre remox mengatakan...

:a:

Poskan Komentar

sampaikan komentar dengan sopan dan bertanggung jawab :)