TIMER VB

LISTING PROGRAM

PADA FORM 1 :

==================================================================

Private Sub Timer1_Timer()

Label1.Left = Label1.Left - 15

If Label1.Left = -Label1.Left Then

Label1.Left = Form1.Width

End If

End Sub

Private Sub Next_Click()

Form2.Show

Form1.Hide

End Sub

==================================================================

PADA FORM 2 :

==================================================================

Private Sub Timer1_Timer()

Label1.ForeColor = QBColor((Rnd) * 15)

End Sub

Private Sub Timer2_Timer()

Me.Width = Me.Width + 100

If Me.Width >= 11250 Then

Timer2.Enabled = False

End If

End Sub

 ====================================================================

LOGIKA PROGRAM

PADA FORM 1 :

==================================================================

Private Sub Timer1_Timer()

Label1.Left = Label1.Left - 15

If Label1.Left = -Label1.Left Then

Label1.Left = Form1.Width

End If

End Sub

pada timer1 kita membuat label1 kemudian buat teks berjalan, kearah kiri dengan kecepatannya 15.

Private Sub Next_Click()

Form2.Show

Form1.Hide

End Sub

program ini akan menampilkan form2 dan form1 ditutup.

PADA FORM 2 :

==================================================================

Private Sub Timer1_Timer()

Label1.ForeColor = QBColor((Rnd) * 15)

End Sub

pada label satu tulisan berjalan akan di beri warna

Private Sub Timer2_Timer()

Me.Width = Me.Width + 100

If Me.Width >= 11250 Then

Timer2.Enabled = False

End If

End Sub

EFEK LEBAR FORM, FORM AKAN MELEBAR KEKANAN DENGAN KECEPATAN GERAK 100,  JIKA LEBAR MELEBIHI 11250 MAKA AKAN BERHENTI.