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

罗斯

VB与51单片机通信若干问题
5 [' j2 _1 o8 G' P; `% @9 m
7 Q  S% F+ H( i* ^6 u
最近在搞一个车库上位机的，用VB编写。上位机界面如图：
- x3 v% n, p; Q( [3 K5 L5 i

问题1：当单片机P21脚检测到低电平时，通过串口，发送“si ”，在上位机对应位置显示“是”，表示车已经进库。
因为我的这道检测程序是放在while(1)里面的，单片机不断检测，当P21为0时，单片机不断发送“si ”，而上位机对应位置则
交替显示“是”和"否"（默认），而我只想要第一次接收到的“si ”，从而当P21=0时，只能显示"是"，怎么解决。以下是部分程序：
VB：Dim rec As String
/ L6 [  }* y: w' A# ^5 Y8 k1 FSelect Case MSComm1.CommEvent
( J6 R* p  g- r, }/ e' ECase comEvReceive
: t+ }/ S  W' o5 p- u) {rec = MSComm1.Input
% Q- M; g. A: o' _51： while(1)
( `  W1 i' S7 N$ j         {
                 if(miso==0)
                {
                        for(i=0;i<3;i++)
                        {
                                SBUF=table1;         //串口发送标志位，table1[]="si "
                                while(!ti);
* y3 v( n0 M6 m, p) j7 A) |. s                                TI=0;
                        }
        //        miso=1;//已经进库则清除标志
! h! Z0 v$ g9 ?* u3 n7 N: J                }
! C5 D8 J3 d# J& }: ^$ C               
6 m8 P2 c+ ^1 P7 ~: G        }
% d* n5 c) j" B问题2：我想只有当按了路线1按钮后，并且rec=“si ”时，text1.text="是"；当按了路线2按钮时，并且rec="si "时，text2.text="是"
怎么编程？以下是我的一个程序：
6 s4 i. ?+ @& R& qPrivate Sub Command1_Click()
MSComm1.OutBufferCount = 0
MSComm1.Output = Chr(&HC)
a = 1
% ]' {/ B) T6 E$ m/ I# f. ?9 Q1 J'If rec = "si " Then
'Text1.Text = "是"
- \. t& H8 D  ^; `- R* X% i'End If
4 b5 X8 |/ K9 ~* oEnd Sub
2 E+ R6 \( I5 B# }$ n8 l6 R" R; q

relchhiclty

unsigned char *r;
r = table1;                 
8 j2 d  E! ~; v) B, Tif(miso==0)
$ X& }4 D& d: k! _( F. A{
" ?- W3 Z% A9 r' H  while(*r != '\0')                  
  {
  SBUF=table1;         //串口发送标志位，table1[]="si "
  r++;  
}//ASCII编码,只要发送's'和'i'两个不能你那样循环。
6 Q% @7 }0 E0 m& ^7 Ewhile(!TI);
TI=0;
}