Membuat effect bintang pada VB6.0
:: Visual Basic
Halaman 1 dari 1
Membuat effect bintang pada VB6.0
- buka vb6 anda
- otomatis akan membuat 1 buah form, lalu buat 1 timer
klik 2x formnya dan copas ini
silahkan pencet F5 untuk melihatnya... terima kasih.. semoga bermanfaat...
- otomatis akan membuat 1 buah form, lalu buat 1 timer
klik 2x formnya dan copas ini
- Spoiler:
- 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
silahkan pencet F5 untuk melihatnya... terima kasih.. semoga bermanfaat...
Similar topics
» Membuat Efek Ledakan pada Form
» Tulisan berjalan pada Visual Basic 6.0
» tutor Membuat Injector + Picture
» Tulisan berjalan pada Visual Basic 6.0
» tutor Membuat Injector + Picture
:: Visual Basic
Halaman 1 dari 1
Permissions in this forum:
Anda tidak dapat menjawab topik
|
|