利用Excel VBA来读取电子秤数据的源代码
Private Sub Command1_Click()
On Error GoTo Err1:
'以下为设定Com参数
With MSComm1
'设置端口号
.CommPort = 1
'设置通讯参数
.Settings = "9600,n,8,1"
End With
If MSComm1.PortOpen = False Then MSComm1.PortOpen = True
Command1.Enabled = False
Label3.Caption = "当前状态:已连接"
Exit Sub
Err1:
MsgBox "无法打开COM口或该COM口被占用!", vbInformation, "系统提示"
End Sub
Private Sub CommandButton2_Click()
If MSComm1.PortOpen = True Then MSComm1.PortOpen = False
Unload Me
End Sub
Private Sub CommandButton3_Click()
'测试数据接收用
TT1 = "N/W 292.0912"
TT2 = InStr(1, Trim(TT1), "N")
Range("A1").Value = Format(Trim(Mid(TT1, Val(TT2) + 5, 8)), "0.000")
End Sub
Private Sub MSComm1_OnComm()
Dim TT2 As String
Dim TT1 As String
Dim TT3 As String
Select Case MSComm1.CommEvent '設置MScomm控制項的R閥值為40
Case comEvReceive
'数据输入
TT1 = MSComm1.Input '取端口的传入数据
TT2 = InStr(1, Trim(TT1), "N")
If TT2 = 0 Then Exit Sub
'以下为指定Excel表单位置显示数据.
Range("A1").Value = Format(Trim(Mid(TT1, Val(TT2) + 5, 8)), "0.000")
'Call 保存数据
End Select
End Sub
Private Sub UserForm_Click()
End Sub |
