VB命令源LED显示屏程序.docVIP

VB命令源LED显示屏程序 Dim TpHzFi, TpAsFi, FpHzFi, FpAsFi As String 读取的字库文件名 Dim C1, C2 As Integer 汉字区码、汉字位码 Dim HzRec As Integer 汉字在字库中的记录号 Dim Location As Long 汉字在字库中的起始字节位置 Dim HzPos As Integer 汉字在文本中当前的位置 Dim Pix, Row, Col As Integer 点阵当前所处列数 Dim HzNum As Integer 文字的个数 Dim MsNum As Integer 幕数 Dim FpHz(0 To 71) As Byte 从汉字字库中读取的72字节的字模数据 Dim TpHz(0 To 31) As Byte 从汉字字库中读取的32字节的字模数据 Dim Asi(0 To 15) As Byte 从Ascii字库中读取的32字节的字模数据 Dim TpHzAll() As Byte 存放全部字模数据的数组 Dim FpHzAll(0 To 15000) As Byte 暂存方屏的点阵内容 Dim TpLeBu(0 To 15, 0 To 28) As Byte 条屏每幕的点阵排列代码29*16 Dim FpLeBu(0 To 119, 0 To 24) As Byte 方屏每幕为25*120字节 Dim i, j, k, ii, ff, jj, n, m, k5, k6 As Integer 临时变量，用于运算 Dim Buf1(0 To 71) As Byte 从HZK24字库中读取的72字节竖排数据 Dim Buf2(0 To 23, 0 To 23) As Byte 将竖排转换成横排后的点阵 Dim Out0(0) As Byte 当前发送的文字数据字节 Dim Out1(0 To 12) As Byte 开始信息 Dim Out2(0) As Byte 显示幕数 Dim Out3(0 To 3) As Byte 显示方式 Dim S(0 To 7) As Byte 位数控制 Private Declare Function GetTickCount Lib kernel32 () As Long Sub Timedelay(TT As Long) Dim t As Long 声明一个长整数，记录计数值 t = GetTickCount() 取得系统计数值 Do 开始循环 DoEvents If GetTickCount - t 0 Then t = GetTickCount 归零 Loop Until GetTickCount - t = TT 计算延迟是否到达 End Sub Private Sub Form_Load() On Error Resume Next TaLLab.LinkMode = 1 DiLLab.LinkMode = 1 End Sub Private Sub FpCom_Click() If (Option1.Value = True) Or ((Option2.Value = True) And (TaLLab )) Then MsgBox 不能发送，检查是否选择了“手动”方式，或选择“自动+手动”方式时有报警信息存在。 Exit Sub End If If FaSong 0 Then MsgBox 有信息正在发送中，请稍后再试 Exit Sub End If FaSong.Caption = 1 FpCom.Caption = 正在发送 S(0) = H1 S(1) = H2 S(2) = H4 S(3) = H8 S(4) = H10 S(5) = H20 S(6) = H40 S(7) = H80 Out1(0) = H55 Out1(1) = HAA Out1(2) = H55 Out1(3) = HAA 开始标志 Out1(4) = H1 屏号 Out1(5) = Mid(Year(Date), 3, 2) 年 Out1(6) = Month(Date) 月 Out1(7) = Day(Dat