#include ".\main.h"
#include <stdio.h>
#include <string.h>
#include <stdlib.h>
#define DELKA 40
#define VYKON 100
char odp[DELKA];
int1 check_new_sms()
{
fprintf(MOBIL,"AT+CMGL=0\r"); //vycti prijate SMS (0=nove;1=vsechny)
while(fgetc(MOBIL)!=0x0A); // predkoc prvni radek odpovedi
odp[0]=fgetc(MOBIL); // Nacti prvni dva znaky druheho radku odpovedi
odp[1]=fgetc(MOBIL);
while(fgetc(MOBIL)!=0x0A); // Preskoc zbytek radku
if(odp[0] == 'O' && odp[1] == 'K') return 1;
else return 0;
}
read_sms()
{
int pom,pom2,pom3,odkl,odkl2,maskovadlo;
for(pom=0;pom<54;pom++) //preskoc nedulezite informace
{
fgetc(MOBIL);
}
//gets(odp); //uloz zakodovany text SMS
odp[0]=fgetc(MOBIL);
odp[1]=fgetc(MOBIL);
odp[2]=fgetc(MOBIL);
odp[3]=fgetc(MOBIL);
odp[4]=fgetc(MOBIL);
odp[5]=fgetc(MOBIL);
odp[6]=fgetc(MOBIL);
odp[7]=fgetc(MOBIL);
/*lcd_gotoxy(1,1);
printf(lcd_putc,"\f%s\n",odp);*/
if(odp[0]==0) odp[1]='0'; // Prevod z ASCII do BIN
odp[0]=odp[0] - '0';
odp[1]=odp[1] - '0';
if(odp[0]>9) odp[0]=odp[0]-7;
if(odp[1]>9) odp[1]=odp[1]-7;
odp[0]=odp[0] << 4;
odp[0] |= odp[1];
if(odp[2]==0) odp[3]='0';
odp[2]=odp[2] - '0';
odp[3]=odp[3] - '0';
if(odp[2]>9) odp[2]=odp[2]-7;
if(odp[3]>9) odp[3]=odp[3]-7;
odp[2]=odp[2] << 4;
odp[2] |= odp[3];
if(odp[4]==0) odp[5]='0';
odp[4]=odp[4] - '0';
odp[5]=odp[5] - '0';
if(odp[4]>9) odp[4]=odp[4]-7;
if(odp[5]>9) odp[5]=odp[5]-7;
odp[4]=odp[4] << 4;
odp[4] |= odp[5];
if(odp[6]==0) odp[7]='0';
odp[6]=odp[6] - '0';
odp[7]=odp[7] - '0';
if(odp[6]>9) odp[6]=odp[6]-7;
if(odp[7]>9) odp[7]=odp[7]-7;
odp[6]=odp[6] << 4;
odp[6] |= odp[7];
odp[1]=odp[2];
odp[2]=odp[4];
odp[3]=odp[6];
odp[4]=odp[5]=odp[6]=0;
/*lcd_gotoxy(1,2);
printf(lcd_putc,"%u %u %u %u",odp[0],odp[1],odp[2]odp[3]); */
pom3=0;
for (pom = 0; pom < 4;pom++)
{
maskovadlo = maskovadlo >> 1; //rotace promene urcene pro maskovani
maskovadlo = maskovadlo | 0x80;
odkl = odp[pom] & maskovadlo; //odlozeni "prenosu" do odkl pomoci maskovadla
odp[pom] = odp[pom] << pom3; //rotace znaku
for (pom2 = 0; pom2 < (8-pom3);pom2++) //rotace odkl2
{
odkl2 = odkl2 >> 1;
odkl2 = odkl2 & 127;
}
odp[pom] = odp[pom] | odkl2; //pridani odkl2 ke znaku
odp[pom] = odp[pom] & 127; //smazani nejvysiho bitu
odkl2 = odkl; //ulozeni odlk na dalsi pruchod
pom3++; //inkrementace citace rotace
if (pom3 == 8) //kazdy 8my znak
{
pom3 = 0; //smaz citac
odp[pom+1] = odkl2; //uloz 8my znak vznikly z "prenosu"
maskovadlo = 0; //smaz maskovadlo
}
}
odp[pom]='\0';
}
void read_time()
{
unsigned int8 n;
fprintf(MOBIL,"AT+CCLK?\r");
while(fgetc(MOBIL)!='"');
for(n=0;n<12;n++) //preskoc nedulezite informace
{
fgetc(MOBIL);
}
odp[0]=fgetc(MOBIL);
odp[1]=fgetc(MOBIL);
odp[2]=0;
}
void del_sms()
{
fprintf(MOBIL,"AT+CMGD=1\r"); //smaz prijatou SMSku
}
void main()
{
setup_adc_ports(NO_ANALOGS);
setup_adc(ADC_OFF);
setup_spi(SPI_SS_DISABLED);
setup_timer_0(RTCC_INTERNAL|RTCC_DIV_1);
setup_timer_1(T1_DISABLED);
setup_timer_2(T2_DIV_BY_4,255,1);
setup_ccp1(CCP_PWM);
setup_ccp2(CCP_PWM);
setup_comparator(NC_NC_NC_NC);
setup_vref(FALSE);
setup_wdt(WDT_2304MS);
set_pwm1_duty(0);
set_pwm2_duty(0);
while(TRUE)
{
unsigned int8 n;
char *ptr;
int time;
output_low(PIN_A4) ;
delay_ms(150);
output_high(PIN_A4);
delay_ms(150);
output_low(PIN_A4) ;
delay_ms(150);
output_high(PIN_A4);
delay_ms(150);
if(check_new_sms()) // Je odpoved "OK"?
{
// printf(lcd_putc,"736 655 250");
delay_ms(1000);
}
else
{
read_sms();
if (toupper(odp[0]) == 'A')
{
set_pwm1_duty(VYKON);
set_pwm2_duty(VYKON);
Delay_ms(10000);
fprintf(VRTULE,"JACK[BARmk"); // "JACK BAR :)"
Delay_ms(2000);
fprintf(VRTULE,"JACK[BARmk"); // "JACK BAR :)"
Delay_ms(5000);
set_pwm1_duty(0);
set_pwm2_duty(0);
del_sms();
break;
}
if (toupper(odp[0]) == 'B')
{
set_pwm1_duty(VYKON);
set_pwm2_duty(VYKON);
Delay_ms(10000);
for(n=0;n<=1;n++)
{
fprintf(VRTULE,"[ERROR[d[["); // " ERROR 3 "
Delay_ms(2000);
fprintf(VRTULE,"[OVERFLOW["); // " OVERFLOW "
Delay_ms(2000);
}
Delay_ms(5000);
set_pwm1_duty(0);
set_pwm2_duty(0);
del_sms();
break;
}
if (toupper(odp[0]) == 'C')
{
set_pwm1_duty(VYKON);
set_pwm2_duty(VYKON);
Delay_ms(10000);
for(n=0;n<=1;n++)
{
fprintf(VRTULE,"[ERROR[e[["); // " ERROR 4 "
Delay_ms(2000);
fprintf(VRTULE,"[OPAKUJTE["); // " OPAKUJTE "
Delay_ms(2000);
fprintf(VRTULE,"[[VOLBU[[["); // " VOLBU "
Delay_ms(2000);
}
Delay_ms(3000);
set_pwm1_duty(0);
set_pwm2_duty(0);
del_sms();
break;
}
if (toupper(odp[0]) == 'D')
{
set_pwm1_duty(VYKON);
set_pwm2_duty(VYKON);
Delay_ms(10000);
fprintf(VRTULE,"[[PEACE[[["); // " PEACE "
Delay_ms(2000);
fprintf(VRTULE,"[[PEACE[[[");
Delay_ms(3000);
set_pwm1_duty(0);
set_pwm2_duty(0);
del_sms();
break;
}
if (toupper(odp[0]) == 'E')
{
set_pwm1_duty(VYKON);
set_pwm2_duty(VYKON);
Delay_ms(10000);
for(n=0;n<=1;n++)
{
fprintf(VRTULE,"[[[MORE[[["); // " MORE "
Delay_ms(2000);
fprintf(VRTULE,"[[ZE[JO[[["); // " ZE JO "
Delay_ms(2000);
}
Delay_ms(5000);
set_pwm1_duty(0);
set_pwm2_duty(0);
del_sms();
break;
}
if (toupper(odp[0]) == 'F')
{
set_pwm1_duty(VYKON);
set_pwm2_duty(VYKON);
Delay_ms(10000);
for(n=0;n<=1;n++)
{
fprintf(VRTULE,"[ROZBITY[["); // " ROZBITY "
Delay_ms(2000);
fprintf(VRTULE,"[[BUDIK[[["); // " BUDIK "
Delay_ms(2000);
}
Delay_ms(5000);
set_pwm1_duty(0);
set_pwm2_duty(0);
del_sms();
break;
}
if (toupper(odp[0]) == 'G')
{
set_pwm1_duty(VYKON);
set_pwm2_duty(VYKON);
Delay_ms(10000);
for(n=0;n<=1;n++)
{
fprintf(VRTULE,"[ZAPOJIT[["); // " ZAPOJIT "
Delay_ms(2000);
fprintf(VRTULE,"[ZASUVKU[["); // " ZASUVKU "
Delay_ms(2000);
}
Delay_ms(5000);
set_pwm1_duty(0);
set_pwm2_duty(0);
del_sms();
break;
}
if (toupper(odp[0]) == 'H')
{
set_pwm1_duty(VYKON);
set_pwm2_duty(VYKON);
Delay_ms(10000);
for(n=0;n<=1;n++)
{
fprintf(VRTULE,"[[MARTIN[["); // " MARTIN "
Delay_ms(2000);
fprintf(VRTULE,"[[SVEJDA[["); // " SVEJDA "
Delay_ms(2000);
fprintf(VRTULE,"[[TOMAS[[["); // " TOMAS "
Delay_ms(2000);
fprintf(VRTULE,"[[[KAPL[[["); // "KAPL"
Delay_ms(2000);
fprintf(VRTULE,"[[JAKUB[[["); // " JAKUB "
Delay_ms(2000);
fprintf(VRTULE,"[[KAKONA[["); // "KAKONA"
Delay_ms(2000);
}
Delay_ms(3000);
set_pwm1_duty(0);
set_pwm2_duty(0);
del_sms();
break;
}
if (toupper(odp[0]) == 'I')
{
set_pwm1_duty(VYKON);
set_pwm2_duty(VYKON);
Delay_ms(10000);
for(n=0;n<=1;n++)
{
fprintf(VRTULE,"ODPOVED[NA"); // "ODPOVED NA"
Delay_ms(2000);
fprintf(VRTULE,"[[VASI[[[["); // " VASI "
Delay_ms(2000);
fprintf(VRTULE,"[[OTAZKU[["); // " OTAZKU "
Delay_ms(2000);
fprintf(VRTULE,"[[[[JE[[[["); // "JE"
Delay_ms(2000);
fprintf(VRTULE,"[[[[ec[[[["); // " 42 "
Delay_ms(2000);
}
Delay_ms(3000);
set_pwm1_duty(0);
set_pwm2_duty(0);
del_sms();
break;
}
else
{
set_pwm1_duty(VYKON);
set_pwm2_duty(VYKON);
Delay_ms(10000);
fprintf(VRTULE,"[[NEUMIS[["); // "NEUMIS"
Delay_ms(2000);
fprintf(VRTULE,"[[[PSAT[[["); // " PSAT "
Delay_ms(2000);
fprintf(VRTULE,"[[TRUBKO[["); // " TRUBKO "
Delay_ms(3000);
set_pwm1_duty(0);
set_pwm2_duty(0);
del_sms();
}
}
read_time();
time=strtoul(odp,&ptr,10);
if((time >= 30 && time <= 32) || (time >= 0 && time <= 2) || (time >= 45 && time <= 47) || (time >= 15 && time <= 17))
{
set_pwm1_duty(VYKON);
set_pwm2_duty(VYKON);
}
else
{
set_pwm1_duty(0);
set_pwm2_duty(0);
}
delay_ms(1000);
}
}