zmjdll.bas

显示屏测试程序的源程序

Attribute VB_Name = "Module2"
Global Const ERR_SEND = 0             '发送错误
Global Const ERR_OK = 1               '正确
Global Const ERR_CREATEFILE = 2       '打开串口错误
Global Const ERR_BUILDCOMMDCB = 3     '设置串口参数错误
Global Const ERR_SETCOMMSTATE = 4     '设置串口状态错误
Global Const ERR_SETCOMMTIMEOUTS = 5  '设置串口超时时间错误
Global Const ERR_NOONLINE = 6         '字幕机没有连线
Global Const ERR_OVERTAKE = 7         '发送超长
Global Const ERR_FONTTYPE = 8         '字体类型非法
Global Const ERR_FONTSPACE = 9        '字间距非法
Global Const ERR_COLOR = 10           '颜色非法
Global Const ERR_FONTMODE = 11        '出字方式非法
Global Const ERR_RATE = 12            '出字速度非法
Global Const ERR_FORMAT = 13          '对齐方式非法
Global Const ERR_TEXTLEN = 14         '文字太长
Global Const ERR_FONTSTYLE = 16       '文字风格错误
Global Const ERR_DELAY = 17           '延时错误
Global Const ERR_ALARM = 18           '报警类型错误
Global Const ERR_EFFECT = 19          '效果参数错误
Global Const ERR_CREATETHREAD = 20    '生成线程错误
Global Const ERR_TIME_OUT = 21        '时间逾出错误
Global Const ERR_CRC = 22             '检查和错误
Global Const ERR_BAD_END = 23         '不正常结束错
Global Const ERR_PARM = 24            '参数错误
Global Const ERR_OTHER = 25           '其他错误
Global Const ERR_BAD_RECEIVE = 26     '返回错误
Global Const ERR_MYDATA_MODE = 27     '日期模式错误
Global Const ERR_DUAN_NUM = 28        '段号错误

Type ZmjFontType
    byFontType As Byte    '字体 01: 6*7点阵英文  02:16点阵汉字  03:24点阵汉字
    byFontSpace As Byte   '字间距 0---128
    byColor As Byte       '字体颜色  双色字幕机 0:黑 1:红 2:绿 3:黄  单色字幕机 0: 黑 1: 红 2: 黑 3: 红
    byMode As Byte        '出字方式 1 --- 18（参见表一）
    byRate As Byte        '出字速度 0 - --9
    byFormat As Byte      '对齐方式 1. 居左上显示   2. 居左上显示   3. 居右上显示
                          '4. 居左显示     5. 居中显示         6. 居右显示
                          '7. 居左下显示   8. 居下方显示   9. 居右下显示
End Type

Type ZmjFontStyle
    byReverse As Byte     '是否反相   0：不反相  1：反相
    byBiLines As Byte     '是否双线体  0：普通  1：双线体
    byWidthScale As Byte  '水平放大倍数 1---9
End Type

Type ZmjWindow
    wLeft As Integer      '左上角x坐标
    wTop As Integer       '左上角y坐标
    wRight As Integer     '右下角x坐标
    wBottom As Integer    '右下角y坐标
'   bClear As Byte
End Type

'初始化串口
'参数：nComm  串口号，从1开始
'      nSpeed 波特率，有效值为1200、2400、4800、9600
'返回值：    1 2 3 4 5 6 20
Declare Function ZmjInit Lib "zmjdll" (ByVal nComm As Long, ByVal nSpeed As Long) As Long


'关闭串口
'返回值：    1
Declare Function ZmjClose Lib "zmjdll" () As Long


'对时
'参数：byStartAddress 开始地址，从0开始
'      byEndAddress   结束地址，范围0-63
'功能：向字幕机发送对时信息，一般一天要发送一次对时信息。
'返回值：0 1 26
Declare Function ZmjSendTime Lib "zmjdll" (ByVal byStartAddress As Byte, ByVal byEndAddress As Byte) As Long


'检测通讯是否正常
'参数：byAddress 地址，0-63
'功能: 检测计算机与字幕机的通讯是否正常?
'返回值：0 1 6
Declare Function ZmjOnLine Lib "zmjdll" (ByVal byAddress As Byte) As Long


'单段命令开始
'参数：byStartAddress 开始地址，从0开始
'      byEndAddress   结束地址，范围0-63
'返回值：1
Declare Function ZmjCommondBegin Lib "zmjdll" (ByVal byStartAddress As Byte, ByVal byEndAddress As Byte) As Long


'多段命令开始
'参数：byStartAddress 开始地址，从0开始
'      byEndAddress   结束地址，范围0-63
'      byDuanNo       段号
'返回值：1 28
Declare Function ZmjMultiCommondBegin Lib "zmjdll" (ByVal byStartAddress As Byte, ByVal byEndAddress As Byte, ByVal byDuanNo As Byte) As Long

'命令结束
'返回值：0 1 7 26
Declare Function ZmjCommondEnd Lib "zmjdll" () As Long

'载入播放表
'返回值：0 1 7 26 28
'参数：byStartAddress 开始地址，从0开始
'      byEndAddress   结束地址，范围0-63
'      lpszText       段号列表
'      byDuanNum      段号数
Declare Function ZmjSetPlayDuan Lib "zmjdll" (ByVal byStartAddress As Byte, ByVal byEndAddress As Byte, lpszText As Byte, ByVal byDuanNum As Byte) As Long

'清屏
'返回值：1 7
Declare Function ZmjClear Lib "zmjdll" () As Long


'显示文字
'返回值：1 7  8 9 10 11 12 13 14 16
Declare Function ZmjTextWindow Lib "zmjdll" (myFontType As ZmjFontType, myFontStyle As ZmjFontStyle, ByVal lpszText As String, myZmjWindow As ZmjWindow) As Long


'显示日期
'返回值：1 7  8 9 10 11 12 13 14 16 27
Declare Function ZmjMydateWindow Lib "zmjdll" (myFontType As ZmjFontType, myFontStyle As ZmjFontStyle, ByVal wMydataType As Integer, myZmjWindow As ZmjWindow) As Long


'显示时间
'返回值：1 7  8 9 10 11 12 13 17
Declare Function ZmjDispTimeWindow Lib "zmjdll" (ByVal wDelay As Integer, myFontType As ZmjFontType, myZmjWindow As ZmjWindow) As Long


'特殊效果
'返回值：1 7 19
Declare Function ZmjEffect Lib "zmjdll" (ByVal byType As Byte, ByVal bySpeed As Byte) As Long


'声音报警
'返回值：1 7 19
Declare Function ZmjAlarm Lib "zmjdll" (ByVal byType As Byte) As Long


'延迟
'返回值：1 7
Declare Function ZmjDelay Lib "zmjdll" (ByVal wDelay As Integer) As Long


'结束
'返回值：1 7
Declare Function ZmjEnd Lib "zmjdll" () As Long