应《网络安全法》要求，自2017年10月1日起，未进行实名认证将不得使用互联网跟帖服务。为保障您的帐号能够正常使用，请尽快对帐号进行手机号验证，感谢您的理解与支持！

24小时热门版块排行榜    

Znn3bq.jpeg
小木虫论坛-学术科研互动平台» 网络生活区» 有奖问答 » 有奖问答中转子版 » 电子秤和计算机连接，怎样才能把质量实时记录在电脑中?
汕头大学海洋科学接受调剂
61/1返回列表
查看: 381  |  回复: 5
只看楼主 @他人 存档 新回复提醒 (忽略) 收藏    在APP中查看
当前主题已经存档。
【悬赏金币】回答本帖问题，作者panpan429将赠送您 10 个金币

panpan429

金虫 (正式写手)

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

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

» 猜你喜欢
1楼 2009-12-27 15:57:37
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

tanganney

银虫 (小有名气)
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的回帖

panpan429

金虫 (正式写手)
希望是自己做过的，这样我有不懂得能解释清楚，因为我这边也有一个程序，我自己看的不是很懂，楼主是搜的吧，这些我也找到过。。
有没有做过这个的虫子？希望能留个脚印，金币我会再加的，非常感谢！
赞一下 回复此楼
3楼2009-12-27 16:34:42
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

liul-2001

木虫 (著名写手)
2楼好强啊，我是一点儿都看不懂
赞一下 回复此楼
4楼2009-12-27 22:27:59
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

皇阿玛

铁杆木虫 (著名写手)
2楼，比小强还要强啊
赞一下 回复此楼
5楼2009-12-27 22:52:27
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

panpan429

金虫 (正式写手)
呵呵，没有了吗
回复此楼
6楼2009-12-28 12:50:11
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 panpan429 的主题更新
61/1返回列表
不应助 确定回帖应助 (注意：应助才可能被奖励，但不允许灌水，必须填写15个字符以上)
普通表情 龙 兔 虎 猫
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 291 求调剂 +38 化工2026届毕业� 2026-04-09 39/1950 2026-04-15 08:03 by 不我拉绿卡
[考研] 297，工科调剂?河南农业大学本科 +9 河南农业大学-能 2026-04-14 9/450 2026-04-14 16:03 by Art1977
[考研] 生物学调剂 +7 纸扇zhishan 2026-04-13 7/350 2026-04-14 14:21 by jyl0317
[考研] 085600材料与化工349分求调剂 +16 李木子啊哈哈 2026-04-12 17/850 2026-04-14 09:11 by fenglj492
[考研] 300分求调剂 （085501机械专硕，本科扬大） +9 xu@841019 2026-04-11 10/500 2026-04-14 08:48 by 木木mumu～
[考研] 302求调剂 +10 易！? 2026-04-13 10/500 2026-04-13 19:04 by lbsjt
[考研] 考研二轮调剂 +10 故人?? 2026-04-09 10/500 2026-04-13 09:55 by szhize
[考研] 生物学调剂，一志愿西南大学348，Top期刊一区二作、二区三作，三等奖学金三次 +5 candyyyi 2026-04-09 5/250 2026-04-13 09:02 by 可淡不可忘
[考研] 299求调剂 +8 ZVVZ13 2026-04-08 8/400 2026-04-12 00:40 by 蓝云思雨
[考研] 343求调剂 +9 王国帅 2026-04-10 9/450 2026-04-11 20:31 by dongdian1
[考研] 求调剂 +3 胃痉挛累了 2026-04-11 5/250 2026-04-11 14:13 by luhong1990
[考研] 工科273调剂 +6 X1999 2026-04-09 7/350 2026-04-11 10:23 by zhq0425
[考研] 275求调剂 +9 1624447980 2026-04-08 10/500 2026-04-11 10:20 by Delta2012
[考研] 中药学调剂 初试324 +4 洋甘菊、 2026-04-10 6/300 2026-04-11 09:41 by gong120082
[考研] 初试261 +3 Asht少 2026-04-10 6/300 2026-04-10 16:38 by Asht少
[论文投稿] mdpi小修rvr时间四五天了 20+3 哈哈high 2026-04-08 5/250 2026-04-10 16:02 by 北京莱茵润色
[考研] 一志愿中科大070300化学，314分求调剂 +12 wakeluofu 2026-04-09 12/600 2026-04-10 09:57 by liuhuiying09
[考研] 调剂 +12 月@163.com 2026-04-08 12/600 2026-04-09 14:27 by rl1980
[考研] 求调剂 +3 猪肉墩粉条cc 2026-04-08 4/200 2026-04-09 10:05 by 猪肉墩粉条cc
[考研] 334求调剂 +16 Riot2025 2026-04-08 17/850 2026-04-09 09:28 by wdyheheeh
信息提示
关闭
请填处理意见
关闭