智能桑拿浴干蒸显示控制器源程序.txt

智能桑拿浴显示器程序

      case  7:  if(xx==0xfd){Dsmin++;if(Dsmin>=59)Dsmin=59;}; delay(50);break;
               if(xx==0xfb){Dsmin--;if(Dsmin<=0)Dsmin=0; }; delay(50);break;
      case  8: default:break;
 
 
		}
	}
}


/*****************************************/
void delay15us(void)						//延时15微秒子函数
{
uchar i;
for(i=0;i<4;i++);
}
//*************************************************
void delay60us(void)						//延时60微秒子函数
{
uchar i;
for(i=0;i<15;i++);
}
//***************************************************
void write0TS(void)						//write bit0
{
TSOR=1;
TSOR=0;
delay15us();delay15us();delay15us();delay15us();
TSOR=1;
_nop_();
_nop_();
}
//********************************************************
void write1TS(void)					//write bit1
{
TSOR=1;
TSOR=0;
_nop_();_nop_();_nop_();_nop_();_nop_();_nop_();_nop_();
TSOR=1;
_nop_();_nop_();_nop_();_nop_();_nop_();_nop_();_nop_();
delay15us();delay15us();delay15us();
}
//******************************
bit readTS(void)						//read databit
{
bit b;
TSOR=1;
TSOR=0;
_nop_();_nop_();_nop_();_nop_();
TSOR=1;
_nop_();_nop_();_nop_();_nop_();_nop_();
b=TSOR;
delay15us();delay15us();delay15us();
_nop_();_nop_();
return b;
}
//*************************************
void resetTS(void)						//reset databit
{uchar i;
TSOR=1;
TSOR=0;
for(i=0;i<8;i++)delay60us();
TSOR=1;
while(TSOR);
for(i=0;i<8;i++)delay60us();
}
//***************************************
void writeBTS(uchar byte)						//write one byte
{uchar i;
for(i=0;i<8;i++)
{
if(byte&0x01)
write1TS();
else
write0TS();
byte=byte>>1;
}
}
//****************************************
uchar readBTS(void)						//read one byte
{uchar i,j;
bit b;
j=0;
for(i=0;i<8;i++)
{
b=readTS();
if(b)j+=1;
j=_cror_(j,1);
}
return j;
}
//************************************************
void initTS(void)					//初始化DS18B20
{
resetTS();
writeBTS(0xcc);
writeBTS(0x4e);
writeBTS(0x64);
writeBTS(0x8a);
writeBTS(0x1f);
}
//******************************************************
void gettempTS(void)					//读取测得的环境温度
{
resetTS();
writeBTS(0xcc);
writeBTS(0x44);
delay(200);
resetTS();
writeBTS(0xcc);
writeBTS(0xbe);
temp1=readBTS();
temp0=readBTS();
readBTS();readBTS();readBTS();readBTS();
readBTS();readBTS();readBTS();
temp0=temp0<<4;
temp0+=(temp1&0xf0)>>4;
temp1=(temp1&0x0f)?5:0;
}

