Membuat Animasi Text Sederhana di Visual Basic

Ya sobat BM, kali ini saya akan berbagi bagaimana cara nya membuat animasi text pada VB tanpa flash atau juga tanpa membuat animasi gif. Cukup dengan sedikit script.

Oke langsung saja siapkan program Visual Basic anda dan mulai lah buat tampilan seperti dibawah ini.

Keterangan :

Form1 Properties :

Back color = vb black

Border style = 0 – None

Label1 Properties

Caption = selamat datang di program sederhana untuk membuat animasi text sederhana dengan VB dari Blog Mini Indonesia

Backstyle = 0 - transparent

Atau sesuka anda saja, bebas gak ada undang undang nya kok.

Label2 Properties

Caption = WELCOME IN MY PROGRAM

Font  size = 16 bold arial

Fore color = vbyellow

Autosize = true

Backstyle = 0- transparent

Label3 Properties

Caption = Klik Next Untuk Tutup Untuk Mengakiri

Font size 14 reguler MS sans serif

Autosize = true

Backstyle = 0- transparent

Label4 Properties

Caption = Tutup (ganti saja next dengan tutup)

Font size 12 Underline System

Autosize = true

Backstyle = 0- transparent

Timer1 dan Timer2  Properties

Interval = 100

Setelah mengubah semua properties masing masing silahkan anda masukan listing code berikut di form program dengan double klik pada form.

Listingnya sebagai berikut :

Private Sub Form_Load()

Label2.Height = 10

Label1.Visible = False

Label3.Visible = False

Label4.Visible = False

End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)

Label4.ForeColor = vbWhite

Label4.FontSize = 16

End Sub

Private Sub label3_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)

Label4.ForeColor = vbWhite

Label4.FontSize = 16

End Sub

Private Sub Label4_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)

Label4.ForeColor = vbYellow

Label4.FontSize = 20

End Sub

Private Sub Label4_Click()

Unload me

End Sub

Private Sub label2_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)

Label4.ForeColor = vbWhite

Label4.FontSize = 16

End Sub

Private Sub Timer1_Timer()

Label2.Height = Label2.Height + 100

Tengah

If Label2.Height >= 3500 Then

    Timer1.Enabled = False

    Tengah

    Label1.Visible = True

End If

End Sub

Public Sub Tengah()

Label2.Left = (sambutan.Width - Label2.Width) / 2

Label2.Top = (sambutan.Height - Label2.Height)

End Sub

Private Sub Timer2_Timer()

If Label2.Height >= 3500 Then

   Label4.Visible = True

If Label3.Visible = True Then

    Label3.Visible = False

ElseIf Label3.Visible = False Then

    Label3.Visible = True

End If

End If

End Sub

Silahkan jalankan dan enjoy...!!

Cukup mudah kan??? Selamat mencoba ya....

Read more »

Membuat Animasi Teks 3D Berputar Dengan Visual Basic 6.0

Membuat Animasi Teks 3D Berputar Dengan Visual Basic 6.0

Apabila Menggunakan aplikasi Macromedia Flash, Kita dapat dengan mudah membuat animasi teks dengan gaya sesuka kita. Perlu Anda ketahui, bahwa di dalam Visual Basic 6.0 juga menyediakan komponen untuk membuat animasi teks yang menarik.

1. Bukalah proyek baru menggunakan Standard.Exe
2. Aktifkan Komponen DirectAnimation Library, dari menu Projects kemudian klik menu Componen.
3. Tambahkan objek DAViewerControlWindowed ( ) kedalam form, kemudian aturlah property name-nya dengan DAVCW
4. Sekarang masuklah pada halaman kode (klik View > Code) Kemudian tulislah program lengkap sebagai berikut.

Private Sub Form_Load()

Dim kanvas, half, Font, clr, bgr

Dim TxtAnimasi, pos, scl, xf

Set kanvas = DAVCW.MaterLibrary

Set half = kanvas.DANumber ( 0.5 )

Set clr = kanvas.ColorHslAnim(kanvas.Mul(kanvas.LocalTime,kanvas.DANumber (0.345)), half, half)

Set Font = Kanvas.Font (“comic sans ms”, 9 , clr)

Set TxtAnimasi = kanvas.StringImage(“Bunafit and Sister ’ s “, Font)


Set pos = kanvas.Mul( kanvas.Sin(kanvas.LocalTime),kanvas, DANumber (0.02))Set scl = kanvas.Add( kanvas.DANumber(2),kanvas.Abs(kanvas.Mul(kanvas.Sin(kanvas.LocalTime), kanvas.DANumber (3))))

Set xf = kanvas.Compose2(kanvas.Translate2Anim(kanvas.DANumber (0), pos), kanvas.Scale2UniformAnim(scl))

Set TxtAnimasi = TxtAnimasi.Transform(xf)

Set bgr = kanvas.Rotate3RateDegrees(kanvas.Vector3(1,1,1),45).ParallelTransform2

Set TxtAnimasi = TxtAnimasi.Transform (bgr)

DAVCW.backgroundImage= kanvas.SolidColorImage (kanvas.Yellow)

DAVCW.Image = TxtAnimasi

DAVCW.Start

End Sub


1. Setelah program dibuat, Anda dapat mencoba animasi di atas dengan menjalankannya. Apabila berhasil, maka teks “ Bunafi and Sister ‘s “ akan tampak berputar – putar seperti 3D.

Read more »

Membuat animasi form visual basic ( vb )

di artikel ini saya akan memberikan pengetahuan animasi form visual basic tidak usah pakai source code karena cukup mudah dan simple .
animasi ini akan bergerak turun jika form di unload / di tutup.

berfungsi untuk mempercantik tampilan form .
guna mempercantik tampilan form
1. agar pengguna betah
2. tidak gampang bosen
3. dll

source code nya ini saya berikan free / gratis *disini mana ada yang bayar , hha karena cukup mudah dan simple ..


berikut source codenya :

Private Sub Form_Unload(Cancel As Integer)
Do
Me.Top = Me.Top + 20
Me.Move Me.Left, Me.Top
DoEvents
Loop Until Me.Top > Screen.Height - 50
End Sub

berikut pencerahannya

itu membuat form menghilang ke bawah .di tengah tampilan

Read more »