VB与51单片机串口通信若干问题

2020-01-25 15:15发布

本帖最后由 scau_zening 于 2014-2-6 12:47 编辑

最近在搞一个车库上位机的,用VB编写。上位机界面如图:

问题1:当单片机P21脚检测到低电平时,通过串口,发送“si ”,在上位机对应位置显示“是”,表示车已经进库。
因为我的这道检测程序是放在while(1)里面的,单片机不断检测,当P21为0时,单片机不断发送“si ”,而上位机对应位置则
交替显示“是”和"否"(默认),而我只想要第一次接收到的“si ”,从而当P21=0时,只能显示"是",怎么解决。以下是部分程序:
VB:Dim rec As String
Select Case MSComm1.CommEvent
Case comEvReceive
rec = MSComm1.Input
51: while(1)
         {
                 if(miso==0)
                {
                        for(i=0;i<3;i++)
                        {
                                SBUF=table1;         //串口发送标志位,table1[]="si "
                                while(!TI);
                                TI=0;
                        }
        //        miso=1;//已经进库则清除标志
                }
               
        }
问题2:我想只有当按了路线1按钮后,并且rec=“si ”时,text1.text="是";当按了路线2按钮时,并且rec="si "时,text2.text="是"
怎么编程?以下是我的一个程序:
Private Sub Command1_Click()
MSComm1.OutBufferCount = 0
MSComm1.Output = Chr(&HC)
a = 1
'If rec = "si " Then
'Text1.Text = "是"
'End If
End Sub
友情提示: 此问题已得到解决,问题已经关闭,关闭后问题禁止继续编辑,回答。