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

jili1986729

# o- E6 }' O9 r0 R4 C
我自己用单片机做的电子琴，比较简单，用了一个功放，自己做了个矩阵键盘
单片机应该用892051，这里89c51，有点浪费
6 J" y2 L- G; ?" T: W
程序：
ORG 00H
AJMP START
ORG 001BH
LJMP TIME1
. g" X9 N: \5 P& e# a$ SORG 30H
START:MOV TMOD,#10H
4 l: R3 D  h+ w! g0 T! q( V      MOV IE,#88H
) F( G0 w8 Z! K% b$ \% cKEY:SETB F0
    CLR EA
$ ]/ I& e  H+ Z9 Y; z7 S2 aCLR TR1
    MOV P1,#0F0H
, p" I& E( Q+ I( Z, cKEY1:MOV A,P1
  CPL A
* d9 o7 l; K; k8 M1 A9 }7 R  ANL A,#0F0H
  JZ KEY
  CLR F0
+ V4 T* F7 f3 y" H" t  N# o" ZL1: LCALL SKEY
6 P7 u3 H/ Q$ J4 M# P  CLR EA
" M9 }0 I1 n. a5 Y9 @: R  CLR TR1
: W, Z% f: @; h' i  JB F0,KEY
( U* S/ E0 ?8 j8 q8 B$ H  w+ w4 TMOV 22H,A
   ADD A,22H
5 l8 v  I8 m9 u. [$ T$ b5 b& t   MOV R3,A
; x5 ]) r4 g( P1 {   MOV DPTR,#TABLE1
* B1 F7 g% j) R   MOVC A,@A+DPTR
( d+ B" `/ W3 x" q! }3 l  g   MOV TH1,A
   MOV 21H,A
9 d* T" G$ H+ A3 ?+ g9 f: b   MOV A,R3
1 ]9 U! r) `# a, y! t6 F   INC A
   MOVC A,@A+DPTR
   MOV TL1,A
   MOV 20H,A
, h% d& s2 Y2 d& z. d! W      SETB EA
& t, ]& \% x0 q- H+ q   SETB TR1
L2:CALL SKEY
# ^, U8 y5 ^! @# X4 q   SETB EA
   SETB TR1
* F6 l% e3 K9 W2 M   JB F0,KEY
5 p0 k2 B) I4 h. b2 e   LJMP L2
, J2 v  Z, t1 h) s. zSKEY:MOV A,#00
     MOV R0,A
  MOV R1,A
  MOV R3,#0FEH
. c( Q9 g/ o: ASKEY2:MOV A,R3
      MOV P1,A
1 f% S% v/ U; S% _   NOP
/ E' B- |7 E4 F  {/ }# t   NOP
4 f3 X; G8 \9 Z8 A% ?5 p; N   NOP
; u7 C7 \# i1 g$ d2 B& U3 i   MOV A,P1
   MOV R1,A
      CPL A
* e3 L  H4 t1 r: c( U   ANL A,#0F0H
: H; s; V5 E# `  KS123:JNZ SKEY3
  SETB F0
8 }; B7 {7 ], W- Z     INC R0
  SETB C
  MOV A,R3
  RLC A
  MOV R3,A
  MOV A,R0
  CJNE A,#04H,SKEY2
EKEY:RET
. c" ^# E4 U* U# @SKEY3:CLR F0
      MOV A,R1
      JNB ACC.4,SKEY5
   JNB ACC.5,SKEY6
   JNB ACC.6,SKEY7
6 W, {: x; c$ P2 d# T: y   JNB ACC.7,SKEY8
0 m" e" \2 q: Q, I8 x8 A   AJMP EKEY
SKEY5:MOV A,#00H
3 [" `) ?) k! _) e, p      MOV R2,A
   AJMP DKEY
5 z1 m" J3 s7 @! l0 U. BSKEY6:MOV A,#01H
' l& F: J  ]0 ]8 b4 k      MOV R2,A
   AJMP DKEY
) v7 E+ c+ R# w" N1 r5 E, CSKEY7:MOV A,#02H
     MOV R2,A
  AJMP DKEY
SKEY8:MOV A,#03H
4 D+ B" p: Z2 M8 C      MOV R2,A
+ A# W$ g1 J" Z3 f   AJMP DKEY
DKEY:MOV A,R0
6 j/ Y8 c8 C# W' Y8 \$ C( @     ACALL DECODE
  AJMP EKEY
# c! z! p- ~& U+ c, G- I, ?5 _DECODE:MOV A,R0
       MOV B,#04H
, r1 ]- a& e, J  T    MUL AB
# a( a; L5 B' z- x    ADD A,R2
4 ^5 w: W5 S- {7 U2 o! z) R3 C    RET
, g4 `5 @9 r# f; t& WTIME1:   PUSH ACC
3 K, q! A8 ?. Y0 ?      PUSH PSW
" x/ y& W* W9 c0 a+ d   CPL P2.4
2 [9 |% w( K+ {. ]# Y4 N3 p* c   MOV TL1,20H
0 v" \+ Y3 S3 U& }% }   MOV TH1,21H
7 p0 A! f+ I7 m& t+ T   POP PSW
   POP ACC
   RETI
9 s" ^' P8 |2 E' m4 V1 j. @TABLE1:  DW 64021,64103,64260,64400,64524,64580,64684,64777
       DW 64820,64898,64968,65030,65058,65110,65157,65178
  C: k/ Q" v: q6 z! qEND

syw开门造车

jili1986729 网友好！
1 m5 `; j6 A1 K.
  u6 c4 x# h/ c( F1 B( C% E进入任何一门“陌生”的知识领域，选准正确的路径由为重要，会使你少走弯路。
" E* |7 Z2 ]6 A* U7 R; b; ]1 g.
汇编语言，是在计算机技术发展的过程中，由机器码走向高级语言的过程中的一个
! B! Y8 N/ z! C# a' D过渡语言，当出现了能做底层操作的高级语言的C语言后，汇编语言就应该从高校的
教材中清除出去，以免浪费学生的精力，以提高学时的有效性。
; C$ F' [7 a' p' b6 \, Y.
我国高校教材的更新存在着滞后现象，做为学生应该学会取舍。
对此，我能给出如下建议：
: z9 U0 E  h$ x+ |0 @" e, o.
1、学单片机应该改用C语言，而抛弃汇编。
2、应该尽可能的设计出一套自己专用的万能板，以应对“所有的项目”。
, X# }8 {# J9 E8 U( ?3、一定要在画专业的PCB电路板方面下足功夫。
% N; F; O) [2 Z7 R4、……
! S8 c: p5 ^1 g8 L0 ?.
2 m5 d* `! [- J# [- csyw  091008---06.51

郑华

不错啊，我在学习！

FLEI200410

现在用C语言的比较多

卓信

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

jili1986729

恩，谢谢提醒。
  p' u  e6 P9 G7 ^9 o" a因为在学校里学的是汇编。
% D) e; a, h; S现在正在学习C语言，感觉C有它的好处，但有时汇编语言也有优势

次元碎片

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

zjhioau

牛人

舟航

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

cc0579

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