我自己用單片機做的電子琴

jili1986729

/ G0 s& E% m7 u$ ?9 O) J7 k5 r我自己用單片機做的電子琴，比較簡單,，用了一個功放,，自己做了個矩陣鍵盤
單片機應(yīng)該用892051，這里89c51,，有點浪費
3 R0 z) e* ~( `. p3 P2 F" |
1 N# u) Z. G3 Q; Q( P3 h6 Q( j程序：
ORG 00H
AJMP START
ORG 001BH
LJMP TIME1
4 H- x9 w8 s5 h, B. B2 W1 f6 pORG 30H
! N# i: e2 v0 x. n, S6 `START:MOV TMOD,#10H
      MOV IE,#88H
KEY:SETB F0
    CLR EA
9 x$ |% S0 F; D6 ?# dCLR TR1
7 ?+ k" v- L) V0 r9 X% Z; \( M    MOV P1,#0F0H
& \3 \/ H# M; N. i+ Y# i7 b3 `KEY1:MOV A,P1
: b2 z! u- Q8 K$ i  CPL A
  ANL A,#0F0H
  JZ KEY
; s, C5 h) l% I: Z& r+ n  CLR F0
L1: LCALL SKEY
  CLR EA
! A9 g3 D' v3 Z5 f. s6 R  CLR TR1
  JB F0,KEY
MOV 22H,A
   ADD A,22H
0 ?$ S2 D5 v: t7 }# t   MOV R3,A
   MOV DPTR,#TABLE1
7 _) D5 N2 L, a- a" O1 a! n   MOVC A,@A+DPTR
   MOV TH1,A
   MOV 21H,A
   MOV A,R3
   INC A
. k( e: ]4 ?$ c6 Q/ u3 a   MOVC A,@A+DPTR
   MOV TL1,A
5 C  Y/ {  p& I& [4 i  Q   MOV 20H,A
      SETB EA
   SETB TR1
L2:CALL SKEY
3 w1 p2 Z" C- t1 t   SETB EA
' _9 R/ L' L  K   SETB TR1
   JB F0,KEY
7 \$ J* p7 V' h  B# l0 i1 Y$ n   LJMP L2
SKEY:MOV A,#00
0 _9 Y, `4 s% y     MOV R0,A
  MOV R1,A
; D, l) ?( e8 Z0 ?& q5 X  MOV R3,#0FEH
2 h- U% P. X4 K% lSKEY2:MOV A,R3
' J# Z! V; a/ \      MOV P1,A
' D$ y3 R4 w) Y! I. i   NOP
( V. F' W# A5 J, Z' o   NOP
   NOP
   MOV A,P1
3 U" \6 O1 n7 b+ j   MOV R1,A
/ C8 R+ G8 K/ P6 L      CPL A
   ANL A,#0F0H
S123:JNZ SKEY3
  SETB F0
     INC R0
  SETB C
  MOV A,R3
  RLC A
  MOV R3,A
  MOV A,R0
$ z6 Q( W- j3 P$ C( [  CJNE A,#04H,SKEY2
- b0 g) j+ t; t' @/ r& [( GEKEY:RET
% ?+ K: D& A0 p' \- T% L3 tSKEY3:CLR F0
' `, C  u! l! B+ M1 Q8 E( J- Z      MOV A,R1
      JNB ACC.4,SKEY5
1 s5 b+ h5 D3 \7 f   JNB ACC.5,SKEY6
   JNB ACC.6,SKEY7
   JNB ACC.7,SKEY8
   AJMP EKEY
- n$ O# o" k0 g1 b0 e  J$ dSKEY5:MOV A,#00H
9 H: U, p* l$ n  H2 m4 U      MOV R2,A
   AJMP DKEY
+ v4 c9 e& A9 cSKEY6:MOV A,#01H
$ A% c/ `/ X: Q& \+ T0 W( D% o) |      MOV R2,A
   AJMP DKEY
SKEY7:MOV A,#02H
" y% w1 a% R$ f% I- K3 S     MOV R2,A
  AJMP DKEY
& A1 d7 J3 A$ ?0 n0 M, LSKEY8:MOV A,#03H
' p/ T! B, s. [' S% o. a3 \      MOV R2,A
   AJMP DKEY
: a' {; [3 G6 O- Z( U& {& wDKEY:MOV A,R0
     ACALL DECODE
  AJMP EKEY
" m" Z; C' {1 I$ j. Z& L- pDECODE:MOV A,R0
. a" W& P4 q: s0 I! d       MOV B,#04H
    MUL AB
7 @$ G8 M0 @$ k6 ~    ADD A,R2
/ w& E# q. h) b) F: v) j3 J    RET
TIME1:   PUSH ACC
      PUSH PSW
   CPL P2.4
   MOV TL1,20H
5 Q* }9 T. F% ?   MOV TH1,21H
   POP PSW
$ \+ N8 A4 h4 z6 R   POP ACC
6 B0 Y+ f" c0 h) ^% f  a   RETI
9 o2 q  V; h) t7 ]) I( a+ f  YTABLE1:  DW 64021,64103,64260,64400,64524,64580,64684,64777
: q8 F0 ]1 [  }$ \8 ^9 l       DW 64820,64898,64968,65030,65058,65110,65157,65178
9 n1 K9 j/ E2 v6 eEND

syw開門造車

jili1986729 網(wǎng)友好,！
.
' ]$ _9 x% e6 K; b$ J2 p. |進入任何一門“陌生”的知識領(lǐng)域,，選準正確的路徑由為重要，會使你少走彎路,。
9 F) k3 H/ d7 K6 F$ v.
* d6 j) V- `  r2 {, e匯編語言,，是在計算機技術(shù)發(fā)展的過程中，由機器碼走向高級語言的過程中的一個
過渡語言,，當出現(xiàn)了能做底層操作的高級語言的C語言后,，匯編語言就應(yīng)該從高校的
教材中清除出去，以免浪費學生的精力,，以提高學時的有效性,。
.
我國高校教材的更新存在著滯后現(xiàn)象，做為學生應(yīng)該學會取舍,。
7 f# X$ Z' H! D+ z對此,，我能給出如下建議：
( z. T0 `0 C1 u: z) j.
1、學單片機應(yīng)該改用C語言，而拋棄匯編,。
2 i0 _" d  Z! q. }+ r& x' i2,、應(yīng)該盡可能的設(shè)計出一套自己專用的萬能板，以應(yīng)對“所有的項目”,。
3,、一定要在畫專業(yè)的PCB電路板方面下足功夫。
, L' [* v$ p5 f: H6 b4 u4,、……
.
; U9 A- |  M. ]9 x; G7 ^syw  091008---06.51

鄭華

不錯啊,，我在學習！

FLEI200410

現(xiàn)在用C語言的比較多

卓信

嗯 不錯 其實不應(yīng)該叫電子琴  這個離電子琴遠啦  不過能自己動手做東西還是很好的

jili1986729

恩,，謝謝提醒,。
# C; H& J* q0 e; A% `- v7 Y& B因為在學校里學的是匯編。
現(xiàn)在正在學習C語言,，感覺C有它的好處,，但有時匯編語言也有優(yōu)勢

次元碎片

造車總工
- [6 |: u" F! b* s& B& u: o  m現(xiàn)在的C語言支持底層編程，能大體說說優(yōu)勢嗎,？我有10多年沒用過匯編了,，記得96年用C編了段程序，用工具轉(zhuǎn)換成低匯編,，程序量太大了,，而直接用匯編編程，短短的幾行就可以,，不知道現(xiàn)在支持底層編程的C這方面改進的怎么樣了,，多年沒接觸單片機，以為大家還都在用匯編呢

zjhioau

牛人

舟航

在學校時摸索的用用也挺好

cc0579

對于很多低端的單片機,，還是用匯編比較多,，因為考慮到匯編可以更加精簡，可以節(jié)省很多程序空間,，這對于低成本的單片機來說尤為重要,。原因很簡單，你如果程序量太大,，就只好選用程序空間更多,，也更貴的單片機來做。像義隆,，中翰等單片機都是用匯編的多,。
不過，現(xiàn)在的趨勢上,，單片機的程序空間越來越大 ,，成本越來越低，用C成為了大勢所趨。