Breaking News

Kamis, 09 April 2015

Cara Membuat Tulisan Bergerak Dengan Visual Basic 6.0



Hola ^_^

Sebelum Ane Tidur.. Ane Mau Share Tentang Visual Basic 6.0 Nih..
Sebelum Ane Kasih Tau Caranya.. Liat Gambar Ini Dulu Biar Jelasnya :) :)
https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhMGAZJF4YNzD-Um9z3agsnqL3AmoUd_wKtJFR50avai76elrQ_uVwI-o6j5ZNyd1TKih-AD5OT3PkDzqRGWEu6LmsvRPn3_BNj-bpheBpdnfxmF625k4QFEq4amnuCRmmd8H39yR-4ex8/s1600/b.png
https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhUlh1ESXh7qykvHl80wvB8xYWqnejPLCQhcoYUWoU-lH-JYMqH06bgd_kw-s7mPAW85wzGllOK0VZBx3Cr-O4xyPwO8V7mCBkPB_vkiHvn6Sb1RvKR7T3BCt1PWV9usUzfaa7vxY6FPSo/s1600/c.png
Kurang Lebih Kayak Gitu Entar.. Sorry Bukan Video .. hehehe.
Yuk Cekidot..

Step :
•> Buat " LABEL " dan " TIMER "
•> Nah Buat Kodingnya Sekarang.. 
Koding Pertama : 
        •> " FORM "
Diisi Dengan :
                  Private Sub Form_Load()
                  Label1.Caption = ""
                  Timer1.Interval = 400
                  End Sub

        •> " Timer 1 "
Diisi Dengan : 
Private Sub Timer1_Timer()
   Dim MyWord
   Static i As Integer
   i = i + 1
   MyWord = Array("M", "R", "R", "-", "C", "y", "b", "e", "r", ".", ".", ".")
      Label1.Caption = Label1.Caption & MyWord((i) - 1)
         If i = 12 Then
            i = 0
            Label1.Caption = ""
         End If
End Sub

•> Nah Sekarang di Test Tekan " F5 "

Source : MRR Cyber

Tidak ada komentar:

Posting Komentar

Designed By Published.. Blogger Templates