Program Tambahan Visual Basic Bagian 3

Program Tambahan Visual Basic Bagian 3 : Text Berjalan

Kita akan belajar bagaimana membuat sebuah text atau tulisan menjadi berjalan.

1. Buatlah sebuah form baru.
2. Masukanlah objek objek berikut ini kedalam form tersebut :

NAME	CAPTION	TOOL
Timer1	-	Timer
Timer2	-	Timer
Timer3	-	Timer
Label1	Contoh Berjalan Ke Kiri	Label
Label2	Contoh Berjalan Ke Kanan	Label
Label3	Contoh Berjalan Terus	Label

3. Keterangan :
Untuk semua Timer gantilah intervalnya menjadi 100
 
4. Listing Program :
Dim KIRI As Integer
Dim TULISAN1 As String
Dim KANAN As Integer
Dim TULISAN2 As String
Private Sub Form_Load()
TULISAN1 = Label1
TULISAN2 = Label2
End Sub
Private Sub Timer1_Timer()
Label1 = KIRI
TULISAN1 = Right(TULISAN1, Len(TULISAN1) – 1) & Left(TULISAN1, 1)
Label1 = TULISAN1
End Sub
Private Sub Timer2_Timer()
Label2 = KANAN
TULISAN2 = Right(TULISAN2, 1) & Left(TULISAN2, Len(TULISAN2) – 1)
Label2 = TULISAN2
End Sub
Private Sub Timer3_Timer()
If Label3.Left >= Width Then
Label3.Left = -Label3.Width
Else: Label3.Left = Label3.Left + 100
End If
End Sub

  Hasil syntax yang kita buat


 

i