VB与485多机通信,怎样设置第九位呢? 点击：10252 | 回复：15
发表于：2004-05-19 12:37:00
楼主
我现在用VB做串行通信（毕业设计）采用Mscomm控件，上位机怎么发送第九位数据呢？
如果采用settings=9600,8,m,1这样怎么确定发送地址第九位为1呢？Email:daoguang25@sina.com 谢谢高手指教！
下面是原理：
单片机多机通信系统是依靠第9位来进行的，主机在发送地址字节时是必须将第9位置1的，发送数据字节时必须将第9位置0。在单片机中有一个可编程的SM2位，当该位被置1时，单片机只能接收第9位为1的数据；当该位被置0时，单片机均能接收第9位为0或1的数据。利用此特性，在多机通信的开始时，主机将自己的SM2位置0，以保证能收到从机发来的任何9位数据，从机将自己的SM2位置1，用以接收主机发来的寻址字节。假设在这个系统中有1个主机和32个从机，开始时所有从机都在侦听主机发来的地址帧，假设主机想访问10号从机，那么主机首先将第9位(TB8位)置1，然后把字节10发出；所有的从机这时候都能收到地址帧10，然后和自己的编号比较，是10的话可以通信
发表于：2004-05-19 22:59:00
2楼
PC机的串行通讯接口是以8250为核心不见组成的。虽然8250本身并不具备MCS－51系列单片机的多机通讯功能，但通过软件的办法，可使得8250满足MCS－51单片机多机通讯的要求。8250可发送11位数据帧，这11位数据帧由一位起始位，八位数据位，一位奇偶校验位和一位停止位组成。MCS－51单片机多机通讯的数据帧格式就和8250的差在奇偶校验位上，用TB8来区分数据帧和地址帧。通过软件的方法可以编程8250的奇偶校验位，使得发送地址时为“1”，发送数据时为“0”，则8250的奇偶校验位完全模拟了单片机多机通讯的TB8位，这就是实现方法。但在VB中却不能设置为采用奇偶校验，这样的话地址和数据分不清，但Mscomm控件却不能设置。可以采用汇编语言来实现，若要求8250发送帧的奇偶校验位为“1”，只需执行
MOV DX,3FBH
MOV AL,2BH
OUT DX,AL
若要求8250发送帧的奇偶校验位为“0”，只需执行
MOV DX,3FBH
MOV AL,3BH
OUT DX,AL
我觉得在你发送地址帧之前可以把8250的奇偶校验位置1，发送数据帧时置0，这样就实现了多机通讯。但是我不知道在VB中是否支持汇编语言，VC中是肯定支持。
如果你做出结果的话，咱们一起讨论一下，共同进步吧。如果你有QQ的话我们可以在QQ上讨论。
发表于：2005-07-04 18:33:00
11楼
当要用到TB8时,关于VB的串口设置很麻烦.
因为VB发送数据时,发到第九位时才检测奇偶校验位,并根据"此时"奇偶校验位设置发送第九位.而不是以发送前的设置为准.
比如:
1: Dim Arr(0) As Byte
2: MSComm1.Settings = "9600,m,8,1"
3: Arr(0) = 1
4: MSComm1.Output = Arr
'Delay X
5: MSComm1.Settings = "9600,s,8,1"
6: Arr(0) = 1
7: MSComm1.Output = Arr
8: MSComm1.Settings = "9600,m,8,1"
此时发出是0/10000000/0/1*0/10000000/1/1,
而不是0/10000000/1/1*0/10000000/0/1.
因为执行第4行命令时,当发送到奇偶校验位时,第5行已经执行过了并将校验位改为"Space"了.
如果在第四行后面加上一个超过较长的延时X(比如超过16E4秒),就可能保证第4行的输出设置由第2行决定.但是如果延时X<15E秒,第4行的输出设置将由第5行决定.如果16E4秒>X>15E4秒,校验位有可能在1位的时间里出现有高有底的情况.
奇怪的是,如果用Timer来延时,延时后的数据位可能丢失,即不被发送了.
发表于：2008-08-06 12:54:38
14楼
诺博克（中国）工控产品维修中心专业芯片级主板维修：工业级全长卡、半长卡、嵌入式主板、网络安全主板、工业级底板等平板电脑与一体化工作站维修：黑屏、花屏、屏暗、整机不工作、键盘、通信不畅等各品牌工业级原装整机：不开机、死机、不认硬盘、键盘、通信不畅、安装不上各种软件等工业级电源：电源供电不稳定，电源不工作等。
主要产品：
工业计算机销售：
工业计算机平台Industrial PC Platforms
嵌入式计算机平台Embedded Computing Platfroms
平板电脑与一体化工作站Panel Computers ＆Industrial Workstations
网络安全平台Network Security Platforms
工业控制计算机原装整机Industrial PCs
诺博克（中国）工控产品维修中心
24小时服务电话：158 2188 4188
http://www.notblog.net.cn
主要产品：
工业计算机销售：
工业计算机平台Industrial PC Platforms
嵌入式计算机平台Embedded Computing Platfroms
平板电脑与一体化工作站Panel Computers ＆Industrial Workstations
网络安全平台Network Security Platforms
工业控制计算机原装整机Industrial PCs
诺博克（中国）工控产品维修中心
24小时服务电话：158 2188 4188
http://www.notblog.net.cn
发表于：2010-03-16 16:15:14
15楼
回复内容：
对：人间一笑 关于当要用到TB8时,关于VB的串口设置很麻烦. 因为VB发送数据时,发到第九位时才检测奇偶校验位,并根据"此时"奇偶校验位设置发送第九位.而不是以发送前的设置为准. 比如: 1: Dim Arr(0) As Byte 2: MSComm1.Settings = "9600,m,8,1" 3: Arr(0) = 1 4: MSComm1.Output = Arr ‘Delay X 5: MSComm1.Settings = "9600,s,8,1" 6: Arr(0) = 1 7: MSComm1.Output = Arr 8: MSComm1.Settings = "9600,m,8,1" 此时发出是0/10000000/0/1*0/10000000/1/1, 而不是0/10000000/1/1*0/10000000/0/1. 因为执行第4行命令时,当发送到奇偶校验位时,第5行已经执行过了并将校验位改为"Space"了. 如果在第四行后面加上一个超过较长的延时X(比如超过16E4秒),就可能保证第4行的输出设置由第2行决定.但是如果延时X<15E秒,第4行的输出设置将由第5行决定.如果16E4秒>X>15E4秒,校验位有可能在1位的时间里出现有高有底的情况. 奇怪的是,如果用Timer来延时,延时后的数据位可能丢失,即不被发送了. 内容的回复：
对：人间一笑 关于当要用到TB8时,关于VB的串口设置很麻烦. 因为VB发送数据时,发到第九位时才检测奇偶校验位,并根据"此时"奇偶校验位设置发送第九位.而不是以发送前的设置为准. 比如: 1: Dim Arr(0) As Byte 2: MSComm1.Settings = "9600,m,8,1" 3: Arr(0) = 1 4: MSComm1.Output = Arr ‘Delay X 5: MSComm1.Settings = "9600,s,8,1" 6: Arr(0) = 1 7: MSComm1.Output = Arr 8: MSComm1.Settings = "9600,m,8,1" 此时发出是0/10000000/0/1*0/10000000/1/1, 而不是0/10000000/1/1*0/10000000/0/1. 因为执行第4行命令时,当发送到奇偶校验位时,第5行已经执行过了并将校验位改为"Space"了. 如果在第四行后面加上一个超过较长的延时X(比如超过16E4秒),就可能保证第4行的输出设置由第2行决定.但是如果延时X<15E秒,第4行的输出设置将由第5行决定.如果16E4秒>X>15E4秒,校验位有可能在1位的时间里出现有高有底的情况. 奇怪的是,如果用Timer来延时,延时后的数据位可能丢失,即不被发送了. 内容的回复：
热门招聘
相关主题
- 综述：现场总线系统FCS与集散...
[5540] - 日臻成熟的无线局域网络WLAN[1913]
- RS232转485数据丢失问题，跪求...[2817]
- 485转光纤的两种方式[4167]
- 普及基础知识：什么是双绞线，...[1959]
- 帮忙看看是什么问题！[1854]
- 现在用232中继器可以使距离达...[3796]
- 基于LNS和COM的LonWorks网络...[5476]
- GSD文件和GSE[2552]
- 求助:QJ61BT11N模块[2572]
官方公众号
智造工程师
-
客服
-
小程序
-
公众号
工控网智造工程师好文精选
