moduleparallel.bas

vb20061013（VB编程运用软件）

Attribute VB_Name = "ModuleParallel"
Public cnT497 As ADODB.Connection

Public Const MOTO0 = 0
Public Const MOTO1 = 1
Public Const MOTO2 = 2
Public Const MOTO3 = 3
Public Const MOTO4 = 4
Public Const MOTO5 = 5
Public Const MOTO6 = 6
Public Const MOTO7 = 7

Public Const MOTO8 = 4
Public Const MOTO9 = 5

Public Const POWER = &H1

Public Const PDAT = &H378
Public Const PINT = &H379
Public Const PCNT = &H37A


Public Const INIT378 = &HFF
Public Const INIT379 = &HFF
Public Const INIT37A = &HEF

Public Const CNTLED = 3
Public Const CNTBEP = 1
Public Const CNTPOW = 0

Public Const TIMER0INTERVAL = 200
Public Const TIMER1INTERVAL = 100

Public Const STARTNO = 9            '记录起始位置
Public Const ENDNO = 20             '记录结束位置
Public Const MAXFIELDS = 21         '最大字段
Public Const LEDCOUNTER = 2         '0.6秒闪一次

Public Const SignalON = 1           '信号高
Public Const SignalOFF = 0
Public Const MinSecond = 3

Public Const TDON = 1
Public Const TDOFF = 1



'SPP Mode信号名 信号    方向    寄存器位    入出电平②
'数据           +0      R/W     DATA［0∶7］ 出 0～7 L H 2～9 2～9 8位数据线,只能输出状态

'               nERROR  入      3          L H 15 32 L表示打印机出错
'               SELECT  入      4          L H 13 13 H表示打印机已联机
'               PE      入      5          L H 12 12 H表示打印机缺纸
'               nACK    入      6          L H 10 10 低脉冲表示一个字符已收到
'               BUSY    入      7          H L 11 11 H表示打印机忙,不能接收数数据

'               nSTROBE 出      0          H L 1 1 L表示数据有效
'               nAUTOFEED 出    1          H L 14 14 L表示自动换行
'               nINIT   出      2          L H 16 31 L表示复位打印机
'               nSELECTIN 出    3          H L 17 36 L表示选择打印机
'               IRQEN④ 　      4          禁 允 无 无 写入1允许打印机中断
'               DIRECTION⑤ 　  5          出 入 无 无 字节模式数据方向控制位,写入1为输入,0为输出
'               GND D25-Centronics连接 18～33,19～19,20～21,21～23,22～25,23～27,24～29,25～30




Public Declare Function Inp Lib "inpout32.dll" Alias "Inp32" (ByVal PortAddress As Integer) As Integer
Public Declare Sub Out Lib "inpout32.dll" Alias "Out32" (ByVal PortAddress As Integer, ByVal Value As Integer)