Attribute VB_Name = "Const"
Option Explicit



Public PUsOf1mm As Double       '記錄內(nèi)檢鏡頭移動(dòng)1mm需要的脈沖數(shù)
Public DefaultVel As Double     '小車默認(rèn)速度mm/s
Public DisLtoR As Double       '左右輪間距離


Public Const TestVel = 1000    '測(cè)試時(shí)的電機(jī)速度1000脈沖/s
Public Const Pi = 3.14159    'Pi值

'電機(jī)軸號(hào)定義,存于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
'獲取應(yīng)用程序路徑
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