const.bas

实现步进电机的串口控制

Attribute VB_Name = "Const"
Option Explicit



Public PUsOf1mm As Double       '记录内检镜头移动1mm需要的脉冲数
Public DefaultVel As Double     '小车默认速度mm/s
Public DisLtoR As Double       '左右轮间距离


Public Const TestVel = 1000    '测试时的电机速度1000脉冲/s
Public Const Pi = 3.14159    'Pi值

'电机轴号定义,存于Axis.ini
Public AxisLeft As Integer
Public AxisRight As Integer

'声明读写文件API
Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long
Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long


Public Function WriteOneString(ByVal Section As String, ByVal Key As String, ByVal Value As String, ByVal iniFileName As String) As Boolean
Dim X As Long, buff As String * 128, i As Integer
    buff = Value + Chr(0)
    X = WritePrivateProfileString(Section, Key, buff, iniFileName)
    WriteOneString = X
End Function

Public Function ReadOneString(ByVal Section As String, ByVal Key As String, ByVal iniFileName As String) As String
Dim X As Long, buff As String * 128, i As Integer
    X = GetPrivateProfileString(Section, Key, "", buff, 128, iniFileName)
    i = InStr(buff, Chr(0))
    ReadOneString = Trim(Left(buff, i - 1))
End Function
'获取应用程序路径
Public Function GetAppPath() As String
    If Right(App.Path, 1) = "\" Then
        GetAppPath = App.Path
    Else
        GetAppPath = App.Path & "\"
    End If
End Function


'从Ini文件中读取全局变量信息
Public Sub ReadIniPara()
Dim ConnIni As String

    ConnIni = GetAppPath & "\Setup.ini"
    
    PUsOf1mm = ReadOneString("setup", "PUsOf1mm", ConnIni)
    
    DefaultVel = ReadOneString("setup", "DefaultVel", ConnIni)

    DisLtoR = ReadOneString("setup", "DisLtoR", ConnIni)
    
    AxisLeft = ReadOneString("setup", "AxisLeft", ConnIni)
    
    AxisRight = ReadOneString("setup", "AxisRight", ConnIni)
    

End Sub