如何用VB6.0通過串口從電子秤中獲取數(shù)據(jù)（源代碼）

Option Explicit Dim strss As String Private Sub Form_Load（） MSComm1.CommPort = 1 '串口號,， MSComm1.Settings = "9600,n,8,1 " '串口的屬性 MSComm1.InputLen = 0 MSComm1.InputMode = comInputModeText MSComm1.RThreshold = 1 MSComm1.PortOpen = True End Sub Private Sub MSComm1_OnComm（） Select Case MSComm1.CommEvent Case comEvReceive strss = strss & MSComm1.Input If Right（strss, 2） = vbCrLf Then Label1.Caption = strss Open "D:\DATA.txt" For Append As #1 Print #1, Mid（strss, 1, Len（strss） - 2） '去除回車換行 Close strss = "" End If End Select End Sub