单片机发射摩尔斯电码

'摩斯码密码本 morse code '简介: '电报最早是由美国的摩尔斯在1844年发明的，故也被叫做摩尔斯电码。它由两种基本信号和不同的间隔时间组成：短促的点信号" ．"，读" 的 "（Di）；保持一定时间的长信号"—"，读"答 "（Da）。间隔时间：滴，1t；答,3t；滴答间,1t；字母间,3t；字间,5t。 ' '1、一点为一基本信号单位，一划的长度=3点的长度。 ' '2、在一个字母或数字内，各点、划之间的间隔应为两点的长度。 ' '3、字母（数字）与字母（数字）之间的间隔为7点的长度。 '

#include 
#include
#include
#define uint    unsigned int
#define uchar   unsigned char
//  11.0592MHZ晶振，波特率为 1200 0xD0 ；2400 0xE8 ；4800 0xf4  ； 9600	0xfa  ； 19200 0xFD	;
#define Com_kbs	0xfa  //9600KBS 
/* 与不断电下载 */
#define Self_Define_ISP_Download_Command 0x3D	

sfr IAP_CONTR=0xE7;	
/******************************************/
/* LED输出指示灯	*/
sbit LED=P1^0;
sbit BUZZER=P3^6;		 //蜂鸣器
void delay_ms（uint ms）
{
  uint i;    
  ms++;
  while（--ms）
   {
    i=199;    
    while（--i）;   //1ms
   }  
}
uchar htd（uchar a）
{
	 uchar bc;
	 b=a%10;
	 c=b;
	 a=a/10;
	 b=a%10;
	 c=c|b<<4;
	 return c;
}

