可存储式电子琴

基于数码管的可存储式电子琴 南京邮电大学通达学院大四学长制作

//1602 可以显示英文字符和数字，两行，每行可以显示16个字符，第一行地址为0X80~0X9F
//第二行地址为 0XC0~0XDF

//可变调电子琴按下第十六个键实现升高伴音


//2^（1/6）=1.12246 
//2^（1/12）=1.05946 

#include

const a=2;

#define half_note  1.05946
#define note  1.12246
#define uchar unsigned char
#define uint  unsigned int

#define L5  1
#define L6  2
#define L7  3

#define Z1  4
#define Z2  5
#define Z3  6
#define Z4  7
#define Z5  8
#define Z6  9
#define Z7  10

#define G1  11
#define G2  12
#define G3  13
#define G4  14
#define G5  15
#define K   -1


unsigned char code sound1[]={

 G328G32G21G11G26G12Z62Z52Z624Z32Z22Z12L72L64
 L62L6204L64L64L62L6204L64
 L64Z34Z34Z34Z32Z22Z14Z2404
 Z26Z32Z24Z14Z22Z12L62L52L6404
 Z3

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----
     目录           0  2011-01-17 12:06  自动演奏 电子琴 1602\
     文件       92445  2010-03-06 10:15  自动演奏 电子琴 1602\Last Loaded 电子琴.DBK
     文件        6376  2010-03-07 23:40  自动演奏 电子琴 1602\STARTUP.A51
     文件       10743  2010-03-07 23:40  自动演奏 电子琴 1602\STARTUP.LST
     文件         750  2010-03-07 23:40  自动演奏 电子琴 1602\STARTUP.OBJ
     文件       19124  2010-03-07 23:40  自动演奏 电子琴 1602\电子琴
     文件        8141  2010-03-07 23:41  自动演奏 电子琴 1602\电子琴.c
     文件       92428  2010-03-07 21:11  自动演奏 电子琴 1602\电子琴.DSN
     文件        7751  2010-03-07 23:40  自动演奏 电子琴 1602\电子琴.hex
     文件          45  2010-03-07 23:40  自动演奏 电子琴 1602\电子琴.lnp
     文件       17502  2010-03-07 23:40  自动演奏 电子琴 1602\电子琴.LST
     文件       21871  2010-03-07 23:40  自动演奏 电子琴 1602\电子琴.M51
     文件       21249  2010-03-07 23:40  自动演奏 电子琴 1602\电子琴.OBJ
     文件        1247  2010-03-07 23:41  自动演奏 电子琴 1602\电子琴.Opt
     文件       12058  2010-03-07 23:41  自动演奏 电子琴 1602\电子琴.plg
     文件        1246  2011-01-17 12:06  自动演奏 电子琴 1602\电子琴.PWI
     文件        2152  2010-03-07 23:16  自动演奏 电子琴 1602\电子琴.Uv2
     文件        1247  2010-03-07 23:28  自动演奏 电子琴 1602\电子琴_Opt.Bak
     文件        2152  2010-03-07 22:09  自动演奏 电子琴 1602\电子琴_Uv2.Bak
     文件       16896  2010-03-07 21:11  自动演奏 电子琴 1602\音符计算公式.xls