sharing script VB (teks yang berjalan)

[qwerty_]

assalamu`alaikum all...

hmmm, berbagi script dunk, mohon bantuannya teman2 disini untuk kode script VB teks yang berjalan dari bawah ke atas atau sebaliknya. atau menyamping 

[riyoz]

download
http://www.sendspace.com/file/zzqnya

afwan, jarang buka room ini

[Pangeran Bima]

Dulu ane yang namanya otodidak bahkan tanpa buku, bikin text bejalan pake puluhan timer di vb. Repotnya kalo lagi seting program formnya ketutup jpg text. Susah banget buat nambahin program dalam 1 form. Abis dulu ga bgitu banyak buku yg bahas vb.

[k4m4r82]

assalamu`alaikum all...

hmmm, berbagi script dunk, mohon bantuannya teman2 disini untuk kode script VB teks yang berjalan dari bawah ke atas atau sebaliknya. atau menyamping 

Objek dan properties yang perlu diset :
1. Label.caption = "Tulisan Berjalan"
2. Label1.AutoSize = True
3. Timer1.Interval = 1

Animasi 1 - Tulisan berjalan dari kiri kekanan

Kode: [Pilih]

Private Sub Timer1_Timer()
    Label1.Move Label1.Left - 15
    If Label1.Left < -Label1.Width Then Label1.Left = Me.Width
End Sub

Animasi 2 - Tulisan berjalan (memantul) dari kiri kekanan

Kode: [Pilih]

Dim x   As Long

Private Sub Form_Load()
    x = 20
End Sub

Private Sub Timer1_Timer()
    Label1.Move Label1.Left + x
    If Label1.Left < Me.ScaleLeft Then
       x = 20
    ElseIf Label1.Left + Label1.Width > Me.ScaleWidth + Me.ScaleLeft Then
       x = -20
    End If
End Sub

Animasi 3 - Tulisan berjalan (memantul) dari atas kebawah

Kode: [Pilih]

Option Explicit

Dim gerakX  As Long, gerakY As Long

Private Sub Form_Load()
    gerakY = 20
End Sub

Private Sub Timer1_Timer()
    Label1.Move Label1.Left + gerakX, Label1.Top + gerakY
    If Label1.Top < Me.ScaleTop Then
       gerakY = 20
    ElseIf Label1.Top + Label1.Height > Me.ScaleHeight + Me.ScaleTop Then
       gerakY = -20
    End If
End Sub

Animasi 4 - Animasi zig zag

Kode: [Pilih]

Option Explicit

Dim zigZagX As Long, zigZagY As Long

Private Sub Form_Load()
    zigZagX = 20
    zigZagY = 20
End Sub

Private Sub Timer1_Timer()
    Label1.Move Label1.Left + zigZagX, Label1.Top + zigZagY
    If Label1.Left < Me.ScaleLeft Then
       zigZagX = 20
    ElseIf Label1.Left + Label1.Width > Me.ScaleWidth + Me.ScaleLeft Then
       zigZagX = -20
    ElseIf Label1.Top < Me.ScaleTop Then
       zigZagY = 20
    ElseIf Label1.Top + Label1.Height > Me.ScaleHeight + Me.ScaleTop Then
       zigZagY = -20
    End If
End Sub

selamat mencoba 

[kumpay]

@atas bah parah "polos" abiz gak dikasih tau embel2'y

gpp deh ane cm pny 1 dari atas kebawah

Kode: [Pilih]

Private Sub Timer2_Timer()
If Label18.Top <> Not 0 Then
Label18.Top = Label18.Top + 10
If Label18.Top = 10000 Then
Label18.Top = 0
Label18.ForeColor = RGB(255 * Rnd, 255 * Rnd, 255 * Rnd)
End If
End If
End Sub

properties yg dirubah:
timer2
interval:40
left:6480
top:2640

label18:
top:7200
width:5175

nanti hasil'y teks akan berjalan up n down dan warna'y berubah

Label18.ForeColor = RGB(255 * Rnd, 255 * Rnd, 255 * Rnd)

kode ini biar warna'y berubah secara random

Posting Digabung: 02 Mei 2009, 21:56:11

Animasi 4 - Animasi zig zag

Kode: [Pilih]

Option Explicit

Dim zigZagX As Long, zigZagY As Long

Private Sub Form_Load()
    zigZagX = 20
    zigZagY = 20
End Sub

Private Sub Timer1_Timer()
    Label1.Move Label1.Left + zigZagX, Label1.Top + zigZagY
    If Label1.Left < Me.ScaleLeft Then
       zigZagX = 20
    ElseIf Label1.Left + Label1.Width > Me.ScaleWidth + Me.ScaleLeft Then
       zigZagX = -20
    ElseIf Label1.Top < Me.ScaleTop Then
       zigZagY = 20
    ElseIf Label1.Top + Label1.Height > Me.ScaleHeight + Me.ScaleTop Then
       zigZagY = -20
    End If
End Sub

selamat mencoba 

yg ini keren keQ main shiws Max

[oomnya fahrel]

Asyik ikut belajar y jeng ts

[top_player]

Waduuuhhh.... ini neh yang aku cari, terima kasih untuk para senior.
VB walaupun dah tua tp masih asik buat belajar.

[masgalih]

[vb6] Membuat Teks Animasi

http://forumif.web.id/index.php/topic,147.0.html