tuoliduosouce

代码说明：

  地磅测试程序，将字符串发送到指定COM口，基于VB写的地磅仪表数据读取工具源码，包括调用了一个仪表通信采集工具、上海耀华、托利多等大众仪表，有一定的参考价值。 　　设置Com1为通信端口，设置通信端口参数 9600赫兹、偶校验、7个数据位、1个停止位.（这里需要进一步说明的是tting="BBBB,P,D,S，含义是：B：Baud Rate（波特率）；P：Parity（奇偶）；D：Data Bit；S：Stop Bit）。 　　.InBufferSize = 40 设置缓冲区接收数据为40字节 　　.InputLen = 1 设置Input一次从接收缓冲读取字节数为1 　　.RThreshold = 1 设置接收一个字节就产生OnComm事件。 　　Timer可以计算从子夜到现在所经过的秒数，在Microsoft Windows中，Timer函数可以返回一秒的小数部分。(Weighbridge test program, the string will be sent to the specified COM port, source-based reading tool written in VB weighbridge instrumentation data, including calling an instrument of communication collection tools, Shanghai Yaohua, Toledo and other public instruments, there is a certain reference value. Set Com1 communications port, set the communications port parameters 9600 Hz, even parity, 7 data bits, 1 stop bit (It should be further noted that tting = "BBBB, P, D, S, meaning:. B: baud Rate (baud rate) P: Parity (parity) D: Data Bit S: Stop Bit). . InBufferSize = 40 is set to receive data buffer is 40 bytes . InputLen = number Set Input once read from the receive buffer byte 1 of 1 . RThreshold = 1 is set to receive a byte generated OnComm event. Timer can be calculated from midnight to now the number of seconds elapsed, in Microsoft Windows, Timer function can return a decimal fraction of a second.)

文件列表：

地磅测试
........\AllPurPose
........\..........\AllPurPose
........\..........\..........\AllPurpose.exe,2259968,2010-06-11
........\..........\..........\AllPurpose.ini,3791,2010-10-07
........\..........\..........\Boastest.dll,207360,2009-09-12
........\..........\..........\C%2B%2Bbuilder.exe,642048,2008-11-18
........\..........\..........\COM.inf,2664,2010-03-24
........\..........\..........\COM.sys,13824,2010-05-31
........\..........\..........\DriverSetup.exe,36864,2010-03-20
........\..........\..........\readme.txt,2065,2010-05-31
........\..........\..........\ReceiveShare.dll,152064,2010-03-26
........\..........\..........\VB6.exe,20480,2010-03-26
........\..........\..........\VB6调用源码
........\..........\..........\...........\AllPurpose.exe,2259456,2010-03-25
........\..........\..........\...........\AllPurpose.ini,3793,2010-09-17
........\..........\..........\...........\Boastest.dll,207360,2009-09-12
........\..........\..........\...........\COM.inf,2664,2010-03-24
........\..........\..........\...........\COM.sys,13824,2010-05-31
........\..........\..........\...........\DriverSetup.exe,36864,2010-03-20
........\..........\..........\...........\Form1.frm,2329,2010-03-29
........\..........\..........\...........\MSSCCPRJ.SCC,196,2010-09-17
........\..........\..........\...........\readme.txt,2065,2010-03-24
........\..........\..........\...........\ReceiveShare.dll,153088,2009-11-20
........\..........\..........\...........\VBReadShare.vbp,735,2010-03-29
........\..........\..........\...........\VBReadShare.vbw,50,2013-05-04
........\..........\..........\...........\VBReadShareDll.exe,20480,2010-03-26
........\BE01
........\....\BE01仪表通讯.frm,4265,2013-05-05
........\....\BE01仪表通讯.vbp,697,2008-07-08
........\....\BE01仪表通讯.vbw,51,2008-09-07
........\....\MSSCCPRJ.SCC,197,2008-09-02
........\....\新建 Microsoft Word 文档.doc,31232,2008-09-03
........\托利多地磅
........\..........\bas地磅.bas,6793,2013-05-05
........\..........\Form1.frm,4951,2013-05-05
........\..........\Form1.frx,134,2005-03-21
........\..........\MSSCCPRJ.SCC,195,2005-03-21
........\..........\托利多地磅.exe,24576,2005-03-21
........\..........\托利多地磅.vbp,766,2005-03-21
........\..........\托利多地磅.vbw,80,2005-03-21