pathtest.frm

一款飞机射击游戏的源代码

VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "Form1"
   ClientHeight    =   8250
   ClientLeft      =   2160
   ClientTop       =   570
   ClientWidth     =   6675
   LinkTopic       =   "Form1"
   ScaleHeight     =   550
   ScaleMode       =   3  'Pixel
   ScaleWidth      =   445
   Begin VB.Timer Timer1 
      Enabled         =   0   'False
      Interval        =   50
      Left            =   1680
      Top             =   3960
   End
   Begin VB.CommandButton Command1 
      Caption         =   "Command1"
      Height          =   495
      Left            =   480
      TabIndex        =   0
      Top             =   3120
      Width           =   1215
   End
   Begin VB.Shape S1 
      BackColor       =   &H000000FF&
      BackStyle       =   1  'Opaque
      FillColor       =   &H000000FF&
      Height          =   135
      Left            =   3720
      Shape           =   3  'Circle
      Top             =   240
      Width           =   135
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim StartX As Single
Dim StartY As Single
Dim SSpeedX As Single
Dim SSpeedY As Single
Dim SCurX As Single
Dim SCurY As Single
Dim SAngle As Single

Private Sub Command1_Click()
    Timer1.Enabled = Not Timer1.Enabled
End Sub


Private Sub Form_Load()
    Call InitPathall
    StartX = S1.Left
    StartY = S1.Top
    SCurX = StartX
    SCurY = StartY
    SAngle = -120
End Sub
Private Sub InitPathall()
    CurScrX = 0
    CurScrY = 0
    CurScrW = Me.ScaleWidth
    CurScrH = Me.ScaleHeight
    BasSpeed = 2
    BasAngle = 6
    StaSeat = 50
End Sub

Private Sub Timer1_Timer()
    Call PathAll(StartX, StartY, SCurX, SCurY, SSpeedX, SSpeedY, SAngle, 9)
    S1.Move SCurX, SCurY
    'Debug.Print SCurX, SCurY, SAngle
    
End Sub