DASAR VISUAL BASIC :Program Teks Melayang Dengan Visual Basic

Langkah-Langkah :
1.Bukalah proyek baru dengan bentuk halaman standar exe
2.Masukan Sebuah teks bertuliskan “SMK MA’ARIF NU 1 AJIBARANG” (sembarang tulisan)

3.Masukan Komponen Timer ke dalam Form dan aturlah properties timer dengan nilai Interval = 100
4.Sehingga Form terlihat seperti pada gambar dibawah ini

5.Ketiklah Listing Program Dibawah

Listing Program Source Code
Dim KeBawah As Boolean
Dim KeKanan As Boolean

Private Sub Timer1_Timer()
If KeBawah Then
Label1.Top = Label1.Top + 50
Else
Label1.Top = Label1.Top - 50
End If
If Label1.Top >= 2760 Then
Label1.Top = 2760
KeBawah = False
End If
If Label1.Top <= 120 Then Label1.Top = 120 KeBawah = True End If If KeKanan Then Label1.Left = Label1.Left + 50 Else Label1.Left = Label1.Left - 50 End If If Label1.Left >= 3240 Then
Label1.Left = 3240
KeKanan = False
End If
If Label1.Left <= 120 Then Label1.Left = 120 KeKanan = True End If End Sub

Posted in: Tutorial