omr.bas

此源码是针对配套的光学标记阅读机使用

' 功能：返回上一个错误号。
' 参数：无
' 返回值：
'   上一个错误的错误号。


Declare Function OMR_CRetMess Lib "txomr.dll" (ByVal nErr As Long, ByVal lpszBuffer As String) As Long
' 功能：取得指定错误号对应的错误信息。
' 参数：
'         nErr：错误号
'   lpszBuffer：用来存放错误号对应的错误信息字符串的缓冲区。
' 返回值：
'   成功，返回lpszBuffer中实际存放的字符串长度；
'   如果错误号没有定义，返回-1。


' ////////////////////////////////////////////////////////
' ////////                                        ////////
' ////////                参数设置                ////////
' ////////                                        ////////
' ////////////////////////////////////////////////////////

Declare Function OMR_SaveToCMOS Lib "txomr.dll" () As Boolean
' 功能：将OMR当前参数保存到CMOS
' 参数：无
' 返回值：成功：TRUE
'         失败：FALSE


Declare Function OMR_GetHead Lib "txomr.dll" () As Long
' 功能：获取OMR当前哪个光电头处于工作状态
' 参数：无
' 返回值：0 - A头有效
'         1 - B头有效
'       2 - AB头同时有效
' 说明：本函数仅对 OMR98B-D (双头998B)有效，其它类型的OMR永远返回0


Declare Function OMR_SetHead Lib "txomr.dll" () As Long
' 功能：设置OMR的指定光电头处于工作状态
' 参数：无
' 返回值：0 - A头有效
'         1 - B头有效
'       2 - AB头同时有效
' 说明：本函数仅对 OMR98B-D (双头998B)有效


Declare Function OMR_GetSerial Lib "txomr.dll" (ByVal lpszBuffer As String) As Long
' 功能：取得设备序列号。
' 参数：
'   lpszBuffer：用来存放设备序列号字符串的缓冲区。
' 返回值：
'   成功，返回lpszBuffer中实际存放的字符串长度；
'   失败，返回-1。


Declare Function OMR_SetSerial Lib "txomr.dll" (ByVal lpszBuffer As String) As Long
' 功能：设置新的设备序列号。
' 参数：
'   lpszBuffer：新的设备序列号。
' 返回值：
'   成功，返回序列号字符串长度；
'   失败，返回-1。


Declare Function OMR_GetDoublePercent Lib "txomr.dll" () As Long
' 功能：获取OMR的重张检测阈值
' 参数：无
' 返回值：OMR以前的重张检测阈值
' */
' __declspec(dllexport) long __stdcall OMR_SetDoublePercent (long lDoublePercent);/*
' 功能：设置OMR的重张检测阈值
' 参数：lDoublePercent：OMR新的重张检测阈值
' 返回值：成功：OMR以前的重张检测阈值
'         失败：-1


Declare Function OMR_GetHopperVolumn Lib "txomr.dll" () As Long
' 功能：获取当前OMR纸仓的容量
' 参数：无
' 返回值：成功：OMR的纸仓容量
'         失败：-1


Declare Function OMR_SetHopperVolumn Lib "txomr.dll" (ByVal lHopperVolumn As Long) As Long
' 功能：设置OMR纸仓的容量
' 参数：lHopperVolumn：新的OMR纸仓容量
' 返回值：成功：OMR以前的纸仓容量
'         失败：-1


Declare Function OMR_GetWait Lib "txomr.dll" () As Long
' 功能：获得进纸仓纸尽以后的等待时间 (秒)
' 参数：无
' 返回值：当前的等待时间
' 说明：本函数仅对自动机有效，缺省等待时间是1800秒


Declare Function OMR_SetWait Lib "txomr.dll" (ByVal wSec As Long) As Long
' 功能：设置进纸仓纸尽以后的等待时间 (秒)
' 参数：wSec：进纸仓纸尽以后的等待时间 (秒)
' 返回值：设置前的等待时间
' 说明：本函数仅对自动机有效，缺省等待时间是1800秒



Declare Function OMR_GetSpeedShts Lib "txomr.dll" () As Long
' 功能：获取当前设备的在扫描几张信息卡后稳速
' 参数：无
' 返回值：稳速张数


Declare Function OMR_SetSpeedShts Lib "txomr.dll" (ByVal lSpeedSheets As Long) As Long
' 功能：设置当前设备的在扫描几张信息卡后稳速
' 参数：
'       lSpeedSheets：稳速所需信息卡张数
' 返回值：成功：稳速张数
'         失败：0
' 说明：所设信息卡张数必须大于零


Declare Function OMR_GetSpeedMin Lib "txomr.dll" () As Long
' 功能：获取当前设备的在稳速后最小扫描次数
' 参数：无
' 返回值：稳速张数
 
 
Declare Function OMR_SetSpeedMin Lib "txomr.dll" (ByVal lSpeedMin As Long) As Long
' 功能：设置当前设备的在稳速后最小扫描次数
' 参数：
'       lSpeedMin：稳速后最小扫描次数
' 返回值：成功：稳速张数
'         失败：0
' 说明：所设信息卡张数必须大于零


