小弟現在已作出用AD590感溫元件的感知器在來卡住ㄌ.... |
|
缺席
|
|
小強
一般會員   發表：36 回覆：39 積分：15 註冊：2005-03-14 發送簡訊給我 |
我已經做出下面的溫度感知器，現在卡在要加入一ㄎ外部記憶體，來紀錄每一秒鐘擷取溫度(也就是說要時間記憶及溫度記憶，兩筆資料)，之後存4個小時後的資料再記憶體，在用RS-232傳到電腦理，現在溫度感知器已做好ㄌ...但卡在記憶體RAM想用93C66，在以下程式我是按書上來操作..不知道計時器要怎麼加
而溫度資料及計時器<時間>能儲存，在與傳輸到電腦。
小弟現今以看好幾天網站及書了。但是書本資料太少，網路資料有限...且我趕在12月推甄，希望大大能在以下程式幫我指點迷經或提供以下比較會用到相關資訊....PS:我的專題不只是這樣...做出來還要裝上輪胎內，所以做出來不知道還能不能用...這是有顯示器的...再過幾天能傳輸電腦在把顯示器部分改ㄌ BUF EQU 30H
NUM EQU 40H
CNT1 EQU 41H
CNT2 EQU 42H
;
ORG 00H
AJMP START
ORG 03H
AJMP INT0
ORG 0BH
AJMP TIMER0
START: ACALL INIT
MOVX @R0,A ;WRITE
SJMP $
;
INIT: MOV SP,#60H
MOV P1,#FFH
MOV 20H,#0
MOV 21H,#0
MOV NUM,#0
MOV CNT1,#0
MOV CNT2,#4
MOV R1,#BUF
MOV R0,#4
LOOP1: MOV @R1,#0
INC R1
DJNZ R0,LOOP1
SETB EA
SETB EX0
SETB ET0
MOV TMOD,#1
MOV TH0,#>(65536-5000)
MOV TL0,#<(65536-5000)
SETB TR0
MOV R1,#BUF
RET
;
INT0: PUSH A
MOVX A,@R0
DJNZ CNT1,S1
MOV CNT1,#0
DJNZ CNT2,S1
MOV CNT2,#4
ACALL TRANS
S1: MOVX @R0,A
POP A
RETI
;
TRANS: MOV B,#4 ;CONV RATE
MUL AB
MOV 20H,B ;BIN HIGH
MOV 21H,A ;BIN LOW
ACALL BIN2BCD
MOV 20H,R4 ;BCD HIGH
MOV 21H,R3 ;BCD LOW
ACALL BCD2BUF
RET
;
BIN2BCD:MOV R5,#16
CLR A
MOV R3,A
MOV R4,A
NEXT: MOV A,21H
RLC A
MOV 21H,A
MOV A,20H
RLC A
MOV 20H,A
MOV A,R3
ADDC A,R3
DA A
MOV R3,A
MOV A,R4
ADDC A,R4
DA A
MOV R4,A
DJNZ R5,NEXT
EXIT: RET
;
BCD2BUF:MOV R0,#BUF
MOV A,20H ;1ST
SWAP A
ANL A,#0FH
MOV @R0,A
MOV A,20H ;2ND
ANL A,#0FH
INC R0
MOV @R0,A
MOV A,21H ;3TH
SWAP A
ANL A,#0FH
INC R0
MOV @R0,A
MOV A,21H ;4TH
ANL A,#0FH
INC R0
MOV @R0,A
RET
;
TIMER0: PUSH A
MOV TH0,#>(65536-5000)
MOV TL0,#<(65536-5000)
ACALL DISP
POP A
RETI
;
DISP: MOV A,NUM
SWAP A
ADD A,@R1
MOV P1,A
MOV A,NUM
INC A
MOV NUM,A
INC R1
CJNE A,#4,D1
MOV NUM,#0
MOV R1,#BUF
D1: RET
END
|
|
㊣
版主   發表：261 回覆：2302 積分：1667 註冊：2005-01-04 發送簡訊給我 |
po程式請縮排,這樣大家比較好看,可增加閱讀率以及回復率.
不知道如何做可以參考:
http://delphi.ktop.com.tw/topic.php?TOPIC_ID=48259 不知道你的時間格式是?
------
------------------------------------------------------------------------- 走是為了到另一境界，停是為了欣賞人生；未走過千山萬水，怎知生命的虛實與輕重！？ |
|
小強
一般會員 發表：36 回覆：39 積分：15 註冊：2005-03-14 發送簡訊給我 |
抱歉忘了縮排~~不是小弟不想學~~只是8月底就要發論文了....問題是這個作起來...還要貼在輪胎理測試....實用性不知道可不可以....小地也認真在學8051也買ㄌ燒錄器...修8051課....請高手先幫忙解題....我在努力改道理想物品
BUF EQU 30H
NUM EQU 40H
CNT1 EQU 41H
CNT2 EQU 42H
;
ORG 00H
AJMP START
ORG 03H
AJMP INT0
ORG 0BH
AJMP TIMER0
START: ACALL INIT
MOVX @R0,A ;WRITE
SJMP $
;
INIT: MOV SP,#60H
MOV P1,#FFH
MOV 20H,#0
MOV 21H,#0
MOV NUM,#0
MOV CNT1,#0
MOV CNT2,#4
MOV R1,#BUF
MOV R0,#4
LOOP1: MOV @R1,#0
INC R1
DJNZ R0,LOOP1
SETB EA
SETB EX0
SETB ET0
MOV TMOD,#1
MOV TH0,#>(65536-5000)
MOV TL0,#<(65536-5000)
SETB TR0
MOV R1,#BUF
RET
;
INT0: PUSH A
MOVX A,@R0
DJNZ CNT1,S1
MOV CNT1,#0
DJNZ CNT2,S1
MOV CNT2,#4
ACALL TRANS
S1: MOVX @R0,A
POP A
RETI
;
TRANS: MOV B,#4 ;CONV RATE
MUL AB
MOV 20H,B ;BIN HIGH
MOV 21H,A ;BIN LOW
ACALL BIN2BCD
MOV 20H,R4 ;BCD HIGH
MOV 21H,R3 ;BCD LOW
ACALL BCD2BUF
RET
;
BIN2BCD:MOV R5,#16
CLR A
MOV R3,A
MOV R4,A
NEXT: MOV A,21H
RLC A
MOV 21H,A
MOV A,20H
RLC A
MOV 20H,A
MOV A,R3
ADDC A,R3
DA A
MOV R3,A
MOV A,R4
ADDC A,R4
DA A
MOV R4,A
DJNZ R5,NEXT
EXIT: RET
;
BCD2BUF:MOV R0,#BUF
MOV A,20H ;1ST
SWAP A
ANL A,#0FH
MOV @R0,A
MOV A,20H ;2ND
ANL A,#0FH
INC R0
MOV @R0,A
MOV A,21H ;3TH
SWAP A
ANL A,#0FH
INC R0
MOV @R0,A
MOV A,21H ;4TH
ANL A,#0FH
INC R0
MOV @R0,A
RET
;
TIMER0: PUSH A
MOV TH0,#>(65536-5000)
MOV TL0,#<(65536-5000)
ACALL DISP
POP A
RETI
;
DISP: MOV A,NUM
SWAP A
ADD A,@R1
MOV P1,A
MOV A,NUM
INC A
MOV NUM,A
INC R1
CJNE A,#4,D1
MOV NUM,#0
MOV R1,#BUF
D1: RET
END
|
|
小強
一般會員 發表：36 回覆：39 積分：15 註冊：2005-03-14 發送簡訊給我 |
抱歉忘了縮排~~不是小弟不想學~~只是8月底就要發論文了....問題是這個作起來...還要貼在輪胎理測試....實用性不知道可不可以....小地也認真在學8051也買ㄌ燒錄器...修8051課....請高手先幫忙解題....我在努力改道理想物品
著明：時間格式為1秒取溫度一次
BUF EQU 30H
NUM EQU 40H
CNT1 EQU 41H
CNT2 EQU 42H
;
ORG 00H
AJMP START
ORG 03H
AJMP INT0
ORG 0BH
AJMP TIMER0
START: ACALL INIT
MOVX @R0,A ;WRITE
SJMP $
;
INIT: MOV SP,#60H
MOV P1,#FFH
MOV 20H,#0
MOV 21H,#0
MOV NUM,#0
MOV CNT1,#0
MOV CNT2,#4
MOV R1,#BUF
MOV R0,#4
LOOP1: MOV @R1,#0
INC R1
DJNZ R0,LOOP1
SETB EA
SETB EX0
SETB ET0
MOV TMOD,#1
MOV TH0,#>(65536-5000)
MOV TL0,#<(65536-5000)
SETB TR0
MOV R1,#BUF
RET
;
INT0: PUSH A
MOVX A,@R0
DJNZ CNT1,S1
MOV CNT1,#0
DJNZ CNT2,S1
MOV CNT2,#4
ACALL TRANS
S1: MOVX @R0,A
POP A
RETI
;
TRANS: MOV B,#4 ;CONV RATE
MUL AB
MOV 20H,B ;BIN HIGH
MOV 21H,A ;BIN LOW
ACALL BIN2BCD
MOV 20H,R4 ;BCD HIGH
MOV 21H,R3 ;BCD LOW
ACALL BCD2BUF
RET
;
BIN2BCD:MOV R5,#16
CLR A
MOV R3,A
MOV R4,A
NEXT: MOV A,21H
RLC A
MOV 21H,A
MOV A,20H
RLC A
MOV 20H,A
MOV A,R3
ADDC A,R3
DA A
MOV R3,A
MOV A,R4
ADDC A,R4
DA A
MOV R4,A
DJNZ R5,NEXT
EXIT: RET
;
BCD2BUF:MOV R0,#BUF
MOV A,20H ;1ST
SWAP A
ANL A,#0FH
MOV @R0,A
MOV A,20H ;2ND
ANL A,#0FH
INC R0
MOV @R0,A
MOV A,21H ;3TH
SWAP A
ANL A,#0FH
INC R0
MOV @R0,A
MOV A,21H ;4TH
ANL A,#0FH
INC R0
MOV @R0,A
RET
;
TIMER0: PUSH A
MOV TH0,#>(65536-5000)
MOV TL0,#<(65536-5000)
ACALL DISP
POP A
RETI
;
DISP: MOV A,NUM
SWAP A
ADD A,@R1
MOV P1,A
MOV A,NUM
INC A
MOV NUM,A
INC R1
CJNE A,#4,D1
MOV NUM,#0
MOV R1,#BUF
D1: RET
END
|
|
小強
一般會員 發表：36 回覆：39 積分：15 註冊：2005-03-14 發送簡訊給我 |
抱歉忘了縮排~~不是小弟不想學~~只是8月底就要發論文了....問題是這個作起來...還要貼在輪胎理測試....實用性不知道可不可以....小地也認真在學8051也買ㄌ燒錄器...修8051課....請高手先幫忙解題....我在努力改道理想物品
著明：時間格式為1秒取溫度一次，再由紀錄記憶體內..過4ㄍ測試小時後，拆下溫度感知器接上RS-232讀取記憶體內部資料
BUF EQU 30H
NUM EQU 40H
CNT1 EQU 41H
CNT2 EQU 42H
;
ORG 00H
AJMP START
ORG 03H
AJMP INT0
ORG 0BH
AJMP TIMER0
START: ACALL INIT
MOVX @R0,A ;WRITE
SJMP $
;
INIT: MOV SP,#60H
MOV P1,#FFH
MOV 20H,#0
MOV 21H,#0
MOV NUM,#0
MOV CNT1,#0
MOV CNT2,#4
MOV R1,#BUF
MOV R0,#4
LOOP1: MOV @R1,#0
INC R1
DJNZ R0,LOOP1
SETB EA
SETB EX0
SETB ET0
MOV TMOD,#1
MOV TH0,#>(65536-5000)
MOV TL0,#<(65536-5000)
SETB TR0
MOV R1,#BUF
RET
;
INT0: PUSH A
MOVX A,@R0
DJNZ CNT1,S1
MOV CNT1,#0
DJNZ CNT2,S1
MOV CNT2,#4
ACALL TRANS
S1: MOVX @R0,A
POP A
RETI
;
TRANS: MOV B,#4 ;CONV RATE
MUL AB
MOV 20H,B ;BIN HIGH
MOV 21H,A ;BIN LOW
ACALL BIN2BCD
MOV 20H,R4 ;BCD HIGH
MOV 21H,R3 ;BCD LOW
ACALL BCD2BUF
RET
;
BIN2BCD:MOV R5,#16
CLR A
MOV R3,A
MOV R4,A
NEXT: MOV A,21H
RLC A
MOV 21H,A
MOV A,20H
RLC A
MOV 20H,A
MOV A,R3
ADDC A,R3
DA A
MOV R3,A
MOV A,R4
ADDC A,R4
DA A
MOV R4,A
DJNZ R5,NEXT
EXIT: RET
;
BCD2BUF:MOV R0,#BUF
MOV A,20H ;1ST
SWAP A
ANL A,#0FH
MOV @R0,A
MOV A,20H ;2ND
ANL A,#0FH
INC R0
MOV @R0,A
MOV A,21H ;3TH
SWAP A
ANL A,#0FH
INC R0
MOV @R0,A
MOV A,21H ;4TH
ANL A,#0FH
INC R0
MOV @R0,A
RET
;
TIMER0: PUSH A
MOV TH0,#>(65536-5000)
MOV TL0,#<(65536-5000)
ACALL DISP
POP A
RETI
;
DISP: MOV A,NUM
SWAP A
ADD A,@R1
MOV P1,A
MOV A,NUM
INC A
MOV NUM,A
INC R1
CJNE A,#4,D1
MOV NUM,#0
MOV R1,#BUF
D1: RET
END
|
發表時間：2005-03-22 01:20:52
IP:203.72.xxx.xxx 未訂閱
系統時間：2024-04-20 2:23:08
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |