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

jili1986729

" o; C: Q# }0 x
! J8 L4 i. `, o1 s" r我自己用单片机做的电子琴，比较简单，用了一个功放，自己做了个矩阵键盘
' K; o( D; \4 A, @6 y4 {, W# f单片机应该用892051，这里89c51，有点浪费
1 e( i! x  K0 E. J3 W6 @( r
' p/ F2 V/ j$ @5 a/ t* \( b程序：
  x* t$ `# y" t9 x4 \ORG 00H
AJMP START
ORG 001BH
5 u3 K( z% r! d& E# y, b% D( zLJMP TIME1
5 T8 i8 j- ^2 U6 h* ~' _ORG 30H
0 v9 p; i# W9 b5 S9 ~0 {+ ISTART:MOV TMOD,#10H
% w  n# c6 y, \+ G1 ~2 n5 k      MOV IE,#88H
! w& M8 H/ `% H( b: KKEY:SETB F0
7 J0 L' J; {: Z3 z8 Y8 P, ]2 @, U5 [    CLR EA
# U! |0 g9 R6 Q, s) J% F* ?" ]CLR TR1
3 Z3 E. x, r) W0 V% l' h    MOV P1,#0F0H
9 [3 [0 {1 }9 F2 h& I# |KEY1:MOV A,P1
  CPL A
) n0 [* e" G; H6 z, G8 V7 G  ANL A,#0F0H
  JZ KEY
  CLR F0
& N- [6 x4 j3 M+ _3 W; ?L1: LCALL SKEY
  CLR EA
  CLR TR1
  JB F0,KEY
MOV 22H,A
   ADD A,22H
   MOV R3,A
   MOV DPTR,#TABLE1
   MOVC A,@A+DPTR
; X# v6 t) R" @9 b   MOV TH1,A
6 g+ @3 l- Z" z5 o& V* J$ I   MOV 21H,A
! z: U' T7 t1 n' ~" F   MOV A,R3
3 t1 V- q* l' v5 h! g( @+ z/ R  I   INC A
   MOVC A,@A+DPTR
  p2 ~4 L2 m& H& n2 e; c7 ^   MOV TL1,A
   MOV 20H,A
5 j$ P% [. V9 T/ p* }$ ]9 _& H      SETB EA
   SETB TR1
: ~; l7 x  v7 d9 vL2:CALL SKEY
   SETB EA
   SETB TR1
   JB F0,KEY
   LJMP L2
0 D. h. _. Z2 o( kSKEY:MOV A,#00
* X1 H9 J' j3 ?0 B6 R- O: c1 K4 V     MOV R0,A
# Z7 _* l& U6 u  MOV R1,A
  MOV R3,#0FEH
, V/ l& d6 K2 }9 U1 N' A4 OSKEY2:MOV A,R3
      MOV P1,A
   NOP
   NOP
   NOP
   MOV A,P1
) X1 I) L8 j- N. T% @6 k   MOV R1,A
      CPL A
$ F- A- p3 U* O/ d) B   ANL A,#0F0H
4 M  A3 x6 W$ r: i, |, B4 e7 |S123:JNZ SKEY3
  l, O* s0 X" Q0 V3 x. v  SETB F0
# x& x, s( S" D! _. v9 L9 O6 _     INC R0
! f: ]* F  G) O9 n7 M  SETB C
/ m" j/ @3 L+ B( J  MOV A,R3
7 M" w6 u) l2 o/ P! ]* e" O( w  RLC A
  MOV R3,A
3 N9 X# b' w* _! \. b  MOV A,R0
! b3 A0 z3 ~7 R7 |+ A9 `% q8 V2 u  CJNE A,#04H,SKEY2
EKEY:RET
SKEY3:CLR F0
8 D! {6 m* ~! D( z; q      MOV A,R1
; R# F+ \1 a  ^  q' I& P5 u      JNB ACC.4,SKEY5
! J  _5 |. u  p5 p1 q1 |   JNB ACC.5,SKEY6
) }$ B8 k0 _9 U' \+ Y+ }3 S& P   JNB ACC.6,SKEY7
! e5 N5 \/ f4 R' R1 A2 v- ]   JNB ACC.7,SKEY8
   AJMP EKEY
; {7 D) L# v* M! W% W5 fSKEY5:MOV A,#00H
      MOV R2,A
7 h3 l, l$ l* _9 n4 `   AJMP DKEY
" Z# Z) j+ u  K. A1 c7 B' i8 vSKEY6:MOV A,#01H
      MOV R2,A
: d9 f6 j. ^  |: w1 B3 {/ D   AJMP DKEY
( T- ], |; a) v+ T5 _! mSKEY7:MOV A,#02H
     MOV R2,A
4 y9 A) J' k6 A  AJMP DKEY
SKEY8:MOV A,#03H
      MOV R2,A
   AJMP DKEY
1 X, k+ ^% B9 ^/ H8 V8 _+ MDKEY:MOV A,R0
     ACALL DECODE
  AJMP EKEY
DECODE:MOV A,R0
       MOV B,#04H
    MUL AB
    ADD A,R2
# F, p4 F  O$ W; W    RET
  C8 H/ C& b+ e- Q0 f* |TIME1:   PUSH ACC
. q1 ~5 k; T3 j      PUSH PSW
. Y/ k) ?3 }: X; Z  o  m8 v* H7 ~5 {   CPL P2.4
   MOV TL1,20H
) M4 [, {7 ^# c, Y   MOV TH1,21H
0 ]& A9 z) P0 s   POP PSW
! F" P) y- W9 H) f   POP ACC
   RETI
TABLE1:  DW 64021,64103,64260,64400,64524,64580,64684,64777
$ J  J  \, b( ^2 v0 g3 t" W, Y) U       DW 64820,64898,64968,65030,65058,65110,65157,65178
# \' f/ S: f5 R/ K  f/ W1 W8 bEND

syw开门造车

jili1986729 网友好！
" |3 Q: y  o: M.
& H$ G+ m" M" T进入任何一门“陌生”的知识领域，选准正确的路径由为重要，会使你少走弯路。
) H$ l2 l7 O) |% u! ]" `.
% p0 T( h5 J: h4 i1 y3 x5 |; C# p汇编语言，是在计算机技术发展的过程中，由机器码走向高级语言的过程中的一个
过渡语言，当出现了能做底层操作的高级语言的C语言后，汇编语言就应该从高校的
教材中清除出去，以免浪费学生的精力，以提高学时的有效性。
; j  c8 W. y4 m+ A# }! C.
我国高校教材的更新存在着滞后现象，做为学生应该学会取舍。
对此，我能给出如下建议：
# V* z) ]" Z5 @" J; _( U- I* Y.
  Z% @9 w1 k( D' G1、学单片机应该改用C语言，而抛弃汇编。
2、应该尽可能的设计出一套自己专用的万能板，以应对“所有的项目”。
3、一定要在画专业的PCB电路板方面下足功夫。
- V9 R+ W& h" E2 {! e$ L$ X4、……
. K  ?4 K5 G2 j" @.
syw  091008---06.51

郑华

不错啊，我在学习！

FLEI200410

现在用C语言的比较多

卓信

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

jili1986729

恩，谢谢提醒。
7 _3 B7 x( N9 W# d因为在学校里学的是汇编。
6 y* I. [4 r: W- \, T现在正在学习C语言，感觉C有它的好处，但有时汇编语言也有优势

次元碎片

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

zjhioau

牛人

舟航

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

cc0579

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