Versão limpa em 04/09/2014. Telnet funcionando.

Dependencies:   EthernetInterface mbed-rtos mbed NTPClient

Committer:
rebonatto
Date:
Mon Jan 18 18:01:59 2016 +0000
Revision:
42:d6f9ce115eaf
Parent:
38:132e83a591d0
Child:
43:69afea5f5a4d
Aquisi??o pelo AD sem DMA. Com FFT e envio.; Buffer em dobro para ocupar o mesmo. Trava com acesso a telnet e processamento de eventos.

Who changed what in which revision?

UserRevisionLine numberNew contents of line
rebonatto 0:66d8bd1f9d4c 1 /*
rebonatto 0:66d8bd1f9d4c 2 Novo projeto MBED_Limpo
rebonatto 0:66d8bd1f9d4c 3 Criado para: Tentar reduzir o consumo de memória.
rebonatto 0:66d8bd1f9d4c 4 - Tirei do Seetings
rebonatto 0:66d8bd1f9d4c 5 - m_MaxChannels --> tem constante (NUMBER_OF_CHANNELS). Se mudar tem de recompilar
rebonatto 0:66d8bd1f9d4c 6 - m_MaxOutlets --> tem constante (NUMBER_OF_OUTLETS). Se mudar tem de recompilar
rebonatto 0:66d8bd1f9d4c 7 - m_Samples --> tem constante (NUMBER_OF_SAMPLES). Se mudar tem de recompilar
rebonatto 0:66d8bd1f9d4c 8 - m_FreqBase --> Adicionei constante (FREQBASE). Se mudar tem de recompilar.
rebonatto 0:66d8bd1f9d4c 9 - m_NumNeighbors --> Não utilizado, sem acompanhamento
rebonatto 0:66d8bd1f9d4c 10 - m_Neighbor[] --> Não Utilizado, sem acompanhamento
rebonatto 0:66d8bd1f9d4c 11 - m_PortTCP --> Não Utilizado, sem acompanhamento
rebonatto 0:66d8bd1f9d4c 12 - m_ServerSocket --> Não Utilizado, sem acompanhamento
rebonatto 0:66d8bd1f9d4c 13 - m_Socket[] --> Não Utilizado, sem acompanhamento
rebonatto 0:66d8bd1f9d4c 14 - m_MaxTries --> Adicionei constante (MAXTRIES). Se mudar tem de recompilar.
rebonatto 0:66d8bd1f9d4c 15 */
rebonatto 42:d6f9ce115eaf 16
rebonatto 42:d6f9ce115eaf 17
rebonatto 42:d6f9ce115eaf 18 #define MSGWINDOW "Limpo - Version 5"
rebonatto 42:d6f9ce115eaf 19
rebonatto 0:66d8bd1f9d4c 20 #include <stdio.h>
rebonatto 0:66d8bd1f9d4c 21
rebonatto 0:66d8bd1f9d4c 22 #include "mbed.h"
rebonatto 0:66d8bd1f9d4c 23 #include "rtos.h"
rebonatto 0:66d8bd1f9d4c 24 #include "cmsis_os.h"
rebonatto 0:66d8bd1f9d4c 25 //#include "EthernetIf.h"
rebonatto 0:66d8bd1f9d4c 26 #include "EthernetInterface.h"
rebonatto 0:66d8bd1f9d4c 27 #include "Settings.h"
rebonatto 0:66d8bd1f9d4c 28 #include "Capture.h"
rebonatto 0:66d8bd1f9d4c 29 #include "Http_post.h"
rebonatto 0:66d8bd1f9d4c 30 //#include "CommTCP.h"
rebonatto 0:66d8bd1f9d4c 31 #include "SignalProcessor.h"
rebonatto 0:66d8bd1f9d4c 32 #include "EventDetector.h"
rebonatto 0:66d8bd1f9d4c 33 #include "limites.h"
rebonatto 0:66d8bd1f9d4c 34
rebonatto 0:66d8bd1f9d4c 35 #include "TelnetServer.h"
rebonatto 0:66d8bd1f9d4c 36
mlucas82 3:52419e510163 37 #include "tftpsrv.h"
mlucas82 3:52419e510163 38 #include "ntpc.h"
mlucas82 3:52419e510163 39
mlucas82 14:f756167f791f 40 #include "PmedLog.h"
mlucas82 14:f756167f791f 41
mlucas82 26:7e215fc0c118 42 #include "NTPClient.h"
mlucas82 26:7e215fc0c118 43
rebonatto 38:132e83a591d0 44 #include "whatchdog.h"
rebonatto 38:132e83a591d0 45
rebonatto 0:66d8bd1f9d4c 46 //__attribute((section("AHBSRAM0"),aligned)) char LargeBuffer[1024];
rebonatto 0:66d8bd1f9d4c 47 EthernetInterface eth;
rebonatto 38:132e83a591d0 48 Watchdog wdt;
rebonatto 0:66d8bd1f9d4c 49
rebonatto 0:66d8bd1f9d4c 50 void InitializeEthernetLink()
rebonatto 0:66d8bd1f9d4c 51 {
rebonatto 0:66d8bd1f9d4c 52 if(Settings::get_Dhcp())
rebonatto 0:66d8bd1f9d4c 53 //EthernetIf::Initialize(); //Use DHCP
rebonatto 0:66d8bd1f9d4c 54 eth.init(); //Use DHCP
rebonatto 0:66d8bd1f9d4c 55 else
rebonatto 0:66d8bd1f9d4c 56 //EthernetIf::Initialize(Settings::get_IpAddress(),Settings::get_Netmask(),Settings::get_Gateway());
rebonatto 0:66d8bd1f9d4c 57 eth.init(Settings::get_IpAddress(),Settings::get_Netmask(),Settings::get_Gateway());
rebonatto 0:66d8bd1f9d4c 58
rebonatto 0:66d8bd1f9d4c 59 //EthernetIf::Connect();
rebonatto 0:66d8bd1f9d4c 60 eth.connect();
rebonatto 0:66d8bd1f9d4c 61 //printf("IP Address is %s\n", EthernetIf::get_IpAddress());
rebonatto 0:66d8bd1f9d4c 62 printf("IP Address is NEW %s\n", eth.getIPAddress());
rebonatto 0:66d8bd1f9d4c 63 }
rebonatto 0:66d8bd1f9d4c 64
rebonatto 0:66d8bd1f9d4c 65 int main() {
rebonatto 42:d6f9ce115eaf 66 DigitalOut myled3(LED3); //The pushbutton or power on caused a reset
rebonatto 42:d6f9ce115eaf 67 DigitalOut myled4(LED4); //The watchdog timer caused a reset
rebonatto 38:132e83a591d0 68
rebonatto 38:132e83a591d0 69 if ((LPC_WDT->WDMOD >> 2) & 1){
rebonatto 42:d6f9ce115eaf 70 myled4 = 1;
rebonatto 38:132e83a591d0 71 PmedLog::WriteEntry(PMEDLOG_INITIALIZINGWDT);
rebonatto 38:132e83a591d0 72 }
rebonatto 38:132e83a591d0 73 else{
rebonatto 42:d6f9ce115eaf 74 myled3 = 1;
rebonatto 38:132e83a591d0 75 PmedLog::WriteEntry(PMEDLOG_INITIALIZING);
rebonatto 38:132e83a591d0 76 }
mlucas82 18:3e9ad4c03f85 77
rebonatto 42:d6f9ce115eaf 78 printf("\r\n %s \r\n", MSGWINDOW);
rebonatto 0:66d8bd1f9d4c 79 FILE *f;
rebonatto 42:d6f9ce115eaf 80
rebonatto 0:66d8bd1f9d4c 81 //Set Highest Priority
rebonatto 0:66d8bd1f9d4c 82 //osThreadSetPriority(osThreadGetId(),osPriorityHigh);
rebonatto 0:66d8bd1f9d4c 83
rebonatto 0:66d8bd1f9d4c 84 Settings::ReadFile();
rebonatto 0:66d8bd1f9d4c 85 //printf("Passou Settings, carregou arquivo\n");
rebonatto 0:66d8bd1f9d4c 86 //Settings::ShowValues();
rebonatto 0:66d8bd1f9d4c 87
rebonatto 0:66d8bd1f9d4c 88 InitializeEthernetLink();
rebonatto 32:8b108d8089e8 89 printf("Inicializou link Ethernet\n");
rebonatto 0:66d8bd1f9d4c 90
rebonatto 0:66d8bd1f9d4c 91 //Start HTTP POST service
rebonatto 42:d6f9ce115eaf 92 Thread http_post(HttpPost::HttpPost_Thread);
rebonatto 0:66d8bd1f9d4c 93
rebonatto 0:66d8bd1f9d4c 94 //Start TCP daemon service
rebonatto 0:66d8bd1f9d4c 95 //Thread TcpService(CommTCP::CommTCP_Thread);
rebonatto 0:66d8bd1f9d4c 96
rebonatto 0:66d8bd1f9d4c 97 //Start Telnet Service
rebonatto 42:d6f9ce115eaf 98 Thread telnetserver(TelnetServer::TelnetServer_Thread);
rebonatto 0:66d8bd1f9d4c 99
rebonatto 5:6860bed2d096 100 //Start TFTP Service
rebonatto 42:d6f9ce115eaf 101 //Thread tftpsrv(tftpsrv::tftpsrv_Thread);
rebonatto 0:66d8bd1f9d4c 102
rebonatto 5:6860bed2d096 103 //Start NTP Client for refresh time
rebonatto 5:6860bed2d096 104 //Thread ntpc(ntpc::ntpc_Thread);
mlucas82 22:a06c7bb05008 105 time_t tempo = time(NULL);
mlucas82 22:a06c7bb05008 106 if ((tempo+60) < 1420077600) set_time(1420077600);
rebonatto 0:66d8bd1f9d4c 107
rebonatto 29:fcfcb31a6362 108 // ntpClient.setTime("192.168.103.101");
mlucas82 26:7e215fc0c118 109
rebonatto 0:66d8bd1f9d4c 110 DisplayRAMBanks();
rebonatto 0:66d8bd1f9d4c 111
rebonatto 0:66d8bd1f9d4c 112 /*
rebonatto 0:66d8bd1f9d4c 113 unsigned short vet[256] = {2105,2105,2113,2127,2127,2125,2112,2113,2130,2130,2123,2112,2112,2128,2128,2123,2112,2113,2136,2136,2374,2551,2671,2869,2887,3036,2964,2964,2964,3145,3145,3206,3209,3298,3298,3264,3261,3208,3239,3239,3197,3197,3113,3032,3065,3065,3000,2901,2943,2943,2900,2852,2844,2863,2863,2838,2764,2791,2724,2724,2668,2710,2636,2658,2658,2606,2527,2443,2434,2434,2258,2066,2061,2080,2080,2063,2055,2055,2070,2070,2064,2051,2054,2069,2069,2062,2054,2058,2066,2309,2062,2052,2054,2067,2067,2063,2051,2049,2068,2068,2060,2053,2050,2067,2066,2069,2051,2053,2070,2070,2064,2050,2053,2070,2070,2062,2052,2055,2068,2068,2065,2052,2057,2072,2072,2064,2054,2054,2072,2072,2064,2053,2052,2069,2069,2064,2052,2053,2064,2064,2062,2049,2051,2067,2067,2059,2051,2050,2068,2068,2058,2046,2050,2068,2068,2061,2052,2058,2068,2068,2059,2052,2053,2067,2067,1744,1526,1471,1289,1289,1137,1142,1055,1120,1120,997,967,894,941,941,928,887,1001,949,949,1028,1105,1079,1191,1191,1223,1211,1223,1267,1267,1325,1267,1356,1327,1327,1369,1439,1381,1498,1498,1503,1503,1527,1545,1545,1635,1650,1778,1792,1792,1971,2108,2109,2126,2126,2124,2117,2118,2131,2131,2126,2118,2118,2138,2138,2134,2124,2114,2135,2135,2129,2121,2120,2136,2136,2128,2122,2122,2143,2120,2130,2120,2121,2139,2139,2130,2119,2121,2136,2136,2129};
rebonatto 0:66d8bd1f9d4c 114 float sen[12],cos[12],vm;
rebonatto 0:66d8bd1f9d4c 115 SignalProcessor::CalculateFFT(vet,sen,cos,&vm,1);
rebonatto 0:66d8bd1f9d4c 116
rebonatto 0:66d8bd1f9d4c 117 printf("VM = %f\n",vm);
rebonatto 0:66d8bd1f9d4c 118 for(int i=0;i<12;i++)
rebonatto 0:66d8bd1f9d4c 119 {
rebonatto 0:66d8bd1f9d4c 120 printf("SEN%d = %f, COS%d = %f\n",i,sen[i],i,cos[i]);
rebonatto 0:66d8bd1f9d4c 121 }
rebonatto 0:66d8bd1f9d4c 122 */
rebonatto 38:132e83a591d0 123 printf(PMEDLOG_INITIALIZINGWDT);
rebonatto 38:132e83a591d0 124 printf("\n\n");
rebonatto 0:66d8bd1f9d4c 125
rebonatto 0:66d8bd1f9d4c 126 //printf("0x%lx\n", LargeBuffer);
rebonatto 0:66d8bd1f9d4c 127
mlucas82 18:3e9ad4c03f85 128 PmedLog::WriteEntry(PMEDLOG_STARTED);
mlucas82 18:3e9ad4c03f85 129
rebonatto 38:132e83a591d0 130 /* Teste com WhatchDog
rebonatto 0:66d8bd1f9d4c 131 //Jump to the capture routine(will run on this thread)
rebonatto 0:66d8bd1f9d4c 132 thread1(NULL);
rebonatto 38:132e83a591d0 133 */
rebonatto 38:132e83a591d0 134
rebonatto 38:132e83a591d0 135 /* start test WahtchDog */
rebonatto 38:132e83a591d0 136 DigitalOut led1(LED1);
rebonatto 38:132e83a591d0 137 int n = 0;
rebonatto 38:132e83a591d0 138 float rms[NUMBER_OF_CHANNELS], mv2[NUMBER_OF_CHANNELS];
rebonatto 38:132e83a591d0 139 int under[NUMBER_OF_CHANNELS], over[NUMBER_OF_CHANNELS];
rebonatto 38:132e83a591d0 140
rebonatto 38:132e83a591d0 141 wdt.kick(10.0);
rebonatto 38:132e83a591d0 142
rebonatto 42:d6f9ce115eaf 143 Capture::InitializeAD();
rebonatto 38:132e83a591d0 144
rebonatto 38:132e83a591d0 145 while(1)
rebonatto 38:132e83a591d0 146 {
rebonatto 42:d6f9ce115eaf 147 //get sample values from 6 channels
rebonatto 42:d6f9ce115eaf 148 Capture::AcquireValues();
rebonatto 38:132e83a591d0 149
rebonatto 38:132e83a591d0 150 // Calcula o RMS dos 6 canais
rebonatto 38:132e83a591d0 151 SignalProcessor::CalculateRMSBulk(rms, mv2, under, over);
rebonatto 38:132e83a591d0 152
rebonatto 38:132e83a591d0 153 for(int i=0;i<6;i++){
rebonatto 38:132e83a591d0 154 EventDetector::get_Detector(i).ProcessEvent(rms[i], mv2[i], under[i], over[i]);
rebonatto 38:132e83a591d0 155 }
rebonatto 38:132e83a591d0 156
rebonatto 38:132e83a591d0 157 n++;
rebonatto 38:132e83a591d0 158 if(n==60)
rebonatto 38:132e83a591d0 159 {
rebonatto 38:132e83a591d0 160 printf("%.2f %.0f %.2f %.0f\t%.2f %.0f %.2f %.0f\t%.2f %.0f %.2f %.0f\n",rms[0], mv2[0],rms[1],mv2[1],rms[2],mv2[2],rms[3],mv2[3],rms[4],mv2[4],rms[5],mv2[5]);
rebonatto 38:132e83a591d0 161 led1 = !led1;
rebonatto 38:132e83a591d0 162 n=0;
rebonatto 38:132e83a591d0 163
rebonatto 38:132e83a591d0 164 PmedLog::Mark();
rebonatto 38:132e83a591d0 165 }
rebonatto 38:132e83a591d0 166
rebonatto 38:132e83a591d0 167 // End of main loop so "kick" to reset watchdog timer and avoid a reset
rebonatto 38:132e83a591d0 168 wdt.kick();
rebonatto 38:132e83a591d0 169
rebonatto 38:132e83a591d0 170 }
rebonatto 38:132e83a591d0 171 /* end test WahtchDog */
rebonatto 38:132e83a591d0 172
rebonatto 0:66d8bd1f9d4c 173 while(1){//never reaches here
mlucas82 18:3e9ad4c03f85 174 PmedLog::WriteEntry(PMEDLOG_WRONGCODE);
rebonatto 0:66d8bd1f9d4c 175 printf("Reset\n");
rebonatto 0:66d8bd1f9d4c 176 f = fopen(FILENAMERESET, "a");
rebonatto 0:66d8bd1f9d4c 177 if (f == NULL)
rebonatto 0:66d8bd1f9d4c 178 f = fopen(FILENAMERESET, "w");
rebonatto 0:66d8bd1f9d4c 179 fprintf(f, "Laco Errado\n");
rebonatto 0:66d8bd1f9d4c 180 fclose(f);
rebonatto 0:66d8bd1f9d4c 181 Thread::yield();
rebonatto 0:66d8bd1f9d4c 182 }
rebonatto 0:66d8bd1f9d4c 183 }
mlucas82 19:682cb884ec00 184