Gambas2 & Gambas3, Tutorial Teks Berjalan Tanpa Menggunakan Kontrol Timer

Tutorial kali ini membuat Teks Berjalan Tanpa Menggunakan Kontrol Timer, dengan memanfaatkan pernyataan pengulangan untuk melakukan pengulangan dan instruksi wait untuk delay sehingga proses pengulangan yang dilakukan memiliki delay waktu (cara kerja ini hampir sama seperti cara kerja kontrol Timer).
Berikut ini adalah langkah-langkah untuk mencoba tutorial ini.

1. Buat project baru

2. Tambahkan/masukkan kontrol berikut ini kedalam form
  • 1 TextBox
  • 3 Label
  • 1 SpinBox
  • 1 Button
     Disain tampilanya seperti gambar di bawah ini
Gambas2 dan Gambas3, Tutorial Teks Berjalan Tanpa Timer

3. Ketikan kode berikut di kode editor

' Gambas class file

'-------------------------------------------------------------------------------------------------------------------------------
'Author  : Zainudin Ahmad
'Site    : GambasPI.blogspot.co.id
'Title   : Tutorial Teks Berjalan Tanpa Menggunakan Timer (for gambas2 & gambas3)
'-------------------------------------------------------------------------------------------------------------------------------

Public Sub Form_Open()

  Label1.Width = 600
  Label2.Width = 600
  TextBox1.Width = 600
  Me.Width = 620

  Me.Center()
 
  Button1.Text = "Test"
  Label3.Text = "Jml Putaran : "
  SpinBox1.Value = 5
 
  Label1.Background = Color.Black
  Label1.Foreground = Color.Yellow
  Label2.Background = Color.Black
  Label2.Foreground = Color.Yellow

  TextBox1.Text = "SELAMAT     DATANG     DAN     BERGABUNG     DI     MARKAS     GAMBAS  |  "
 
  Label1.Alignment = Align.Center
  Label2.Alignment = Align.Center
  TextBox1.Alignment = Align.Center

End

'Pada saat button1 di klik maka teks pada Label1 dan Label2 berjalan
Public Sub Button1_Click()
 
  Dim ixx As Integer
  Dim iJmlPutaran As Integer

  iJmlPutaran = SpinBox1.Value   'Menentukan jumlah putaran
 
  SpinBox1.Enabled = False
 
  For ixx = 0 To (Len(TextBox1.Text) * iJmlPutaran) - 1
    Label1.Text = Right(Label1.Text, 1) & Mid(Label1.Text, 1, Len(Label1.Text) - 1)
    Label2.Text = Mid(Label2.Text, 2, Len(Label2.Text)) & Left(Label2.Text, 1)
    Wait 0.2
  Next
 
  SpinBox1.Enabled = True

Catch
End


'Pada saat teks di TextBox1 dirubah maka teks pada Label1 dan Label2 akan ikut berubah
Public Sub TextBox1_Change()

  Label1.Text = TextBox1.Text
  Label2.Text = TextBox1.Text

End

4. Coba anda jalankan/run (tekan F5) , tampilanya akan terlihat seperti di bawah ini.
Gambas2 dan Gambas3, Tutorial Teks Berjalan Tanpa Timer

SELAMAT MENCOBA

Artikel Terkait :