Question

VB与单片机通信的问题

我想用VB做上位机传几个参数给单片机，这是我写的按钮的

Private Sub Command2_Click()
MSComm1.OutBufferCount = 0
Dim TiData(4) As Byte
TiData(0) = Val(Text1.Text)
TiData(1) = Val(Text2.Text)
TiData(2) = Val(Text3.Text)
TiData(3) = Val(Text4.Text)
TiData(4) = Val(Text5.Text)
MSComm1.Output = TiData
End Sub
比如TiData(0)是某个毫秒延时函数的时间参数，单片机上的data_buffer[0]接收后放到延时函数里面
Delay(data_buffer[0])，延时函数本身是准的。
当我对Text1框输入50之后，点击发送后，单片机输出波形要么不变，要么对应时间的位置直接为0了，实在想不到是为什么，以前一直没用过VB，希望VB大神帮助。

Answer 1

你把写进单片机的数据读出来看看是不是你想要的那个。然后再来分析，再说你就写了这几句代码没法分析。

追问

追答

我的意思是你先写入一个数值到单片机，然后再从单片机读出这个值，看看写入的是不是你想要的那个值。这样就能判断是你值写错了，还是单片机相应有问题。
但从你的这个VB代码，我觉得有问题的地方好像是
TiData(0) = CByte(Trim(Text1.Text))
当然了，我很久没有用过VB了，一直用VB.NET，具体语法你自己看看。

Answer 2

看看单片机的波特率、校验等是否匹配。

Answer 3

需要帮你写程序吗

追问

能指导一下让我自己写么？

追答

可以的