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