Question

VB MSCOMM控件的用法

1 PJQID_H
2 STAR_NUM 星级数目（ID数目）
3 ID_千位 ID号
4 ID_百位
5 ID_十位
6 ID_个位
系统总线通讯规范
一． 采用RS485串行接口标准（差分，半双工）。9600波特，8位，无校验位。
正常工作时常为接收模式，仅当接收到主机发给本设备的查询命令后，
在0。5毫秒内转为发送模式，发出一个应答字节，发完后立即转回接收模式。
二． 主机（集线器）发送命令格式
DL CD PA PA PA
其中DL表示目标设备地址低位字节，格式为二进制10XXXXXX，可表示地址 0到63。
CD表示命令，采用大写字母，最高二进制位为0
PA表示参数，一般为数字0到9，大写字母A到F，
表示十进或十六进数，还可为空格和波折号，参数个数由命令决定。
三． 各类命令
1． 查询（适用所有设备）
DL H
设备应答：操作器 2（发完后立即转回接收模式）。
2． 操作器命令
按键查询
DL Q
操作器应答：
未按键 N（发完后立即转回接收模式）。
已按键 PA ，为0到9，A到F的ASCII码，代表所按的键。（发完后立即转回接收模式）。
星级设置（驱动5个红色LED发光管）(全彩液晶时星级显示为图片显示方式)
PC机向评价器发送（9个字节）
DL(10******：******评价器地址的低6位)
DH(110000**：**评价器地址的高2位)
W(命令)
0(星级十位为0)
*(1-5表示代表的星级)
0(无意义)
0(无意义)
0(无意义)
0(无意义)
登陆号发送命令
DL(10******：******地址的低6位)
DH(110000**：**地址的高2位)
Y(登陆命令)
0(窗口号十位数)
1(窗口号个位数)
0(ID号千位数)
0(ID号百位数)
0(ID号十位数)
1(ID号个位数)
评价操作说明
1)按“评价键”后，有语音提示并显示“请您评价”。
2)顾客按完评价键后，有语音“谢谢”和相应的评价显示，延时一段（25S）时间后消失。
3)若顾客长时间未按评价键，“请您评价”提示消失，表明此次评价有效时间已过。
4)当没有“请您评价”提示时按动评价键无效。以上都有评价器本身完成
注：部件地址和音量调节采取软件设置方法实现。
五型评价器与PC机间的通讯协议
按键查询
DL DH Q
评价器应答：
未按键 N（发完后立即转回接收模式）。
已按键 PA ，为0到9，A到F的ASCII码，代表所按的键。（发完后立即转回接收模式）。
收到M表示评价非常不满意
收到K表示评价不满意
收到G表示评价非常满意
收到I表示评价满意
收到J表示评价一般
收到P表示没有评价
PC机收到终端操作器5D、6D、7D、8D后向评价器发送数据的协议如下：
PC机向评价器发送（9个字节）
DL(10******：******评价器地址的低6位)
DH(110000**：**评价器地址的高2位)
D(命令)
*(5-8)
液晶上的显示要求
1通过RS232/RS485接口PC机可向各评价器发送文字信息,可实现自下向上流动显示或换幅显示.系统没有提示评价前显示图片广告及文字信息
2柜员提示请评价时(5D)液晶上转为显示请您评价,当顾客有评价时液晶要显示评价结果

Answer 1

With MSComm1
.CommPort = 1
.Settings = "115200,N,8,1"
.InputLen = 0
.InputMode = comInputModeBinary
.RThreshold = 3
.PortOpen = True
End With

dim DA(4) as Byte
DA(0)=&HAA
DA(1)=&HAA
DA(2)=&H04
DA(3)=&H02
DA(4)=.....
MSComm1.OutPut=DA()

收：
Dim AD() As Byte
Dim Ik As Long
AD=MSComm1.Input
For Ik=0 To Ubound(AD)
Text1.text=text1.text & Chr(AD(Ik))
Next