|
|
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 ] |
|
回复此楼
20+4