Niestety problem z migotaniem regulacji jest nadal..........co ciekawe na oscyloskopie wygląda jak by same impulsy od PC817 przychodziły niestabilne (offset w czasie). Trzeba by przetestować gdzieś na innej sieci niż u nas w firmie.
Czy ewentualnie da się to jakoś zniwelować programowo?
[syntax=c]
/*
* TermoW_main.c
*
* Created on: 08-01-2013
* Author: xxx
* Atmel toolchain 3.4.1
*/
// Biblioteki standardowe AVR
#include <avr/io.h>
#include <stdio.h>
#include <avr/interrupt.h>
#include <avr/eeprom.h>
#include <util/atomic.h>
#include <avr/pgmspace.h>
#include <util/delay.h>
// Biblioteki z Książki Mirka Kardasia
#include "LCD/lcd44780.h"
#include "1Wire/ds18x20.h"
#include "Keys/keys.h"
#include "MKUART/mkuart.h"
// moje makra i deklaracje
#include "common.h"
#include "menu.h"
#define T_MAX 600// Maksymalna temperatura - pomiaru - ustawienia
#define NOOFSAMPLES128UL // Ilość próbek na pomiar
/*********************** R E G U L A T O R - U S T A W I E N I A ***************************/
#define LICZBA_KROKOW 100
// czas trwania szpilki na PC814 (Detekcja ZERA) wyrażony w milisekundach np: 1,2,... albo np: 0.5
#define SZPILKA_MS 0.8
/*********************** R E G U L A T O R - U S T A W I E N I A ***************************/
#define __OCR_STEP ((F_CPU/8)*((1000-((SZPILKA_MS*100)/2))/LICZBA_KROKOW))/100000
// zmienne Sterowania Triakiem
volatile uint8_t kroki;
volatile int32_t kanal1;
volatile uint8_t ika1;
volatile uint16_t T_ustaw = 1, *wsk_T_ustaw, T_pomiar=0;
volatile uint8_t T_offset = 0;
volatile uint16_t offset = 0; // zmienne ADC
volatile uint32_t ADCVal, T_termopary;
volatile uint16_t Timer1, Timer2, Timer3, Timer4; // Timery programowe, do obsługi nie blokującej
int16_t E = 1; // zmienne epsilon
uint16_t Kp = 1, *wsk_Kp; // zmienne Kp
// Zmienne dotyczące zmiany trybu pracy
uint8_t mode, key_lock, key_down;
uint8_t Tryb(void);
TCFG eem_cfg EEMEM;// dane w pamięci EEPROM
TCFG ram_cfg;// dane w pamięci RAM
// Definicja znaku GCRAM stopnia
uint8_t stopien[] = {12,18,18,12,32,32,32,32}; // Znak stopnia
void ADC_init() // Inicjacja przetwarzania ADC
{
ADMUX= _BV(REFS0) | _BV(REFS1) | 0b0000;//Wew. referencyjne, kanał 0, wyrównanie do prawej
ADCSRA=_BV(ADEN) | _BV(ADIE) | _BV(ADPS2) | _BV(ADPS1) | _BV(ADPS0);//Włącz ADC, przerwania, preskaler 128
ADCSRA|=(_BV(ADFR) | _BV(ADSC));
}
uint8_t subzero, cel, cel_fract_bits; // definicja zmiennych do przechowywania pomiaru i znaku
int main()
{
// inicjalizacja UART
USART_Init(__UBRR);
timer2_init();// inicjacja timera0
timer0_init();// inicjacja timera2
DDRB |= (1<<PB2); // Wyjście na triak MOC302x
T_ZAR1_OFF;
// Przerywanie INT0
MCUCR |= (1<<ISC01)|(1<<ISC00);// zbocze narastające
GICR |= (1<<INT0);// odblokowanie INT0
lcd_init();// inicjacja LCD
PORTC |= K_up | K_down | K_OK | K_save; // ustawienie portu C dla klawiszy
if( Tryb() ) // jeśli klawisz wciśnięty z klawiszem reset
// (czyli zczytanie piewszego stanu klawisza)
{
mode = 0;// zmień tryb przełączania na zwykły wł/wył
lcd_locate(0,0);
lcd_str_P(PSTR("Tryb on/off"));
_delay_ms(1000);
lcd_cls();
}
else
{
mode = 1;// jeżeli nie to domyslnie proporcjonalny
lcd_locate(0,0);
lcd_str_P(PSTR("Tryb Proporcjonalny"));
_delay_ms(1000);
lcd_cls();
}
ADC_init();// inicjacja ADC
search_sensors();// Szukaj DSów na magistrali 1wire
DS18X20_start_meas( DS18X20_POWER_EXTERN, NULL );
/* czekamy 750ms na dokonanie konwersji przez podłączone czujniki */
_delay_ms(750); //wrzucic potem jakas ciekawa animacje zamiast delay
if( DS18X20_OK == DS18X20_read_meas(gSensorIDs[0], &subzero, &cel, &cel_fract_bits) ) display_temp(0);
else {
lcd_locate(1,0);
lcd_str(" error ");/* wyświetlamy informację o błędzie jeśli np brak czujnika lub błąd odczytu */
}
Load_Set();// Ładowanie ustaweń z eeprom
lcd_cls();
lcd_defchar(0x80,stopien); // definicja znaku stopnia w LCD
lcd_locate(0,0);// (y,x) współżędne wyświetlacza
lcd_str_P(PSTR("Tr:"));
lcd_int(T_pomiar);
lcd_locate(0,11);
lcd_str_P(PSTR("E:"));
lcd_int(E);
lcd_locate(1,8);
lcd_str_P(PSTR("Kan:"));
lcd_int(kanal1);
lcd_str("\x80"); // wyświetl znak jednostek (C - stopnie Celsiusza)
lcd_locate(1,0);
lcd_str_P(PSTR("Tz="));
lcd_int(T_ustaw);
lcd_str("\x80"); // wyświetl znak jednostek (C - stopnie Celsiusza)
ram_cfg.T_ustaw = T_ustaw;
// ************ Odblokowanie przerywań ******************
sei();
// ************ Główna pętla programu *******************
while(1)
{
// Klawiatura - Obsługa fizycznych klawiszy
static uint8_t up, down, ok, save;
SuperDebounce(&up, &PINC, K_up, 10, 100, klaw_up, klaw_up);
SuperDebounce(&down, &PINC, K_down, 10, 100, klaw_down, klaw_down);
SuperDebounce(&ok, &PINC, K_OK, 20, 100, klaw_menu, 0);
SuperDebounce(&save, &PINC, K_save, 0, 100, 0, F_save);
// Pomiar DS18x20
if( !Timer4 ){
Timer4 = 50;
DS18X20_start_meas( DS18X20_POWER_EXTERN, NULL );
}
// Wyświetl Pomiar
if( !Timer2 ){
Timer2 = 50;
// Jeżeli wykryjesz to pomiar z pierwszego sensora DS18x20
if( DS18X20_OK == DS18X20_read_meas(gSensorIDs[0], &subzero, &cel, &cel_fract_bits)){
// Obliczanie przesuniecia temperatury zimnych końców
offset = ( ( cel*10 ) + cel_fract_bits );
}
else { // Jeżeli błąd DS18x20 komunikat na wyświetlacz
lcd_locate(1,9);
lcd_str( "error" );
}
}
if( !Timer3 ){// Pomiar na Termoparze
Timer3 = 50; // pomiar raz na 500ms
F_Pomiar();
}
// sterowanie triakiem
if(mode)
{
E = ( T_ustaw-T_pomiar );
lcd_locate(0,11);
lcd_str_P(PSTR("E:"));
if(E<10){
lcd_locate(0,14);
lcd_str_P(PSTR(" "));
}
if(E<100){
lcd_locate(0,15);
lcd_str_P(PSTR(" "));
}
lcd_locate(0,13);
lcd_int(E);
if(E <= (-1))E=0;
kanal1 = E*Kp;
if( kanal1 >= 100 )kanal1 = 100;
if( kanal1 <= 0 )kanal1 = 0;
if( kanal1 < 10 ){
lcd_locate(1,14);
lcd_str_P(PSTR(" "));
}
if( kanal1 < 100 ){
lcd_locate(1,15);
lcd_str_P(PSTR(" "));
}
lcd_locate(1,12);
lcd_int(kanal1);
lcd_str("%");
}
else if(!mode){
if( T_pomiar <= T_ustaw )kanal1 = 100;
if( T_pomiar > T_ustaw )kanal1 = 0;
lcd_locate(0,10);
lcd_str_P(PSTR(" "));
lcd_locate(1,8);
lcd_str_P(PSTR(" "));
}
}// koniec petli głownej programu
}// Koniec main
// Obsługa funkcji klawiatury
void klaw_up(void){
lcd_locate(1,0);
lcd_str_P(PSTR(" "));
T_ustaw++;
if( T_ustaw > T_MAX )
{
T_ustaw = 0;
lcd_locate(1,0);
lcd_str_P(PSTR(" "));
}
if(T_ustaw<10)
{
lcd_locate(1,0);
lcd_str_P(PSTR(" "));
}
if(T_ustaw<100)
{
lcd_locate(1,0);
lcd_str_P(PSTR(" "));
}
lcd_locate(1,0);
lcd_str_P(PSTR("Tz="));
lcd_int(T_ustaw);
lcd_str("\x80"); // wyświetl znak jednostek (C - stopnie Celsiusza)
ram_cfg.T_ustaw = T_ustaw;
}
void klaw_down(void){ // Obsługa klawiatury
lcd_locate(1,0);
lcd_str_P(PSTR(" "));
T_ustaw--;
if(T_ustaw<=0)
{
T_ustaw=T_MAX;
lcd_locate(1,0);
lcd_str_P(PSTR(" "));
}
if(T_ustaw<10)
{
lcd_locate(1,0);
lcd_str_P(PSTR(" "));
}
if(T_ustaw<100)
{
lcd_locate(1,0);
lcd_str_P(PSTR(" "));
}
lcd_locate(1,0);
lcd_str_P(PSTR("Tz="));
lcd_int(T_ustaw);
lcd_str("\x80"); // wyświetl znak jednostek (C - stopnie Celsiusza)
ram_cfg.T_ustaw = T_ustaw;
}
void klaw_ok(void){
}
void klaw_menu(void){
main_menu();
lcd_locate(0,0);// (y,x) współżędne wyświetlacza
lcd_str_P(PSTR("Tr:"));
lcd_int(T_pomiar);
lcd_locate(1,0);
lcd_str_P(PSTR("Tz: "));
lcd_int(T_ustaw);
lcd_str("\x80"); // wyświetl znak jednostek (C - stopnie Celsiusza)
}
void F_save(void){
eeprom_write_block( &ram_cfg, &eem_cfg, sizeof(ram_cfg) );
lcd_cls();
lcd_str_P(PSTR("Zapisano ustaw"));
}
void Load_Set( void ) {
eeprom_read_block( &ram_cfg, &eem_cfg, sizeof(ram_cfg) );
wsk_Kp = &Kp;
*wsk_Kp = ram_cfg.Kp;
if( Kp <= 0)Kp = 1;
wsk_T_ustaw = &T_ustaw;
*wsk_T_ustaw = ram_cfg.T_ustaw;
if( T_ustaw <= 0)T_ustaw = 1;
}
void display_temp(uint8_t x) {
lcd_locate(0,x);
if(subzero) lcd_str("-");/* jeśli subzero==1 wyświetla znak minus (temp. ujemna) */
else lcd_str(" ");/* jeśli subzero==0 wyświetl spację zamiast znaku minus (temp. dodatnia) */
lcd_int(cel);/* wyświetl dziesiętne części temperatury */
lcd_str(",");/* wyświetl kropkę */
lcd_int(cel_fract_bits); /* wyświetl dziesiętne części stopnia */
lcd_str(" C "); /* wyświetl znak jednostek (C - stopnie Celsiusza) */
}
uint16_t GetTemperature() // Funcja zwracająca temperature termopary
{
uint32_t adc;
ATOMIC_BLOCK(ATOMIC_FORCEON)
{
adc=ADCVal; // -73UL; // błąd napiecia niezrównoważenia wzmacniacza 7.3mV
}
// Napięcie ref w mV * 10 = 25812UL (unsigned long) 1024 maksymalna wartość rejestru ADC
//
return ((((adc*25822UL)/(1024UL*NOOFSAMPLES))*234UL)/100UL); // Napięcie referencyje zmierzone na
// procesorze to 2,6645V stąd stała 26645UL
// 234/100 przelicznik wzmocnienia i pomiaru napiecia
// na temperature
}
void F_Pomiar(void){
lcd_locate(0,3);
lcd_str_P(PSTR(" "));
// Temperatura termopary zwracana w formie liczby calkowitej max 60000,
// gdzie dwa ostatnie zera to miejsca po przecinku
uint16_t pomiar = (GetTemperature()+(offset*10));
uint16_t cz_d = pomiar/100;// przeliczanie wartości znaczącej
uint8_t cz_u = (pomiar/10)%100;// a tu to co po przecinku
lcd_locate(0,4);
lcd_int(cz_d);
lcd_char(',');
lcd_int(cz_u);
lcd_str("\x80");// wyświetl znak jednostek (C - stopnie Celsiusza)
// Przeliczanie wartosci zwracanej przez funkcje do sterowania pomiarem
T_pomiar=((GetTemperature()+(offset*10))/100);
uart_puts("Tr=");
uart_putint(cz_d,10);//wysyłanie danych po rs
uart_putc(',');
uart_putint(cz_u,10);
uart_puts(" E:");
uart_putint(E,10);
wsk_T_ustaw = &T_ustaw;
uart_puts(" Tz=");
uart_putint(*wsk_T_ustaw,10);
uart_puts(" Kan:");
uart_putint(kanal1,10);
uart_puts(" Kp=");
uart_putint(Kp,10);
uart_puts("\r\n");
}
uint8_t Tryb(void)// tryb właczany domyslnie
{
if( KEY_DOWN )// klawisz wciśnięty ?
{
_delay_ms(80);// czas drgań styków
if( KEY_DOWN ) return 1; // jeśli wciśnięty? zakończ funkcję - rezultat = 1
}
return 0;// jeśli nie wciśnięty klawisz, zakończ funkcję, rezultat = 0
}
// Inicjacja TIMER0 dla softwerowych timerów
void timer0_init(void){
/*Przerywanie wygonywane jest z czestotliwoscia ok 10ms (100 razy na secunde)*/
/* Timer1 – inicjalizacja przerwania co 10ms */
TCCR0|= (1<<CS00)|(1<<CS02);// preskaler = 1024
// 8MHz / 1024 / 100Hz = 78 => 256 - 78 = 178: czyli 1ms
TCNT0 = 178;// przerwanie porównania co 10ms (100Hz)
TIMSK |= (1<<TOIE0);// Odblokowanie przerwania OverFlow
}
void timer2_init(void){
//************** TIMER2 Dla sterowania Triakiem *************************
#define TIMER2_START TCCR2 |= (1<<CS21)// prescaler=8
#define TIMER2_STOP TCCR2 &= ~(1<<CS21)// prescaler off
TCCR2 |= (1<<WGM21);// Tryb CTC
TIMSK |= (1<<OCIE2);// odblokowanie przerwania overflow
OCR2 = __OCR_STEP;
//************************************************************************
}
ISR(ADC_vect)// obsługa ADC, zbieranie próbek
{
static uint32_t ADCaccum;
static uint8_t sampleno;
ADCaccum+=ADC;
sampleno++;
if(sampleno==NOOFSAMPLES)
{
ADCVal=ADCaccum;
ADCaccum=0;
sampleno=0;
}
}
ISR(INT0_vect) {// Obsługa sterowania triaka
TIMER2_STOP;
T_ZAR1_OFF;
kroki=LICZBA_KROKOW;
/* podwójne buforowanie, synchronizacja do 50Hz */
ika1=kanal1;
TCNT2 = 0;
TIMER2_START;
}
ISR(TIMER0_OVF_vect)// Timer Softwerowy
{
TCNT0 = 178;
static uint16_t n;
n = Timer1;/* 100Hz Timer1 */ // n*10ms
if (n) Timer1 = --n;
n = Timer2;/* 100Hz Timer2 */
if (n) Timer2 = --n;
n = Timer3;/* 100Hz Timer2 */
if (n) Timer3 = --n;
n = Timer4;/* 100Hz Timer2 */
if (n) Timer4 = --n;
}
ISR(TIMER2_COMP_vect){// Timer2 dla obsługi triaka
if(ika1 && kroki == ika1) T_ZAR1_ON;
kroki--;
}
[/syntax]
regulator
iframe
drgania na PC817
iframe
Statystyki: Napisane przez Gość — 4 mar 2013, o 15:07
]]>
.
.