通信软件课件-使用VB模拟-串行通信设备.pptVIP

第四章 使用VB模拟串行通信设备 4-1 命令字符串格式 4-2 控制服务器的仿真 4-3 数据服务器的仿真 4-4 联机中的计算机端仿真 4-5 连续状态数据接收器---灯号显示 4-6 连续状态数据接收器 4-1 命令字符串格式 数据的交换有一定的格式： 计算机与设备的数据交换步骤： PC发出一个命令串：前导码、站号、数据、校验位 设备收到后，送出PC要求的数据 PC告诉设备已收到，或再次要求 * * 通信软件课程设计 电子通信工程系 ASCII码中的控制字符： NUL 空项 SOH 表头开始字符 STX 本文开始 ETX 本文结束 EOT 发送结束 ENQ 查询 ACK 认可 NAK 否认 SYN 同步 ESC 跳脱(打印机用) 本文 SOH STX ETX EOT 表头 校验 4-2 控制服务器的仿真 控制服务器：可被远程控制，理解控制指令 硬件连接： 服务器界面设计： Rthreshold=1 收到数就引发事件 端口打开,关闭及结束程序略 清除接收区按钮的Click事件： Text1.Text = “” 增加一个GetTickCount() API的声明： Declare Function GetTickCount Lib “kernel32” () as Long OnComm事件代码：见右 程序说明： 识别“%%”命令 送出成功信息 注： 用第3章的CommEvent与事件程序作为客户端程序 程序执行结果： 影音说明 4-3 数据服务器的仿真 数据服务器：为请求声明提供数据 硬件连接： 服务器界面设计： Rthreshold=1 收到数就引发事件 有关端口打开、关闭及结束程序略 增加一个GetTickCount() API的声明： Declare Function GetTickCount Lib “kernel32” () as Long GetData()函数： Function GetData() Randomize GetData=10*Rnd() End Function OnComm事件代码：见右图 程序说明： 识别命令“%%data”，%%为启始的字符，DATA为命令 送出20个随机数，且以“,”分隔，最后为“！” 注： 用第3章的事件程序作客户端 程序执行结果： 影音说明 4-4 联机中的计算机端仿真 修改客户端程序：接收数据，并格式化表示 硬件连接： 客户端界面设计： Rthreshold=1 收到数就引发事件 接收窗为Text： MultiLine=true ScrollBar=2(垂直) 客户端程序接收事件： OnComm事件代码： 其它程序略 客户端程序说明： 发送“%%data”取数命令 数据都收到后(!)再处理 收到数据遇“，”分行 注：服务器端程序同4-3节 程序执行结果： 影音说明 4-5 连续状态数据接收器---灯号显示 客户端接收用灯号灯显示，即以图形表示收到的数据 硬件连接： 客户端界面设计： Rthreshold=1 收到数就引发事件 6个Shape：实心圆形 客户端程序接收事件： OnComm事件代码： 其它程序略 客户端程序说明： 发送“%%data”取数命令 数据都收到后(!)再处理 收到数据分离存入一数组 3个一组共6组分别相加 按和大小显示3种颜色 注：服务器端程序同4-3节 每个随机数在0-10之间