Dan untuk cara pembuatannya,
silahkan anda buka aplikasi Visual Basic 6.0 dengan cara :
Klik Start- pilih All
Programs - pilih Microsoft Visual Studio Basic 6.0 - lalu klik Microsoft
Visual Basic 6.0, maka tampilannya seperti di bawah ini :
Lalu tambahkan Object Label1
dan Timer1, kemudian letakkan di Form1, untuk lebih jelasnya
lihat gambar di bawah ini :
Selanjutnya Isi Source Code
dibawah ini, anda bisa Copy lalu Pastekan Codenya di Form1, caranya klik 2 kali
pada Form1 :
Private Sub Form_Load()
Label1.FontSize = 20
Label1 = "Selamat Datang Kawan Semua"
End Sub
Label1.FontSize = 20
Label1 = "Selamat Datang Kawan Semua"
End Sub
Private Sub Timer1_Timer()
Label1.ForeColor = RGB(Rnd * 250, Rnd * 250, Rnd * 250)
If (Label1.Left + Label1.Width) <= 0 Then
Label1.Left = Me.Width
End If
Label1.Left = Label1.Left - 100
End Sub
Label1.ForeColor = RGB(Rnd * 250, Rnd * 250, Rnd * 250)
If (Label1.Left + Label1.Width) <= 0 Then
Label1.Left = Me.Width
End If
Label1.Left = Label1.Left - 100
End Sub
Setelah itu rubah nilai Interval di
property Timer1 Menjadi 100, lalu jalankan projectnya dengan cara
menekan tombol F5 di keyboard anda.
No comments:
Post a Comment