glbvar.bas

全球定位系统GPS_卫星定位_VB源码+使用说明

Attribute VB_Name = "GlbVar"
Public Const PATH_DBDATA = "GPS.MDB"

Public Const RT_FAILURE = 0
Public Const RT_SUCCESS = 1

Public Const RT_BOF = 100 'Begin of file
Public Const RT_FOF = 101 'First of file
Public Const RT_LOF = 102 'Last of file
Public Const RT_EOF = 103 'End of file

Public Const RT_FILENOTOPEN = 200

Public Const QUERY = 1               '工作模式
Public Const SINGLECALL = 2
Public Const ONDUTY = 3
Public Const LOCKCAR = 4
Public Const UNLOCKCAR = 5
Public Const REPLAY = 6
Public Const ALERT = 7
Public Const NONEWORK = 8
Public Const StopCall = 9
Public Const LOCKRESPONSE = 10
Public Const UNLOCKRESPONSE = 11
Public Const jt = 12

Public Const OPENCMP_SUCCESS = 0
Public Const OPENCMP_NONECMP = 1
Public Const OPENCMP_CANCEL = 2
Public Const OPENCMP_OPENCMPERROR = 3
Public Const OPENCMP_MODEERROR = 4

Public Const pi = 3.1415926

Public strPath As String

'用于SelCompoundmap与Monitor间传递参数
Public glb_strSelCMPName As String

Public g_oTargetRes As New ResMapping  '目标图例
Public g_lTargetNameColor As Long '目标名称颜色
Public g_oTargetTrackRes As New ResMapping '目标轨迹图例
Public g_oTargetLockedRes As New ResMapping '目标锁定图例
Public g_sTime As String
Public g_bSaveRecord As Boolean
Public g_bOpenComm As Boolean

Public g_Oper As Long

Public m_Interval As Long           '呼叫的间隔时间

Global wavepath$
Global soundname$
Global ch As String
Public bj As Boolean
Public CarNum As String
Public Tuili As New ResMapping
Public Guijituli As New ResMapping

'Public dd As DirectDraw2

Public Const ResolutionX = 1024    ' Width for the display mode
Public Const ResolutionY = 768     ' Height for the display mode

Public Qcd As Boolean


Public BufferArr() As Byte
'Public strBuff1 As String
Public isin As Boolean
Public cwz As String
Public strBuff1 As String
Public CfWj As String     '重放文件
Public CfCh As String     '重放车号
Public CfTime As String   '重放起始时间
Public CfTotime As String '重放结束时间
Public Qren As Boolean
Public Cfflag As Boolean
Public Cfone As Boolean
Public Wzh As Long
Public Wzq As Long
Public m_Mode As Integer  '工作模式
Public cfAlert As Boolean

Public Temp_Login As Boolean

Public txm As String
Public dhh As Integer
'Public tzz As Boolean
Public m_TargetIndex As Integer
Public bht As Boolean
Public BjCl As String
Public BJdhFLAG As Boolean


'区域坐标
Public ShaTop As Double
Public ShaRight As Double
Public ShaBottom As Double
Public ShaLeft As Double


Public DHFLAG As Integer
Public AlertFlag As Boolean
Public FirstAlert As Boolean
Public LoopTimes As Integer
Public BJStrName As String
Public w As Integer


Public texttel(5) As String

'锁路
Public Temp_Lock_Flag As Boolean
Public Road As Long
Public Howlong As Long

''Public m_lLockedLine() As Long
Public Temp_jd1 As Double
Public Temp_wd1 As Double
Public yyy As Long


'Network
Public Link_Sever As Boolean
Public Link_IP As String

'登记外出
Public Temp_Move_Car() As String
Public Temp_Car_Num As Integer


'
Public Temp_Start_Date As String
Public Temp_End_Date As String
Public Temp_Cishu As String
Public Temp_JianG As String
Public Temp_Lisn_Tel As String


'使用的串口号
Public Temp_ChuanKou As String

'收数标志
Public Temp_ReceFlag As Boolean
Public Temp_SendFlag As Boolean

Public temp_info As String


Public Temp_Msg_type As Byte
Public Temp_Msg_ID As Long
Public Temp_MU_ID(21) As Byte
Public Temp_PID(9) As Byte
Public Temp_Passwd(7) As Byte
Public Temp_Msg_len As Byte
Public Temp_Msg(257) As Byte


Public Temp_HjTime As Long

'队列呼叫
Public ArrDl(100) As String
Public c As Integer


'锁路标志

Public Unlimit As Boolean

'2001.4.1
Public NumberCar As String
Public Datas As String
Public DatasReceive As Boolean
Public Send_Command As Boolean
Public Call_Interval As Integer
Public AlertCarNum As String
Public alertend As Boolean
Public Series2 As Boolean
Public WhetherOK As Boolean
Public Change1_2 As Boolean
Public Change2_1 As Boolean
Public AlermAnswer As Boolean
Public NumberCar1 As String