SELAMAT DATANG DI BLOG SAYA, SEMOGA BERMANFAAT

Friday, September 19, 2014

Contoh visual basic tex berjalan



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
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
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