Blogroll

Labels

- See more at: http://blog.ahmadrifai.net/2011/07/cara-membuat-tulisan-mengikuti-cursor.html#sthash.KqXAXRGW.dpuf

Widget By Tutorial Blogger
Selamat Datang di blogger Cak Sugeng
Diberdayakan oleh Blogger.
TERIMA KASIH SUDAH MEMBUKA BLOG CAK SUGENG.. dan Selamat mencari informasi

Tags

Tentang Saya Coy !!!!

Jumat, 24 Mei 2013


Berikut adalah tutorial membuat label atau text dalam vb 6 menjadi seolah diketik
1.       Pertama buka visual basic 6.0
2.       Pilih standar.exe
3.       Masukan 3 buah komponen berikut
a.       Label
b.      Timer dgn property, enabled = false, interval = 300
c.       Command buton dgn property, caption = mainkan
4.       Masukkan listing 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 = "K"
End Sub
Private Sub Timer1_Timer()
Select Case Label1
    Case "K"
    Label1.Caption = "KO"
    Case "KO"
    Label1.Caption = "KOM"
    Case "KOM"
    Label1.Caption = "KOMP"
    Case "KOMP"
    Label1.Caption = "KOMPU"
    Case "KOMPU"
    Label1.Caption = "KOMPUT"
    Case "KOMPUT"
    Label1.Caption = "KOMPUTE"
    Case "KOMPUTE"
   Label1.Caption = "KOMPUTER"
    Case "KOMPUTER"
    Label1.Caption = "KOMPUTER D"
    Case "KOMPUTER D"
    Label1.Caption = "KOMPUTER DO"
    Case "KOMPUTER DO"
    Label1.Caption = "KOMPUTER DOT"
    Case "KOMPUTER DOT"
    Label1.Caption = "KOMPUTER DOTC"
    Case "KOMPUTER DOTC"
    Label1.Caption = "KOMPUTER DOTCO"
    Case "KOMPUTER DOTCO"
    Label1.Caption = "KOMPUTER DOTCOM"
    Case "KOMPUTER DOTCOM"
    Label1.Caption = "K"
   
End Select
End Sub
Lalu jalankan dengan menekan tombol F5 pada keyboard, pelajari setiap logika yang di pakai pada program orang lain, maka anda akan mempunyai banyak penyelesaian masalah dalam pembuatan program.

Categories:

0 komentar:

Posting Komentar