Power Break
Welcome To This Community..!!

™️† PowerBreakz Community †™️

[*] Dilarang Junk/Flame/SARA
[*]Jadikan Komunitas Ini Komunitas Yang Maju
[*]Hargailah Sesama Member
[*]Dan Segera Bergabung DI Komunitas Kami..!!!
[*]Loyalitas dan Saling Berbagi tanpa batas
[*]Dilarang Flood Dan Jaga Kata-kata Anda Saat Posting

Sebar Virus Banned 3 Hari
Sebar Keylogger Banned Permanent
By : Pߎ-|Luthfi Kudo


™† Komunitas Cyber Terpopuler †™
 
IndeksCalendarFAQPencarianAnggotaGroupPendaftaranLogin
Login
Username:
Password:
Login otomatis: 
:: Lupa password?
Pencarian
 
 

Display results as :
 
Rechercher Advanced Search
Top posters
tonokeren
 
gazo
 
jeyek87
 
friendkys
 
ediriano1
 
adhe
 
Pߎ-|Luthfi Kudo
 
burlian
 
N3cyber
 
PB-Community
 
Latest topics
Similar topics

Share | 
 

 Membuat FORM bintang

Topik sebelumnya Topik selanjutnya Go down 
PengirimMessage
haqi173
Belum Sekolah
Belum Sekolah


Jumlah posting : 6
Points : 20
Reputation : 4
Join date : 23.07.11

PostSubyek: Membuat FORM bintang   Sat Jul 23, 2011 1:39 pm

Buat 1 Form
Buat 1 timer

langsung taro di form aja Credit haqi

Dim X(100), Y(100), Z(100) As Integer
Dim tmpX(100), tmpY(100), tmpZ(100) As Integer
Dim K As Integer
Dim Zoom As Integer
Dim Speed As Integer

Private Sub Form_Activate()
Speed = -1
K = 2038
Zoom = 256
Timer1.Interval = 1

For i = 0 To 100
X(i) = Int(Rnd * 1024) - 512
Y(i) = Int(Rnd * 1024) - 512
Z(i) = Int(Rnd * 512) - 256
Next i
End Sub
Private Sub Timer1_Timer()
For i = 0 To 100
Circle (tmpX(i), tmpY(i)), 5, BackColor
Z(i) = Z(i) + Speed
If Z(i) > 255 Then Z(i) = -255
If Z(i) < -255 Then Z(i) = 255
tmpZ(i) = Z(i) + Zoom
tmpX(i) = (X(i) * K / tmpZ(i)) + (Form1.Width / 2)
tmpY(i) = (Y(i) * K / tmpZ(i)) + (Form1.Height / 2)
Radius = 1
StarColor = 256 - Z(i)
Circle (tmpX(i), tmpY(i)), 5, RGB(StarColor, StarColor, StarColor)
Next i
End Sub



Kembali Ke Atas Go down
Lihat profil user
 
Membuat FORM bintang
Topik sebelumnya Topik selanjutnya Kembali Ke Atas 
Halaman 1 dari 1
 Similar topics
-
» Hal-Hal yang dapat membuat kaum lelaki menangis
» [Tutorial] Cara membuat forum forumotion
» Si Bintang dr TangSel... (Update Page 1 plus video)
» HELM INK CL VISTA MOTIF BINTANG
» MEMBUAT GAME ASAH OTAK MEMAKAI POWER POINT

Permissions in this forum:Anda tidak dapat menjawab topik
Power Break :: Programming :: Visual Basic-
Navigasi: