vb串口通信程序

vb串口通信程序

#include 

#define c（x） （x*110592/120000）
  sbit Ir_Pin=P3^2;
	  sbit beep=P3^6;
#define INBUF_LEN 4 //数据长度
unsigned char inbuf1[INBUF_LEN]={‘0‘‘0‘‘0‘‘0‘};//发送缓冲区
unsigned char inbuf2[50];//接收缓冲区
unsigned char count3;
void init_serialcomm（ void ）
{
SCON = 0x50 ; //SCON: serail mode 1 8-bit UART enable ucvr
T2CON=0x30;
TH2=0x00;
TL2=0x00;
RCAP2H=0xFF;
RCAP2L=0xDC;
TR2=1;
}
//向串口发送一个字符
void send_char_com（ unsigned char ch）
{
SBUF=ch;
while （TI== 0 ）;
TI= 0 ;
}
//向串口发送一个字符串，strlen 为该字符串长度
void send_string_com（ unsigned char *str unsigned int strlen）
{
unsigned int k= 0 ;
do
{
send_char_com（*（str + k））;
k++;
} while （k < strlen）;
}
//串口接收中断函数
void serial （） interrupt 4 using 3
{
if （RI） //RI==开始接收
{
unsigned char ch;
RI = 0 ; //软件RI=0
ch=SBUF;
if （ch> 1 ）
{
count3= 0 ;
inbuf2[count3]=ch;
}
else
{
count3++;
inbuf2[count3]=ch;
}
}
}	 

    
      unsigned char code Led_Tab[]={0xC00xF90xA40xB00x990x920x82
      0xf80x800x900x880x830xC60xA10x860x8E};                        //共阳极数码显示码0-F.
      unsigned char code Led_Sel[]={0xef0xdf0xbf0x7f};
	  unsigned char dis_8[17]={‘0‘‘1‘‘2‘‘3‘‘4‘‘5‘‘6‘‘7‘‘8‘‘9‘‘A‘‘B‘‘C‘‘D‘‘E‘‘F‘‘-‘};

      unsigned char Led_Buf[4]; //显示缓冲区
      char Led_Index;                   //位选         

      unsigned char Ir_Buf[4]; //用于保存解码结果
		 void delay_50ms（unsigned int t）
{
 unsigned int j;   
 for（;t>0;t--） 
  for（j=6245;j>0;j--） 
{;}
}

      //==============================================================
      //数码管扫描
      timer0（） interrupt 1 using 1
      {
      TL0=65536-1000;
      TH0=（65536-1000）/256; //定时器0设定约1000us中断一次，用于数码管扫描
      //P0=0xff;
      P2=Led_Sel[Led_Index];                            //位选
      P0=Led_Tab[Led_Buf[Led_Index]];                    //段选

      if（++Led_Index>3） Led_Index=0;                    //四个扫描完了到第一个数码管
      }
      //==============================================================
      unsigned int Ir_Get_Low（）
      {
      TL1=0;
      TH1=0;
      TR1=1;
      while（!Ir_Pin && （TH1&0x80）==0）;                
      TR1=0;           
      return TH1*256+TL1;
      }
      //=============================================================
      unsigned int Ir_Get_High（）
      {
      TL1=0;
      TH1=0;
      TR1=1;
      while（Ir_Pin && （TH1&0x80）==0）;
      TR1=0;
      return TH1*256+TL1;
      }
      //==============================================================
      main（）
      {
      unsigned int temp;
      char ij;
      Led_Index=1;
	   init_serialcomm（）; //初始化串口
      TMOD=0x11;
      TL0=65536-1000;
      TH0=（65536-1000）/256; //定时器0设定约1000us中断一次，用于数码管扫描
      EA=1;
      ET0=1;
      TR0=1;

      Led_Buf[0]=0;
      Led_Buf[1]=0;
      Led_Buf[2]=0;
      Led_Buf[3]=0; //显示区设成0
      do{
      restart:
      while（Ir_Pin）;
      temp=Ir_Get_Low（）;
      if（tempc（9500）） contin

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----
     目录           0  2012-08-19 19:27  24-本站原创 VB遥控播放器红外遥控解码\
     目录           0  2012-08-19 19:27  24-本站原创 VB遥控播放器红外遥控解码\VB遥控音乐播放器上位机程序\
     文件      147728  1999-03-08 00:00  24-本站原创 VB遥控播放器红外遥控解码\VB遥控音乐播放器上位机程序\ASYCFILT.DLL
     文件       22288  1998-05-31 00:00  24-本站原创 VB遥控播放器红外遥控解码\VB遥控音乐播放器上位机程序\COMCAT.DLL
     文件       21880  2007-12-05 14:39  24-本站原创 VB遥控播放器红外遥控解码\VB遥控音乐播放器上位机程序\Form1.frm
     文件        2399  2007-12-05 14:39  24-本站原创 VB遥控播放器红外遥控解码\VB遥控音乐播放器上位机程序\Form1.frx
     文件       13857  2007-12-05 21:43  24-本站原创 VB遥控播放器红外遥控解码\VB遥控音乐播放器上位机程序\Form2.frm
     文件         932  2005-06-18 14:39  24-本站原创 VB遥控播放器红外遥控解码\VB遥控音乐播放器上位机程序\Form2.frx
     文件       69632  2007-11-30 21:24  24-本站原创 VB遥控播放器红外遥控解码\VB遥控音乐播放器上位机程序\HIFANSBROWSER.uzy
     文件        1070  2008-02-18 12:47  24-本站原创 VB遥控播放器红外遥控解码\VB遥控音乐播放器上位机程序\HIFANSBROWSER.vbp
     文件         102  2008-04-22 09:03  24-本站原创 VB遥控播放器红外遥控解码\VB遥控音乐播放器上位机程序\HIFANSBROWSER.vbw
     文件       12800  1998-07-07 00:00  24-本站原创 VB遥控播放器红外遥控解码\VB遥控音乐播放器上位机程序\MSCOMCHS.DLL
     文件      103744  1998-06-24 00:00  24-本站原创 VB遥控播放器红外遥控解码\VB遥控音乐播放器上位机程序\MSCOMM32.OCX
     文件         198  2005-06-18 13:15  24-本站原创 VB遥控播放器红外遥控解码\VB遥控音乐播放器上位机程序\MSSCCPRJ.SCC
     文件     1386496  2004-02-23 00:00  24-本站原创 VB遥控播放器红外遥控解码\VB遥控音乐播放器上位机程序\MSVBVM60.DLL
     文件      278581  2004-02-17 00:00  24-本站原创 VB遥控播放器红外遥控解码\VB遥控音乐播放器上位机程序\MSVCRT.DLL
     文件      598288  2000-04-12 00:00  24-本站原创 VB遥控播放器红外遥控解码\VB遥控音乐播放器上位机程序\OLEAUT32.DLL
     文件      164112  1999-03-08 00:00  24-本站原创 VB遥控播放器红外遥控解码\VB遥控音乐播放器上位机程序\OLEPRO32.DLL
     文件       77824  2007-12-05 21:43  24-本站原创 VB遥控播放器红外遥控解码\VB遥控音乐播放器上位机程序\RICHMCU IR Player.exe
     文件      102160  2000-10-02 00:00  24-本站原创 VB遥控播放器红外遥控解码\VB遥控音乐播放器上位机程序\VB6CHS.DLL
     文件      101888  2001-01-16 00:00  24-本站原创 VB遥控播放器红外遥控解码\VB遥控音乐播放器上位机程序\VB6STKIT.DLL
     文件         183  2007-12-02 22:00  24-本站原创 VB遥控播放器红外遥控解码\VB遥控音乐播放器上位机程序\hifans.ini
     文件      176167  2005-06-11 10:55  24-本站原创 VB遥控播放器红外遥控解码\VB遥控音乐播放器上位机程序\rmoc3260.dll
     文件       49152  2005-06-09 10:35  24-本站原创 VB遥控播放器红外遥控解码\VB遥控音乐播放器上位机程序\rmoc3260.oca
     文件       20480  2000-01-10 12:00  24-本站原创 VB遥控播放器红外遥控解码\VB遥控音乐播放器上位机程序\scrrnchs.dll
     文件      151552  2004-08-09 21:27  24-本站原创 VB遥控播放器红外遥控解码\VB遥控音乐播放器上位机程序\scrrun.dll
     文件       17920  1999-06-03 00:00  24-本站原创 VB遥控播放器红外遥控解码\VB遥控音乐播放器上位机程序\stdole2.tlb
     目录           0  2012-08-19 19:27  24-本站原创 VB遥控播放器红外遥控解码\VB遥控音乐播放器上位机程序\安装程序\
     文件     8298718  2007-12-06 22:35  24-本站原创 VB遥控播放器红外遥控解码\VB遥控音乐播放器上位机程序\安装程序\VB遥控播放器安装程序.exe
     文件        9781  2009-12-15 16:42  24-本站原创 VB遥控播放器红外遥控解码\s51yaokong
     文件       11861  2009-12-15 16:42  24-本站原创 VB遥控播放器红外遥控解码\s51yaokong.M51
............此处省略10个文件信息