|
Nama
Control |
Properti |
Value |
|
Form |
Caption |
- |
|
Timer |
Name |
Timer1 |
|
Timer |
Interval |
100 |
Copy & paste-kan listing dibawah ini ke
Form pada code editor :
Option Explicit 'Gunakan agar tiap kesalahan deklarasi
dapat diketahui
Dim Title As String 'Deklarasikan Title bertipe string/huruf
Dim I As Integer 'Deklarasikan Title bertipe integer/angka
Private Sub Timer1_Timer()
'Tentukan teks yang akan muncul
Title = "Teks berjalan ini dapat digunakan dimana saja"
'Digunakan sebagai perubahan pertambahan teks yg tampil
I = I + 1
'Tampilkan teks pada judul sebanyak I
Me.Caption = Left(Title, I)
'Jika I sudah sama banyak dengan jumlah teks yang ditentukan maka
If I > Len(Title) Then
'Kembalikan
nilai I menjadi 0
I = 0
End If
'Fungsi diatas akan terus berulang pada kecepatan Timer1.Interval = 100
End Sub |