//********主函数*********
void main(void)
{
delay(500);                      //延时500ms，等电源稳定
InitLcd();                        //LCM初始化
init_timer0();
DisplayListChar(0,0,str2);
DisplayListChar(0,0,str3);
delay(5000);
DisplayListChar(0,0,str0);
DisplayListChar(0,1,str1);
initTS();
reset()
for(;;)
{
//========================
switch(set)				//LCD根据工作模式进行显示
{
case 0:fun0();break;
case 1:fun1();break;
case 2:fun2();break;
case 3:fun3();break;
case 4:fun4();break;
case 5:fun5();break;
default:break;
}
delay(300);
gettempTS();				//读取测得的环境温度
if(ON_OFF==1){ LAMPOUT=1;} else { LAMPOUT=1;}
if(nf==1)			//控制加热器工作
{
if(temp0<T &&(Dshour>=hour&&Dsmin>=min))
{delay(1000);
	if(temp0<T &&(Dshour>=hour&&Dsmin>=min)){JROUTflag=1;JROUT=0;}
	}
if(temp0>=T+1&&(Dshour<hour&&Dsmin<min))
{delay(1000);
	if(temp0>=T+1&&(Dshour<hour&&Dsmin<min)){JROUTflag=0;JROUT=1;}
	}
else 
{ JROUTflag=0;JROUT=1;}

}
}

}
******************************************************************************* 
可烧录代码
:03000000020A5A97
:0C0A5A00787FE4F6D8FD75813602000EAE
:10080D002D2D2D20203A20203A20202D2D2D202059
:10081D00005345543A2020432053413A20202E20A6
:10082D00430057454C434F4D45202020202020208C
:10083D00004845414C54485920424F44592020000E
:1008D900E4FDFCC3ED9FEC9E501BE4FBFA0BBB004F
:1008E900010AEB643C4A70F575A61E75A6E10DBDBB
:0508F90000010C80DE8F
:0108FE0022D7
:0409D5007D017F0C15
:1009D9008F16ED6003120A06851680C2B3C2A6C23D
:0609E900B5C2B5D2B52233
:100A1B008F16120A06851680D2B3C2A6C2B5C2B50E
:030A2B00D2B5221F
:100A06007580FFC2B3D2A6C2B5C2B5D2B5E5802005
:050A1600E7FBAF8022A8
:1008FF007D017F381209D97D017F081209D97D0149
:10090F007F011209D97D017F061209D97D017F0C64
:03091F000209D9F1
:0F088800E52C75F00A84E5F02430FBE4FD7F0ACF
:100897008B1553050153070FED60034307404307CB
:0B08A70080E4FD1209D9AF15020A1B06
:07084D007A087B0DE4FDFFBA
:080854008F108D118A128B1325
:10085C00E4F51453110153100FE510D3940F501BF2
:10086C00E5132514F582E43512F583E493FBAD1101
:0B087C00AF101208970514051080DE75
:01088700224E
:100A2E00758901758C3C758AC5D28CD2A9D2AF223C
:03000B0002075594
:10075500C0E0C0F0C083C082C0D075D008758C3CA5
:10076500758AC50521052FE521C394144005052C7F
:10077500752100E52CC3943C4005052E752C00C35E
:10078500E52E648094BC4005052D752E00C3E52D2E
:10079500648094984003752D00E52FC394064003AB
:1007A500752F001208B2D0D0D082D083D0F0D0E01F
:0107B5003211
:100199001209D512084D7A087B1E7D01E4FF120869
:1001A90054E52D75F00A1209222430FBE4FD7F0382
:1001B900120897E52D75F00A120922AFF0EF2430E5
:1001C900FBE4FD7F04120897E52E75F00A12092257
:1001D9002430FBE4FD7F06120897E52E75F00A121C
:1001E9000922AFF0EF2430FBE4FD7F07120897E501
:1001F9002C75F00A842430FBE4FD7F09120897125C
:100209000888E53175F00A1209222430FB7D017F47
:1002190004120897E53175F00A120922AFF0EF24AC
:1002290030FB7D017F05120897E53275F00A8424B9
:1002390030FB7D017F0B120897E53275F00A84E5E2
:10024900F02430FB7D017F0C120897E5332430FB45
:100259007D017F0E1208972003117B4FE4FD7F0E6D
:100269001208977B46E4FD7F0F801E7B4FE4FD7FDC
:100279000E1208977B4EE4FD7F0F12089730010498
:0D0289007B7C80027BEFE4FDFF12089722D2
:100296001209D512084D7A087B1E7D01E4FF12086B
:1002A60054E52E75F00A1209222430FBE4FD7F0680
:1002B600120897E52E75F00A120922AFF0EF2430E6
:1002C600FBE4FD7F07120897E52C75F00A842430BD
:1002D600FBE4FD7F09120897120888E53175F00ADC
:1002E6001209222430FB7D017F04120897E531753F
:1002F600F00A120922AFF0EF2430FB7D017F0512D0
:100306000897E53275F00A842430FB7D017F0B12D5
:100316000897E53275F00A84E5F02430FB7D017F0D
:100326000C120897E5332430FB7D017F0E120897E7
:100336007D017F0F1209D9E52D75F00A12092224D5
:1003460030FBE4FD7F03120897E52D75F00A1209CC
:0E03560022AFF0EF2430FBE4FD7F0402089795
:100364001209D512084D7A087B1E7D01E4FF12089C
:1003740054E52D75F00A1209222430FBE4FD7F03B5
:10038400120897E52D75F00A120922AFF0EF243018
:10039400FBE4FD7F04120897E52C75F00A842430F1
:1003A400FBE4FD7F09120897120888E53175F00A0D
:1003B4001209222430FB7D017F04120897E5317570
:1003C400F00A120922AFF0EF2430FB7D017F051201
:1003D4000897E53275F00A842430FB7D017F0B1207
:1003E4000897E53275F00A84E5F02430FB7D017F3F
:1003F4000C120897E5332430FB7D017F0E12089719
:100404007D017F0F1209D9E52E75F00A1209222405
:1004140030FBE4FD7F06120897E52E75F00A1209F9
:0E04240022AFF0EF2430FBE4FD7F07020897C3
:100432001209D512084D7A087B1E7D01E4FF1208CD
:1004420054E52D75F00A1209222430FBE4FD7F03E6
:10045200120897E52D75F00A120922AFF0EF243049
:10046200FBE4FD7F04120897E52E75F00A120922BB
:100472002430FBE4FD7F06120897E52E75F00A1280
:100482000922AFF0EF2430FBE4FD7F07120897E565
:100492002C75F00A842430FBE4FD7F0912089712C0
:1004A2000888E53275F00A842430FB7D017F0B1247
:1004B2000897E53275F00A84E5F02430FB7D017F70
:1004C2000C120897E5332430FB7D017F0E1208974A
:1004D2007D017F0F1209D9E53175F00A1209222434
:1004E20030FB7D017F04120897E53175F00A12098D
:0E04F20022AFF0EF2430FB7D017F050208975A
:100500001209D512084D7A087B1E7D01E4FF1208FE
:1005100054E52E75F00A1209222430FBE4FD7F0613
:10052000120897E52E75F00A120922AFF0EF243079
:10053000FBE4FD7F07120897E52C75F00A84243050
:10054000FBE4FD7F09120897120888E53175F00A6F
:100550001209222430FB7D017F04120897E53175D2
:10056000F00A120922AFF0EF2430FB7D017F051263
:100570000897E53275F00A842430FB7D017F0B1269
:100580000897E53275F00A84E5F02430FB7D017FA1
:100590000C120897E5332430FB7D017F0E1208977B
:1005A0007D017F0F1209D9E53575F00A1209222461
:1005B00030FBE4FD7F03120897E53575F00A120958
:0E05C00022AFF0EF2430FBE4FD7F0402089729
:1005CE001209D512084D7A087B1E7D01E4FF120830
:1005DE0054E52D75F00A1209222430FBE4FD7F0349
:1005EE00120897E52D75F00A120922AFF0EF2430AC
:1005FE00FBE4FD7F04120897E52C75F00A84243085
:10060E00FBE4FD7F09120897120888E53175F00AA0
:10061E001209222430FB7D017F04120897E5317503
:10062E00F00A120922AFF0EF2430FB7D017F051294
:10063E000897E53275F00A842430FB7D017F0B129A
:10064E000897E53275F00A84E5F02430FB7D017FD2
:10065E000C120897E5332430FB7D017F0E120897AC
:10066E007D017F0F1209D9E53675F00A1209222491
:10067E0030FBE4FD7F06120897E53675F00A120985
:0E068E0022AFF0EF2430FBE4FD7F0702089757
:1008B2007590FFE590F4601E7F0A7E001208D9E56C
:1008C20090F46012859034E534B4FE0312069CE580
:0708D20034B4F702B2032267
:10069C00E52FB4050E0530C3E53064809489400322
:1006AC00E4F530E52F64056003020754E53024FEC1
:1006BC00601F14603114604314605E24FE606F246C
:1006CC00066003020754300202C20220027AD202F0
:1006DC0022E534B4FD0E052DC3E52D6480949740BE
:1006EC0060752D17805BE534B4FD0E052EC3E52E29
:1006FC00648094BB4003752E3B8046E534B4FD17F3
:10070C000531AF31EF3395E0FEC3EF94C8EE648052
:10071C00948040037531C88028E534B4FD0E05354E
:10072C00C3E5356480949740037535178013E53421
:10073C00B4FD0E0536C3E536648094BB40037536B4
:09074C003B7F327E001208D92225
:060A4D00120A53120A53C5
:060A5300E4FF0FBF04FCEC
:010A5900227A
:06000300E4FF0FBF0FFC3B
:0100090022D4
:0F0A3E00D2A7C2A7120A4D120A53D2A700002254
:10098100D2A7C2A700000000000000D2A70000000B
:0D09910000000000120A53120A53020A531C
:1009BA00D2A7C2A700000000D2A70000000000A230
:0A09CA00A79205120A4D0000A205D5
:0109D4002200
:10099E00D2A7C2A7E4FE1200030EBE08F9D2A7200A
:0B09AE00A7FDE4FE1200030EBE08F9D6
:0109B900221B
:0509630012099E7FCC8B
:02096800AE07D8
:10096A00E4FDEE30E0051209818003120A3EEEC36F
:06097A0013FE0DBD08ECA8
:010980002254
:10094400E4FEFD1209BA92043004010E7801AF06E8
:0E095400EF08800103D8FDFE0DBD08E7AF06D9
:010962002272
:1009EF001209637F4E1209687F641209687F8A12A9
:0709FF0009687F1F0209686F
:1007B6001209637F441209687FC87E001208D912A5
:1007C60009637FBE1209681209448F331209448FE8
:1007D6003212094412094412094412094412094406
:1007E600120944120944E532C454F0F532E5335493
:1007F600F0C4540F2532F532E533540F60047F05FB
:0708060080027F008F332206
:10000E007FF47E011208D975A61E75A6E1120A2E7E
:10001E0075A61E75A6E17A087B2FE4FDFF12085423
:10002E0075A61E75A6E17A087B3EE4FDFF12085404
:10003E0075A61E75A6E17F887E131208D975A61EB9
:10004E0075A6E112084D75A61E75A6E17A087B1EEF
:10005E007D01E4FF1208541209EF75A61E75A6E184
:10006E00E53014601514601714601914601B1460C9
:10007E001D2405701C12019980171202968012120F
:10008E000364800D120432800812050080031205ED
:10009E00CE7F2C7E011208D91207B6D2B73002C01D
:1000AE00AF31EF3395E0FEC3E5329FEE6480F87416
:1000BE0080985051C3E52D6480F8E53564809840F2
:1000CE0044E52E6480F8E53664809840387FE87EFB
:1000DE00031208D9AF31EF3395E0FEC3E5329FEE40
:1000EE006480F8748098501DC3E52D6480F8E53562
:1000FE006480984010E52E6480F8E5366480984060
:10010E0004D201C2B6AF31EF3395E0FEEF2401FF0A
:10011E00E43EFEC3E5329FEE6480F874809840643E
:10012E00E52D6480F8E5356480985058C3E52E645B
:10013E0080F8E536648098504B7FE87E031208D92C
:10014E00AF31EF3395E0FEEF2401FFE43EFEC3E551
:10015E00329FEE6480F8748098500302006EE52D95
:10016E006480F8E535648098400302006EC3E52E86
:10017E006480F8E536648098400302006EC201D2B6
:0B018E00B602006EC201D2B602006E85
:10092200C2D530F707B2D563F0FF05F030E70CB25D
:10093200D5F4048463F0FF05F080018430D502F41D
:0209420004228D
:00000001FF