Cara Membuat Teks Berjalan dengan Menggunakan Visual Basic 6.0

Cara Membuat Teks Berjalan dengan Menggunakan Visual Basic 6.0 - Selamat pagi sobattip dan trik visual basic  semuanya bertemu lagi kita di dunia maya dalam  tip dan trik Visual basic. Pada pagi yang cerah ini dan hari yang penuh barokah tepatnya hari jumat, pada tutorial kali ini Saya ingin memberikan tip dan trik bagaimana Cara membuat teks berjalan.

Mungkin bagi Anda dan kita semua tau seperti apa teks yang berjalan itu, Anda pasti tau dan melihat di sebuah televisi dan bahkan hampir semua televisi membuatnya (teks berjalan) untuk update informasi. Coba Anda perhatikan di Televisi di bagian bawah layar televisi ada HeadLine News atau informasi berita hari ini yang berupa teks berjalan.Itulah pembahasan kita hari ini.

Tip berikut ini  akan mengajarkan kepada Anda bagaimana membuat Teks berjalan ,yang lebih menarik lagi Anda dapat memnentukan isi teks yang akan dibuat berjalan.Selauin itu juga Anda dapat mengatur kecepatan gerakan teks melalui kotak interval.

Berikut dalah langkah-langkah dalam pembuatannya  :

Cara Membuat Teks Berjalan di Visual Basic 6.0:

1. Buka form Standar EXE VB6 Anda
2. Letak sebuah Picture Box , 3 buah Label, 2 buah TextBox, 2 buah CommandButton dan sebuah Timer pada form.
Perhatikan kontrol PictureBox ukurannya harus sama dengan Label1 dan letakan tepat dibawah Label1 (di tindih)

3. Atur properti masing-masing dibawah ini:

Label1            Caption :Visual Basic          Autosize : True ( Teks yang akan berjalan)
Label2            Caption : Masukan Teks
Label3            Caption : Interval Waktu
Text1              Text      :
Text2              Text      : 50
Command1    Caption : Mulai
Command2    Caption : Berhenti


Catatan : Nilai 50 pada Text2 hanyalah sebagai nilai awal interval waktu untuk menentukan kecepatan gerakan teks.Anda dapat mengisinya sesuka Anda

4. Setelah itu tambahkan 1 buah module dengan cara klik menu Project, lalu pilih Add Module.Pada bagian General  Declaration ketik kode berikut ini :

Public Sub sCenterForm(tmpF As Form)
Dim x As Integer
y = (Screen.Height - tmpF.Height) \ 2
x = (Screen.Width - tmpF.Width) \ 2
tmpF.Move x, y
End Sub

Catatan: kode diatas untuk menempatkan Teks ditengah


5. Setelah selesai pendeklarasian pada module lalu buka jendela kode pada form, ketikan kode berikut dibawah ini di bagian General Declaration :

Private Sub Form_Load()
Call sCenterForm(Me)
Command1.Enabled= False
Command2.Enabled= True
End Sub

Private Sub Command1_Click()
Timer1.Enabled = True
Command2.Enabled= True
Command1.Enabled= False
End Sub

Private Sub Command2_Click()
Timer1.Enabled = False
Command2.Enabled= False
Command1.Enabled= True
End Sub

Private Sub Text1_Change()
Label1.Caption=Text1.Text
End Sub

Private Sub Text2_Change()
Timer1.Interval=Text2.Text
End Sub

Private Sub Timer1_Timer()
Label1.Move Label1.Left - 50
If Label1.Left < -Label1.Width Then
Label1.Left = Picture.Width
End If End Sub

6. Simpan hasil pekerjaan Anda dan jalankan program dengan F5 Bagaimana berhasil..??, kalau program ini berhasil Anda bisa membuat label berjalan lagi dengan model yang berbeda dengan cara yang gak jauh berbeda tetapi tidak menggunakan module dan picturebox, berikut kodenya

Dim ket As String

Private Sub Form_Activate()

ket = "" & Label1.Caption

End Sub

Private Sub Timer1_Timer()

ket = Right(ket, Len(ket) - 1) & Left(ket, 1)

Label1.Caption = ket

End Sub

Demikian cara Cara Membuat Teks Berjalan dengan Menggunakan Visual Basic 6.0. Selamat mencoba semoga berhasil.....

Related Post: Animasi Label/Text