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 BoxPropertiesKeterangan
Form 1Statr Up PositionCenter Screen
Label 1Caption(Kosong)
Font Size18
Command 1CaptionPLAY
Font Size12
Timer 1Interval500

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


Bantu kembangkan Blues Pedia yuk, caranya share artikel ini :

G+



0 Response to "Membuat Efek Text Seperti Sedang di Ketik"

Post a Comment