Attribute VB_Name = "MdlGlbVal"
Option Explicit
'定義全局變量
Type Type_Decode
    strCode As String '用戶編寫的代碼
    strMachineCode As String * 13
    blNeedPara As Boolean
    fPara As Single
    fParaLower As Single
    fParaUpper As Single
End Type
'定義全局變量
Public strStepCode As String
Public Const strTipChar = "?"
'Global Variebls
Public strFileName As String
Public DecodeMap(1 To 13) As Type_Decode
Public CurCommand As String   '當(dāng)前命令
'各種控制碼
Public CodePV As String
Public CodeNV As String
Public CodeShutDown As String
Public CodeReqU As String
Public CodeReqI As String
Public CodeReqT As String
Public CodeRr As String
Public CodeRs As String
Public CodeLr As String
Public CodeLs As String
Public CodeStep As String
Public CodeSingle As String
Public CodeSensor As String
Public nCmdIndex As Integer
Public nCmdPara As Integer
Public nDelayTime As Integer
Public nCodeIndex As Integer
Public blSingleStep As Boolean

Public Sub InitialCodeMap()
'/////////給DecodeMap賦初值///////////////
strStepCode = CodeStep
    With DecodeMap(1)
         .strCode = "正轉(zhuǎn)" '設(shè)定正轉(zhuǎn)以及轉(zhuǎn)速
         .strMachineCode = CodePV
         .blNeedPara = True
         .fPara = 0
         .fParaLower = 0
         .fParaUpper = 255
    End With
    With DecodeMap(2)
         .strCode = "反轉(zhuǎn)"    '設(shè)定反轉(zhuǎn)以及轉(zhuǎn)速
         .strMachineCode = CodeNV
         .blNeedPara = True
         .fPara = 0
         .fParaLower = 0
         .fParaUpper = 255
    End With
    With DecodeMap(3)
         .strCode = "查詢電壓"  '查詢母線電壓
         .strMachineCode = CodeReqU
         .blNeedPara = False
         .fPara = 0
         .fParaLower = 0
         .fParaUpper = 255
    End With
    With DecodeMap(4)
         .strCode = "查詢電流"  '查詢相電流
         .strMachineCode = CodeReqU
         .blNeedPara = False
         .fPara = 0
         .fParaLower = 0
         .fParaUpper = 255
    End With
    With DecodeMap(5)
         .strCode = "查詢轉(zhuǎn)距"  '詢問負載轉(zhuǎn)距
         .strMachineCode = CodeReqT
         .blNeedPara = False
         .fPara = 0
         .fParaLower = 0
         .fParaUpper = 0
    End With
    With DecodeMap(6)
         .strCode = "停機"  '停機
         .strMachineCode = CodeShutDown
         .blNeedPara = False
         .fPara = 0
         .fParaLower = 0
         .fParaUpper = 0
    End With
    With DecodeMap(7)
         .strCode = "開始轉(zhuǎn)距傳感"  '開始轉(zhuǎn)距傳感，等待查詢轉(zhuǎn)距結(jié)果
         .strMachineCode = CodeSensor
         .blNeedPara = False
         .fPara = 0
         .fParaLower = 0
         .fParaUpper = 0
    End With
    With DecodeMap(8)
         .strCode = "設(shè)定定子電阻"  '修改定子電阻
         .strMachineCode = CodeRs
         .blNeedPara = True
         .fPara = 0
         .fParaLower = 0
         .fParaUpper = 255
    End With
    With DecodeMap(9)
         .strCode = "設(shè)定轉(zhuǎn)子電阻"  '修改轉(zhuǎn)子電阻
         .strMachineCode = CodeRr
         .blNeedPara = True
         .fPara = 0
         .fParaLower = 0
         .fParaUpper = 255
    End With
    With DecodeMap(10)
         .strCode = "接受命令正確"  '接受命令正確
         .strMachineCode = "0xaa"
         .blNeedPara = False
         .fPara = 0
         .fParaLower = 0
         .fParaUpper = 255
    End With
    With DecodeMap(11)
         .strCode = "STEBYTE"  '調(diào)試是用于發(fā)送單個字節(jié)
         .strMachineCode = "0xBB"
         .blNeedPara = True
         .fPara = 0
         .fParaLower = 0
         .fParaUpper = 255
    End With
    With DecodeMap(12)
         .strCode = "設(shè)定定子電感"
         .strMachineCode = CodeLs
         .blNeedPara = True
         .fPara = 0
         .fParaLower = 0
         .fParaUpper = 255
    End With
    With DecodeMap(13)
         .strCode = "設(shè)定轉(zhuǎn)子電感"
         .strMachineCode = CodeLr
         .blNeedPara = True
         .fPara = 0
         .fParaLower = 0
         .fParaUpper = 255
    End With
End Sub