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

jili1986729

  i8 G4 u( F" E. X* K; s$ }5 b$ a我自己用單片機做的電子琴，比較簡單，用了一個功放，自己做了個矩陣鍵盤
單片機應(yīng)該用892051，這里89c51，有點浪費
# j6 _7 Z7 V" y
程序：
ORG 00H
. F0 g+ {: ]+ _! D! i* ]$ s8 b+ r& mAJMP START
ORG 001BH
LJMP TIME1
ORG 30H
* q" H3 A* T7 sSTART:MOV TMOD,#10H
      MOV IE,#88H
KEY:SETB F0
    CLR EA
1 z5 N1 \! A* }# X/ Y/ a4 qCLR TR1
    MOV P1,#0F0H
' R8 R' x  n! N& f/ V  a+ q! IKEY1:MOV A,P1
  CPL A
  ANL A,#0F0H
  JZ KEY
  CLR F0
/ R+ _: @5 o- Q. v8 ?L1: LCALL SKEY
  CLR EA
1 N  |9 h* _. Z- {2 n  CLR TR1
& T7 g* G6 v" ~$ v  JB F0,KEY
MOV 22H,A
# P+ |% A+ q, n% u$ t) z   ADD A,22H
" ?. s& r1 T  U! W8 d   MOV R3,A
   MOV DPTR,#TABLE1
8 y8 x7 k7 _  C/ t8 ~   MOVC A,@A+DPTR
   MOV TH1,A
' g/ i( L9 M6 b8 I1 ?2 L% m5 z   MOV 21H,A
" ^; l2 h# ?0 U9 a/ S   MOV A,R3
/ f) `' `; P2 b6 F1 c! \   INC A
8 H3 t# g' r2 o) ]( j$ X   MOVC A,@A+DPTR
+ S6 z9 ?- a' W7 @! {( u   MOV TL1,A
" S5 g; Y- ^% d0 ?# L: W' s* t   MOV 20H,A
1 X. ?. j& `; {, d      SETB EA
5 j( p0 {" \. ?( d- y, D! h- j5 _   SETB TR1
1 c! x( Q: g( u1 y! ?! r3 H1 DL2:CALL SKEY
5 l$ L" \5 m5 t2 |: ~0 H2 I/ H) ]+ F   SETB EA
9 N$ q/ A( V; ~9 z* U   SETB TR1
   JB F0,KEY
   LJMP L2
SKEY:MOV A,#00
. [$ b& u7 ^7 a6 F/ A" X     MOV R0,A
  MOV R1,A
  MOV R3,#0FEH
, p( c: p* C) b' I8 x! sSKEY2:MOV A,R3
+ p- O5 b, C' G9 X5 w3 M5 {; R9 r' t      MOV P1,A
   NOP
5 `0 M+ i6 @4 [+ f  l3 A   NOP
0 k" ]( c" N" S$ l   NOP
   MOV A,P1
9 g6 C. q( l# r% f! h% V   MOV R1,A
      CPL A
/ }5 e9 X  R5 ]9 A8 y   ANL A,#0F0H
' B: Y% t- t" ^5 g# @- i# eS123:JNZ SKEY3
  SETB F0
     INC R0
* ?! P$ i) g6 n  g3 |/ _3 R  SETB C
5 h- g" Q- m" w9 h) H7 K$ l1 O  MOV A,R3
  RLC A
2 B. a* G4 S2 w  h6 N; j  MOV R3,A
  MOV A,R0
  CJNE A,#04H,SKEY2
9 t" D/ s8 ?- o9 A7 A! x# eEKEY:RET
3 s" r. G5 r3 J0 h( @# G! i* mSKEY3:CLR F0
      MOV A,R1
" j2 ]3 s4 |9 T4 D3 B& d+ h2 X  r2 ?# ]      JNB ACC.4,SKEY5
   JNB ACC.5,SKEY6
% U! t" L9 Q  p& ]1 s8 n7 [' f   JNB ACC.6,SKEY7
   JNB ACC.7,SKEY8
   AJMP EKEY
SKEY5:MOV A,#00H
1 |+ [- y1 A" ^. X) O      MOV R2,A
   AJMP DKEY
SKEY6:MOV A,#01H
) r. u  n% a' d; x2 Q2 |8 h      MOV R2,A
6 j# K( z( o- A2 w   AJMP DKEY
5 V8 w: P( N; q3 c$ o, S* xSKEY7:MOV A,#02H
- G# J7 F0 ], P+ H     MOV R2,A
  AJMP DKEY
SKEY8:MOV A,#03H
" n' |: f% M& I0 {" c      MOV R2,A
  R% Z6 _3 O# L  f" p/ H   AJMP DKEY
DKEY:MOV A,R0
* k5 Q- i5 F8 [# `: X. J; D     ACALL DECODE
  AJMP EKEY
8 G! J2 a* f' p, _) n4 GDECODE:MOV A,R0
       MOV B,#04H
" l% f  D( I( r2 l    MUL AB
    ADD A,R2
    RET
  J' E0 l- Z9 _5 Z7 R: ~, R" A' U) KTIME1:   PUSH ACC
  j! S9 J0 O! ^, ^8 N1 M+ p      PUSH PSW
8 Z$ C) r. V; m; b+ v) m   CPL P2.4
   MOV TL1,20H
   MOV TH1,21H
3 b2 F. |  o+ }6 k3 M   POP PSW
& S, d+ M5 R- L* \, W   POP ACC
& O5 n: O5 Q" g* i, t1 f   RETI
TABLE1:  DW 64021,64103,64260,64400,64524,64580,64684,64777
: I! T: n. ?, ]; X+ w  J- {       DW 64820,64898,64968,65030,65058,65110,65157,65178
$ m6 O8 y: E/ H& t1 V' C* JEND

syw開門造車

jili1986729 網(wǎng)友好！
) V# K2 m$ H/ o' _.
進入任何一門“陌生”的知識領(lǐng)域，選準正確的路徑由為重要，會使你少走彎路。
.
0 m% h) @9 d4 s) V9 B匯編語言，是在計算機技術(shù)發(fā)展的過程中，由機器碼走向高級語言的過程中的一個
9 F# ]$ h4 y" ^( X過渡語言，當出現(xiàn)了能做底層操作的高級語言的C語言后，匯編語言就應(yīng)該從高校的
教材中清除出去，以免浪費學生的精力，以提高學時的有效性。
( U& Y( y2 @2 A- n4 x3 o/ W.
3 a8 @7 t9 K9 l$ C$ Y! m6 }我國高校教材的更新存在著滯后現(xiàn)象，做為學生應(yīng)該學會取舍。
* T" i, v" [7 P* s; ^對此，我能給出如下建議：
.
1、學單片機應(yīng)該改用C語言，而拋棄匯編。
" [' H! {9 [2 }1 o2、應(yīng)該盡可能的設(shè)計出一套自己專用的萬能板，以應(yīng)對“所有的項目”。
" N1 K) d4 o/ F) {6 u8 Z3、一定要在畫專業(yè)的PCB電路板方面下足功夫。
4、……
& h) u5 d- R  ]0 c' e/ y# ].
+ }9 ]3 X; j8 ~; J# C# ]) rsyw  091008---06.51

鄭華

不錯啊，我在學習！

FLEI200410

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

卓信

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

jili1986729

恩，謝謝提醒。
4 A1 j% I* e& Z6 `. r因為在學校里學的是匯編。
現(xiàn)在正在學習C語言，感覺C有它的好處，但有時匯編語言也有優(yōu)勢

次元碎片

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

zjhioau

牛人

舟航

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

cc0579

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