mig33 GEMISTARS community
silahkan login atau reg sebagai member untuk jelajah lebih lanjut...thanks.


-
 
IndeksPortalCalendarGalleryFAQPencarianAnggotaGroupPendaftaranLogin
Login
Username:
Password:
Login otomatis: 
:: Lupa password?
Similar topics
PROGRAMMER CITY
Keywords
LINK PARTNERS
CHAT/PESAN-PESAN

ShoutMix chat widget
Top posters
raja_kuin
 
xaw
 
achun
 
a_imam
 
dan0105
 
yuasa
 
aji_slankers
 
alv_69
 
goes3
 
satriapegasus
 
Latest topics
»  download ALL.OCX
Wed Jul 08, 2015 9:58 pm by carllenz88

» flooder by choman new
Mon Dec 02, 2013 1:47 am by barcool

» Mpc arpegios + keygen
Fri Nov 15, 2013 1:48 am by spifjets

» Sockmix Messenger v1.4
Thu Feb 21, 2013 10:01 pm by jani

» gelglory MPC Vx.4 (Cracked)
Tue Feb 12, 2013 3:58 pm by fatwua

» ploder .c.k unlimitid log
Sat Jun 09, 2012 7:22 pm by riky ramdan

» Xpeed Mig33 Center v2.0.0
Fri May 25, 2012 11:19 pm by fajar

» B4d Admin Caller With Admin Room Detector
Thu May 10, 2012 11:37 pm by pilot46

» Mengenal Visual Basic 6 alias VB6
Fri Apr 27, 2012 2:14 pm by bacokecil


Share | 
 

 Membuat Animasi Sederhana

Topik sebelumnya Topik selanjutnya Go down 
PengirimMessage
raja_kuin
Master Administrators
Master Administrators
avatar

Male Jumlah posting : 473
Age : 33
Lokasi : TABALONG
NICK MIG33 : rj.k
NICK MIG33 : raja_kuin
NO HP : raja.kuin@gmail.com ( on FB )
FRIENDSTER : -
Registration date : 25.02.09

PostSubyek: Membuat Animasi Sederhana   Tue Mar 17, 2009 1:44 pm

tutorial senderhana caba membuat animasi warna di form
di sini aku menggunakan fungsi "RANDOMIZE" untuk mengacak warna


Project "Warna-Warni"
============Start Of Project "Warna-Warni"================
langah-langkah
1. buat new project
2. tambahkan 1 LABEL ke dalam form
3. tambahkan 1 Timer ke dalam form set Interval di 100
4 masukkan script ini kedalam timer1_timer
Code:
Private Sub Timer1_Timer()
Randomize
Label1.BackColor = Int(RGB(Rnd * 255, Rnd * 255, Rnd * 255))
End Sub


dan lihat hasil nya

==============End Of Project "Warna-Warni" ===============


berikut ada project Marque (Running Text)

langah-langkah
1. buat new project
2. tambahkan 1 LABEL ke dalam form set back style mencadi transparent
3. tambahkan 1 Timer ke dalam form set Interval di 100
4. buat variable global
Code:
Dim arah as string 'letakkan di paling atas dari source code

5. masukkan scrip ini kedalam
Code:
Private Sub Form_Load()
arah = "kiri"
End Sub


6.masukkan script ini
Code:
Private Sub Timer1_Timer()
If arah = "kiri" Then
If Label1.Left >= 0 Then
Label1.Left = Label1.Left - 100
Else
arah = "kanan"
End If
Else
If Label1.Left <= Form1.Width Then
Label1.Left = Label1.Left + 100
Else
arah = "kiri"
End If
End If
End Sub



selamat mencoba
Kembali Ke Atas Go down
Lihat profil user http://mig33gemistars.forumotion.com
 
Membuat Animasi Sederhana
Topik sebelumnya Topik selanjutnya Kembali Ke Atas 
Halaman 1 dari 1
 Similar topics
-
» Cara Membuat Aplikasi Facebook
» Makanan yang Bisa Membuat Mood Bagus
» Aplikasi Untuk Membuat Ebook
» Menanam Cabai di Dalam Pot
» 30 Hal yg Membuat Pacarmu Tersenyum

Permissions in this forum:Anda tidak dapat menjawab topik
mig33 GEMISTARS community :: ZONA COMPUTER :: PROGRAMMING-
Navigasi: