TRIK ANIMASI TEKS 3D VISUAL BASIC

Trik animasi teks 3D Visual Basic

Assalamualaikum wr, wb...

Setelah kemarin kita belajar membuat animasi teks tiga dimensi, nah sekarang kita akan kembangkan dengan belajar membuat teks tiga dimensi tersebut menjadi animasi teks, seperti yang sering kita lihat pada gambar atau teks-teks animasi berformat gif atau flash, tapi kita buat dengan versi Visual Basic.

Bagaimana caranya ?..

Untuk menjawab pertanyaan itu, mari kita mulai untuk mempraktekannya dan lihat hasilnya, simak trik dibawah ini dengan seksama.

Trik membuat animasi teks Visual Basic

1. Buka program Visual Basic dan mulailah dengan form baru
2. Atur panjang dan tinggi form sesuai keinginan yang penting sesuaikan dengan lebar teks yang akan di
    tampilkan.
3. Masukan Dua komponen Timer
4. Atur Interval Timer1 dan Timer2 dengan nilai 2000
5. Atur Enabled Timer1 menjadi "True" dan Enabled Timer2 menjadi "False"

6. Double klik pada objek Timer1 dan masukan listing kode dibawah ini pada prosedur Timer1_timer()

     Private Sub Timer1_Timer()
        Dim Tm As Double
    Dim strText As String
    Dim Ctr As Integer
'Set ukuran font, nama, dan style
    With Form1
        .FontName = "Arial Black"
        .FontSize = 24
        .FontBold = True
        .FontUnderline = True
    End With
'Set teks yang akan ditampilkan pada form
        strText = "BERCODE.BLOGSPOT.COM"
        x = CurrentX
        y = CurrentY
        x = 120 'posisi x
        y = 90 'posisi y
    For Ctr = 0 To 255
        ForeColor = RGB(Ctr, 0, 0) ' ganti warna gradient dengan fungsi RGB()
        x = x + 1
        y = y + 1
        CurrentX = x
        CurrentY = y
    Print strText
    Next Ctr
        ForeColor = RGB(0, 255, 0) 'ganti warna teks yang akan ditampilkan paling depan
        CurrentX = x: CurrentY = y
    Print strText
    Timer1.Enabled = False
Timer2.Enabled = True

    End Sub

7. Masukan listing dibawah ini pada prosedur Timer2_Timer()

 Private Sub Timer2_Timer()
        Dim Tm As Double
    Dim strText As String
    Dim Ctr As Integer
'Set ukuran font, nama, dan style
    With Form1
        .FontName = "Arial Black"
        .FontSize = 24
        .FontBold = True
        .FontUnderline = True
    End With
'Set teks yang akan ditampilkan pada form
        strText = "BERCODE.BLOGSPOT.COM"
        x = CurrentX
        y = CurrentY
        x = 120 'posisi x
        y = 90 'posisi y
    For Ctr = 0 To 255
        ForeColor = RGB(0, Ctr, 0) ' ganti warna gradient dengan fungsi RGB()
        x = x + 1
        y = y + 1
        CurrentX = x
        CurrentY = y
    Print strText
    Next Ctr
        ForeColor = RGB(0, 0, 255) 'ganti warna teks yang akan ditampilkan paling depan
        CurrentX = x: CurrentY = y
    Print strText
Timer2.Enabled = False
Timer1.Enabled = True

End Sub







8. Coba jalankan dengan menekan tombol F5 pada keyboard anda

Wassalam.. n smoga bermanfaat..