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
Tool DOWNLOAD crack multi roll Buat winrar flood Video loser cracker hacking SOFTWARE enter menggunakan password xpeed hack patch sjboy nick duel auto mig33 admin Cara
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


Male Jumlah posting : 473
Age : 32
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: