Senin, 14 Januari 2013

Membuat text berjalan dengan vb.net

https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEi62Vr3klFX8ipvMwKwkAw3VEusGEtSZgzf1SoZjbwHiZob7IV6XJc0qsYtYkp0k7O8QidAMFHsmilyZ3VGYkwOWu7H853UogOYKhhyLPvER_4r2nfr4nv3fancOnvGGWcuBh9nR3xpHg_w/s1600/TeksBerjalan.jpgPada kesempatan kali ini saya akan berbagi tentang bagaimana membuat teks berjalan pada VB.Net, Membuat tulisan / teks berjalan di vb.net sangatlah mudah, anda hanya memerlukan komponen Timer dan Label. Daripada repot – repot langsung saja saya kasih source code teks berjalan pada vb.net 2010 nya aja ya biar anda langsung mengerti programnya.


Ok langsung saja tutorial membuat teks berjalan pada VB.Net :

  1. Langsung saja buka Microsoft Visual Studio anda.
  2. Muncul “Form1”, masukkan Label dan Timer yang terdapat di ToolBox dengan cara double klik ToolBox yang dipilih.
  3. Ubah Propertiesnya seperti ini :
Nama Control         Properties     Nilai
Label1                    Text               Text Berjalan
                               Name            Label1
                               Autosize        False
Timer1                    Interval          200

1:    Public Class Form1

2:     Dim tulisan(2) As String

3:     Dim i, j As Integer

4:     Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

5:         If i.Equals(tulisan(j).Length) Then

6:             Me.Label1.Text = “”

7:             If j < tulisan.Length – 1 Then

8:                 j = j + 1

9:                 Me.Label1.Text = tulisan(j)

10:             Else

11:                 j = 0

12:             End If

13:             i = 0

14:         End If

15:         Label1.Text = tulisan(j).Substring(0, i)

16:         i = i + 1

17:     End Sub

18:     Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

19:         tulisan(0) = ” mencoba ”

20:         tulisan(1) = ” mencoba ”

21:         tulisan(2) = ” mencoba ”

22:         Label1.Text = tulisan(j)

23:         Timer1.Start()

24:     End Sub

25: End Class



5.  Setelah itu klik “Start Debugging (F5)” Dan lihat apa yang terjadi.. 

Belajar Bareng · Entri


1 komentar: