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

jili1986729

我自己用单片机做的电子琴，比较简单，用了一个功放，自己做了个矩阵键盘
单片机应该用892051，这里89c51，有点浪费

3 p5 d, D3 ^4 f5 B+ D" b程序：
# `3 ^" a! c; ~. C! dORG 00H
0 i; `" w3 ?. ^6 m: kAJMP START
ORG 001BH
# F9 I  f% i4 g& Q  Z4 xLJMP TIME1
6 J& s* A- x* m% n9 O$ OORG 30H
START:MOV TMOD,#10H
) c( o$ D% A% z- S+ B$ e- G      MOV IE,#88H
. W$ V4 O7 u7 @, K( N0 NKEY:SETB F0
+ X8 V1 C' m- ?; c    CLR EA
1 J  L, c# {! |$ R( t" NCLR TR1
    MOV P1,#0F0H
6 W$ m. Q, q9 l, m" OKEY1:MOV A,P1
  CPL A
/ ~' X$ S/ N& K7 _  ANL A,#0F0H
! D3 M3 x% x3 `$ a9 k8 m; g! q  JZ KEY
  CLR F0
1 h5 s5 l# |& _; x6 n$ WL1: LCALL SKEY
  CLR EA
8 U6 {. ?: |4 W+ j9 C) D0 p  CLR TR1
  JB F0,KEY
  U7 K4 L' R2 t' g3 V) E; y( q$ BMOV 22H,A
# h9 `* {7 O' z   ADD A,22H
   MOV R3,A
   MOV DPTR,#TABLE1
- B4 A5 ]* x! K0 X  a   MOVC A,@A+DPTR
   MOV TH1,A
   MOV 21H,A
   MOV A,R3
   INC A
   MOVC A,@A+DPTR
- N& T( V: c3 H* P, o5 E' R* I   MOV TL1,A
   MOV 20H,A
+ \3 y' U! d) P: q( h      SETB EA
/ U; h' m( Z1 a. B   SETB TR1
L2:CALL SKEY
+ |5 v! b+ B  h  L5 J1 O   SETB EA
   SETB TR1
5 ^. C* ~; S" A' |% d, w   JB F0,KEY
   LJMP L2
SKEY:MOV A,#00
     MOV R0,A
* I; ^8 A* A8 x' V) Z& p  MOV R1,A
  MOV R3,#0FEH
  }. j, j5 o) \$ B2 X/ XSKEY2:MOV A,R3
      MOV P1,A
   NOP
   NOP
, l) Y8 C4 G) R6 w, k' _% \   NOP
5 M/ s, f! r; F, X0 S   MOV A,P1
   MOV R1,A
  K8 X; r+ V4 f2 |7 p      CPL A
# \, z3 L1 {( q# L   ANL A,#0F0H
% c3 E* t5 a* iS123:JNZ SKEY3
  SETB F0
, d- K( k2 j1 G     INC R0
  SETB C
+ [: ~$ R" z6 N! ^, [  MOV A,R3
  RLC A
' \; m4 ~3 |! g, q9 \2 N8 n  MOV R3,A
  MOV A,R0
  CJNE A,#04H,SKEY2
8 p* H& k  {. [0 ]8 K* D# ZEKEY:RET
SKEY3:CLR F0
      MOV A,R1
      JNB ACC.4,SKEY5
   JNB ACC.5,SKEY6
1 O0 M  p% J& P- }$ x! R& L   JNB ACC.6,SKEY7
3 w8 N) X: E9 ?7 ?) }# I$ ~   JNB ACC.7,SKEY8
   AJMP EKEY
: ^2 v/ E. N/ E4 @* D7 q$ dSKEY5:MOV A,#00H
, K8 `+ I6 b( U4 [8 E" i      MOV R2,A
   AJMP DKEY
' g9 L+ H+ T& X/ }1 t( }SKEY6:MOV A,#01H
      MOV R2,A
   AJMP DKEY
SKEY7:MOV A,#02H
  Y  E- ?) h, h1 c     MOV R2,A
( E2 l" w; o  u& I" B/ t  AJMP DKEY
% Q- _# I& h+ _& M& k3 O* D0 `SKEY8:MOV A,#03H
& v) E! D& m/ {      MOV R2,A
- J7 n2 F4 s* B   AJMP DKEY
# r, d8 e3 B+ dDKEY:MOV A,R0
& B' }- O( H7 s- }; Q* p% W     ACALL DECODE
  AJMP EKEY
DECODE:MOV A,R0
       MOV B,#04H
    MUL AB
" c2 h; H4 u/ r' y    ADD A,R2
  ~  o6 i) Y6 U- ^2 l+ k% I    RET
TIME1:   PUSH ACC
      PUSH PSW
   CPL P2.4
   MOV TL1,20H
   MOV TH1,21H
   POP PSW
   POP ACC
   RETI
) K$ `; q: D" r% Z0 JTABLE1:  DW 64021,64103,64260,64400,64524,64580,64684,64777
       DW 64820,64898,64968,65030,65058,65110,65157,65178
END

syw开门造车

jili1986729 网友好！
.
0 @+ `  i1 a" E进入任何一门“陌生”的知识领域，选准正确的路径由为重要，会使你少走弯路。
.
汇编语言，是在计算机技术发展的过程中，由机器码走向高级语言的过程中的一个
8 L4 o. {( q: A( k% v( |1 N过渡语言，当出现了能做底层操作的高级语言的C语言后，汇编语言就应该从高校的
' {8 E- z: v3 `2 T, @  O) v% a教材中清除出去，以免浪费学生的精力，以提高学时的有效性。
.
我国高校教材的更新存在着滞后现象，做为学生应该学会取舍。
对此，我能给出如下建议：
8 y' Y1 q- @( z  V% s.
1、学单片机应该改用C语言，而抛弃汇编。
2、应该尽可能的设计出一套自己专用的万能板，以应对“所有的项目”。
3、一定要在画专业的PCB电路板方面下足功夫。
: ~: j" s3 I# f% s0 _4、……
# O9 s9 c% H! V: w" m' Y.
syw  091008---06.51

郑华

不错啊，我在学习！

FLEI200410

现在用C语言的比较多

卓信

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

jili1986729

恩，谢谢提醒。
' ]0 B) O6 ^" b因为在学校里学的是汇编。
现在正在学习C语言，感觉C有它的好处，但有时汇编语言也有优势

次元碎片

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

zjhioau

牛人

舟航

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

cc0579

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