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

罗斯

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


最近在搞一个车库上位机的，用VB编写。上位机界面如图：
  `# k# [. M& l/ s2 j7 b" j

问题1：当单片机P21脚检测到低电平时，通过串口，发送“si ”，在上位机对应位置显示“是”，表示车已经进库。
因为我的这道检测程序是放在while(1)里面的，单片机不断检测，当P21为0时，单片机不断发送“si ”，而上位机对应位置则
: @9 u; r% j# N9 J  X4 M交替显示“是”和"否"（默认），而我只想要第一次接收到的“si ”，从而当P21=0时，只能显示"是"，怎么解决。以下是部分程序：
VB：Dim rec As String
Select Case MSComm1.CommEvent
Case comEvReceive
! M: G' U9 r( l/ \rec = MSComm1.Input
" m7 x' }" d. m% d+ U3 [0 Y51： while(1)
& {4 V4 W# G7 ?8 V9 Q2 m2 ?         {
% l8 w6 ?7 e6 A( k  k9 E4 v                 if(miso==0)
& F2 [0 B5 U# O                {
                        for(i=0;i<3;i++)
1 L. z1 Y& P8 ]; Q                        {
                                SBUF=table1;         //串口发送标志位，table1[]="si "
                                while(!ti);
                                TI=0;
1 V7 P: y* Y- |- D6 ~# c# U) a" o                        }
        //        miso=1;//已经进库则清除标志
                }
               
        }
) y) s7 I4 w5 \7 S; L4 U问题2：我想只有当按了路线1按钮后，并且rec=“si ”时，text1.text="是"；当按了路线2按钮时，并且rec="si "时，text2.text="是"
  Y0 W% j( v/ N) b  b怎么编程？以下是我的一个程序：
Private Sub Command1_Click()
MSComm1.OutBufferCount = 0
) A+ C* k- F( aMSComm1.Output = Chr(&HC)
( D$ J! T' r8 N4 ~: h5 Xa = 1
'If rec = "si " Then
4 m2 l9 b' C8 K" D8 e'Text1.Text = "是"
1 v$ r# f8 y- ~4 L7 z/ d9 l+ R'End If
' C  b9 o4 l* f' ^0 f, GEnd Sub

relchhiclty

unsigned char *r;
+ r+ }: b1 |8 E/ ?5 Or = table1;                 
2 H+ ~, N8 r$ i  i3 N/ Mif(miso==0)
" Y0 c- a4 g, ]' G& ]" U. Z2 l{
  while(*r != '\0')                  
  {
  SBUF=table1;         //串口发送标志位，table1[]="si "
3 M4 J& S% r; L# g; }  r++;  
}//ASCII编码,只要发送's'和'i'两个不能你那样循环。
while(!TI);
6 |9 a+ L3 e7 K: z2 f+ Q2 tTI=0;
}