程序片断:
Private Sub CmdSend_Click()
Dim a(2) As Byte
a(0) = &HFC
a(1) = Trim(txtSend.Text)
a(2) = &H40
Comm1.Output = a
End SubPrivate Sub Timer1_Timer()
If Comm1.InBufferCount > 0 Then
txtReceive.Text = txtReceive.Text + Comm1.Input
End If
End Sub为什么老是有错?inputmode应该是0还是1?
Private Sub CmdSend_Click()
Dim a(2) As Byte
a(0) = &HFC
a(1) = Trim(txtSend.Text)
a(2) = &H40
Comm1.Output = a
End SubPrivate Sub Timer1_Timer()
If Comm1.InBufferCount > 0 Then
txtReceive.Text = txtReceive.Text + Comm1.Input
End If
End Sub为什么老是有错?inputmode应该是0还是1?
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货