module1.bas

用于控制氧乐果生产的程序

Attribute VB_Name = "Module1"
Public Declare Function MyInportb Lib "MyPort.dll" (ByVal Addr As Integer) As Byte
Public Declare Sub MyOutportb Lib "MyPort.dll" (ByVal Addr As Integer, ByVal Value As Byte)

Public Sub A_out(ByVal BaseAddress As Integer, _
ByVal Channel As Integer, ByVal Num As Integer)
'Dim Num, KaiDuInCurrent As Single
Dim HighByte, LowByte As Byte
Dim deltaAddress, Num1 As Integer
'If tlfKaiDu = 100 Then
'    Num1 = 4095
'Else
'    Num1 = 4096
'End If
'Num = (KaiDuInCurrent - 4) * Num1 / 16
'******************************************
'使用中泰板卡(高8位,低4位)请注释b1,b2语句,
'解注释a1,a2,a3语句
'******************************************
a1: HighByte = Int(Num / 16)
a2: LowByte = (Num - HighByte * 16)

'******************************************
'使用备用板卡(高4位,低8位)请注释a1,a2,a3
'语句,解注释b1,b2语句
'******************************************
'b1: HighByte = Int(Num / 256)
'b2: LowByte = (Num - HighByte * 256)

deltaAddress = 2 * (Channel - 1)

Call MyOutportb(BaseAddress + deltaAddress, HighByte)
Call MyOutportb(BaseAddress + deltaAddress + 1, LowByte)

a3: Num = MyInportb(BaseAddress + 0)
End Sub