VB串口通信：PC机与51单片机串口通信

VB串口通信实例：PC机与51单片机串口通信，适合初学者学习上位机与下位机通讯使用。

/*PC机通过串行口将数字（1，2，3...255）传给单片机，单片机收到后回传这个数字，
并存入自己内部一段连续的空间中，PC机接收到回传数据后显示出来，直至传送完结束符255*/
# pragma db code
# include
# define uchar unsigned char
void rece（void）;
void init（void）;
uchar re[17];
/*主程序*/
void main（void）
{ 
uchar temp;
init（）;
do{
   while（RI==0）;
   temp=SBUF;
   if（temp==0x00）
    {rece（）;}
   else break; 
  }while（1）;	
}
/*串口初始化*/
void init（void）
{
TMOD=0x20;           //定时器1--方式2 
PCON=0x00;           //电源控制
SCON=0x50;           //方式1
TL1=0xfd;             
TH1=0xfd;            //22.1184MHZ晶振，波特率为4800 0xf3   9600	0xfa   19200 0xfd 
TR1=1;               //启动定时
}
/*接收返回数据*/
void rece（void）
{
char i;
i=0;
do{while（RI==0）;
  P0=re[i]=SBUF;
  RI=0;
  SBUF=re[i];
  while（TI==0）;
  TI=0;
  i++; 
  }while（re[i-1]!=255）;
}

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----

     文件       6241  2008-04-13 13:14  19、VB串口通信实例：PC机与51单片机串口通信\Form1.frm

     文件        190  2007-12-14 21:59  19、VB串口通信实例：PC机与51单片机串口通信\MSSCCPRJ.SCC

     文件       1418  2011-03-26 21:27  19、VB串口通信实例：PC机与51单片机串口通信\单片机程序\pccom

     文件        904  2011-03-21 21:18  19、VB串口通信实例：PC机与51单片机串口通信\单片机程序\pccom.c

     文件        317  2011-03-26 21:27  19、VB串口通信实例：PC机与51单片机串口通信\单片机程序\pccom.hex

     文件         65  2011-03-26 21:27  19、VB串口通信实例：PC机与51单片机串口通信\单片机程序\pccom.lnp

     文件       6648  2011-03-26 21:27  19、VB串口通信实例：PC机与51单片机串口通信\单片机程序\pccom.LST

     文件       6372  2011-03-26 21:27  19、VB串口通信实例：PC机与51单片机串口通信\单片机程序\pccom.M51

     文件       1627  2011-03-26 21:27  19、VB串口通信实例：PC机与51单片机串口通信\单片机程序\pccom.OBJ

     文件        957  2011-03-25 00:19  19、VB串口通信实例：PC机与51单片机串口通信\单片机程序\pccom.Opt

     文件        122  2011-03-26 21:27  19、VB串口通信实例：PC机与51单片机串口通信\单片机程序\pccom.plg

     文件       1654  2011-03-21 20:36  19、VB串口通信实例：PC机与51单片机串口通信\单片机程序\pccom.Uv2

     文件        955  2011-03-24 11:55  19、VB串口通信实例：PC机与51单片机串口通信\单片机程序\pccom_Opt.Bak

     文件       1649  2007-10-07 15:58  19、VB串口通信实例：PC机与51单片机串口通信\单片机程序\pccom_Uv2.Bak

     文件      28672  2011-03-21 20:24  19、VB串口通信实例：PC机与51单片机串口通信\工程1.exe

     文件        781  2008-04-13 13:14  19、VB串口通信实例：PC机与51单片机串口通信\工程1.vbp

     文件         53  2011-03-25 00:19  19、VB串口通信实例：PC机与51单片机串口通信\工程1.vbw

     文件        201  2011-03-25 00:22  19、VB串口通信实例：PC机与51单片机串口通信\说明.txt

     目录          0  2011-04-12 22:14  19、VB串口通信实例：PC机与51单片机串口通信\单片机程序

     目录          0  2011-04-12 22:14  19、VB串口通信实例：PC机与51单片机串口通信

----------- ---------  ---------- -----  ----

                58826                    20