/*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