Cara membuat Teks Berjalan dan berkedip pada VB 6.0

Nah, buat temen -temen yang suka sama tampilan yang keren mungkin artikel ini bagus buat temen - temen.
Saya akan memberi tips sederhana, membuat tekx berjalan dan berkedip.

Ok...... Lanjut.
langkah pertama yang harus temen - temen 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 berkedip.
Buatlah 3 buah label.
label yang pertama dan kedua digunakan untuk teks berjalan tadi dan label yang ketiga akan kita gunakan untuk teks berkedip tadi.

Sudah semuanya........
Ok. kita lanjut...... langkah selanjutnya ketikkan coding berikut keview editor temen - teman. 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
Label2.ForeColor = Int(RGB(Red, Green, Blue))
Label2.Refresh
End Sub

Private Sub Timer2_Timer()
Label3.Left = Label3.Left - 15
If Label3.Left <= -Label3.Left Then /dapat diubah kekanan ganti left keright keatas top dan kebawah buttom.
Label3.Left = Form1.Width
End If
End Sub

Gampang kan......?

Nah, kalau yang mau project lengkapnya dapat diambil disini
Kalau temen - temen sekalian ingin mendapatkan hasil yang lebih bagus silahkan kembangkan lagi....
sekian dulu artikel VB dari saya :)

Posted on February 14, 2009 by Admin

Membuat Animasi Jam dan Fungsi Timer

Sekarang kita belajar membuat animasi jam dan belajar fungsi Timer Buat 1 buah label dan timer
dan ketik source code dibawah ini:

Private Sub Form_Load()
Me.Label1.FontBold = True
Me.Label1.FontSize = 24

Me.Timer1.Interval = 1000
End Sub

Private Sub Timer1_Timer()
Me.Label1.Caption = Format(Now, "hh:mm:ss")
End Sub

Contoh Program Download

Posted on February 14, 2009 by Admin

 
Free Web Hosting