Cara Membuat Animasi Label dengan Efek Mengecil dan Membesar di VB6

Cara Membuat Animasi Label dengan Efek Mengecil dan Membesar di VB6

Selamat datang kembali di TeknoTips.NET. TeknoTips.NET adalah media online Indonesia yang diluncurkan pada bulan Maret 2015. Kami berkomitmen menyajikan konten seputar teknologi yang berkualitas dan bermanfaat. Ulasan kami terdiri dari berbagai topik: pemrograman komputer & database, review produk, tutorial windows, linux, android, kumpulan source code & project program, referensi tugas akhir & skripsi, download ebook, game & software.

Pada kesempatan ini kita akan mengulas artikel yang berjudul : Cara Membuat Animasi Label dengan Efek Mengecil dan Membesar di VB6.

Cara Membuat Animasi Label dengan Efek Mengecil dan Membesar di VB6 - Tip dan Trik Unik Visual Basic kali ini akan memberikan tip bagaimana membuat label dengan efek amimasi mengecil dan lambat laun akan membesar sesuai dengan ukuran FontSize yang telah di tentukan dan dengan menambahkan sebuah kontrol timer untuk mengatur kecepatan perubahan.Dimana animasi label yang kita buat ini terdiri dari berbagai Caption.

Tip berikut ini akan menunjukan kepada Anda cara untuk membuat animasi sederhana dengan kontrol Label.Pada saat program dijalankan, label yang Anda buat akan semakin membesar ukurannya jika sudah mencapai ukuran maksimum.Jika sudah mencapai ukuran maksimum label tersebut akan menghilang kemudian muncul caption yang lain.

Animasi ini tidak jauh berbeda dengan animasi label berkedip perbedaanya terletak pada kata yang muncul.Pada Label berkedip kata yang muncul saat berkedip itu-itu saja sedangkan pada  animasi ini tiap label berkedip selalu berganti kata.Untuk bisa melihat perbedaan yang jelas coba sekarang Anda praktekan tip berikut ini.

Anda tertarik?.Berikut adalah langka-langkah cara pembuatannya :
Cara Membuat Animasi Label dengan Efek Mengecil dan Membesar di VB6

Cara Membuat Animasi Label dengan Efek Mengecil dan Membesar

1. Letakan sebuah Label dan sebuah Timer pada Form Anda
2. Atur properti masing-masing seperti berikut dibawah ini:

   Label1 Autosize : True
   Timer1 Interval  : 10

3. Buka jendela kode dengan menekan F7, lalu ketik kode dibawah ini :

Dim x, y As Integer
Dim z As Boolean

Private Sub Form_Load()
x=1
Label1.FontSize = 1
End Sub

Private Sub Timer1_Timer()
if z = False Then
x = x + 1
if x = 20 Then z = True
else
Label1.Visible= False
x = 1
z = False
Label1.Visible = True
y = y +1
End If


Select Case y
Case 0
Label1.Caption = " Ini"
Case 1
Label1.Caption = " adalah"
Case 2
Label1.Caption = " contoh"
Case 3
Label1.Caption = " animasi"
Case 4
Label1.Caption = " label"
Case 5
Label1.Caption = " contoh animasi label"
Case 6
Timer1.Enabled = False
End Select


If x <= 0 Then x = 1
Label1.FontSize= x
End Sub

4. Simpan hasil pekerjaan anda dan jalankan program, lihat apa yang terjadi.

Catatan :
Pada kode diatas terdapat baris kode "if x = 20 Then z = True.Angka 20 pada kode tersebut adalah ukuran maksimum Label sebelum menghilang, bisa Anda rubah sesuai dengan keinginan Anda.

Pada dasarnya ini hanyalah permaina Timer.Anda bisa kasi kondisi macem-macem ke kontrol yang Anda ingin rubah.Silahkan bereksprimen.

Sekian Cara Membuat Animasi Label dengan Efek Mengecil dan Membesar di VB6. Semoga bermanfaat, Selamat mencoba semoga berhasil.

Untuk mendapat notifikasi setiap artikel terbaru, masukkan e-mail anda disini
Selanjutnya cek e-mail anda untuk verifikasi.

Silahkan tuliskan komentar relevan Anda dengan jelas dan sopan, sesuai dengan topik postingan tentang "" pada halaman dibawah ini.

0 Response to "Cara Membuat Animasi Label dengan Efek Mengecil dan Membesar di VB6"

Post a Comment

Iklan Atas Artikel

Iklan Tengah Artikel 1

Iklan Tengah Artikel 2


Iklan Bawah Artikel