SHUTTLE SIMULATOR 2004 V1.01

Commentaire de Drgn13 le 30/10/2003 23:02:33

j'ai trouvé une technique pas mal pour accélérer la réaction des touches :

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
Dim droite As Boolean
Dim gauche As Boolean
Private Sub Form_Activate()
K = 2038
Speed = 0
    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 Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyUp Then Speed = Speed - 1
If Speed = -7 Then Speed = -6
If KeyCode = vbKeyDown Then Speed = Speed + 1
If Speed = 1 Then Speed = 0

If KeyCode = vbKeyRight Then droite = True: gauche = False
If KeyCode = vbKeyLeft Then gauche = True: droite = False
End Sub

Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyRight Then droite = False
If KeyCode = vbKeyLeft Then gauche = False
End Sub

Private Sub mnuQuitter_Click()
End
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)) + (Simulator.Width / 2)
        tmpY(i) = (Y(i) * K / tmpZ(i)) + (Simulator.Height / 2)
        Radius = 1
        StarColor = 256 - Z(i)
        Circle (tmpX(i), tmpY(i)), 5, RGB(StarColor, StarColor, StarColor)
    Next i
    
If droite Then Image1.Left = Image1.Left + 120
If gauche Then Image1.Left = Image1.Left - 120
End Sub