Pb6中的串行通信.docVIP

? Pb6中的串行通信(MSCOMM32.OCX)完全解答版?? 本文给出一个在PB6中如何采集串行口数据的实例及MSCOMM32.OCX控件的一些基本知识。一：问题描述本文解决的是采集磅房的磅值读取问题。磅秤和计算机(COM1/COM2)之间使用RS-232标准串行线相连。波特率为1200，数据格式如下：每100ms发送一组数据，每组数据有5帧，每帧11位，1位起始位(0),8位数据位(D0-D7),2位停止位(1)，无奇偶校验.定义如下：第1帧：D0—D7 ----0FFH(起始位)第2帧：D0—D2 ----为小数点位置(0-5)??????? D3???? -----NC??????? D4???? -----1表示称重稳定? 0表示称重未稳定??????? D5???? -----1表示称重为负? 0表示称重为正??????? D6???? -----NCD7???? -----1表示超载第3帧：D0—D7 ----BCD1(称重值)第4帧：D0—D7 ----BCD2(称重值)第5帧：D0—D7 ----BCD3(称重值)??????? BCD1，BCD2，BCD3为由低到高的称重值的BCD码。二：解决方案使用VB中的MSCOMM32.OCX控件，先在PB中的OLE的insert control中注册该控件，如果注册完毕后使用时提示没有license ，则是没有注册码问题，网上提供了好多这方面的解决方法，但试过后都没能解决问题，我的解决方法是装VB，安装VB时一定要选择安装activeX。转完vb肯定能解决问题。在窗口上添加该控件，名称为ole_1。在窗口的open事件里设置ole_1的属性。ole_1.mport=1ole_1.object.settings=1200,n,8,1ole_1.object.portopen=trueole_1.object.rthreshold= 10 //每次取10个字节，在10个字节中肯? 定包含一个完整//(5个字节)的磅值数据ole_1.object.inputlen=1ole_1.object.inputmode=0各属性的意义在下面有详细的解释。在ole_1控件的oncomm事件里添加如下代码choose case ole_1.mevent??? case 2 ??? ? ???ole_1.object.Rthreshold=0? ??????? ?string ls_t??????? int ii ??????? int? w1,w2,w3,flag1,flag2??????? for ii=1 to 10??????? ls_t = ole_1.object.input???????? flag1 = asc(ls_t)??????????????????? //取字节的数值??? ????? if flag1 = 255 then??????????????//判断是否为起始位??? ?????? ls_t = ole_1.object.input??? ?????? flag2 = asc(ls_t)??? ????? if flag2 = 8 then?????????????? //判断数值是否正确???????????? //读取BCD1, BCD2,BCD3的值???? ???????? w1 = asc(ole_1.object.input)???????????? w2 = asc(ole_1.object.input)??????? ??? w3 = asc(ole_1.object.input)??? ????? end if???????? end if?????? next//将BCD码转换为十进制数值???? w1 = w1 - 6*int(w1/16)???? w2 = w2 - 6*int(w2/16)???? w3 = w3 - 6*int(w3/16)//按高低位计算???? st_1.text=string(w1 + w2*100+w3*10000)????//在次读取10个数值，触发oncomm事件????ole_1.object.Rthreshold=10???? case 1006??????? ???? st_1.text=over run??? case 8020 ??? ??????? st_2.text=read comm device error??? case 1001 ??????