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

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

车库上位机

unsigned char *r;
r = table1;                 
if(miso==0)
{
  while(*r ！= '\0')                  
  {
  SBUF=table1;         //串口发送标志位，table1[]="si "
  r++;  
}//ASCII编码,只要发送's'和'i'两个不能你那样循环。
while(！TI);
TI=0;
}

谢了。我都解决了。另外那个问题是由中断引起的。

以前没用过,用来控制自己的小车应该很方便.