Cara Membuat Teks Berjalan Pada VBNET 2008
25 April 2020
Halon teman-teman, pada postingan artikel tigaribu.net ini kita akan membahas cara membuat teks berjalan pada visual basic net 2008 atau bisa disingkat dengan VBNET 2008.
Fungsi Teks Berjalan Pada Sebuah Program VBNET 2008
1. Mempercantik tampilan program yang dibangun dengan VBNET 2008
2. Sebagai kata sambutan pada pengguna program yang dibangun dengan VBNET 2008
3. Memperkenalkan setiap nama form program yang dibangun dengan VBNET 2008
4. Dll
Untuk membuat teks berjalan pada VBNET 2008 tentunya dipastikan teman – teman sudah menginstasl flatform VBNET 2008 pada di laptop yang akan digunakan sebagai alat membuat project ini.
Nah selanjutnya silahkan teman – teman buka VBNET 2008 di laptop yang digunakan, kemudian tambahkan sebuah project baru untuk membuat teks berjalan dan desainlah tampilan project seperti gambar di bawah ini
Keterangan Gambar :
1. Tambahkan sebuah label pada form sebagai objek teks berjalan, dipilih dari ToolBox
2. Rubah Label menjadi Teks Selamat Datang Di Media Blog Tigaribu.net dengan pengaturan di Properties, yaitu Text.
3. Untuk mengganti jenis Font Teks Selamat Datang Di Media Blog Tigaribu.net menjadi sesuai keinginan dapat dilakukan dengan melakukan pengaturan di Properties, yaitu Font.
4. Untuk Mewarnai Teks Selamat Datang Di Media Blog Tigaribu.net menjadi warna biru dapat dilakukan dengan melakukan pengaturan di Properties, yaitu Font Color
Cara Menambah Timer Pada Form Project VBNET 2008
Setelah selesai mendesain tampilan form seperti di atas selanjutnya tambahkan dua buah Timer ke dalam form project tersebut seperti gambar di bawah ini.
1. Klik ToolBox
2. Klik Timer
3. Tarik ke dalam form project
Koding Untuk Membuat Teks Berjalan Pada VBNET 2008
Setelah selesai melakukan tahap – tahap di atas, sekarang saat nya melakukan pengkodean dengan menambahkan koding ke dalam project agar teks berjalan pada form berhasil.
1. Double Klik Timer 1 pada project, kemudian ketik koding di bawah ini
Private Sub Timer1_Tick (ByVal sender As System. Object, ByVal e As System .EventArgs) Handles Timer1.Tick
Label1. Left = Label1. Left + 1
If Label1 . Left >= Me. Width - Label1. Width Then
Timer1. Enabled = False
Timer2. Enabled = True
End If
End Sub
2. Double Klik Timer 2 pada project, kemudian ketik koding di bawah ini
Private Sub Timer2_Tick (ByVal sender As System. Object, ByVal e As System. EventArgs) Handles Timer2. Tick
Label1. Left = Label1.Left - 1
If Label1. Left < 0 Then
Timer1. Enabled = True
Timer2. Enabled = False
End If
End Sub
Setelah selesai melakukan pengkodean selanjutnya running project VBNET 2008 dan lihat hasilnya. Semoga artikel cara membuat teks berjalan pada VBNET 2008 kali ini dapat menyelesaikan masalah anda.
Fungsi Teks Berjalan Pada Sebuah Program VBNET 2008
1. Mempercantik tampilan program yang dibangun dengan VBNET 2008
2. Sebagai kata sambutan pada pengguna program yang dibangun dengan VBNET 2008
3. Memperkenalkan setiap nama form program yang dibangun dengan VBNET 2008
4. Dll
Untuk membuat teks berjalan pada VBNET 2008 tentunya dipastikan teman – teman sudah menginstasl flatform VBNET 2008 pada di laptop yang akan digunakan sebagai alat membuat project ini.
Nah selanjutnya silahkan teman – teman buka VBNET 2008 di laptop yang digunakan, kemudian tambahkan sebuah project baru untuk membuat teks berjalan dan desainlah tampilan project seperti gambar di bawah ini
Keterangan Gambar :
1. Tambahkan sebuah label pada form sebagai objek teks berjalan, dipilih dari ToolBox
2. Rubah Label menjadi Teks Selamat Datang Di Media Blog Tigaribu.net dengan pengaturan di Properties, yaitu Text.
3. Untuk mengganti jenis Font Teks Selamat Datang Di Media Blog Tigaribu.net menjadi sesuai keinginan dapat dilakukan dengan melakukan pengaturan di Properties, yaitu Font.
4. Untuk Mewarnai Teks Selamat Datang Di Media Blog Tigaribu.net menjadi warna biru dapat dilakukan dengan melakukan pengaturan di Properties, yaitu Font Color
Cara Menambah Timer Pada Form Project VBNET 2008
Setelah selesai mendesain tampilan form seperti di atas selanjutnya tambahkan dua buah Timer ke dalam form project tersebut seperti gambar di bawah ini.
1. Klik ToolBox
2. Klik Timer
3. Tarik ke dalam form project
Koding Untuk Membuat Teks Berjalan Pada VBNET 2008
Setelah selesai melakukan tahap – tahap di atas, sekarang saat nya melakukan pengkodean dengan menambahkan koding ke dalam project agar teks berjalan pada form berhasil.
1. Double Klik Timer 1 pada project, kemudian ketik koding di bawah ini
Private Sub Timer1_Tick (ByVal sender As System. Object, ByVal e As System .EventArgs) Handles Timer1.Tick
Label1. Left = Label1. Left + 1
If Label1 . Left >= Me. Width - Label1. Width Then
Timer1. Enabled = False
Timer2. Enabled = True
End If
End Sub
2. Double Klik Timer 2 pada project, kemudian ketik koding di bawah ini
Private Sub Timer2_Tick (ByVal sender As System. Object, ByVal e As System. EventArgs) Handles Timer2. Tick
Label1. Left = Label1.Left - 1
If Label1. Left < 0 Then
Timer1. Enabled = True
Timer2. Enabled = False
End If
End Sub
Setelah selesai melakukan pengkodean selanjutnya running project VBNET 2008 dan lihat hasilnya. Semoga artikel cara membuat teks berjalan pada VBNET 2008 kali ini dapat menyelesaikan masalah anda.