设为首页   加入收藏    网站地图
   
网站首页 西铁城条码打印机 西铁城资讯 解决方案 公司介绍 公司动态 联系我们
 
西铁城资讯

VB例子- DM4指令取机器状态

发表日期:2011年10月26日

适用机型: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


copyright@东道包装 西铁城条码打印机 全国免费服务热线:189 2926 7408