:有个电子秤,为什么MSComm1.Input里的数据很快就清空了呢

在线等:有个电子秤,为什么MSComm1.Input里的数据很快就清空了呢?
各位,我在用vb写一个电子称重的时候,发现MSComm1.Input很快就清空了,根本取不到值,不知道为什么.代码如下:
  MSComm1.Settings = "9600,n,8,1"
  MSComm1.PortOpen = True

  MSComm1.Output = "#" '当秤与计算机相联时候,使用立即打印符"#"进行数据输出,响应后以字符传输

  Label1.Caption = MSComm1.Input
   
  MSComm1.PortOpen = False

[解决办法]

VB code

Option Explicit    Dim strsj As StringPrivate Sub Command1_Click()    Timer1.Enabled = TrueEnd SubPrivate Sub Command2_Click()    Timer1.Enabled = FalseEnd SubPrivate Sub Form_Load()    Timer1.Interval = 500    Timer1.Enabled = False    MSComm1.CommPort = 1    MSComm1.Settings = "2400,n,8,1"    MSComm1.RThreshold = 1    MSComm1.InputLen = 0    MSComm1.InputMode = comInputModeText    MSComm1.PortOpen = TrueEnd SubPrivate Sub MSComm1_OnComm()    Select Case MSComm1.CommEvent    Case 2    strsj = strsj & MSComm1.Input    '需要按数据帧作判断    '    Label1.Caption = strsj    '    End SelectEnd SubPrivate Sub Timer1_Timer()    MSComm1.Output = "#"End Sub