| 查看: 370 | 回复: 5 | ||
| 当前主题已经存档。 | ||
| 【悬赏金币】回答本帖问题，作者panpan429将赠送您 10 个金币 | ||
| 当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖 | ||
[求助]
电子秤和计算机连接，怎样才能把质量实时记录在电脑中?
|
||
| 物料连续下落，电子称测量累积下料质量。电子秤和计算机连接，电脑如何记录连续的质量数据？有没有人做过这样的程序？电子称和电脑是如何连接的？电脑是如何记录数据的？先谢谢了 |
回复此楼» 猜你喜欢
271材料工程求调剂
已经有5人回复
-
281求调剂（0805）
已经有16人回复
-
304求调剂
已经有6人回复
-
材料工程专硕调剂
已经有6人回复
-
一志愿天大材料与化工（085600）总分338
已经有4人回复
-
085700资源与环境308求调剂
已经有3人回复
-
求材料调剂
已经有8人回复
-
294求调剂材料与化工专硕
已经有5人回复
-
一志愿华中科技大学，080502，354分求调剂
已经有4人回复
-
一志愿吉林大学材料学硕321求调剂
已经有6人回复
3楼2009-12-27 16:34:42
|
Option Explicit Private strRecBuf As String Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) Private Sub Form_Activate() 'Me.Hide '如果不想把这个小界面显示出来就留着这段,想显示就把最前面的'去掉 End Sub Private Sub Form_Load() If mscommWeight.PortOpen = True Then mscommWeight.PortOpen = False mscommWeight.CommPort = 1 '1表示COM1，如果要改成COM2就写2就行了 If mscommWeight.PortOpen = False Then mscommWeight.PortOpen = True mscommWeight.Settings = "2400,n,8,1" mscommWeight.InputLen = 0 mscommWeight.RThreshold = 1 mscommWeight.InputMode = comInputModeText End Sub Private Sub mscommweight_OnComm() Select Case mscommWeight.CommEvent Case comEvReceive strRecBuf = strRecBuf & mscommWeight.Input Case Else End Select If InStr(strRecBuf, "g"  Then’接收到最后一个字符 lblWeight.Caption = Mid(strRecBuf, InStr(strRecBuf, "," + 1, 10) strRecBuf = "" End If End Sub Private Sub tmrOrderScan_Timer()‘这是向电子称发写信息（关机）。200ms的定时器，使用了DDE接收信息（lblSwitch） DoEvents Select Case lblSwitch.Caption Case "Action" tmrWeight.Enabled = False mscommWeight.Output = Chr(&H50) & Chr(&HD) & Chr(&HA)‘关机开机 lblSwitch.Caption = "" Sleep 200 tmrWeight.Enabled = True Case Else End Select End Sub Private Sub tmrWeight_Timer()’这是1000ms定时器，向电子称发读取命令， mscommWeight.Output = Chr(&H51) & Chr(&HD) & Chr(&HA) End Sub 2.智能高精度电子秤LWI-K（高精度电子秤） 特点:不用称重软件,可以直接和电脑连接,直接把称重数据保存在应用程序中。 直通视窗（Windows）功能 该电子秤对于 Excel, Word文档，TXT记事本等Windows应用程序，就像用键盘输入称重显示器的显示数值那样，可以直接将数据转送到计算机。这个功能称为直通视窗（Windows）功能。由于不需要通信软件，只需在PC上进行一些简单的设置即可方便的把数据转送到Excel, Word文档，TXT记事本等Windows应用程序，以便保存数据,方便计量管理。 最大称量/分度值：30公斤/5克，60公斤/10克，100公斤/20克，150公斤/20克、300公斤/50克、500公斤/100克等，还可以根据客户要求定制称量。 电子秤选用优质传感器，配合高速率AD转换电路和单片机系统组成，称重迅速准确。 本电子台秤适用于金属、五金、电子、化工、医药、纺织、印染、食品、印刷、科研、等各种需要称重的行业使用。使用该电子秤，可以提高企业物料收发、产品包装、配料、盘点等计量管理质量，从而降低生产成本，提高工作效率。 一、功能概述：精确计重，去皮，重量累计，简易计数，公斤/磅单位转换。选配功能：RS-232通讯接口，可以连接电脑和打印机。重量控制信号输出。 二、基本功能： 1、本电子秤产品符合OIML Ⅲ 级秤国际标准，计量性能准确可靠。 2、显示仪表6位红色 LED（ 0.8英寸）显示醒目大方，适合各种称重环境使用。 3、交/直流两用电源供电（内置可充电蓄电池），适用于无交流电的场所称重使用。 4、电子秤立杆采用不锈钢管，秤面选用不锈钢秤盘，称体采用优质钢材烧焊静电喷塑工艺，坚固耐用，秤体水平可调。适用各种需要移动称重的场所使用。 5、电子秤超重时声光报警、欠电压报警提示充电，有效延长使用寿命。 三、特色功能： 1、具有自动零点追踪功能。 2、具有Kg 重量自动校正功能。 3、具有预扣重功能。 4、具有零点范围显示功能。 5、具有单位转换（Kg、lb）和PCS计数功能。 6、具有重量累计功能、可逐笔显示每次称重数据。 7、电子秤充电灯智能显示充电状态，由红色变为绿色时完成充电。 选配功能：RS-232通讯接口，可以连接电脑和打印机。重量控制信号输出。 [ Last edited by tanganney on 2009-12-27 at 16:19 ] |
2楼2009-12-27 16:18:04
4楼2009-12-27 22:27:59
皇阿玛
铁杆木虫 (著名写手)
- 博学EPI: 2
- 应助: 0 (幼儿园)
- 金币: 9103.7
- 帖子: 1900
- 在线: 90.2小时
- 虫号: 435337
- 注册: 2007-08-25
- 专业: 中药质量评价
5楼2009-12-27 22:52:27
