Tuesday, July 24, 2012
Tutorial Membuat Teks Berjalan pada VB 6.0
langkah
pertama yang harus rekan-rekan lakukan adalah
Buatlah sebuah project dengan standartd EXE.
Buatlah 2 buah timer terserah interval mau diisikan berapa tapi disini manusia biasa menggunaka nilai 20 untuk masing-masing timer. Nah, kedua timer ini nantinya masing akan digunakan untuk membuat teks berjalan dan teks kerlap kerlip.
Buatlah 2 buah label. Nah, label yang pertama digunakan untuk teks berjalan tadi dan label yang kedua akan kita gunakan untuk teks kerlap kerlip tadi.
Sudah semuanya........
Ok. kita lanjut...... langkah selanjutnya ketikkan coding berikut keview editor rekan-rekan. Nah kalau malas copy paste saja.
Dim Red, Green, Blue As Integer
Private Sub Timer1_Timer()
If Blue <= 255 Then Blue = Blue + 50 Else Blue = 0 Green = Green + 50 End If If Green >= 255 Then
Green = 0
Red = Red + 50
End If
If Red >= 255 Then
Red = 0
End If
Label1.ForeColor = Int(RGB(Red, Green, Blue))
Label1.Refresh
End Sub
Private Sub Timer2_Timer()
Label2.Left = Label2.Left - 15
If Label2.Left <= -Label2.Left Then /dapat diubah kekanan ganti left keright keatas top dan kebawah buttom.
Label2.Left = Form1.Width
End If
End Sub
Gampang kan??????
Buatlah sebuah project dengan standartd EXE.
Buatlah 2 buah timer terserah interval mau diisikan berapa tapi disini manusia biasa menggunaka nilai 20 untuk masing-masing timer. Nah, kedua timer ini nantinya masing akan digunakan untuk membuat teks berjalan dan teks kerlap kerlip.
Buatlah 2 buah label. Nah, label yang pertama digunakan untuk teks berjalan tadi dan label yang kedua akan kita gunakan untuk teks kerlap kerlip tadi.
Sudah semuanya........
Ok. kita lanjut...... langkah selanjutnya ketikkan coding berikut keview editor rekan-rekan. Nah kalau malas copy paste saja.
Dim Red, Green, Blue As Integer
Private Sub Timer1_Timer()
If Blue <= 255 Then Blue = Blue + 50 Else Blue = 0 Green = Green + 50 End If If Green >= 255 Then
Green = 0
Red = Red + 50
End If
If Red >= 255 Then
Red = 0
End If
Label1.ForeColor = Int(RGB(Red, Green, Blue))
Label1.Refresh
End Sub
Private Sub Timer2_Timer()
Label2.Left = Label2.Left - 15
If Label2.Left <= -Label2.Left Then /dapat diubah kekanan ganti left keright keatas top dan kebawah buttom.
Label2.Left = Form1.Width
End If
End Sub
Gampang kan??????
Subscribe to:
Post Comments (Atom)
Thank's All
Time is Money
Content Blog
|
Tukeran Link Yuk...! Silahkan copy kode di atas...! |
dendy blog's. Powered by Blogger.
Blog Archive
- 2013 (1)
-
2012
(28)
- November(1)
- October(2)
- September(9)
- August(4)
-
July(12)
- Tutorial Membuat Email Lengkap, Mengirim Email, Me...
- Dasar dasar Macromedia Flash
- Tutorial Membuat Website HTML
- Tutorial Membuat Server Local pada Laptop atau PC
- Tutorial Membuat Animasi Burung Terbang (Flash)
- Edit Foto Effect Blur Di Adobe Photoshop CS3
- Tutorial Membuat Teks Berjalan pada VB 6.0
- Tutorial Membuat Animasi pada VB 6.0
- Perintah Shell di VB 6
- Coding Startup (VB 6.0)
- Membuat Undangan Pernikahan Sederhana (CorelDraw)
- Sistem Pembelian Pulsa Melalui Internet
- 2011 (25)
- 2010 (6)
0 komentar:
Post a Comment