2
Cara membuat Tulisan berjalan dengan Visual Basic.NET
Runing text atau tulisan berjakan dapat kita buat dengan Visual
Basic.NET. Berikut adalah tahap demi tahap pembuatan Running text dengan
VB.NET :
Jalankan Aplikasi Visual Basic.NET
Buat Form baru dan Desain Form1 Seperti gambar dibawah ini :
Atur Properties control seperti table dibawah ini :
No.
|
Kontrol
|
Properties
|
1.
|
Label
|
Name : Label1
Text : Label1
|
2.
|
Timer
|
Name : Timer1
|
Masukan script kode berikut ke dalam program.
Public Class Form1 Dim tulisan(0) As String Dim i, j As Integer Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Me.Text = "timoresse.blogspot.com" Timer1.Enabled = True tulisan(0) = " SELAMAT DATANG DI TIMORESSE.BLOGSPOT.COM " Label1.Text = tulisan(j) End Sub Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick If i.Equals(tulisan(j).Length) Then Me.Label1.Text = "" If j < tulisan.Length - 1 Then j = j + 1 Me.Label1.Text = tulisan(j) Else j = 0 End If i = 0 End If Label1.Text = tulisan(j).Substring(0, i) i = i + 1 End Sub End Class
Sekarang tekan F5 untuk running dan test program.
Saat diruning timer1 akan aktif dan label1 akan
berubah menjadi text berjalan dengan tulisan “selamat dating di timoresse.blogspot.com”.
Demikian tutorial running text sederhana dengan
vb.net.
Terima kasih,
Semoga bermanfaat,
Download tutorial versi PDF klik disini