請問8051程式的十六鍵電子琴的問題？ |
|
答題得分者是：penguin5
|
|
without123
一般會員   發表：1 回覆：0 積分：0 註冊：2007-06-17 發送簡訊給我 |
請問一下這個程式哪裡有問題？就只有一邊的前三個有do,re,me,好像第4個還第5個無法發音其他的音都是一樣的聲音，
請哪位好心的大大拜託幫我想想看，小弟我真的無法解決。拜託！ speaker equ p1.0 org 00h start: mov dptr,#times mov p0,#0ffh mov p2,#0ffh loop: jnb p0.0,ON jnb p0.1,ON jnb p0.2,ON jnb p0.3,ON jnb p0.4,ON jnb p0.5,ON jnb p0.6,ON jnb p0.7,ON jnb p2.0,ON1 jnb p2.1,ON1 jnb p2.2,ON1 jnb p2.3,ON1 jnb p2.4,ON1 jnb p2.5,ON1 jnb p2.6,ON1 jnb p2.7,ON1 jmp loop ON1: mov a,p2 add a,#8 ON: mov a,p0 setb cy mov r0,#16 mov r1,#0 loop2: rrc a jnc sound inc r1 djnz r0,loop2 jmp start sound: mov a,r1 movc a,@a dptr mov 20h,a cpl speaker call delay mov a,20h cpl speaker call delay jmp start times: db 113,101,95,85,76,72,64,57,50,48,42,38,36,32,28,25 delay: nop mov r7,#3 djnz r7,$ djnz acc,delay ret end 編輯記錄
without123 重新編輯於 2007-06-17 15:40:40， 註解 無‧
|
|
penguin5
資深會員   發表：116 回覆：317 積分：431 註冊：2004-05-09 發送簡訊給我 |
|
發表時間：2007-06-17 15:39:21
IP:59.117.xxx.xxx 訂閱
系統時間：2024-05-12 12:06:13
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |