DVM數位電壓表 |
|
答題得分者是：penguin5
|
|
chiataan
一般會員   發表：4 回覆：0 積分：0 註冊：2005-06-07 發送簡訊給我 |
找到一本很舊的書~照圖施工~程式碼也照打~不知道哪裡出了問題~我把程式碼copy上來~希望有人可以幫幫我~這是由三個七段顯示器和一顆8951 一顆7447 一顆ADC0804 三顆C1815完成的~目標是作一個最高到51V的數位電壓表 <<程式碼:>>
ORG 00H
ANL P1,#00H
START: MOVX @R0,A
WAIT: JB P2.0,ADC
CALL DISP
JMP WAIT
ADC: MOVX A,@R0
CALL L1
MOV R1,#05
DISP1: CALL DISP
DJNZ R1,DISP1
JMP START
L1: CLR C
MOV R5,#00H
MOV R4,#00H
MOV R3,#0BH
NEXT: RLC A
MOV R2,A
MOV A,R5
DA A
MOV R5,A
MOV A,R4
ADDC A,R5
DA A
MOV R5,A
MOV A,R4
ADDC A,R4
MOV R4,A
MOV A,R2
DJNZ R3,NEXT
L2: MOV A,R5
ADD A,R5
DA A
MOV R5,A
MOV A,R4
ADDC A,R4
DA A
MOV R4,A
RET
DISP: MOV A,R5
ANL A,#0FH
ORL A,#10H
MOV P1,A
CALL DELAY
MOV A,R5
ANL A,#FOH
SWAP A
ORL A,#20H
MOV P1,A
CALL DELAY
MOV A,R4
ANL A,#0FH
ORL A,#40H
MOV P1,A
CALL DELAY
CLR A
RET
DELAY: MOV R6,#10
D1: MOV R7,#248
DJNZ R7,$
DJNZ R6,D1
RET
END
|
|
㊣
版主   發表：261 回覆：2302 積分：1667 註冊：2005-01-04 發送簡訊給我 |
|
|
㊣
版主 發表：261 回覆：2302 積分：1667 註冊：2005-01-04 發送簡訊給我 |
|
|
㊣
版主 發表：261 回覆：2302 積分：1667 註冊：2005-01-04 發送簡訊給我 |
DISP: MOV A,R5
ANL A,#0FH
ORL A,#10H
MOV P1,A
CALL DELAY
MOV A,R5
ANL A,#FOH
SWAP A 你自己程式key錯吧,紅色那行請改為=> ANL A,#F0H
注意一下0(零)跟O...
------
------------------------------------------------------------------------- 走是為了到另一境界，停是為了欣賞人生；未走過千山萬水，怎知生命的虛實與輕重！？ |
|
penguin5
資深會員  發表：116 回覆：317 積分：431 註冊：2004-05-09 發送簡訊給我 |
|
|
penguin5
資深會員 發表：116 回覆：317 積分：431 註冊：2004-05-09 發送簡訊給我 |
|
|
阿信
版主 發表：111 回覆：983 積分：813 註冊：2005-03-10 發送簡訊給我 |
|
|
penguin5
資深會員 發表：116 回覆：317 積分：431 註冊：2004-05-09 發送簡訊給我 |
電路圖沒問題 程式改用這個試試看：
ORG 00H
ANL P1,#00H
;------------------------------------------------
START:
MOVX @R0,A
WAIT:
JB P2.0,ADC
CALL DISP
JMP WAIT
;------------------------------------------------
ADC:
MOVX A,@R0
CALL L1
MOV R1,#05 DISP1:
CALL DISP
DJNZ R1,DISP1
JMP START
;------------------------------------------------
L1:
CLR C
MOV R5,#00H
MOV R4,#00H
MOV R3,#8 NEXT:
RLC A
MOV R2,A
MOV A,R5
DA A
MOV R5,A
MOV A,R4
ADDC A,R5
DA A
MOV R5,A
MOV A,R4
ADDC A,R4
MOV R4,A
MOV A,R2
DJNZ R3,NEXT
L2:
MOV A,R5
ADD A,R5
DA A
MOV R5,A
MOV A,R4
ADDC A,R4
DA A
MOV R4,A
RET
;-----------------------------------------------
DISP:
MOV A,R5
ANL A,#0FH
ORL A,#10H
MOV P1,A
CALL DELAY
MOV A,R5
ANL A,#F0H
ORL A,#20H
MOV P1,A
CALL DELAY
MOV A,R4
ANL A,#0FH
ORL A,#40H
MOV P1,A
CALL DELAY
CLR A
RET
;-------------------------------------------------
DELAY:
MOV R6,#10
D1:
MOV R7,#248
DJNZ R7,$
DJNZ R6,D1
RET
END
歡迎參觀麗嘉真空管研究室 http://myweb.hinet.net/home4/penguin5/
|
發表時間：2005-06-07 23:09:18
IP:61.64.xxx.xxx 未訂閱
系統時間：2024-05-21 15:23:20
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |