- 首页
-
- 问答
-
-
黑骑战队
-55~125度，你自己修改：;***************WAVE-E6000/T**********************;*MCU: AT892051 *;*MCU-crystal: 12M *;*Version: 01 *;*Last Updata: 2007-5-27 *;*Author: zhaojun *;*Description: *;DS18B20的读写程序,数据脚P3.4 *;温度传感器18B20汇编程序,采用器件默认的12位转化 *;最大转化时间750微秒,显示温度-55到+125度,显示精度*;为0.1度，显示采用4位LED共阳显示测温值 *;*************************************************;单片机内存分配申明!;*************************************************TEMPER_L EQU 40H ;用于保存读出温度的低8位TEMPER_H EQU 41H ;用于保存读出温度的高8位FLAG1 EQU 38H ;是否检测到DS18B20标志位SEC EQU 20H ;数码管个位数存放内存位置MIN EQU 21H ;数码管十位数存放内存位置TEMPL EQU 30H ;用于保存读出温度的低8位TEMPH EQU 31H ;用于保存读出温度的高8位TEMPHC EQU 32H ;温度转换寄存器低8位TEMPLC EQU 33H ;温度转换寄存器高8位BUF1 EQU 34H ;显示缓冲寄存器小数位BUF2 EQU 35H ;显示缓冲寄存器个数位BUF3 EQU 36H ;显示缓冲寄存器十数位BUF4 EQU 37H ;显示缓冲寄存器百数位TEMPDIN BIT P3.4 ;数据脚定义DIN BIT P1.7 ;小数点控制;********************************************** ORG 0000H ;主程序入口地址 AJMP MAIN ;转主程序 ORG 0003H ;外中断0中断入口 DB 00H,00H,00H,00H,00H,00H,00H; RETI ;跳至INTEX0执行中断服务程序 ORG 000BH ;定时器T0中断入口地址 DB 00H,00H,00H,00H,00H,00H,00H ; RETI ;跳至定时器T0执行中断服务程序 ORG 0013H ;外中断1中断入口 DB 00H,00H,00H,00H,00H,00H,00H ; RETI ;跳至INTEX1执行中断服务程序 ORG 001BH ;定时器T1中断入口地址 DB 00H,00H,00H,00H,00H,00H,00H ; RETI ;中断返回（不开中断） ORG 0023H ;串行口中断入口地址 DB 00H,00H,00H,00H,00H,00H,00H ; RETI ;中断返回（不开中断）;**********************************************;两位数码管来显示温度,显示范围00到99度,显示精度为1度;因为12位转化时每一位的精度为0.0625度,我们不要求显示小数所以可以抛弃29H的低4位;将28H中的低4位移入29H中的高4位,这样获得一个新字节,这个字节就是实际测量获得的温度;无需乘于0.0625系数;**********************************************MAIN: MOV SP, #50H ; MOV P1, #0FFH ;LPTEMP: LCALL GET_TEMPER ;调用读温度子程序 LCALL CONVTEMP ;温度BCD码计算处理子程序 LCALL DISPBCD ;显示区BCD码温度值刷新子程序;************************************* LCALL DISPLAY ;调用数码管显示子程序;************************************* ;CPL P3.0 ; AJMP LPTEMP ;;*************************************; 这是DS18B20复位初始化子程序;*************************************INIT_1820: SETB TEMPDIN NOP CLR TEMPDIN ;主机发出延时537微秒的复位低脉冲 MOV R1,#3TSR1: MOV R0,#107 DJNZ R0,$ DJNZ R1,TSR1 SETB TEMPDIN ;然后拉高数据线 NOP NOP NOP MOV R0,#25HTSR2: JNB TEMPDIN,TSR3 ;等待DS18B20回应 DJNZ R0,TSR2 LJMP TSR4 ;延时TSR3: SETB FLAG1 ;置标志位,表示DS1820存在 ;CLR P3.7 ;检查到DS18B20就点亮P3.7LED LJMP TSR5TSR4: CLR FLAG1 ;清标志位,表示DS1820不存在 ;CLR P3.1 LJMP TSR7TSR5: MOV R0,#117TSR6: DJNZ R0,TSR6 ;时序要求延时一段时间TSR7: SETB TEMPDIN ; RET;****************************************; 读出转换后的温度值;****************************************GET_TEMPER: SETB TEMPDIN ; LCALL INIT_1820 ;先复位DS18B20 JB FLAG1,TSS2 RET ;判断DS1820是否存在?若DS18B20不存在则返回TSS2: ;CLR P3.3 ;DS18B20已经被检测到!! MOV A,#0CCH ;跳过ROM匹配 LCALL WRITE_1820 MOV A,#44H ;发出温度转换命令 LCALL WRITE_1820;*****************************************;这里通过调用显示子程序实现延时一段时间,等待AD转换结束,12位的话750微秒;***************************************** LCALL DISPLAY;***************************************** LCALL INIT_1820 ;准备读温度前先复位 MOV A,#0CCH ;跳过ROM匹配 LCALL WRITE_1820 MOV A,#0BEH ;发出读温度命令 LCALL WRITE_1820 LCALL READ_18200 ;将读出的温度数据保存到35H/36H RET;*******************************************;写DS18B20的子程序(有具体的时序要求);*******************************************WRITE_1820: MOV R2,#8 ;一共8位数据 CLR C ;WR1: CLR TEMPDIN ; MOV R3,#6 DJNZ R3,$ RRC A MOV TEMPDIN,C ; MOV R3,#23 DJNZ R3,$ SETB TEMPDIN ; NOP DJNZ R2,WR1 ; SETB TEMPDIN ; RET;*************************************;处理温度BCD码子程序;*************************************CONVTEMP: MOV A,TEMPH ; ANL A,#80H ; JZ TEMPC1 ; 判断温度是否在零下？ CLR C ; 温度值补码 变成原码 MOV A,TEMPL ; CPL A ADD A,#01H ; MOV TEMPL,A ; MOV A, TEMPH ; - CPL A ; ADDC A,#00H ; MOV TEMPH,A ; TEMPHC HI=符号位 MOV TEMPHC,#0BH ; 置"-"标志 SJMP TEMPC11 ;TEMPC1: MOV TEMPHC,#0AH ; 置"+"标志;**************************************TEMPC11: MOV A,TEMPHC ; 计算小数位温度BCD值 SWAP A MOV TEMPHC,A ; MOV A,TEMPL ; ANL A,#0FH ; 乘0.0625 MOV DPTR,#TEMPDOTTAB ; MOVC A,@A+DPTR ; MOV TEMPLC,A ; TEMPLC LOW= 小数部分 BCD;************************************** MOV A,TEMPL ; 计算整数位温度BCD值 ANL A,#0F0H ; SWAP A ; MOV TEMPL,A ; MOV A,TEMPH ; ANL A,#0FH ; SWAP A ; ORL A,TEMPL ; MOV TEMPER_L ,A ; LCALL HEX2BCD1 ; 调用单字节十六进制转BCD子程序;************************************ MOV TEMPL,A ; ANL A,#0F0H ; SWAP A ; ORL A,TEMPHC ; TEMPHC LOW = 十位数 BCD MOV TEMPHC,A ; MOV A,TEMPL ; ANL A,#0FH ; SWAP A ; TEMPLC HI = 个位数 BCD ORL A,TEMPLC ; MOV TEMPLC,A ; MOV A,R7 ; JZ TEMPOUT ; ANL A,#0FH ; SWAP A ; MOV R7,A ; MOV A,TEMPHC ; TEMPHC HI = 百位数 BCD ANL A,#0FH ; ORL A,R7 ; MOV TEMPHC,A ;TEMPOUT: RET ;;**************************************;小数部分分码表;**************************************TEMPDOTTAB: DB 00H,01H,01H,02H,03H,03H,04H,04H,05H,06H DB 06H,07H,08H,08H,09H,09H ;;**************************************;显示区 BCD 码温度值刷新子程序;**************************************DISPBCD: MOV A,TEMPLC ; 温度数据移入显示寄存器 ANL A,#0FH ; MOV BUF1,A ; 显示小数 MOV A,TEMPLC ; SWAP A ; ANL A,#0FH ; MOV BUF2,A ; 显示个位 MOV A,TEMPHC ; ANL A,#0FH ; MOV BUF3,A ; 显示十位 MOV A,TEMPHC ; SWAP A ; ANL A,#0FH ; MOV BUF4,A ; 显示百位 MOV A,TEMPHC ; ANL A,#0F0H ; CJNE A,#10H,DISPBCD0 ; 百位数=0？ SJMP DISPOUT ;DISPBCD0: MOV A, TEMPHC ; ANL A, #0FH ; JNZ DISPOUT ; 十位数是0? MOV A,TEMPHC ; SWAP A ; ANL A,#0FH ; MOV BUF4,0AH ; 符号位不显示 MOV BUF3,A ; 十位数显示符号DISPOUT: RET ;;*************************************;单字节十六进制转BCD;*************************************HEX2BCD1:MOV B,#64H ; 十六进制 ->BCD DIV AB ; B=A%100 MOV R7,A ; R7=百位数 MOV A,#0AH ; XCH A,B ; DIV AB ; B=A%B SWAP A ; ORL A,B ; RET ;;*************************************; Calculate CRC-8 Values, Uses The;CCITT-8 Polynomial,Expressed As; X^8+X^5+X^4+1;*************************************CRC8CAL: PUSH ACC ; MOV R7,#08H ; Number Bits ByteCRC8LOOP1: XRL A,B ; Calculate CRC RRC A ; Move T0 Carry MOV A,B ; Get The Last CRC Value JNC CRC8LOOP2 ; Skip If Data==0 XRL A,#18H ; Update The CRC ValueCRC8LOOP2: RRC A ; Position The New CRC MOV B,A ; Store The New CRC POP ACC ; Get The Remaining Bits RR A ; Possition The Next Bit PUSH ACC ; Save The Remaining Bits DJNZ R7,CRC8LOOP1 ; Repeat For 9 Bits POP ACC ; RET ;;******************************************;读DS18B20的程序,从DS18B20中读出9个字节数据;开始的两个字节为温度数据;******************************************READ_18200: MOV R4,#9 ; 将温度高位和低位从DS18B20中读出 MOV R1,#TEMPER_L ; 低位存入29H(TEMPER_L),高位存入28H(TEMPER_H) MOV B, #00H ;;************************************RE00: MOV R2,#8 ; 数据一共有8位RE01: CLR C SETB TEMPDIN ; NOP NOP CLR TEMPDIN ; NOP NOP NOP SETB TEMPDIN ; MOV R3,#9RE10: DJNZ R3,RE10 ; MOV C,TEMPDIN ; MOV R3,#23RE20: DJNZ R3,RE20 ; RRC A DJNZ R2,RE01 ;;************************************ MOV @R1,A ; INC R1 ; LCALL CRC8CAL ; DJNZ R4,RE00 ; MOV A,B ; JNZ READ_OUT ; MOV TEMPL,TEMPER_L ; MOV TEMPH,TEMPER_H ;READ_OUT: RET;*****************************************;显示子程序;*****************************************DISPLAY: MOV DPTR,#NUMTAB ; 指定查表启始地址 MOV R0,#4DP11: MOV R1,#250 ; 显示1000次DPLP: SETB P1.7 MOV A,BUF1 ; 取小位数 MOVC A,@A+DPTR ; 查小位数的7段代码 MOV P1,A ; 送出小位的7段代码 CLR P3.0 ; 开小位显示 ACALL DL1ms ; 显示1ms SETB P3.0 ; MOV A,BUF2 ; 取个位数 MOVC A,@A+DPTR ; 查个位数的7段代码 MOV P1,A ; 送出个位的7段代码 CLR P1.7 CLR P3.1 ; 开个位显示 ACALL DL1ms ; 显示1ms SETB P3.1 ; SETB P1.7 MOV A,BUF3 ; 取十位数 MOVC A,@A+DPTR ; 查十位数的7段代码 MOV P1,A ; 送出十位的7段代码 CLR P3.2 ; 开十位显示 ACALL DL1ms ; 显示1ms SETB P3.2 ; SETB P1.7 MOV A,BUF4 ; 取百位数 MOVC A,@A+DPTR ; 查百位数的7段代码 MOV P1,A ; 送出百位的7段代码 CLR P3.3 ; 开百位显示 ACALL DL1ms ; 显示1ms SETB P3.3 ; DJNZ R1,DPLP ; 250次没完循环 DJNZ R0,DP11 ; 4个100次没完循环 RET;****************************************;0.2MS延时(按12MHZ算);****************************************DL1MS: MOV R7,#100 DJNZ R7,$ RET;****************************************;7段数码管0～9数字的共阳显示代码;****************************************NUMTAB: DB 0C0H,0F9H,0A4H,0B0H,99H,92H,82H,0F8H,80H,90H,0FFH,0BFH ;; "0" "1" "2" "3" "4" "5" "6" "7" "8" "9" "不亮" "-";**************************************** END
-
-
-
-
-
-
-
-
求购
另眼看世界 开关型直接接到P3.4或者P3.5，可以通过内部计数器计数电压信号如果在0-5V范围ADC直接取，超过的通过电阻分压或者运放减法器再输入到ADC电流信号通过并联一个电阻到地或者运放转换为电压信号再连接到ADC单片机能接受的只有0-5V的数字信号，模拟信号如果电压超过阀值视为1低于阀值视为0.(电压不能高于VCC 不然会导致灌电流严重时会烧坏IO端口)所以要获得模拟电压信号只能通过ADC转换成数字信号ADC参考资料http://baike.baidu.com/view/2618365.htm你说的电阻型信号 例如 光敏电阻 热敏电阻 。通过串联一个电阻到地，取中点电压。就可以获得电压数据了
匿名用户 数据采集和处理的部分 程序如下: uintad 2543( uchar port) { Uint ad; uint i ; uchar al = 0 ,ah= 0 ; CLOCK =0 ; ¬_CS= 0; /片选 nop(10) ; for (i =0 ;i< 8;i+ +); /把通道号打入2543 { ADDRESS=(bit)(port&0x80); //取最高位输出 nop(5 ); CLOCK =1 ; //高电平，产生一个上升沿，此时输入一位地址 nop(5 ); CLOCK =0 ; nop(5); port = port<<l; //左移一位，使下一位地址至最高位 } for(i=O;i<4;i++); /填充4个CLOCK,此时正在进行AD转换 { CLOCK =1; nop(5 ); CLOCK = 0; nop(5 ); } _CS=1; nop(10); _CS=0: //等待AD转换 nop(10); for (i=0;i<4;i++); 1/取D9,D8 { CLOCK = l ; nop(5 ); ah = ah << 1; if( D_OUT) ah = ah \0x01; CLOCK = 0; nop(5 ); } for (i=0;i<8;i++); 取D7—D0 { CLOCK = l ; nop(5 ); a1= a l<< 1 ; if( D_ OUT) al =al\0x01; CLOCK = 0 ; nop(5 ); } _CS=1; nop(10); /得到AD值 ad=(uint)ah; ad = ad<<8; ad = ad \(uint)al; return ad; } 算术平均滤波方法的部分程序为: #define N 10 char filter() { int sum=0; for ( count=O;count<N;count++) { Sum+ = get_ad (); Delay(); } return( char)(sum/N); }
只为伊人飘香 
2条回答
X 
悠悠白云 
永隔一江水 
jp0006 
32a579df11f4 
e7775fedb409 
