Membuat Pengaruh Text Menyerupai Sedang Di Ketik

Jumpa lagi dengan anda teman VB, pada tutorial kali ini kita akan berguru cara menciptakan pengaruh sebuah teks ibarat sedang di ketik, sekilas mengenai kegiatan ini, biasanya pengaruh teks ini dapat kita temukan di sebuah toko, daerah hiburan, daerah pembelanjaan atau daerah umum lainya dengan kata (Umumnya) "SELAMAT DATANG", yang di awali abjad S muncul kemudian selang beberapa detik E muncul, satu detik selanjunya L muncul, dan begitupun seterusnya, hingga kata "SELAMAT DATANG" lengkap, maka akan kembali ke S, dan di ulangi lagi. oke berikut tutorialnya :

1. Seperti biasa buka VB dengan kegiatan 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 ibarat 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 jikalau 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