Details | Last modification | View Log | SVN | RSS feed
| Rev | Author | Line No. | Line |
|---|---|---|---|
| 171 | eqlazer | 1 | /** |
| 177 | eqlazer | 2 | * CAN Relay. |
| 3 | * |
||
| 4 | * |
||
| 5 | * @date 2006-12-17 |
||
| 6 | * @author Erik Larsson |
||
| 7 | * |
||
| 8 | * Observera! Applikationen är helt otestad! |
||
| 9 | * |
||
| 175 | eqlazer | 10 | * ADC=Vin*1024/Vref |
| 176 | eqlazer | 11 | * Vout=( 10 mV/C )( Temperature C ) + 500 mV |
| 175 | eqlazer | 12 | * |
| 176 | eqlazer | 13 | * Transmitts: DATA: <temperature high byte> <temperature low byte> <relay status> |
| 14 | * |
||
| 171 | eqlazer | 15 | */ |
| 16 | |||
| 177 | eqlazer | 17 | /* |
| 18 | * For testing with ATmega88 PDIP enable this fetaure |
||
| 19 | * Since PDIP doesn't have ADC7 it will use the ADC0 instead |
||
| 20 | */ |
||
| 21 | #define PDIP 0 |
||
| 22 | |||
| 171 | eqlazer | 23 | /*----------------------------------------------------------------------------- |
| 24 | * Includes |
||
| 25 | *---------------------------------------------------------------------------*/ |
||
| 26 | /* system files */ |
||
| 27 | #include <avr/io.h> |
||
| 28 | #include <avr/interrupt.h> |
||
| 29 | #include <avr/wdt.h> |
||
| 30 | #include <stdio.h> |
||
| 31 | /* lib files */ |
||
| 32 | #include <can.h> |
||
| 33 | #include <serial.h> |
||
| 34 | #include <timebase.h> |
||
| 177 | eqlazer | 35 | /* defines */ |
| 171 | eqlazer | 36 | #define OFF 0x00 |
| 37 | #define ON 0x01 |
||
| 176 | eqlazer | 38 | #define Vref 5 |
| 171 | eqlazer | 39 | |
| 175 | eqlazer | 40 | /*------------------------------------------------------------------------------ |
| 177 | eqlazer | 41 | * Read and send relay state (OPEN/CLOSED) and temperature |
| 175 | eqlazer | 42 | * ---------------------------------------------------------------------------*/ |
| 176 | eqlazer | 43 | void sendRelayStatus( Can_Message_t* msg, uint8_t state ) |
| 175 | eqlazer | 44 | { |
| 176 | eqlazer | 45 | int16_t temp; |
| 175 | eqlazer | 46 | |
| 176 | eqlazer | 47 | /* Start measureing */ |
| 48 | ADCSRA |= (1<<ADSC); |
||
| 175 | eqlazer | 49 | |
| 176 | eqlazer | 50 | /* Wait for conversion to complete */ |
| 51 | while( ADCSRA & (1<<ADSC) ){} |
||
| 175 | eqlazer | 52 | |
| 176 | eqlazer | 53 | msg->Id = 0x1201; // temporary ID |
| 175 | eqlazer | 54 | |
| 176 | eqlazer | 55 | msg->Data.bytes[0] = state; |
| 56 | |||
| 57 | /* Convert voltage to temperature */ |
||
| 58 | temp = (ADCL & (ADCH<<8)); |
||
| 59 | temp = temp*Vref/1024; |
||
| 60 | temp = (temp - 0.5)/(0.01); |
||
| 61 | |||
| 62 | msg->Data.bytes[1]= temp; |
||
| 63 | msg->Data.bytes[2]= (temp>>8); |
||
| 64 | msg->DataLength = 3; |
||
| 65 | |||
| 66 | Can_Send( &msg ); |
||
| 175 | eqlazer | 67 | } |
| 68 | |||
| 171 | eqlazer | 69 | /*----------------------------------------------------------------------------- |
| 70 | * Main Program |
||
| 71 | *---------------------------------------------------------------------------*/ |
||
| 72 | int main(void) { |
||
| 73 | |||
| 74 | uint8_t relayStatus; |
||
| 75 | |||
| 176 | eqlazer | 76 | Timebase_Init(); |
| 77 | Serial_Init(); |
||
| 78 | sei(); |
||
| 171 | eqlazer | 79 | |
| 176 | eqlazer | 80 | /* Turn relay off */ |
| 81 | PORTC &= ~(1<<PC1); |
||
| 171 | eqlazer | 82 | DDRC |= (1<<DDC1); |
| 175 | eqlazer | 83 | |
| 171 | eqlazer | 84 | relayStatus = OFF; |
| 85 | |||
| 175 | eqlazer | 86 | /* Initiate ADC for reading temperature sensor */ |
| 171 | eqlazer | 87 | |
| 175 | eqlazer | 88 | /* Wake up ADC */ |
| 89 | PRR &= ~(1<<PRADC); |
||
| 177 | eqlazer | 90 | #if PDIP |
| 91 | /* Enable AREF and ADC0 (For PDIP package) */ |
||
| 92 | ADMUX = 0x00; |
||
| 93 | #else |
||
| 94 | /* Enable AREF and ADC7 (For TQFP package) */ |
||
| 175 | eqlazer | 95 | ADMUX = 0x07; |
| 177 | eqlazer | 96 | #endif |
| 97 | |||
| 175 | eqlazer | 98 | ADCSRA |= (1<<ADEN); |
| 99 | |||
| 176 | eqlazer | 100 | printf("\n------------------------------------------------------------\n"); |
| 101 | printf( " CAN: Relay\n"); |
||
| 102 | printf( "------------------------------------------------------------\n"); |
||
| 171 | eqlazer | 103 | |
| 104 | |||
| 176 | eqlazer | 105 | printf("CanInit..."); |
| 106 | if (Can_Init() != CAN_OK) { |
||
| 107 | printf("FAILED!\n"); |
||
| 175 | eqlazer | 108 | }else{ |
| 109 | printf("OK!\n"); |
||
| 110 | } |
||
| 171 | eqlazer | 111 | |
| 175 | eqlazer | 112 | uint32_t timeStamp = 0; |
| 171 | eqlazer | 113 | |
| 175 | eqlazer | 114 | Can_Message_t txMsg; |
| 115 | Can_Message_t rxMsg; |
||
| 116 | txMsg.Id = 0; |
||
| 117 | txMsg.RemoteFlag = 0; |
||
| 118 | txMsg.ExtendedFlag = 1; |
||
| 119 | |||
| 120 | |||
| 121 | /* main loop */ |
||
| 122 | while (1) { |
||
| 123 | /* service the CAN routines */ |
||
| 124 | Can_Service(); |
||
| 125 | |||
| 126 | /* check if any messages have been received */ |
||
| 127 | while (Can_Receive(&rxMsg) == CAN_OK) { |
||
| 171 | eqlazer | 128 | /* This relay is adressed*/ |
| 129 | if( rxMsg.Id == 0x1200 ){ |
||
| 130 | |||
| 131 | if( rxMsg.Data.bytes[0] == 0x01 ){ |
||
| 132 | /* Turn relay on */ |
||
| 133 | |||
| 175 | eqlazer | 134 | /* Set as input and enable pull-up */ |
| 135 | DDRC &= ~(1<<DDC1); |
||
| 136 | PORTC |= (1<<PC1); |
||
| 137 | |||
| 171 | eqlazer | 138 | relayStatus = ON; |
| 139 | |||
| 140 | }else if(rxMsg.Data.bytes[0] == 0x02){ |
||
| 141 | /* Turn relay off */ |
||
| 142 | |||
| 176 | eqlazer | 143 | PORTC &= ~(1<<PC1); |
| 175 | eqlazer | 144 | DDRC |= (1<<DDC1); |
| 145 | |||
| 171 | eqlazer | 146 | relayStatus = OFF; |
| 147 | |||
| 148 | }else if(rxMsg.Data.bytes[0] == 0x03){ |
||
| 149 | /* Toggle relay */ |
||
| 150 | |||
| 151 | if(relayStatus == ON){ |
||
| 176 | eqlazer | 152 | PORTC &= ~(1<<PC1); |
| 175 | eqlazer | 153 | DDRC |= (1<<DDC1); |
| 176 | eqlazer | 154 | |
| 171 | eqlazer | 155 | relayStatus = OFF; |
| 175 | eqlazer | 156 | |
| 171 | eqlazer | 157 | }else{ |
| 175 | eqlazer | 158 | DDRC &= ~(1<<DDC1); |
| 159 | PORTC |= (1<<PC1); |
||
| 176 | eqlazer | 160 | |
| 171 | eqlazer | 161 | relayStatus = ON; |
| 162 | } |
||
| 163 | |||
| 164 | }else if(rxMsg.Data.bytes[0] == 0x04){ |
||
| 165 | /* Get relay status (ON/OFF?, temperature) */ |
||
| 176 | eqlazer | 166 | sendRelayStatus( &txMsg, relayStatus ); |
| 171 | eqlazer | 167 | } |
| 168 | } |
||
| 169 | } |
||
| 170 | |||
| 175 | eqlazer | 171 | // TODO |
| 172 | // ska status på relä och temperatur skickas periodiskt? |
||
| 173 | // tätare intervall om temperaturen kommer över en viss gräns? |
||
| 174 | |||
| 171 | eqlazer | 175 | if( Timebase_PassedTimeMillis(timeStamp) >=5000){ |
| 176 | timeStamp = Timebase_CurrentTime(); |
||
| 177 | eqlazer | 177 | /* Get relay status (ON/OFF?, temperature) and send */ |
| 171 | eqlazer | 178 | |
| 176 | eqlazer | 179 | sendRelayStatus( &txMsg, relayStatus ); |
| 171 | eqlazer | 180 | } |
| 177 | eqlazer | 181 | } |
| 182 | return 0; |
||
| 171 | eqlazer | 183 | } |
| 175 | eqlazer | 184 |