Declare Sub OMR_GetPara Lib "txomr.dll" (ByVal pchPara As String)
' 功能：设置译码参数
' 参数：pchPara：译码参数字符串，其中各字符ASCII码值对应含义如下：
'       pchPara[0]：选中最低阈值     - 缺省值是'3'
'       pchPara[1]：多选最大差值     - 缺省值是'2'
'       pchPara[2]：检测线最小灰度值 - 缺省值是'6'
'       pchPara[3]：保留             - 缺省值是'0'
'       pchPara[4]：最小扫描次数     - 缺省值是'4'
' 返回值：无


Declare Sub OMR_SetPara Lib "txomr.dll" (ByVal pchPara As String)
' 功能：设置译码参数
' 参数：pchPara：译码参数字符串，其中各字符ASCII码值对应含义如下：
'       pchPara[0]：选中最低阈值     - 缺省值是'3'
'       pchPara[1]：多选最大差值     - 缺省值是'2'
'       pchPara[2]：检测线最小灰度值 - 缺省值是'6'
'       pchPara[3]：保留             - 缺省值是'0'
'       pchPara[4]：最小扫描次数     - 缺省值是'4'
' 返回值：无
' 说明：一般情况下，不用调用本过程，只要运行OMRDIAG.EXE设置参数即可。


Declare Function OMR_GetAutoAdapt Lib "txomr.dll" () As Boolean
' 功能：获取当前设备的灵敏度是否为自动适应方式
' 参数：无
' 返回值：当前的适应方式
'         TRUE(非0) - 自动适应
'       FALSE(0)  - 不自动适应


Declare Function OMR_SetAutoAdapt Lib "txomr.dll" (ByVal bAutoAdapt As Boolean) As Boolean
' 功能：设置或取消灵敏度自动适应方式
' 参数：bAutoAdapt：
'       TRUE(非0) - 自动适应
'       FALSE(0)  - 不自动适应
' 返回值：设置前的适应方式



Declare Function OMR_GetStopPos Lib "txomr.dll" () As Long
' 功能：
' 参数：无
' 返回值：当前的


Declare Function OMR_SetStopPos Lib "txomr.dll" (ByVal lStopPos As Long) As Long
' 功能：设置
' 参数：lStopPos：
' 返回值：设置前的


Declare Function OMR_GetType Lib "txomr.dll" () As Long
' 功能：获得当前OMR的型号
' 参数：无
' 返回值：有效：当前OMR的型号
'         无效：0
' 说明：设备类型定义如下：
'       DEVICE_OMR11B       112     //11 ISA
'       DEVICE_OMR11C       113     //11 PCI
'       DEVICE_OMR31A       311     //31 ISA
'       DEVICE_OMR31C       313     //31 PCI
'       DEVICE_OMR98A       981     //98A
'       DEVICE_OMR98B       982     //单头98B
'       DEVICE_OMR98B_D     983     //双头98B
'       DEVICE_OMR50U       500     //50 USB
'   在CMOS数据读写有误的时候，会返回设备的基本类型：
'       DEVICE_ISA          -1      // 11B、31A、98A 等ISA接口系列的设备
'       DEVICE_COM          -2      // 98B、98B-D 等串口系列的设备
'       DEVICE_PCI          -3      // 11C 等PCI接口系列的设备
'       DEVICE_USB          -4      // 50U 等USB接口系列的设备


Declare Function OMR_SetType Lib "txomr.dll" (ByVal lType As Long) As Long
' 功能：将lType的值设置为当前OMR的驱动的型号
' 参数：lType：新OMR的型号
' 返回值：成功：原OMR的型号
'         失败：0

Declare Function OMR_GetTracks Lib "txomr.dll" () As Long
' 功能：获取当前信息卡的有效列数
' 参数：无
' 返回值：设置前的扫描列数


Declare Sub OMR_SetDefault Lib "txomr.dll" ()
' 功能：将所有的参数恢复成缺省值
' 参数：无
' 返回值：无


Declare Function OMR_ReadTotal Lib "txomr.dll" () As Long
' 功能：获得当前OMR所阅读过的信息卡总数
' 参数：无
' 返回值：当前OMR所阅读过的信息卡总数


Public Function cosde(aa As String) As String
      Select Case aa
             Case "0"
                    cosde = ""
             Case "1"
                   cosde = "A"
             Case "2"
                   cosde = "B"
             Case "3"
                    cosde = "AB"
             Case "4"
                    cosde = "C"
             Case "5"
                    cosde = "AC"
             Case "6"
                    cosde = "BC"
             Case "7"
                    cosde = "ABC"
             Case "8"
                    cosde = "D"
             Case "9"
                    cosde = "AD"
             Case ":"
                    cosde = "BD"
             Case ";"
                    cosde = "ABD"
             Case "<"
                    cosde = "CD"
             Case "="
                    cosde = "ACD"
             Case ">"
                    cosde = "BCD"
             Case "?"
                   cosde = "ABCD"
             
      End Select
End Function