mscomm32控件使用.docVIP

?本文给出一个在PB6中如何采集串行口数据的实例及MSCOMM32.OCX控件的一些基本知识。[HKEY_CLASSES_ROOT\Licenses\4250E830-6AC2-11cf-8ADB-00AA00C00905] ? ? @ ? = ? kjljvjjjoquqmjjjvpqqkqmqykypoqjquoun 若未注册，确定system32\mscomm32.ocx存在， Regsvr32 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=1