24小时热门版块排行榜

返回列表

当前主题已经存档。

【悬赏金币】回答本帖问题，作者panpan429将赠送您 10 个金币

当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖

panpan429

金虫 (正式写手)

应助: 0 (幼儿园)
金币: 608
红花: 2
帖子: 423
在线: 111.3小时
虫号: 355823
注册: 2007-04-25
性别: MM
专业: 流体力学

[求助] 电子秤和计算机连接，怎样才能把质量实时记录在电脑中?

物料连续下落，电子称测量累积下料质量。电子秤和计算机连接，电脑如何记录连续的质量数据？有没有人做过这样的程序？电子称和电脑是如何连接的？电脑是如何记录数据的？先谢谢了

回复此楼

» 猜你喜欢

1楼 2009-12-27 15:57:37

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

panpan429

金虫 (正式写手)

应助: 0 (幼儿园)
金币: 608
红花: 2
帖子: 423
在线: 111.3小时
虫号: 355823
注册: 2007-04-25
性别: MM
专业: 流体力学

希望是自己做过的，这样我有不懂得能解释清楚，因为我这边也有一个程序，我自己看的不是很懂，楼主是搜的吧，这些我也找到过。。
有没有做过这个的虫子？希望能留个脚印，金币我会再加的，非常感谢！

赞一下

回复此楼

3楼2009-12-27 16:34:42

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

查看全部 6 个回答

tanganney

银虫 (小有名气)

博学EPI: 8
应助: 0 (幼儿园)
金币: 330.6
帖子: 120
在线: 15.9小时
虫号: 929347
注册: 2009-12-16

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

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