Attribute VB_Name = "Module1"
Option Explicit
Declare Function MapPhysToLin Lib "WinIo.dll" (ByVal PhysAddr As Long, ByVal PhysSize As Long, ByRef PhysMemHandle) As Long
Declare Function UnmapPhysicalMemory Lib "WinIo.dll" (ByVal PhysMemHandle, ByVal LinAddr) As Boolean
Declare Function GetPhysLong Lib "WinIo.dll" (ByVal PhysAddr As Long, ByRef PhysVal As Long) As Boolean
Declare Function SetPhysLong Lib "WinIo.dll" (ByVal PhysAddr As Long, ByVal PhysVal As Long) As Boolean
Declare Function GetPortVal Lib "WinIo.dll" (ByVal PortAddr As Integer, ByRef PortVal As Long, ByVal bSize As Byte) As Boolean
Declare Function SetPortVal Lib "WinIo.dll" (ByVal PortAddr As Integer, ByVal PortVal As Long, ByVal bSize As Byte) As Boolean
Declare Function InitializeWinIo Lib "WinIo.dll" () As Boolean
Declare Function ShutdownWinIo Lib "WinIo.dll" () As Boolean
Declare Function InstallWinIoDriver Lib "WinIo.dll" (ByVal DriverPath As String, ByVal Mode As Integer) As Boolean
Declare Function RemoveWinIoDriver Lib "WinIo.dll" () As Boolean

Public fMainForm As frmMain
Public stepSet As Integer
'Public gDbalert As Database
Public cn As ADODB.Connection       ' 使用一個(gè)活動(dòng)的連接
'布防參數(shù)變量
Public chkIndex As Integer          '記錄bfset中當(dāng)前選中的記錄位置
'處警參數(shù)變量
Public chkLine As Integer           '記錄cjset中當(dāng)前選中的記錄位置
Public mAction As Boolean          ' 安防系統(tǒng)所處狀態(tài)

'對(duì)應(yīng)變量
Sub Main()
    Set fMainForm = New frmMain
    Load fMainForm
    fMainForm.Show
End Sub
'十進(jìn)制轉(zhuǎn)二進(jìn)制
Public Function DectoBin(x As Integer) As String
Dim y(1 To 8) As String
Dim i As Integer
     For i = 1 To 8
         y(i) = "0"
     Next i
     
     i = 1
     While (x \ 2)
        y(i) = CInt(x Mod 2)
        x = x \ 2
        i = i + 1
     Wend
        y(i) = x
Dim s As String
     For i = 8 To 1 Step -1
        s = s & y(i)
     Next i
     DectoBin = s
End Function
'二進(jìn)制轉(zhuǎn)十進(jìn)制
Public Function BintoDec(s As String) As Integer
Dim total, i As Integer
         total = 0
         For i = 8 To 1 Step -1
            total = total + Mid(s, i, 1) * (2 ^ (8 - i))
         Next i
        BintoDec = total
End Function