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

本帖最后由 好运星 于 2014-2-6 12:14 编辑

最近在搞一个车库上位机的，用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