mig33 GEMISTARS community
silahkan login atau reg sebagai member untuk jelajah lebih lanjut...thanks.
mig33 GEMISTARS community
silahkan login atau reg sebagai member untuk jelajah lebih lanjut...thanks.
mig33 GEMISTARS community
Would you like to react to this message? Create an account in a few clicks or log in to continue.


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

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

» flooder by choman new
Membuat Animasi Sederhana EmptyMon Dec 02, 2013 1:47 am by barcool

» Mpc arpegios + keygen
Membuat Animasi Sederhana EmptyFri Nov 15, 2013 1:48 am by spifjets

» Sockmix Messenger v1.4
Membuat Animasi Sederhana EmptyThu Feb 21, 2013 10:01 pm by jani

» gelglory MPC Vx.4 (Cracked)
Membuat Animasi Sederhana EmptyTue Feb 12, 2013 3:58 pm by fatwua

» ploder .c.k unlimitid log
Membuat Animasi Sederhana EmptySat Jun 09, 2012 7:22 pm by riky ramdan

» Xpeed Mig33 Center v2.0.0
Membuat Animasi Sederhana EmptyFri May 25, 2012 11:19 pm by fajar

» B4d Admin Caller With Admin Room Detector
Membuat Animasi Sederhana EmptyThu May 10, 2012 11:37 pm by pilot46

» Mengenal Visual Basic 6 alias VB6
Membuat Animasi Sederhana EmptyFri Apr 27, 2012 2:14 pm by bacokecil


 

 Membuat Animasi Sederhana

Go down 
PengirimMessage
raja_kuin
Master Administrators
Master Administrators
raja_kuin


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

Membuat Animasi Sederhana Empty
PostSubyek: Membuat Animasi Sederhana   Membuat Animasi Sederhana EmptyTue 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
http://mig33gemistars.forumotion.com
 
Membuat Animasi Sederhana
Kembali Ke Atas 
Halaman 1 dari 1
 Similar topics
-
» membuat file set up pada vb 6
» cara membuat patch.....
» bgmn neh Cara membuat spy room dengan delph

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