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