在VisualFoxpro中应用MSComm控件

・祝鲁一　・　在Ｖｉｓｕａｌ　Ｆｏｘｐｒｏ中应用ＭＳＣｏｍｍ控件　北京机械科学研究院（１ｏｏ０４４）　叶　畅　Ｆｏｘｐｒｏ数据库由于简单实用，在我国应用较　性设置为０（缺省值），当接收字符时不产生Ｏｎ—　早且十分广泛，有着“大众数据库”的美称。微软　Ｃｏｍｍ事件。例如，设置Ｒｔｈｒｅｓｈｏｌｄ为ｌ，接收缓　公司于１９９８年推出Ｖｉｓｕａｌ　Ｆｏｘｐｒｏ　６．０（以下简称　冲区收到每一个字符都会使ＭＳＣｏｍｍ控件产生　ｖＦ６．０），新增了许多功能，如可视化界面设计，　ＯｎＣｏｍｍ事件。　使开发更加简便、快速。ＶＦ６．０不仅能应用于数　Ｓｔｈｒｅｓｈｏｌｄ：设定或返回在ＭＳＣｏｍｍ控件设置　据库管理，而且也能控制外围设备。利用其串口　ＣｏｍｍＥｖｅｎｔ属性为ｃｏｍＥｖＳｅｎｄ，并在产生Ｏｎ—　ＭＳＣｏｍｍ控件能十分方便、快速地开发出使用计　Ｃｏｍｍ事件之前，发送缓冲区中允许的最小字符　算机串口的设备通讯及控制程序，例如控制ＰＬＣ、　数。若设置Ｓｔｈｒｅｓｈｏｌｄ属性为０（缺省值），数据传　碰卡读／写器等通过串口与计算机连接的设备。本　输事件不会产生ＯｎＣｏｍｍ事件。例如，如果　文通过例子，介绍如何在ｖＦ６．０中使用ＭＳＣｏｍｍ　Ｓｔｈｒｅｓｈｏｌｄ等于５，仅当在输出队列中字符数从５　控件及应用于门禁系统的简介。　一降到４时，ｃｏｍＥｖＳｅｎｄ才发生。如果在输出队列中　从没有比Ｓｔｈｒｅｓｈｏｌｄ多的字符，ｃｏｍＥｖＳｅｎｄ事件将　不会发生。　ＯｎＣｏｍｍ事件：当ＣｏｍｍＥｖｅｎｔ属性值更改时　其他属性、通信错误设置值及通信事件设置值　、ＭＳＣ０ｍｍ控件属性和方法　ＭＳＣｏｍｍ控件有许多属性和方法，正确理解　应该特别注意的属性和方法：　用ＡＮＳＩ字符集的数据用字符型ｅｏｍＩｎｐｕｔＭｏｄｅ—　　和设置它们是用好ＭＳＣ￣ｍｍ控件的关键，以下是　出现，标明出现了一个通信事件或一个错误。　ＩｎｐｕｔＭｏｄｅ设定或返回接收数据的类型，使　请参考相关资料。Ｔｅｘｔ，其他数据（如内含控制符等）用二进制　ｅｏｍＩｎｐｕｔＭｏｄｅＢｉｎａｒｙ。　二、ＭＳＣｏｍｍ控件处理方式　ＭＳＣｏｍｍ控件提供两种处理通信方式：事件　　ＩｎｐｕｔＬｅｎ：设定或返回一次从接收缓冲区读取　驱动方式和查询方式。事件驱动方式是处理串行端口交互作用的一种　的字节数。　　Ｒｔｈｒｅｓｈｏｌｄ：设定或返回在ＭＳＣｏｍｍ控件设置　非常有效的方法，和一般程序设计中的中断类似。ＣｏｍｍＥｖｅｎｔ属性为ｅｏｍＥｖＲｅｃｅｉｖｅ，并产生Ｏｎ．　当串行端口产生事件或错误时（如收到一个字符或　Ｃｏｍｍ之前所要接收的字符数目。若Ｒｔｈｒｅｓｔｌｏｌｄ属　㈣ｌ　ｍｊＥ　ｍ　一十变化发生），ＭＳＣｏｍｍ控件会产生ＯｎＣｏｍｍ　事件，用户程序可捕获该事件并且进行相应处理。　查询方式则是在用户程序中随时或定时查询　（４）强制３ＤＴ为ｌ。　ｆｅｒＣｏｕｎｔ、　（５）观察前楔是否插入。如插入，看感应开关　ＭＳＣｏｍｍ控件的某些属性（如ＩｎＢｕｆＫ３、Ｋ３　是否有信号发出。如有，则溜板前倾到　ＣｏｍｍＥｖｅｎｔ）来进行相应处理，在用户程序空闲较　位；如果没有，适当调整感应开关的距离，注意　多时可用此方式。每个使用的ＭＳＣｏｍｍ控件对应　Ｋ４、Ｋ４　不应有信号。如果前楔投有插入，进行机　着一个串行端口。如果应有程序需要访问多个串行　械故障处理。　端口，必须使用多个ＭＳＣｏｍｍ控件。　由于溜板倾角是大中型数控龙门镗铣床中一项　精密的功能，实际调试也很复杂，有时需反复多次　三、应用实例　Ｉ．电动磁卡读／写器　下面的例子是控制韩国ＫＤ　ＥＬＥｃＴＲｏＮＩｃｓ，　才能调整到理想的状态。以上的控制及调试方法在　实践中证明是可行的，也是我们北京第一机床厂众　ＮＣ公司的ＫＤＴ－４０００系列电动磁卡读　器。程　多工程技术人员多年经验的积累，在这里与大家共　Ｉ　享。　（收稿日期：２００２０１１８）　序窗口如图：・６６－　机械Ｉ太‘玲拥Ｉ）２００２年第４期　维普资讯 http://www.cqvip.com

