Cara Membuat Label Bergerak di VB 6.0

Cara mendapatkan 3 Dolar per hari, kerjanya cuma klik iklan yang muncul langsung dibayar caranya:klik gambar dibawah ini atau klik Register Clixsense, lengkapi identitas, tekan Sign-Up kemudian konfirmasi Email.Anda siap klik iklan. Info Lengkap

Cara Membuat Label Berjalan di Visual Basic

 

Kali ini saya akan memposting tentang Cara Membuat Label Berjalan di Visual Basic 6.0. Ikuti perintah dibawah ini ya!

1. Buka Visual Basic 6.0, buat project baru Standard EXE
2. Buat Label baru bernama Label1. Buat juga Timer baru bernama Timer1.
3. Coding berjalan dari kiri ke kanan:

   Dim kalimat As String
   Dim panjang As Integer
   Dim jalan As Boolean
   Private Sub Form_Load()
   jalan = True
   kalimat = "SELAMAT DATANG "
   panjang = Len(kalimat)
   Label1 = kalimat
   Label1.Refresh
   Timer1.Enabled = True
   Timer1.Interval = 100
   End Sub
   Private Sub Form_Unload(Cancel As Integer)
   jalan = False
   End Sub
   Private Sub Timer1_Timer()
   If jalan Then
   kalimat = Right(kalimat, 1) & Left(kalimat, panjang - 1)Label1 = kalimat
   Label1.Refresh
   Else
   Timer1.Enabled = False
   End If
   End Sub

4. Dan ini coding berjalan dari kanan ke kiri:
   

   Dim kalimat As String
   Dim panjang As Integer
   Dim jalan As Boolean
   Private Sub Form_Load()
   jalan = True
   kalimat = "SELAMAT DATANG "
   panjang = Len(kalimat)
   Label1 = kalimat
   Label1.Refresh
   Timer1.Enabled = True
   Timer1.Interval = 100
   End Sub
   Private Sub Form_Unload(Cancel As Integer)
   jalan = False
   End Sub
   Private Sub Timer1_Timer()
   If jalan Then
   kalimat = Right(kalimat, panjang - 1) & Left(kalimat, 1)
   Label1 = kalimat
   Label1.Refresh
   Else
   Timer1.Enabled = False
   End If
   End Sub

5. Ganti tulisan SELAMAT DATANG dengan tulisan yang ingin digerakkan. Ganti angka 100 dengan angka yang diinginkan. Semakin besar angkanya, semakin lambat jalannya. Begitu juga sebaliknya.

Cara membuat Label Bergerak Kekanan Dan Kekiri Dengan Visual Basic

Kali ini kita membuat label bergerak ke kanan atau ke kiri dengan visual basic tentunya dong .
 Syaratnya adalah .
Buat 1 buah timer dengan interval 50 dan 1 buah label .

pada timer 1, ketikkan code berikut :

Label1.Left = Label1.Left - 10
    If Label1.Left <= -Label1.Left Then
        Label1.Left = Form1.Width
    End If

 Perhatikan tulisan Form1.Width fungsi code itu adalah panjangnya lintasan label saat bergerak .

Sudah mengertikan cara membuat label bergerak!

Cara Membuat Label bergerak Keatas

Buat 1 buah timer, 1 buah label .
Lalu isikan interval timernya 20 aja deh .
Setelah itu masukkan code berikut :

If Labelabout.Top < -(Labelabout.Height + 90) Then
        Labelabout.Top = Picture1.ScaleHeight
    End If

    Labelabout.Top = Labelabout.Top - 3

Perhatian !
Labelabout  bisa di ganti dengan nama label anda .

Sekian dulu tutoril kali ini .
Salam super dan sampai jumpa di tutorial berikutnya . 

Selamat Mencoba! Semoga Berhasil!

Penulis: tutorial ~ Nurhasan Blogger | Blog Tutorial dan Informasi |

Artikel Cara Membuat Label Bergerak di VB 6.0 ini dipublish oleh tutorial pada hari Wednesday 20 March 2013
Terima kasih Anda telah membaca artikel tentang Cara Membuat Label Bergerak di VB 6.0.