VB通信问题

Question

Private Sub Command1_Click()
Dim sendtemp(0) As Byte
Const senddata = &H4
If MSComm1.PortOpen = False Then
MSComm1.PortOpen = True
End If
sendtemp(0) = senddata
MSComm1.Output = sendtemp()
End SubPrivate Sub Command2_Click()
Dim sendtemp(0) As Byte
Const senddata = &HA
If MSComm1.PortOpen = False Then
MSComm1.PortOpen = True
End If
sendtemp(0) = senddata
MSComm1.Output = sendtemp()
End SubPrivate Sub Command3_Click()
MSComm1.PortOpen = False
Unload Me
End SubPrivate Sub Form_Load()
MSComm1.CommPort = 1
MSComm1.Settings = "9600,n,8,1"
MSComm1.InputLen = 0
MSComm1.InBufferSize = 1024
MSComm1.PortOpen = True
End Sub
Private Sub MSComm1_OnComm()
Dim av As Variant '用来从接收缓冲区读取数据
Select Case MSComm1.CommEvent
Case comEvReceive
av = MSComm1.Input
Text1.Text = av(0)
End Select
End Sub
这段程序为什么接收不到数据,why?

Answer 1

sendtemp(0) = senddata
MSComm1.Output = sendtemp()
这里有问题 应该为变体变量
还有  如果你的计算机没有接 单片机或者 它的 发送与接受端没连接在一块 当然也接不到数据