moduleproject.bas

是一款看上去还不错的精彩赛车游戏

Attribute VB_Name = "ModuleProject"
Option Explicit


Public ProjectNameStr           As String               '声明工程名称字符串变量
Public ProjectCodeStr           As String               '声明工程代码字符串变量
Public ProjectEditionStr        As String               '声明工程版本字符串变量
Public ProjectCopyrightStr      As String               '声明工程版权字符串变量
Public ProjectEnvironmentStr    As String               '声明工程编译环境字符串变量
Public ProjectBeginDate         As String               '声明工程开始日期
Public ProjectEndDate           As String               '声明工程结束日期
Public ProjectChangeDate        As String               '声明工程最后修改日期
Public ProjectRunPath           As String               '声明工程运行目录字符串变量

'游戏变量
Type History
    First       As Byte     '第1名
    Second      As Byte     '第2名
    Third       As Byte     '第3名
    Fourth      As Byte     '第4名
    Fifth       As Byte     '第5名
    Score      As Long      '积分
    DScore      As Long     '得分
End Type

'车辆数据
Type DATA_CAR
    X           As Long     '位置X
    Y           As Long     '位置Y
    Speed       As Byte     '速度
    TempSP      As Byte     '临时速度
    Loops       As Byte     '循环次数
    FinalSpeed  As Byte     '冲刺速度
    Over        As Boolean  '结束
End Type