Membuat Text Berjalan Seperti Di Ketik Pada Visual Basic

Selasa, 13 Mei 2014

Teman-teman yang sedang berkreasi dengan Visual Basic kali ini saya akan membagikan sebuah kode untuk membuat tulisan berjalan kita pakai istilah seperti di ketik pada program Visual Basic.


Langsung saja pertama siapkan Object Berikut ini :
  • Label 1 buah ( sebagai object tulisan nantinya )
  • Timer ( sebagai pengatur timing berjalannya tulisan )
  • CommandButton ( sebagai tombol untuk memainkan animasi text yang akan di buat / optional bisa di buat dengan berbagai cara untuk menjalankan perintah animasi )

Pengaturan Timer :

Ubah interval pada timer dari 0 ubah menjadi 300.
Dan Enable dari True menjadi False

Setelah semua komponen sudah di buat,
Langsung saja pada Form masukkan coding berikut :


Private Sub Command1_Click()
If Command1.Caption = "mainkan" Then
    Timer1.Enabled = True
    Command1.Caption = "Stop"
Else
    Timer1.Enabled = False
    Command1.Caption = "mainkan"
End If
End Sub

Private Sub Form_Load()
Label1.Caption = "A"
End Sub

Private Sub Timer1_Timer()
Select Case Label1
    Case "A"
    Label1.Caption = "AN"
    Case "AN"
    Label1.Caption = "ANI"
    Case "ANI"
    Label1.Caption = "ANIM"
    Case "ANIM"
    Label1.Caption = "ANIMA"
    Case "ANIMA"
    Label1.Caption = "ANIMAS"
    Case "ANIMAS"
    Label1.Caption = "ANIMASI"
    Case "ANIMASI"
    Label1.Caption = "A"
   
End Select
End Sub


Untuk penamaan Form1 bisa di atur sesuai dengan nama Form milik agan nama tsbt harus sesuai dengan nama form agan hal ini berlaku juga untuk komponen Button, Timer dan Label di atas.

edit kata : ANIMASI menjadi Kata yang anda inginkan, ingat 

Label1.Caption = "AN" >> Ubah AN menjadi kata anda ( 2 Huruf terdepan ) di lanjutkan dengan bagian selanjutnya menjadi ( 3 Huruf agan bisa lihat contoh di bawah )
Case "AN"

kalau mau di ubah harus keduanya, ikuti sesuai urutan mulai dari Case K kemudian tambah 1 huruf jadi KE kemudian tambah 1 huruf jadi KEN dan seterusnya.. jika ingin di tambahkan tinggal memasukkan perintah " Label1.Caption = "" dan Case "" dibawahnya.

Contoh :

    Case "K"
    Label1.Caption = "KE"
    Case "KE"
    Label1.Caption = "KEN"
    Case "KEN"
    Label1.Caption = "KENH"
    Case "KENH"
    Label1.Caption = "KENHO"
    Case "KENHO"
    Label1.Caption = "KENHON"
    Case "KENHON"
    Label1.Caption = "KENHOND"
    Case "KENHOND"
    Label1.Caption = "A"

Setelah semua komplit silahkan di test terlebih dahulu dengan menekan tombol F5 atau RUN.
Dan tekan tombol Button yang sudah di buat untuk mencoba apakah kode di atas sudah berhasil atau belum.

Sekian jika ada yang mau di tanyakan seputar kode diatas silahkan masukkan pertanyaan ke kolom komentar, ThankYou!

1 komentar :

  1. maaf bang, boleh minta buatin cheat ninja kingdom ga bang? hehehe
    kalo boleh tolong ya bang

    BalasHapus