jest tylko kłopot z dodanym czasem opóźnienia np; trzy godziny.
Pomyślałem by "utrzymać" np; otwartą pętlę warunkową
jeżeli czas nastawy i zwłoka różna od 0 np;23:00 i zwłoka [godzina] 1*60 [aby było w minutach]
i teraz wykorzystując impulsy minutowe zegara systemowego odejmować je od czasu zwłoki
do chwili gdy zostanie spełniony warunek
czas nastawy równy czas zwłoki 0
Czy to ma szansę zadziałać ???
Wstawię cały kod to może będzie bardziej czytelniejsze...
[syntax=c]//################################################################
//# A T M E G A H O M E S O L A R S Y S T E M #
//################################################################
//----- wykorzystane porty ATMEGA 32 16Mhz
//PORTA >> PIN 0 do 4 pięć kanałów pomiarowych ADC
//PORTB >> PIN 0-podświetlenie LCD,1-RS,2-RW,3-E
//PORTB >> PIN 4-5-6-7 DATA
//PORTC >> PIN 0 - 1 I2C
//PORTC >> PIN 2 do 3 wyjścia sterujące zasilaczami
//PORTC >> PIN 4 do 7 wyjścia na przekażniki przez bufor ULN2003
//PORTD >> PIN 0 do 3 wolne
//PORTD >> PIN 3 do 7 pieć klawiszy
//----- umiejscowienie LCD wzgledem klawiszy
// ---------------------------klawisz 1
//|wiersz 1|klawisz 2
//|wiersz 2|klawisz 3
//|wiersz 3|klawisz 4
//|wiersz 4|klawisz 5
// ---------------------------
//#################################################################
#include <stdint.h>
#include <avr/io.h>
#include <stdlib.h>
#include <avr/interrupt.h>
#include "HD44780.h"
#include "i2c_twi.h"
#include <util/delay.h>
//********** funkcje przetwornika ADC
char buffer_n[8];
volatile uint16_t pomiar[6] __attribute__((section(".noinit")));
void inline SetAdcKanal(unsigned char kanal)
{ADMUX = ((ADMUX&0xE0)+ kanal);}
//********** funkcje konwersji
char dec_na_bcd(char num){return ((num/10 * 16) + (num % 10));}
char bcd_na_dec(char num){return ((num/16 * 10) + (num % 16));}
//********** definicje zmiennych dla ADC
double napiecie_aku,prad_in,napiecie_sol,prad_out,verify_zas,prad_aku;
float aku_err = 11.5;
float aku_min = 11.7;
float aku_max = 13.9;
float sol_min = 13.0;
float zas_ref = 10.0;
//********** adresy pamięci PCF8583
uint8_t rtc_adres[]={ 0x02,0x03,0x04,0x05,0x06};
uint8_t mem_addr[]={ 0x10,0x11,0x12,0x13,0x14,0x15,0x16,0x17,
0x18,0x19,0x1A,0x1B,0x1C,0x1D,0x1E,0x1F,
0x20,0x21,0x22,0x23,0x24,0x25,0x26,0x27,
0x28,0x29,0x2A,0x2B,0x2C,0x2D,0x2E,0x2F };
//********** definicje zmiennych dla pcf8583a
#define pcf8583 0xA2
char buffer_t[32];
uint8_t read_pcf[5];
uint8_t time[6]; //aktualny czas
uint8_t data[6]; //aktualna data
uint8_t set_godz,set_min,set_day,set_mc,week; //czas i data systemowa
//********** definicje zmiennych dla zegara sterującego
uint8_t time_zs1,time_zs2;
uint8_t set_h;//nastawy zegara sterującego - godziny
uint8_t set_m;//nastawy zegara sterującego - minuty
uint8_t set_delay;//nastawy zwloki czasu włacz/wyłacz zegara sterującego
uint8_t obwod[5];//numer kanału przekażnika lub optotriaka
uint8_t status[5];//status przekażnika / optotriaka
uint16_t timer[16];//suma czasu nastaw zegara sterującego
uint16_t time_sys;
//********** definicje MENU_LCD
unsigned char menu=0,key=0,komunikat;
//********** definicje ogólne
//*************************************************************************************
int main()
{
DDRB=0x01;//podświetlenie LCD (reszta pinów 4 bity,RS,RW,E pod LCD)
DDRC=0xFC;//wyjścia sterujące oraz SCL SDA układu rtc
PORTC=0x03;//pul-up dla SCL SDA INT1 układu rtc
DDRD=0x00;//wejścia klawiatura
PORTD=0xF8;//pull-up klawiatura
//----- LCD init LCD_menu init
LCD_Initalize();
_delay_ms(250);
menu=0;
//----- ADC init
ADMUX = _BV(REFS0)|_BV(REFS1)|_BV(ADLAR);
ADCSRA = _BV(ADEN)|_BV(ADPS0)|_BV(ADPS1)|_BV(ADPS2);
//----- TWI init
TWSR=0x00;
TWBR=0x48;//preskaler I2C ((F_CPU/100000UL-16);
sei();
//----- pętla główna progranu
while(1)
{
//=====================================================================================
//POMIARY NAPIĘĆ I PRĄDÓW
//=====================================================================================
int kan;
{
for(kan = 0; kan<5; kan++)
{
SetAdcKanal(kan);
ADCSRA |= (1 << ADSC);
while(ADCSRA & (1 << ADSC));
pomiar[kan] = (ADC | ADCH<<8);//odczyt kanalów ADC
}
napiecie_aku = (pomiar[0]/2.54)/1024;//napięcie akumulatora
prad_in = (pomiar[1]/2.54)/1024;//prąd zasilania
napiecie_sol = (pomiar[2]/2.54)/1024;//napięcie ogniwa fotogalwanicznego
prad_out = (pomiar[3]/2.54)/1024;//prąd obciążenia
verify_zas = (pomiar[4]/2.54)/1024;//monitorowanie zasilacza
_delay_ms(40);
prad_aku =(prad_in - prad_out);//prąd akumulatora
//================================================================================
//ODCZYT ZEGARA CZASU RZECZYWISTEGO RTC
//================================================================================
int a,ts,tsm,tsh,tsx;
{
for(a=0;a<5;a++){read_pcf[a] = TWI_read(pcf8583,rtc_adres[a]);}
real_time[1] = bcd_na_dec(read_pcf[2]); //sekundy
real_time[2] = bcd_na_dec(read_pcf[3]); //minuty
real_time[3] = bcd_na_dec(read_pcf[4]); //godziny
real_time[4] = bcd_na_dec(read_pcf[5] & 0x3F);//dni miesiąca
real_time[5] = bcd2dec(read_pcf[6] & 0x1F); //miesiące
real_time[6] = (read_pcf[5] & 0xC0) >> 6; //lata
real_time[7] = (read_pcf[6] & 0xE0) >> 5 ; //dni tygodnia
// zamiana czasu na postać liczby czterocyfrowej aby było
// łatwiej wykonać porównanie czasu systemowego z nastawą zegara sterujacego
real_time[0]=(real_time[3]*60)+real_time[2]; //1439 = godz 23:59
//==============================================================================
// porównanie czasu systemowego z nastawami zegara sterującego
// uwzględniajac brak lub dodany czas zwłoki
//==============================================================================
}
for(ts=0;ts<16;ts++)//pętla odczytu nastaw zegara sterującego
{
tsh = TWI_read(pcf8583,rtc_adres[ts]);//odczyt nastawy godzin
tsm = TWI_read(pcf8583,rtc_adres[ts]);//odczyt nastawy minut
tsx=(tsh*60+tsm)//suma godzin i minut
if(real_time[0]==tsx
//porównanie czasu dla danego kanału wyznacz0onego zmienną ts
{
//w założeniu zmienna ts powinna określić kanał [1 do4] i podjąć akcję
//załączenia lub wyłączenia
}
}
//*************************************************************************************
// OBSŁUGA KLAWIATURY
//*************************************************************************************
if(key>0)
{
if(!(PIND & _BV(3))){_delay_ms(100);key=1;_delay_ms(100);PORTB |= _BV(0);}
if(!(PIND & _BV(4))){_delay_ms(100);key=2;_delay_ms(100);PORTB |= _BV(0);}
if(!(PIND & _BV(5))){_delay_ms(100);key=3;_delay_ms(100);PORTB |= _BV(0);}
if(!(PIND & _BV(6))){_delay_ms(100);key=4;_delay_ms(100);PORTB |= _BV(0);}
if(!(PIND & _BV(7))){_delay_ms(100);key=5;_delay_ms(100);PORTB |= _BV(0);}
}
//=====================================================================================
char *t_dzien[7]={"Poniedzialek"," Wtorek"," Sroda",
" Czwartek "," Piatek"," Sobota"," Niedziela"};
char *t_adc[5]={"!AWARIA!","zasilacz","solar ","stanby "};
char *t_obwod[4]={"* MIKROFALOWKA *","* PLYTA KUCHENNA *",
"* SPRZET R&TV *","* ZASILACZ REZERWA *"};
char *t_status[2]={"zalaczony ","wylaczony "};
//*************************************************************************************
// OBSŁUGA WYŚWIETLACZA
//*************************************************************************************
switch(menu)
{
case 0:// WYŚWETLANIE CZASU - DATY - DNIA TYGODNIA
if(key=0)
{
LCD_GoTo(0,1);LCD_WriteText("** : : **");
LCD_GoTo(6,1);LCD_WriteText(dtostrf(real_time[3],2,0,buffer_t));
LCD_GoTo(9,1);LCD_WriteText(dtostrf(real_time[2],2,0,buffer_t));
LCD_GoTo(12,1);LCD_WriteText(dtostrf(real_time[1],2,0,buffer_t));
LCD_GoTo(20,0);LCD_WriteText("** **");
LCD_GoTo(24,0);LCD_WriteText(t_dzien[week]);
LCD_GoTo(20,1);LCD_WriteText(dtostrf(real_time[4],2,0,buffer_t));
LCD_GoTo(26,1);LCD_WriteText(dtostrf(real_time[5],2,0,buffer_t));
LCD_GoTo(29,1);LCD_WriteText(dtostrf(real_time[6],2,0,buffer_t));
//uzupełnienie nie wyswietlanej cyfy gdy dzięsiatki mają wartośc 0
if(real_time[3] <10){LCD_GoTo(6,1);LCD_WriteText("0");}
if(real_time[2]<10){LCD_GoTo(9,1);LCD_WriteText("0");}
if(real_time[1] <10){LCD_GoTo(12,1);LCD_WriteText("0");}
if(real_time[4]<10){LCD_GoTo(26,1);LCD_WriteText("0");}
if(real_time[6] <10){LCD_GoTo(29,1);LCD_WriteText("0");}
}
else //opcje menu
{
LCD_GoTo(0,0);LCD_WriteText(" STATUS ZASILANIA >");
LCD_GoTo(0,0);LCD_WriteText(" STEROWANIE MANUALNE>");
LCD_GoTo(0,0);LCD_WriteText(" USTAW CZAS SYSTEMU.>");
LCD_GoTo(0,0);LCD_WriteText(" USTAW CZAS TIMERA >");
if(key==1){menu=1; key=0;}
if(key==2){menu=2; key=0;}
if(key==3){menu=3; key=0;}
if(key==4){menu=4; key=0;}
if(key==5){menu=5; key=0;}
}
case 1://MONITORING I STATUS ZASILANIA OBWODÓW NISKONAPIĘCIOWYCH
LCD_GoTo(0,0);LCD_WriteText("Stan systemu ");
LCD_GoTo(13,0);LCD_WriteText(t_adc[komunikat]);
_delay_ms(1000);
LCD_GoTo(0,1);LCD_WriteText("AKU V SOL V ");
_delay_ms(1000);
LCD_GoTo(4,1);LCD_WriteText(dtostrf(napiecie_aku,4,2,buffer_n));
LCD_GoTo(14,1);LCD_WriteText(dtostrf(napiecie_sol,4,2,buffer_n));
_delay_ms(1000);
LCD_GoTo(20,0);LCD_WriteText("POWER AKUM OBCI ");
_delay_ms(1000);
LCD_GoTo(20,1);LCD_WriteText(dtostrf(prad_in,4,2,buffer_n));
LCD_GoTo(25,1);LCD_WriteText(" ");
LCD_GoTo(27,1);LCD_WriteText(dtostrf(prad_aku,4,2,buffer_n));
LCD_GoTo(34,1);LCD_WriteText(dtostrf(prad_out,4,2,buffer_n));
_delay_ms(1000);
if(key==0){menu=0; key=0;}
break;
//=====================================================================================
case 2://STEROWANIE MANUALNE OBWODAMI
LCD_GoTo(0,0);LCD_WriteText(t_obwod[1]);
LCD_GoTo(0,0);LCD_WriteText(t_status[status[1]]);
LCD_GoTo(0,1);LCD_WriteText(t_obwod[2]);
LCD_GoTo(0,1);LCD_WriteText(t_status[status[2]]);
LCD_GoTo(20,0);LCD_WriteText(t_obwod[3]);
LCD_GoTo(20,0);LCD_WriteText(t_status[status[3]]);
LCD_GoTo(0,1);LCD_WriteText(t_obwod[4]);
LCD_GoTo(0,1);LCD_WriteText(t_status[status[4]]);
if(key==0){menu=0; key=0;}
if(key==2)//manualne załączenie lub wyłączenie obwódu nr.1
{if(status[1]==0)PORTC |= _BV(4);}else{PORTC &=~ _BV(4);status[1]=1;}
if(key==3)//manualne załączenie lub wyłączenie obwódu nr,22
{if(status[1]==0)PORTC |= _BV(5);}else{PORTC &=~ _BV(5);status[2]=1;}
if(key==4)////manualne załączenie lub wyłączenie obwódu nr.3
{if(status[1]==0)PORTC |= _BV(6);}else{PORTC &=~ _BV(6);status[3]=1;}
if(key==5)////manualne załączenie lub wyłączenie obwódu nr.4
{if(status[1]==0)PORTC |= _BV(7);}else{PORTC &=~ _BV(7);status[4]=1;}
break;
//=====================================================================================
case 3://PROGRAMOWANIE CZASU ZEGARA SYSTEMOWEGO
LCD_GoTo(0,0);LCD_WriteText("USTAW GODZINY >");
LCD_GoTo(20,0);LCD_WriteText("USTAW MINUTY >");
LCD_GoTo(0,1);LCD_WriteText("USTAW DZIEN >");
LCD_GoTo(20,1);LCD_WriteText("USTAW MIESIAC >");
if(key==2){if(++set_h >= 24){set_h++;set_h = 0;}key=0;}
if(key==3){if(++set_m >= 60){set_m++;set_m = 0;}key=0;}
if(key==4){if(++set_day >= 32){set_day++;set_day = 0;}key=0;}
if(key==5){if(++set_mc >= 12){set_mc++;set_mc = 0;}key=0;}
if(key==1)//--->> zapis czsu do pcf8583
{
TWI_write(pcf8583,0x04,dec_na_bcd(set_h)); // godziny
TWI_write(pcf8583,0x03,dec_na_bcd(set_m));// minuty
TWI_write(pcf8583,0x02,0x00);// sekundy
TWI_write(pcf8583,0x05,dec_na_bcd(set_day));// dzień
TWI_write(pcf8583,0x06,dec_na_bcd(set_mc));// miesiąc
set_godz=0;set_min=0;set_day=0;set_mc=0;key=0;
_delay_ms(1000);
}
break;
//=====================================================================================
case 4://PROGRAMOWANIE ZEGARA STERUJĄCEGO
unsigned char p_menu;
if(key==1)
{
for(a=0;a<15;a++){ a=p_menu ;rtc_adres[a]}
}
key=0;
// nastawy załącz / wyłącz niezależnie
// dla dni roboczych oraz dni wolnych
if(p_menu=0){LCD_GoTo(0,0);LCD_WriteText("*SPRZET RTV ZALACZ >");}
if(p_menu=1){LCD_GoTo(0,0);LCD_WriteText("*SPRZET RTV WYLACZ >");}
if(p_menu=2){LCD_GoTo(0,0);LCD_WriteText("*MICROFALA ZALACZ >");}
if(p_menu=3){LCD_GoTo(0,0);LCD_WriteText("*MICROFALA WYLACZ >");}
if(p_menu=4){LCD_GoTo(0,0);LCD_WriteText("*PŁYTA KUCH ZALACZ >");}
if(p_menu=5){LCD_GoTo(0,0);LCD_WriteText("*PŁYTA KUCH WYLACZ >");}
if(p_menu=6){LCD_GoTo(0,0);LCD_WriteText("*REZERWA WYLACZ >");}
if(p_menu=7){LCD_GoTo(0,0);LCD_WriteText("*REZERWA ZALACZ >");}
if(p_menu=8){LCD_GoTo(0,0);LCD_WriteText(" SPRZET RTV ZALACZ >");}
if(p_menu=9){LCD_GoTo(0,0);LCD_WriteText(" SPRZET RTV WYLACZ >");}
if(p_menu=10){LCD_GoTo(0,0);LCD_WriteText(" MICROFALA ZALACZ >");}
if(p_menu=11){LCD_GoTo(0,0);LCD_WriteText(" MICROFALA WYLACZ >");}
if(p_menu=12){LCD_GoTo(0,0);LCD_WriteText(" PŁYTA KUCH ZALACZ >");}
if(p_menu=13){LCD_GoTo(0,0);LCD_WriteText(" PŁYTA KUCH WYLACZ >");}
if(p_menu=14){LCD_GoTo(0,0);LCD_WriteText(" REZERWA ZALACZ >");}
if(p_menu=15){LCD_GoTo(0,0);LCD_WriteText(" REZERWA WYLACZ >");}
LCD_GoTo(20,0);LCD_WriteText("USTAW GODZINE >");
// wyświetl aktualny czas nastawy godzin danego kanału
// LCD_GoTo(14,1); LCD_WriteText(dtostrf(set_h,2,0,buffer_t));
// korekta nastawy godzin danego kanału
LCD_GoTo(14,1); LCD_WriteText(dtostrf(set_h,2,0,buffer_t));
LCD_GoTo(0,1);LCD_WriteText("USTAW MINUTY >");
// wyświetl aktualny czas nastawy minut danego kanału
//LCD_GoTo(17,1); LCD_WriteText(dtostrf(set_m,2,0,buffer_t));
// korekta nastawy minut danego kanału
LCD_GoTo(17,1); LCD_WriteText(dtostrf(set_m,2,0,buffer_t));
LCD_GoTo(20,1);LCD_WriteText("ZAPIS DO PAMIECI >");
if(key==2){if(++set_h >= 24){set_h++;set_h = 0;}key=0;}
if(key==3){if(++set_m >= 60){set_m++;set_m = 0;}key=0;}
if(key==5)//--->> zapis czasu do pcf8583
{
TWI_write(pcf8583[mem_addr[a]},dec_na_bcd(set_h)); // godziny
TWI_write(pcf8583[mem_adres[a+1],dec_na_bcd(set_m));// minuty
set_h=0;set_m=0;key=0;
_delay_ms(1000);
}
break;
}
}
}
//*************************************************************************************
//************************************ END MAIN ***************************************[/syntax]Statystyki: Napisane przez margas — 30 maja 2014, o 12:03
]]>