excel制的电子称重系统，直接读取COM1口数据到单元格中！

lxw6 · 发表于 2015-10-4 23:26

VB6？什么年代的软件啊。真怀疑win7/8/10能否能安装上。

帮忙发到邮箱吧，多谢！
l_x_w6@163.com

dhf104109 · 发表于 2015-10-4 23:33

dhf104109 发表于 2015-10-4 23:22

那不能用也没办法哦，这东西就是那年代用的

djhniu · 发表于 2015-10-9 16:26

请问大师能教教我么，我网上找了两天了，都是些不适合我要求的，突然找到你的这个功能适合我。谢谢！ 542656312@qq.com

aihua012345 · 发表于 2015-10-26 14:36

我也需要，excel制的电子称重系统，直接读取COM1口数据到单元格中，请发到我的邮件，aihua168@139.com,谢谢

宝利 · 发表于 2015-11-23 09:32

你好，我现在很需要这个文件，不知道能否给我发一份，我的邮箱37660220@qq.com

销香叶雨 · 发表于 2015-12-3 09:07

求附件，学习学习……邮箱：xxyy5170@163.com
多谢！

liaoliangbang · 发表于 2015-12-8 22:30

老师可以发份给我吗？谢谢！

liaoliangbang · 发表于 2015-12-8 22:31

老师可以发份给我吗？谢谢！1933075924@qq.com

众信电脑 · 发表于 2016-1-3 19:02

请发给我一份，谢谢！328491475@qq.com

众信电脑 · 发表于 2016-1-4 08:00

您好，搞了电子称一段时间，总会出现乱码，请发给我一份，邮箱328491475@qq.com,谢谢！
1、装VB6       已装（安装com口控件）
2、接着装VB6的SP6补丁已安装
3、再装SP6补丁的VB60SP6-KB2708437-x86-CHS补丁       已装（使控件受系统信任）
下面是原来的代码（从网上拷过来再精简，原来的也是乱码）
Private Sub UserForm_Initialize()
iniMscomm
End Sub
Private Sub MSComm1_OnComm()
Cells(3, 1).Value = MSComm1.Input
End Sub

Private Sub iniMscomm()
'On Error Resume Next
'=====-----初始化通信串口-----=====

MSComm1.CommPort = 6                   '使用 COM1
MSComm1.Settings = "9600,N,8,1"       '9600 波特，无奇偶校验，8 位数据，一个停止位
MSComm1.PortOpen = True                '打开端口

MSComm1.RThreshold = 5                '缓冲区有1个字节就产生OnComm事件
MSComm1.InputLen = 0                   '为 0 时，使用 Input 将使 MSComm 控件读取接收缓冲区中全部的内容。

MSComm1.InputMode = 0  'Input以二进制形式取回用comInputModeBinary或1，以文本形式取回是comInputModeText或0（缺省项）
MSComm1.RTSEnable = True
MSComm1.InBufferCount = 0             '清空缓冲区

End Sub
======================
用系统自带的超级终端读取com口则不会有乱码的现象。

		自动登录	找回密码
密码			免费注册

[原创] excel制的电子称重系统，直接读取COM1口数据到单元格中！