《vb命令源led显示屏程序》

《《vb命令源led显示屏程序》》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、VB命令源LED显示屏程序DimTpHzFi,TpAsFi,FpHzFi,FpAsFiAsString'读取的字库文件名DimC1,C2AsInteger'汉字区码、汉字位码DimHzRecAsInteger'汉字在字库中的记录号DimLocationAsLong'汉字在字库中的起始字节位置DimHzPosAsInteger'汉字在文本中当前的位置DimPix,Row,ColAsInteger'点阵当前所处列数DimHzNumAsInteger'文字的个数DimMsNumAsInteger'幕数DimFpHz(0To71)AsByte'从汉字字库中读取的72字节的字模数

2、据DimTpHz(0To31)AsByte'从汉字字库中读取的32字节的字模数据DimAsi(0To15)AsByte'从Ascii字库中读取的32字节的字模数据DimTpHzAll()AsByte'存放全部字模数据的数组DimFpHzAll(0To15000)AsByte'暂存方屏的点阵内容DimTpLeBu(0To15,0To28)AsByte'条屏每幕的点阵排列代码29*16DimFpLeBu(0To119,0To24)AsByte'方屏每幕为25*120字节Dimi,j,k,ii,ff,jj,n,m,k5,k6AsInteger'临时变量，用于运算DimBuf1

3、(0To71)AsByte'从HZK24字库中读取的72字节竖排数据DimBuf2(0To23,0To23)AsByte'将竖排转换成横排后的点阵DimOut0(0)AsByte'当前发送的文字数据字节DimOut1(0To12)AsByte'开始信息DimOut2(0)AsByte'显示幕数DimOut3(0To3)AsByte'显示方式DimS(0To7)AsByte'位数控制PrivateDeclareFunctionGetTickCountLib"kernel32"()AsLongSubTimedelay(TTAsLong)DimtAsLong'声明一个长整数，

4、记录计数值t=GetTickCount()'取得系统计数值Do'开始循环DoEventsIfGetTickCount-t<0Thent=GetTickCount'归零LoopUntilGetTickCount-t>=TT'计算延迟是否到达EndSubPrivateSubForm_Load()OnErrorResumeNextTaLLab.LinkMode=1DiLLab.LinkMode=1EndSubPrivateSubFpCom_Click()If(Option1.Value=True)Or((Option2.Value=True)And(TaLLab<>""))T

5、henMsgBox"不能发送，检查是否选择了“手动”方式，或选择“自动+手动”方式时有报警信息存在。"ExitSubEndIfIfFaSong<>0ThenMsgBox"有信息正在发送中，请稍后再试"ExitSubEndIfFaSong.Caption=1FpCom.Caption="正在发送"S(0)=&H1S(1)=&H2S(2)=&H4S(3)=&H8S(4)=&H10S(5)=&H20S(6)=&H40S(7)=&H80Out1(0)=&H55Out1(1)=&HAAOut1(2)=&H55Out1(3)=&HAA'开始标志Out1(4)=&H1'屏号Out1(

6、5)=Mid(Year(Date),3,2)'年Out1(6)=Month(Date)'月Out1(7)=Day(Date)'日Out1(8)=Hour(Time)'时Out1(9)=Minute(Time)'分Out1(10)=Second(Time)'秒Out1(11)=Weekday(Date,vbMonday)'星期Out1(12)=&H30'是否显示日期Out2(0)=&H1'显示总幕数Out3(0)=&HC'显示方式Out3(1)=&HD'消失方式Out3(2)=&H0'停留时间Out3(3)=&H5'移动速度i=0Col=0Row=0HzPos=1HzNu

7、m=Len(FpTxt.Text)'获得字符串的个数OnErrorGoToFpComErr:IfHzNum=0Then'若为空字符则只发送开始信息即可更新IfMSComm1.PortOpen=FalseThenMSComm1.PortOpen=TrueEndIfOut2(0)=&H0MSComm1.Output=Out1MSComm1.Output=Out2Out1(4)=&H2MSComm1.Output=Out1MSComm1.Output=Out2MSComm1.PortOpen=FalseFaSong=0FpCom.Caption