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       ' 使用一個活動的連接
'布防參數變量
Public chkIndex As Integer          '記錄bfset中當前選中的記錄位置
'處警參數變量
Public chkLine As Integer           '記錄cjset中當前選中的記錄位置
Public mAction As Boolean          ' 安防系統所處狀態

'對應變量
Sub Main()
    Set fMainForm = New frmMain
    Load fMainForm
    fMainForm.Show
End Sub
'十進制轉二進制
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
'二進制轉十進制
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