也是串口通信的问题

Question

你应该先有电子称的一些接口数据吧。
比如说，称完一个物体后，他发送哪些数据到端口，以什么字符做为起始、结束。
有了这些后你可以用MSCOMM访问串口传来的数据。
再处理这些数据

Answer 1

Private Sub Command1_Click()
'Debug.Print MSComm1.InBufferCount
'Debug.Print MSComm1.OutBufferCountDebug.Print MSComm1.CTSHolding
'Debug.Print MSComm1.CommEvent
Debug.Print MSComm1.DSRHoldingDebug.Print MSComm1.CommEventMSComm1.DTREnable = True
MSComm1.RTSEnable = True'mscomm1.MSComm1.Output = "'a',1"Label1.Caption = MSComm1.Input
'End IfEnd SubPrivate Sub Command2_Click()
MSComm1.PortOpen = False
End
End SubPrivate Sub Form_Load()
MSComm1.InBufferCount = 0
MSComm1.OutBufferCount = 0
MSComm1.CommPort = 1MSComm1.RTSEnable = True
'MSComm1.DTREnable = True
'MSComm1.CTSHolding = True
'MSComm1.RTSEnable = TrueMSComm1.Settings = "2400,n,8,1"
                                                                                                                                                       MSComm1.PortOpen = True
MSComm1.InputLen = 0MSComm1.InputMode = comInputModeText
MSComm1.NullDiscard = False
'MSComm1.RThreshold = 1
'MSComm1.SThreshold = 0
        
End SubPrivate Sub MSComm1_OnComm()
'select case
Select Case MSComm1.CommEvent
         Case comEvSend
         
         
         
         Case comEvReceive
         
End SelectEnd Sub
高手指点啊，我被遗忘在角落里了，

Answer 2

mscommon 控件有一个事件：OnCommon在那个事件中读取数据即可。
主要是你要事先定好协议：实际就是如何发数据，格式如何一切由你定。Select Case MSComm1.CommEvent
        Case comEvSend
        
        Dim Buffer as Variant
  
  ' Set and open port
  MSComm1.CommPort = 1
  MSComm1.PortOpen = True  Buffer = Chr$(KeyAscii)
  MSComm1.Output = Buffer        
        Case comEvReceive
        Dim InString as String
' Retrieve all available data.
MSComm1.InputLen = 0' Check for data.
If MSComm1.InBufferCount Then
  ' Read data.
  InString = MSComm1.Input
End If
End select