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

jili1986729

3 J: w" ^, b% ]
# v, D; G# h5 H7 P1 i我自己用單片機做的電子琴，比較簡單，用了一個功放，自己做了個矩陣鍵盤
單片機應該用892051，這里89c51，有點浪費

2 |1 X! o9 n4 N! I程序：
+ b; G& L2 o4 b' k" N( CORG 00H
AJMP START
4 M  ~3 B+ `5 J7 H, yORG 001BH
6 j2 I' `( K. q( m2 w7 mLJMP TIME1
+ i. i* \  i' o3 nORG 30H
0 i7 E+ Z9 F, l, k+ PSTART:MOV TMOD,#10H
      MOV IE,#88H
1 x0 i4 F) h, dKEY:SETB F0
    CLR EA
CLR TR1
: g& Z6 Y: V/ g$ c6 _7 h. e- d    MOV P1,#0F0H
KEY1:MOV A,P1
  CPL A
  ANL A,#0F0H
" F  I3 s* x0 Z) x  JZ KEY
  CLR F0
# W8 Z. N% R, @' ?3 Y- @L1: LCALL SKEY
+ v2 R  f- Z  R2 p2 r  CLR EA
. _9 ~2 b5 S% \  CLR TR1
  JB F0,KEY
: {( i" x2 y  j. IMOV 22H,A
   ADD A,22H
   MOV R3,A
   MOV DPTR,#TABLE1
   MOVC A,@A+DPTR
   MOV TH1,A
  ~& R5 C- q9 D4 x3 H: H   MOV 21H,A
   MOV A,R3
' h$ r9 w( M: w   INC A
   MOVC A,@A+DPTR
   MOV TL1,A
   MOV 20H,A
" B/ }, v7 A& [6 ]& U      SETB EA
9 v3 |) W9 N& ^. o2 K. O( u   SETB TR1
L2:CALL SKEY
- }) Z1 q. Z4 e* V2 ]   SETB EA
9 W% T1 z5 h9 q3 `3 U( a. t, Q! R   SETB TR1
' v: X) p" V! w* E' n, N& j   JB F0,KEY
/ d  }7 x) w" _$ j3 U   LJMP L2
8 t+ t2 b* r- |( sSKEY:MOV A,#00
' c& V: Z3 T6 A+ |, v8 i8 F3 d& A     MOV R0,A
' a' h. q% F3 e9 v, o  MOV R1,A
  MOV R3,#0FEH
0 N0 I7 e$ o( A" @) A8 x; @# l5 {: H7 hSKEY2:MOV A,R3
      MOV P1,A
   NOP
   NOP
   NOP
* E# |2 p+ m8 D' s   MOV A,P1
# k; n% p0 M; q. h   MOV R1,A
      CPL A
2 F: N, B; _) u   ANL A,#0F0H
S123:JNZ SKEY3
  SETB F0
0 r$ I: M4 b; @/ ?     INC R0
  SETB C
8 f- ]: H5 B5 O9 |  MOV A,R3
  RLC A
( z3 r+ l* g, ~+ o; I  MOV R3,A
* C2 E2 |# F& s% K1 N* M0 F' [8 f  MOV A,R0
/ I! Q, U/ ~" c! a; S  CJNE A,#04H,SKEY2
" R! H4 q/ D6 D: IEKEY:RET
0 j5 _3 |' U+ x5 o* w! RSKEY3:CLR F0
      MOV A,R1
' x- I; u1 B" [+ A7 q- M* \9 l* F  _$ R      JNB ACC.4,SKEY5
   JNB ACC.5,SKEY6
+ ?8 }% o! h( K6 S$ x  @2 P   JNB ACC.6,SKEY7
   JNB ACC.7,SKEY8
   AJMP EKEY
SKEY5:MOV A,#00H
      MOV R2,A
" E. Z( b! E% H) ]; ~' U8 }' F   AJMP DKEY
SKEY6:MOV A,#01H
      MOV R2,A
   AJMP DKEY
SKEY7:MOV A,#02H
     MOV R2,A
+ i: T. {+ o+ M  AJMP DKEY
: k" d2 V* z% w# h7 w/ H% cSKEY8:MOV A,#03H
6 X2 S! _; g+ I1 `/ `7 T: {      MOV R2,A
   AJMP DKEY
DKEY:MOV A,R0
# p) Q9 g0 G' t; b; n& v     ACALL DECODE
  AJMP EKEY
DECODE:MOV A,R0
( D. |5 O1 `/ w: o6 A       MOV B,#04H
( H4 D: W) O4 k$ u+ `5 t    MUL AB
    ADD A,R2
( ?- S6 N; j9 ?* p4 Y. q    RET
TIME1:   PUSH ACC
      PUSH PSW
( E; t+ X1 w% O- _. h. x$ ^: L   CPL P2.4
   MOV TL1,20H
   MOV TH1,21H
   POP PSW
, n" W4 c  P! S   POP ACC
   RETI
1 K1 p* y/ H3 Z/ nTABLE1:  DW 64021,64103,64260,64400,64524,64580,64684,64777
5 t' C- ~4 G* u" V8 ?& |% k3 E% P       DW 64820,64898,64968,65030,65058,65110,65157,65178
END

syw開門造車

jili1986729 網(wǎng)友好！
.
$ F5 K0 [, Z5 E4 c0 k進入任何一門“陌生”的知識領域，選準正確的路徑由為重要，會使你少走彎路。
.
& o3 R! @7 p7 F& c9 ?4 }) o匯編語言，是在計算機技術發(fā)展的過程中，由機器碼走向高級語言的過程中的一個
. o/ p( Y4 R: `' ]1 w* t- W  l8 O過渡語言，當出現(xiàn)了能做底層操作的高級語言的C語言后，匯編語言就應該從高校的
6 D- O# i' h$ I' ^% h* u/ A2 Q- j2 S教材中清除出去，以免浪費學生的精力，以提高學時的有效性。
.
5 {7 A- K) A2 O我國高校教材的更新存在著滯后現(xiàn)象，做為學生應該學會取舍。
對此，我能給出如下建議：
.
1、學單片機應該改用C語言，而拋棄匯編。
2、應該盡可能的設計出一套自己專用的萬能板，以應對“所有的項目”。
3、一定要在畫專業(yè)的PCB電路板方面下足功夫。
4、……
( i+ q9 n3 U0 x; B1 m( T! A' U5 b.
syw  091008---06.51

鄭華

不錯啊，我在學習！

FLEI200410

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

卓信

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

jili1986729

恩，謝謝提醒。
: S9 F* @% W, V" A因為在學校里學的是匯編。
現(xiàn)在正在學習C語言，感覺C有它的好處，但有時匯編語言也有優(yōu)勢

次元碎片

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

zjhioau

牛人

舟航

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

cc0579

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