Efek Star Screen From Visual Basic 6.0
Kali ini saya akan membagi pengetahuan kepada anda tentang bagaimana membuat Efek Star Screen From VB, Caranya seperti berikut: Pertama-tama, Buat project baru Tambahkan satu buah Komponen Timer. Ubah Properties Form pada pilihan BackColor Menjadi warna Hitam. Klik 2 kali pada Form 1 lalu Hapus koding didalamnya dan Masukkan koding berikut : 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 t