Efekt rotujícího tunelu
Tohle všechno zapište do formuláře a spusťte:
Dim offx%
Dim offy%
Dim anz%
Dim bahnx%(100, 180)
Dim bahny%(100, 180)
Dim starwi%(500)
Dim starba%(500)
Dim cosi(360)
Dim sini(360)
Dim st%
Dim wert
Dim x%
Dim y%
Dim gr%
Dim i%
Dim ba%
Dim wi%
Dim starbaz%
Dim starwiz%
Dim by2%
Dim a%
Private Sub Form_Activate()
main
End Sub
Private Sub Form_Click()
End
End Sub
Private Sub main()
Dim xoff%
Dim yoff%
xoff% = ScaleWidth / 2 - 160
yoff% = ScaleHeight / 2 - 100
anz% = 400
st% = 10
wert = 3.1415 / 180
x% = -25
y% = 30
gr% = 30
For i% = 0 To 360
sini(i%) = Sin(i% * wert)
cosi(i%) = Cos(i% * wert)
Next i%
For ba% = 0 To 100
gr% = gr% + (ba% / 20)
x% = x% + 4 - (ba% / 40)
y% = y% + 1
For wi% = 0 To 180
by2% = wi% + wi%
bahnx%(ba%, wi%) = sini(by2%) * gr% + x% + xoff%
bahny%(ba%, wi%) = cosi(by2%) * gr% + y% + yoff%
Next wi%
Next ba%
For i% = 0 To anz%
starwi%(i%) = Rnd(Timer) * 45
starba%(i%) = Rnd(Timer) * 100
Next i%
a% = 0
ForeColor = QBColor(15)
Do
For i% = 0 To anz%
starbaz% = starba%(i%)
starwiz% = starwi%(i%)
PSet (bahnx%(starbaz%, starwiz%), bahny%(starbaz%, starwiz%)), 0
starwiz% = starwiz% + 1
starbaz% = starbaz% + 1
If starbaz% > 100 Then
starbaz% = 0
End If
If starwiz% > 180 Then
starwiz% = 0
End If
PSet (bahnx%(starbaz%, starwiz%), bahny%(starbaz%, starwiz%))
starwi%(i%) = starwiz%
starba%(i%) = starbaz%
Next i%
a% = a% + 1
If a% > 10 Then
a% = 0
DoEvents
End If
Loop
End Sub
Private Sub Form_KeyPress(KeyAscii As Integer)
End
End Sub
Private Sub Form_Load()
Me.WindowState = vbMaximized
Me.BorderStyle = 0
Me.Appearance = 0
Me.Caption = ""
Me.BackColor = vbBlack
Me.ScaleMode = 3
End Sub
