module1.bas

上位机的命令编辑和执行器

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   '当前命令
'各种控制码
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 = "正转" '设定正转以及转速
         .strMachineCode = CodePV
         .blNeedPara = True
         .fPara = 0
         .fParaLower = 0
         .fParaUpper = 255
    End With
    With DecodeMap(2)
         .strCode = "反转"    '设定反转以及转速
         .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 = "查询转距"  '询问负载转距
         .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 = "开始转距传感"  '开始转距传感，等待查询转距结果
         .strMachineCode = CodeSensor
         .blNeedPara = False
         .fPara = 0
         .fParaLower = 0
         .fParaUpper = 0
    End With
    With DecodeMap(8)
         .strCode = "设定定子电阻"  '修改定子电阻
         .strMachineCode = CodeRs
         .blNeedPara = True
         .fPara = 0
         .fParaLower = 0
         .fParaUpper = 255
    End With
    With DecodeMap(9)
         .strCode = "设定转子电阻"  '修改转子电阻
         .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"  '调试是用于发送单个字节
         .strMachineCode = "0xBB"
         .blNeedPara = True
         .fPara = 0
         .fParaLower = 0
         .fParaUpper = 255
    End With
    With DecodeMap(12)
         .strCode = "设定定子电感"
         .strMachineCode = CodeLs
         .blNeedPara = True
         .fPara = 0
         .fParaLower = 0
         .fParaUpper = 255
    End With
    With DecodeMap(13)
         .strCode = "设定转子电感"
         .strMachineCode = CodeLr
         .blNeedPara = True
         .fPara = 0
         .fParaLower = 0
         .fParaUpper = 255
    End With
End Sub