适用机型:CLP621C,CLP631,CL - S621C,CL - S631,CL - S700,CL - S703
功能应用:取机器状态,走空纸,打两个数字
私人只要声明函数的GetTickCount LIB“KERNEL32”()
II = VAL(Text3.Text)
L $ =“000”
如果II> 9则L $ =“00”
如果> 99,那么L $ =“0”
如果II> 999,则L $ =“”
SL $ = $ + TRIM(Text3.Text)
IC =“”
IC = IC + CHR $(2)+“M”+ CHR $(2)+“L”
IC = IC +“191100302400150”+ Text1.Text + CHR $(13)
IC = IC +“191100301850220”+ Text2.Text + CHR $(13)
IC = IC +的“Q”+ SL $ + CHR $(13)
IC = IC +的“E”
comset(IC)
MySleep(2000)
comset(“状态”)
END SUB
私人小组Command2_Click()
comset(CHR $(2)+“F”)
MySleep(2000)
comset(“状态”)
END SUB
Command3_Click()
comset(“状态”)
END SUB
私人小组comset(作为字符串Isend)
在错误转到PROC_ERR:
如果MSComm1.PortOpen = false,则
MSComm1.CommPort = VAL(MID(comi.Text,4,1))
MSComm1.PortOpen = TRUE
MSComm1.Settings =“9600,N,8,1”
结束如果
II =“”
MSComm1.Output = CHR $(1)+“A”的“请求8位状态特征码
MySleep(500)
如果MSComm1.InBufferCount> 8
Instring = MSComm1.Input
MSComm1.InBufferCount = 0
IN1 = Instring
如果MID(IN1,1,1)=“N”,然后II = II +“命令接收中..........." + vbCrLf
如果MID(IN1,2,1)=“N”然后II = II +“标签纸已经用完,请更换标签纸卷!”+ vbCrLf
如果MID(IN1,3,1)=“N”,然后II = II +“碳带40卷已经用完,请更换新碳带40卷!”+ vbCrLf
如果MID(IN1,4,1)=“N”,然后II = II +“资料处理中..........." + vbCrLf
如果MID(IN1,5,1)=“N”,然后II = II +“正在1 1#打印中..........." + vbCrLf
如果MID(IN1,6,1)=“N”,然后II = II +“机器处于暂停状态..........." + vbCrLf
如果MID(IN1,7,1)=“N”,然后II = II +“等待剥离..........." + vbCrLf
其他
II =“打印机通讯错误:”+ vbCrLf
II = II +“1。请确认打印机型号是否被支持吗?”+ vbCrLf
II = II +“2,请检查打印机电源开关是否打开?”+ vbCrLf
II = II +“3。请检查打印机串口通讯线的是接好?”+ vbCrLf
结束如果
如果II =“”
II =“打印机状态正常!”
明显优于=“退出”
如果Isend <>“状态”,然后
II =“1 1#打印资料传送完成!”
MSComm1.Output = Isend
结束如果
结束如果
status.Text = IN1 + vbCrLf +二+ vbCrLf + CSTR(NOW())
MSComm1.PortOpen = FALSE
退出小组
PROC_ERR:
MSGBOX comi.Text +“设置错误,请更正!”
END SUB
公共小组MySleep(只要BYVAL dwmailiseconds)
只要DIM LngTmp1
只要DIM LngTmp2
LngTmp1 =的GetTickCount
不要
的DoEvents
LngTmp2 =的GetTickCount
如果LngTmp2 - LngTmp1> = dwmailiseconds然后退出
环路
END SUB