void uart（void） interrupt 4  //把接收到的数据写入ucReceiveData（）
{			
   TI=0;
   RI=0;

	switch（SBUF）	//判断收到命令
	{
			 	/* 不断电下载程序 */
	case Self_Define_ISP_Download_Command  : 
	IAP_CONTR = 0x60;
/****** 测 试 通 信 **********
		关闭通信命令 Q		开始通信命令 S	
*/
	case ‘S‘:	SBUF=‘O‘;while（TI==0）;TI=0; 
						 SBUF=‘K‘;while（TI==0）;TI=0; break;
//指示灯命令 O _OPEN 	指示灯命令 C _CLOSE
		case ‘O‘:	LED=0; BUZZER=0;
			SBUF=‘O‘;while（TI==0）;TI=0;	 break;
		case ‘C‘:	LED=1;BUZZER=1;
			SBUF=SBUF;while（TI==0）;TI=0; break;
	default: TI=0; break;//这个为当SBUF取值为其他值时的结果（注意关键字为default）。
	}		
}	
void Com_STARA（void）
{    
 TMOD=0x20;           //定时器1--方式2 
/*  GATE C/T M1 M0 GATE C/T M1 M0
      0   0   1  0   0   0   0  0
      |   |   |  |   |   |   |  +----方式选择
  	  |   |   |  |   |   |   +-------方式选择
	  |   |   |  |   |   +-----------定时器0或计数器0选择位 清零时用作定时器功能 置位时用作计数器功能
	  |   |   |  |   +---------------置位时为门控位
	  |   |   |  +-------------------方式选择
	  |   |   +----------------------方式选择
	  |   +--------------------------定时器1或计数器1选择位	清零时用作定时器功能 置位时用作计数器功能
	  +------------------------------置位时为门控位*/
    IE=0x12;             //中断控制设置串口、T2开中断
/*  EA - ET2 ES ET1 EX1 ET0 EX0  
     0 0  0   1  0   0   1   0
     | |  |   |  |   |   |   +-------外部中断0 使能。 
     | |  |   |  |   |   +-----------定时器0 溢出中断使能。
	 | |  |   |  |   +---------------外部中断1 使能。
	 | |  |   |  +-------------------定时器1 溢出中断使能。
	 | |  |   +----------------------串口中断使能。
	 | |  +--------------------------定时器2 中断使能。
	 | +-----------------------------
	 +-------------------------------中断使能位：EA=1，允许中断服务；EA=0，禁能中断服务。*/
    PCON=0x80;           //电源控制
/*  SMOD SMODO - POF GF1 GF0 PD IDL 
      1    0   0  0   0   0   0  0
	  |    |   |  |   |   |   |  +---
	  |    |   |  |   |   |   +------
	  |    |   |  |   |   +----------
	  |    |   |  |   +--------------
	  |    |   |  +------------------
	  |    |   +---------------------
	  |    +-------------------------
	  +------------------------------*/
    SCON=0x50;           //方式1
/*  SM0/FE SM1 SM2 REN TB8 RB8 TI RI
       0    1   0   1   0   0   0  0
	   |    |   |   |   |   |   |  +-接收中断标志
	   |    |   |   |   |   |   +----发送中断标志
	   |    |   |   |   |   +--------模式2 和3 中接收的第9 位数据，在模式1 中（SM2 必须为0），RB8 是接收到的停止位。在模式0 中，RB8 未定义。
	   |    |   |   |   +------------模式2 和3 中将要发

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

     文件       8974  2016-07-23 15:07  vb工程\DispMores.bas

     文件       9325  2016-01-29 21:39  vb工程\frmAbout.frm

     文件        778  2016-01-29 21:39  vb工程\frmAbout.frx

     文件      22278  2016-07-23 15:07  vb工程\FrmMorseCode.frm

     文件          4  2016-07-23 15:07  vb工程\FrmMorseCode.frx

     文件      16248  2016-02-01 01:04  vb工程\FrmRS232Test.frm

     文件         18  2016-02-01 01:04  vb工程\FrmRS232Test.frx

     文件       2219  2016-07-28 19:03  vb工程\ModMSRS232.bas

     文件        195  2015-07-29 22:54  vb工程\MSSCCPRJ.SCC

     文件       2178  2016-07-28 19:05  vb工程\摩尔斯电码.vbp

     文件        230  2016-07-28 19:06  vb工程\摩尔斯电码.vbw

     文件       6376  2009-05-07 14:37  单片机\STARTUP.A51

     文件      15023  2016-07-28 18:55  单片机\STARTUP.LST

     文件        983  2016-07-28 18:55  单片机\STARTUP.OBJ

     文件       8154  2016-07-12 23:12  单片机\单片机发射摩尔斯电码

     文件       4234  2016-07-28 18:55  单片机\单片机发射摩尔斯电码.c

     文件        589  2016-07-12 23:12  单片机\单片机发射摩尔斯电码.hex

     文件         75  2016-07-12 23:12  单片机\单片机发射摩尔斯电码.lnp

     文件       7296  2016-07-28 18:55  单片机\单片机发射摩尔斯电码.LST

     文件      16918  2016-07-12 23:12  单片机\单片机发射摩尔斯电码.MAP

     文件       7195  2016-07-28 18:55  单片机\单片机发射摩尔斯电码.OBJ

     文件       3353  2016-07-28 18:55  单片机\单片机发射摩尔斯电码.plg

     文件       4157  2016-07-12 23:12  单片机\单片机发射摩尔斯电码.SBR

    .......     73114  2016-07-28 19:04  单片机\单片机发射摩尔斯电码.uvgui.MR.Huang

    .......      6337  2016-07-28 19:04  单片机\单片机发射摩尔斯电码.uvopt

    .......     13691  2016-07-28 19:04  单片机\单片机发射摩尔斯电码.uvproj

     文件       8154  2016-07-28 18:55  单片机\单片机发射摩尔斯电码str

     文件        589  2016-07-28 18:55  单片机\单片机发射摩尔斯电码str.hex

     文件         78  2016-07-28 18:55  单片机\单片机发射摩尔斯电码str.lnp

     文件      16638  2016-07-28 18:55  单片机\单片机发射摩尔斯电码str.MAP

............此处省略8个文件信息