我自己用单片机做的电子琴

jili1986729

' s- ?/ X2 T7 b: n) P" Z5 C
我自己用单片机做的电子琴，比较简单，用了一个功放，自己做了个矩阵键盘
4 C) Z* [% k9 k9 G" J; y单片机应该用892051，这里89c51，有点浪费
0 F: u8 `* j0 V7 \3 s" C
; {; |8 X: \3 y$ U程序：
ORG 00H
AJMP START
6 K( S7 o& b% GORG 001BH
% s/ [- E2 M! h: wLJMP TIME1
ORG 30H
START:MOV TMOD,#10H
      MOV IE,#88H
/ q% L2 l; ~3 n# {# |KEY:SETB F0
6 O6 ~" @4 M5 {% p    CLR EA
# g  U0 E! n( `8 n3 h) QCLR TR1
    MOV P1,#0F0H
KEY1:MOV A,P1
  CPL A
  ANL A,#0F0H
  JZ KEY
% I1 G% t* Q) }3 w' b, y  CLR F0
1 N0 g1 e1 P9 b) w. B, B7 j8 UL1: LCALL SKEY
, }9 r# N3 {+ c1 q, D  CLR EA
  CLR TR1
  JB F0,KEY
- H& d2 d7 ^) UMOV 22H,A
1 {' M; k* ^8 \' f8 _0 k$ _   ADD A,22H
0 b% W: x; y' h2 \. ^9 [) m& x   MOV R3,A
' I: _1 [+ h1 Y! z. u   MOV DPTR,#TABLE1
   MOVC A,@A+DPTR
   MOV TH1,A
   MOV 21H,A
   MOV A,R3
   INC A
( s% p0 |( B/ A# _; h) t( g& }% N/ ]0 x   MOVC A,@A+DPTR
8 q( G! ?: g. _8 ]. o7 c   MOV TL1,A
- u5 O- v6 j% t8 f   MOV 20H,A
      SETB EA
( o  H7 |' e* y, D   SETB TR1
+ j9 u' j, }, l4 q4 \L2:CALL SKEY
( o" ^( t  P$ b2 J* Q. j   SETB EA
( a$ Q& w9 P/ F  Q   SETB TR1
   JB F0,KEY
   LJMP L2
1 N+ x% A) f8 W( O: S+ P5 y; VSKEY:MOV A,#00
     MOV R0,A
. U1 q+ J4 N+ Y) |  MOV R1,A
  MOV R3,#0FEH
8 X$ I( n0 S0 n4 Y6 ~; xSKEY2:MOV A,R3
      MOV P1,A
   NOP
' s& Q7 Z  i, ^5 `" H   NOP
# j2 Z4 v  y) B$ a5 M9 C4 _   NOP
, w; {* m5 e. m  `   MOV A,P1
   MOV R1,A
: k" F- _8 [/ u      CPL A
; b# ]3 @4 I- [3 ^" _) P) S   ANL A,#0F0H
+ I# w" e9 @2 H" s9 k2 b% vS123:JNZ SKEY3
- V% n% F! P3 `- H  SETB F0
     INC R0
3 e- d5 R8 V& ~  SETB C
  MOV A,R3
  RLC A
7 m) l/ A; K: p8 ~+ h  MOV R3,A
  MOV A,R0
  CJNE A,#04H,SKEY2
EKEY:RET
+ i( }6 ^5 N9 @; I8 `SKEY3:CLR F0
1 C& j6 t2 Z7 M6 A( W      MOV A,R1
; l$ N6 Q/ }  v3 ?8 I# T. G: s      JNB ACC.4,SKEY5
   JNB ACC.5,SKEY6
   JNB ACC.6,SKEY7
   JNB ACC.7,SKEY8
: P6 A; ]" M9 S9 y+ G9 C1 v% _/ h   AJMP EKEY
) ~1 X* I% B3 R6 o7 H3 E" jSKEY5:MOV A,#00H
      MOV R2,A
5 O/ I4 o5 _3 r8 ?  t0 F3 b   AJMP DKEY
SKEY6:MOV A,#01H
' B+ @: D* i3 w) J: S  z      MOV R2,A
   AJMP DKEY
2 j5 M4 F& @- Q, V% p9 _SKEY7:MOV A,#02H
- W$ p, D3 m' \( |     MOV R2,A
  AJMP DKEY
SKEY8:MOV A,#03H
      MOV R2,A
% }4 x$ d; C" y+ B5 i+ T   AJMP DKEY
9 C$ \& N, D; o# G( I/ ~DKEY:MOV A,R0
+ @% x! S+ x& v7 Y     ACALL DECODE
  AJMP EKEY
DECODE:MOV A,R0
0 i0 m7 k) E( H! X       MOV B,#04H
    MUL AB
    ADD A,R2
- U/ ]9 @4 r, ~+ t    RET
TIME1:   PUSH ACC
" K& I$ t. }  d% ]      PUSH PSW
   CPL P2.4
" m* x9 _4 o" }+ h2 I* Y8 ?   MOV TL1,20H
' N8 r* P2 V: O: P* W   MOV TH1,21H
   POP PSW
   POP ACC
   RETI
TABLE1:  DW 64021,64103,64260,64400,64524,64580,64684,64777
3 I) E  Q+ c; y' O6 M: p       DW 64820,64898,64968,65030,65058,65110,65157,65178
END

syw开门造车

jili1986729 网友好！
! t( F7 r5 i9 u. l' |.
进入任何一门“陌生”的知识领域，选准正确的路径由为重要，会使你少走弯路。
. j( Y$ o# Y2 K3 p4 D  [: j, t; `# l.
汇编语言，是在计算机技术发展的过程中，由机器码走向高级语言的过程中的一个
过渡语言，当出现了能做底层操作的高级语言的C语言后，汇编语言就应该从高校的
教材中清除出去，以免浪费学生的精力，以提高学时的有效性。
.
我国高校教材的更新存在着滞后现象，做为学生应该学会取舍。
对此，我能给出如下建议：
.
* o0 t8 n% E, k8 p4 F. Z2 [# e( p1、学单片机应该改用C语言，而抛弃汇编。
2、应该尽可能的设计出一套自己专用的万能板，以应对“所有的项目”。
% x, h2 i2 \& X5 W) K. N3、一定要在画专业的PCB电路板方面下足功夫。
4、……
.
syw  091008---06.51

郑华

不错啊，我在学习！

FLEI200410

现在用C语言的比较多

卓信

嗯 不错 其实不应该叫电子琴  这个离电子琴远啦  不过能自己动手做东西还是很好的

jili1986729

恩，谢谢提醒。
3 F. J! b! \# u因为在学校里学的是汇编。
. g# {5 |. ^2 G" H现在正在学习C语言，感觉C有它的好处，但有时汇编语言也有优势

次元碎片

造车总工
现在的C语言支持底层编程，能大体说说优势吗？我有10多年没用过汇编了，记得96年用C编了段程序，用工具转换成低汇编，程序量太大了，而直接用汇编编程，短短的几行就可以，不知道现在支持底层编程的C这方面改进的怎么样了，多年没接触单片机，以为大家还都在用汇编呢

zjhioau

牛人

舟航

在学校时摸索的用用也挺好

cc0579

对于很多低端的单片机，还是用汇编比较多，因为考虑到汇编可以更加精简，可以节省很多程序空间，这对于低成本的单片机来说尤为重要。原因很简单，你如果程序量太大，就只好选用程序空间更多，也更贵的单片机来做。像义隆，中翰等单片机都是用汇编的多。
不过，现在的趋势上，单片机的程序空间越来越大 ，成本越来越低，用C成为了大势所趋。