?? modx.bas
字號:
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
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -