Jumat, 16 November 2012

Teks Berjalan

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??????

Nah, kalau yang mau project lengkapnya dapat diambil disini.

0 komentar:

Posting Komentar

Twitter Delicious Facebook Digg Stumbleupon Favorites More