・祝鲁一　・　可继续使用。下面简要介绍北京中国国际贸易中心　商城滑冰场门禁部分。　（１）冰场在入口处配备三辊转闸门及磁卡阅读　器，出口处配备三辊转闸门及ＫＤＴ－－４０００系列电　动磁卡读／写器，由一台计算机控制入口及出口，　实现无人化管理。计算机扩展槽配有Ｉ／Ｏ接口板　控制闸门，磁卡数据通过串口接收，程序采用事件　驱动方式。　（２）冰场为了满足不同的顾客需求，设有以下　磁卡种类。　本例仅仅控制电动磁卡读／写器，而没有其他　方式即可。　按图建立表单窗口，添加ＭＳＣｏｍｍ控件的方　一贵宾卡：为一次性使用不收费卡，可随时进　普通卡：优惠卡（不同打折比例）、儿童卡为　次性卡，限时间，超时需要补费，出场时收　功能，因此没有采用事件驱动方式而采用等待查询　场。不限时间，出场时收回。　法如下：选择菜单项“工具”，在其下拉菜单项中　回。　选择“选项　，再选择控件页中的ＡｃｔｉｖｅＸ控件并　团体卡：一次性使用卡，多人（卡）消费，一　且选中Ｍｉｃｒｏｓｏｆｔ　Ｃｏｍｍｕｎｉｃａｔｉｏｎｓ　Ｃｏｎｔｒｏｌ，按“确　人（卡）结算，出场时收回。　定”按钮后，在表单工具栏中的控件栏中出现有电　ＭＳＣｏｍｍ控件。　学生卡：分不同，只能在学习时间内进　计时卡（１５ｈ、３０ｈ、６０ｈ等卡）：可随时进场，　话图案的ＭＳＣｏｍｍ控件，以后即可向表单中添加　场，超时需要补费，结束后收回。　功能说明：本例测试电动磁卡读／写器所提供　出场时自动扣除消费时间。如超时需要补费，时间　的功能，并且提供了连续写多张卡的功能。执行时　消费完后自动收回。　首先初始化磁卡读／写器，如成功则功能按钮可用，　月卡：当月有效，到期收回，不计时，不计　（３）消费过程管理顾客到售票处购卡，顾客　初始化按钮不可用。如失败则功能按钮不可用，初　次。　始化按钮可继续用。检查设备连接是否正确后可再　（例如断电）则功能按钮不可用，初始化按钮可用。　次进行初始化，如在执行过程中出现设备连接错误　持卡到入口剧卡，计算机识别后启动旋转闸门打开　一次。计算机开始为持卡人计时，计算机为持卡人　另外在连续写多张卡过程中，程序随时检查读　在流水数据库中登记。顾客到领鞋处领鞋，管理员　器门口是否有卡（用户是否插入磁卡），如有卡则　工刷卡，计算机在流水数据库中登记已领鞋。顾客　自动进卡并且写卡，写卡完成后由磁卡读　器的　滑冰结束后到还鞋处由管理员工收鞋后剧卡，计算　后部退出磁卡，在写多张卡过程中用户可按中断按　机在流水数据库中登记还鞋。顾客持卡在出口处插　钮退出。　２．门禁应用　入电动磁卡读／写器，计算机判断已经还鞋后计时　结束，根据消费规则自动计算消费应收款。如超时　ＫＤＴ一４０００系列电动磁卡读／写器有前部和　则顾客应到收款处补款后，再在出口处插入电动磁　后部出口，读卡后可控制由前部或后部出卡即退卡　卡读／写器。如为一次性消费卡，则电动磁卡读／写　或收卡。如果配上三辊转闸门（由Ｉ／０口发信号　器将卡收回，供循环使用。如为学生卡、计时卡等　可打开闸门一次），对实例１加以简单修改即可构　自动扣除消费金额后，如果到期则电动磁卡读／写　成门禁。例如：①公园或娱乐场所一次性使用的　器将卡收回，否则退出卡给顾客，顾客以后还可继　卡。在出口处自动将卡收回，以后可循环再用。②　续使用，出口旋转闸门打开一次。　单位门禁，对于来访的客人在入口时发给一次性　在出口处读卡开门后再退给员工，这样员工以后还　机械Ｉ丸《玲韶Ｉ１　２００２年第４期　这就是在ＶＦ６．０中应用ＭＳＣｏｍｍ控件的实　（收稿日期：２００２０１０７）　・卡，出口时收回；而本单位员工可发给永久性卡，　例。　６７・