|
Program Membuat Tulisan Berjalan
Menggunakan Visual Basic . 06
- Rancangan tampilan FORM1
| Komponen | Nama | Nilai |
| Form | Name | Form1 |
| Caption | ___Program Tulisan Berjalan ^^^^ | |
| Frame | Name | Frame1 |
| Caption | - | |
| Label | Name | Label1 |
| Caption | SELAMAT DATANG DI STMIK NURDIN HAMZAH JAMBI | |
| Label | Name | Label2 |
| Caption | Ujexs base 2009 | |
| Option | Name | Option1 |
| Caption | Kanan-kiri | |
| Option | Name | Option2 |
| Caption | Kiri-kanan | |
| Option | Name | Option3 |
| Caption | Atas-bawah | |
| Option | Name | Option4 |
| Caption | Bawah-atas | |
| Picture | Name | Picture1 |
| Caption | - | |
| Timer | Name | Timer1 |
| Interval | 100 | |
| Timer | Name | Timer2 |
| Interval | 2000 |
- Listing Kode Program
'Program Tulisan Berjalan ini dibuat untuk bagaimana membuat suatu tulisan bisa berjalan sendiri
'di mana pembuatanya memaksimalkan fungsi Timer yang terdapat dalam Visual basic...
'silahkan aja jika mau diperbarui tanpa harus merusak karya asli pembuat ,, ntar bisa dituntut Looo
========================================================
Private Sub Label2_Click()
'untuk membuat link online langsung ke internet
Shell "EXPLORER.EXE " & "http://ujexs09.blogspot.com/"
End Sub
Private Sub Timer1_Timer()
'tulisan jalan ke kiri
If Option1.Value = True Then
If Label1.Left < -Label1.Width Then
Label1.Left = Picture1.Width
Else
Label1.Left = Label1.Left - 50
End If
'tulisan jalan ke kanan
ElseIf Option2.Value = True Then
If Label1.Left > Picture1.Width Then
Label1.Left = -Label1.Width
Else
Label1.Left = Label1.Left + 50
End If
'tulisan jalan ke atas
ElseIf Option3.Value = True Then
If Label1.Top < -Label1.Height Then
Label1.Top = Picture1.Height
Else
Label1.Top = Label1.Top - 50
End If
'tulisan jalan kebawah
ElseIf Option4.Value = True Then
If Label1.Top >= Picture1.Height Then
Label1.Top = 0
Else
Label1.Top = Label1.Top + 50
End If
End If
End Sub
Private Sub Timer2_Timer()
'membuat tulisan berkedip-kedip
Label2.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
End Sub
By MAHASISWA TI STMIK NH JAMBI
Ujexs Base 2009
ujexsbase@gmail.com
Good Luck …… !!!
Salam Kenal AMCJ