Membuat Efek Text Seperti Sedang di Ketik

Jumpa lagi dengan anda sobat VB, pada tutorial kali ini kita akan belajar cara membuat efek sebuah teks seperti sedang di ketik, sekilas mengenai program ini, biasanya efek teks ini bisa kita temukan di sebuah toko, tempat hiburan, tempat pembelanjaan atau tempat umum lainya dengan kata (Umumnya) "SELAMAT DATANG", yang di awali huruf S muncul lalu selang beberapa detik E muncul, satu detik selanjunya L muncul, dan begitupun seterusnya, sampai kata "SELAMAT DATANG" lengkap, maka akan kembali ke S, dan di ulangi lagi. baiklah berikut tutorialnya :

1. Seperti biasa buka VB dengan program standar EXE

2. Lalu tambahkan 1 label, 1 Command Button dan 1 timer,

3. Ubahlah propertinya

Tool Box	Properties	Keterangan
Form 1	Statr Up Position	Center Screen
Label 1	Caption	(Kosong)
	Font Size	18
Command 1	Caption	PLAY
	Font Size	12
Timer 1	Interval	500

sehingga seperti ini :

4. Jika sudah tuliskan script berikut :

Private Sub Command1_Click()

If Command1.Caption = "PLAY" Then 'Jika caption command1 = "PLAY" maka

    Timer1.Enabled = True 'Timer dalam keadaan aktif

    Command1.Caption = "STOP" 'Caption command1 menjadi "STOP"

Else 'Tapi jika caption command1 tidak "PLAY" Maka

    Timer1.Enabled = False 'Timer dalam keadaan off

    Command1.Caption = "PLAY" 'Caption command1 menjadi "STOP"

End If

End Sub

Private Sub Form_Load()

Label1.Caption = "" 'Caption label1 kosong

End Sub

Private Sub Timer1_Timer()

Select Case Label1 'Mengaktifkan funsi dari selecet case label 1

    Case "" 'Jika case label1 = "" (kosong)

    Label1.Caption = "S" 'Maka caption label 1 menjadi "S"

     

    Case "S" 'Jika case label1 = "S"

    Label1.Caption = "SE" 'Maka caption label 1 menjadi "SE"

    

    Case "SE"

    Label1.Caption = "SEL"

    

    Case "SEL"

    Label1.Caption = "SELA"

    Case "SELA"

    Label1.Caption = "SELAM"

    Case "SELAM"

    Label1.Caption = "SELAMA"

    Case "SELAMA"

    Label1.Caption = "SELAMAT"

    Case "SELAMAT"

    Label1.Caption = "SELAMAT "

    Case "SELAMAT "

    Label1.Caption = "SELAMAT D"

    Case "SELAMAT D"

    Label1.Caption = "SELAMAT DA"

    Case "SELAMAT DA"

    Label1.Caption = "SELAMAT DAT"

    Case "SELAMAT DAT"

    Label1.Caption = "SELAMAT DATA"

    Case "SELAMAT DATA"

    Label1.Caption = "SELAMAT DATAN"

    Case "SELAMAT DATAN"

    Label1.Caption = "SELAMAT DATANG"

    Case "SELAMAT DATANG" 'Jika case label1 = "SELAMAT DATANG"

    Label1.Caption = ""  'Maka caption label 1 kembali menjadi kosong, sehingga secara otomatis mengulang lagi ke case pertama

   

End Select 'Akhir dari fungsi select case

End Sub

5. Silahkan jalankan programnya

Klik saja Command Button "PLAY"

Sekian tutorial kali ini
Semoga bermanfaat