scott kelleher / Outdoor_UPAS_sharp_octet

all working version 2.0

Dependencies:   ADS1115 BME280 CronoDot SDFileSystem mbed

Fork of Outdoor_UPAS_v1_2_powerfunction by scott kelleher

main.cpp@12:5b4f3245606a, 2016-03-21 (annotated)

Committer:
caseyquinn
Date:
Mon Mar 21 23:14:46 2016 +0000
Revision:
12:5b4f3245606a
Parent:
11:aa21628a9b15
Child:
13:455601f62aad
Basic Tboard functionality. No i2c activated.

Who changed what in which revision?

UserRevisionLine numberNew contents of line
jelord 0:2cb2b2ea316f 1 #include "mbed.h"
caseyquinn 12:5b4f3245606a 2
caseyquinn 12:5b4f3245606a 3 /*
jelord 2:88fcbfadec6a 4 #include "SDFileSystem.h"
jelord 2:88fcbfadec6a 5 #include "Adafruit_ADS1015.h"
jelord 2:88fcbfadec6a 6 #include "MCP40D17.h"
jelord 2:88fcbfadec6a 7 #include "STC3100.h"
jelord 2:88fcbfadec6a 8 #include "LSM303.h"
jelord 2:88fcbfadec6a 9 #include "BME280.h"
jelord 2:88fcbfadec6a 10 #include "SI1145.h"
jelord 2:88fcbfadec6a 11 #include "NCP5623BMUTBG.h"
jelord 2:88fcbfadec6a 12 #include "CronoDot.h"
jelord 2:88fcbfadec6a 13 #include "EEPROM.h"
caseyquinn 12:5b4f3245606a 14 #include "Calibration.h"
caseyquinn 12:5b4f3245606a 15 #include "MAX_M8.h"
caseyquinn 12:5b4f3245606a 16 #include "DRV8830.h"
caseyquinn 12:5b4f3245606a 17 */
jelord 0:2cb2b2ea316f 18
caseyquinn 12:5b4f3245606a 19 /////////////////////////////////////////////
caseyquinn 12:5b4f3245606a 20 //General Items
caseyquinn 12:5b4f3245606a 21 /////////////////////////////////////////////
caseyquinn 12:5b4f3245606a 22 //I2C i2c(PB_9, PB_8);//(D14, D15);
caseyquinn 12:5b4f3245606a 23 Serial pc(USBTX, USBRX);
caseyquinn 12:5b4f3245606a 24 DigitalOut blower(PA_9, 0);//(D8, 0);
caseyquinn 12:5b4f3245606a 25 DigitalOut pbKill(PC_12, 1); // Digital input pin that conncect to the LTC2950 battery charger used to shutdown the UPAS
caseyquinn 12:5b4f3245606a 26 /*
caseyquinn 12:5b4f3245606a 27 DigitalIn nINT(PA_15); //Connected but currently unused is a digital ouput pin from LTC2950 battery charger. http://cds.linear.com/docs/en/datasheet/295012fd.pdf
jelord 2:88fcbfadec6a 28 MCP40D17 DigPot(&i2c);
caseyquinn 12:5b4f3245606a 29 BME280 bmesensor(PB_9, PB_8);//(D14, D15);
caseyquinn 12:5b4f3245606a 30 NCP5623BMUTBG RGB_LED(PB_9, PB_8);//(D14, D15);
caseyquinn 12:5b4f3245606a 31 CronoDot RTC_UPAS(PB_9, PB_8);//(D14, D15);
caseyquinn 12:5b4f3245606a 32 EEPROM E2PROM(PB_9, PB_8);//(D14, D15);
caseyquinn 12:5b4f3245606a 33 Calibration calibrations(1); //Default serial/calibration if there are no values for the selected option
caseyquinn 12:5b4f3245606a 34 */
caseyquinn 12:5b4f3245606a 35
caseyquinn 12:5b4f3245606a 36 /////////////////////////////////////////////
caseyquinn 12:5b4f3245606a 37 //RN4677 BT/BLE Module
caseyquinn 12:5b4f3245606a 38 /////////////////////////////////////////////
caseyquinn 12:5b4f3245606a 39 Serial microChannel(PB_10, PB_11); // tx, rx
caseyquinn 4:5d004fd997d5 40 DigitalOut bleRTS(PB_14, 0);
caseyquinn 4:5d004fd997d5 41 DigitalOut bleCTS(PB_13, 0);
caseyquinn 12:5b4f3245606a 42 DigitalOut BT_IRST(PC_8, 0);
caseyquinn 12:5b4f3245606a 43 DigitalOut BT_SW(PA_12, 0);
caseyquinn 12:5b4f3245606a 44
caseyquinn 12:5b4f3245606a 45 /*
caseyquinn 12:5b4f3245606a 46 /////////////////////////////////////////////
caseyquinn 12:5b4f3245606a 47 //Analog to Digital Converter
caseyquinn 12:5b4f3245606a 48 /////////////////////////////////////////////
caseyquinn 12:5b4f3245606a 49 Adafruit_ADS1115 ads(&i2c);
caseyquinn 12:5b4f3245606a 50 //DigitalIn ADS_ALRT(PA_10); //Connected but currently unused. (ADS1115) http://www.ti.com/lit/ds/symlink/ads1115.pdf
caseyquinn 12:5b4f3245606a 51
caseyquinn 12:5b4f3245606a 52 /////////////////////////////////////////////
caseyquinn 12:5b4f3245606a 53 //Battery Monitoring
caseyquinn 12:5b4f3245606a 54 /////////////////////////////////////////////
caseyquinn 12:5b4f3245606a 55 STC3100 gasG(PB_9, PB_8);//(D14, D15); // http://www.st.com/web/en/resource/technical/document/datasheet/CD00219947.pdf
caseyquinn 12:5b4f3245606a 56 DigitalIn bcs1(PC_9); //Charge complete if High. Connected but currently unused. (MCP73871) http://www.mouser.com/ds/2/268/22090a-52174.pdf
caseyquinn 12:5b4f3245606a 57 DigitalIn bcs2(PA_8); //Batt charging if High. Connected but currently unused. (MCP73871) http://www.mouser.com/ds/2/268/22090a-52174.pdf
caseyquinn 12:5b4f3245606a 58
caseyquinn 12:5b4f3245606a 59 /////////////////////////////////////////////
caseyquinn 12:5b4f3245606a 60 //Accelerometer and Magnometer
caseyquinn 12:5b4f3245606a 61 /////////////////////////////////////////////
caseyquinn 12:5b4f3245606a 62 LSM303 movementsensor(PB_9, PB_8);//(D14, D15); // http://www.st.com/web/en/resource/technical/document/datasheet/DM00027543.pdf
caseyquinn 12:5b4f3245606a 63 //DigitalIn ACC_INT1(PC_7); //Connected but currently unused. (LSM303)
caseyquinn 12:5b4f3245606a 64 //DigitalIn ACC_INT2(PC_6); //Connected but currently unused. (LSM303)
caseyquinn 12:5b4f3245606a 65 //DigitalIn ACC_DRDY(PC_11); //Connected but currently unused. (LSM303)
jelord 0:2cb2b2ea316f 66
caseyquinn 12:5b4f3245606a 67 /////////////////////////////////////////////
caseyquinn 12:5b4f3245606a 68 //UV and Visible Light Sensor
caseyquinn 12:5b4f3245606a 69 /////////////////////////////////////////////
caseyquinn 12:5b4f3245606a 70 SI1145 lightsensor(PB_9, PB_8);//(D14, D15);
caseyquinn 12:5b4f3245606a 71 //DigitalIn UV_INT(PD_2); //Connected but currently unused nor configured (interupt). (SI1145) https://www.silabs.com/Support%20Documents/TechnicalDocs/Si1145-46-47.pdf
caseyquinn 9:8646fd501832 72
caseyquinn 12:5b4f3245606a 73 /////////////////////////////////////////////
caseyquinn 12:5b4f3245606a 74 //GPS
caseyquinn 12:5b4f3245606a 75 /////////////////////////////////////////////
caseyquinn 12:5b4f3245606a 76 Max_M8 gps(PB_9, PB_8,(66<<1)); // this must be defnined in the int main (? Not sure if this is true)
caseyquinn 12:5b4f3245606a 77
caseyquinn 12:5b4f3245606a 78 /////////////////////////////////////////////
caseyquinn 12:5b4f3245606a 79 //Hbridge Valve Control
caseyquinn 12:5b4f3245606a 80 /////////////////////////////////////////////
caseyquinn 12:5b4f3245606a 81 DRV8830 motor1(PB_9, PB_8, 0xC4);
caseyquinn 12:5b4f3245606a 82 DRV8830 motor2(PB_9, PB_8, 0xCA);
caseyquinn 12:5b4f3245606a 83 DRV8830 motor3(PB_9, PB_8, 0xCC);
caseyquinn 12:5b4f3245606a 84 DRV8830 motor4(PB_9, PB_8, 0xCE);
caseyquinn 12:5b4f3245606a 85 DigitalIn hb_fault1(PA_6);
caseyquinn 12:5b4f3245606a 86 DigitalIn hb_fault2(PA_7);
caseyquinn 12:5b4f3245606a 87 DigitalIn hb_fault3(PA_5);
caseyquinn 12:5b4f3245606a 88 DigitalIn hb_fault4(PA_4);
caseyquinn 12:5b4f3245606a 89
caseyquinn 12:5b4f3245606a 90 /////////////////////////////////////////////
caseyquinn 12:5b4f3245606a 91 //SD Card
caseyquinn 12:5b4f3245606a 92 /////////////////////////////////////////////
caseyquinn 12:5b4f3245606a 93 char filename[] = "/sd/XXXX0000LOG000000000000---------------.txt";
caseyquinn 12:5b4f3245606a 94 SDFileSystem sd(PB_5, PB_4, PB_3, PB_6, "sd");//(D4, D5, D3, D10, "sd"); // (MOSI, MISO, SCK, SEL)
caseyquinn 12:5b4f3245606a 95 DigitalIn sdCD(PA_11);
caseyquinn 12:5b4f3245606a 96 */
caseyquinn 12:5b4f3245606a 97 /////////////////////////////////////////////
caseyquinn 12:5b4f3245606a 98 //Callbacks
caseyquinn 12:5b4f3245606a 99 /////////////////////////////////////////////
caseyquinn 9:8646fd501832 100 Ticker stop; //This is the stop callback object
caseyquinn 8:c4a8f9b67cee 101 Ticker logg; //This is the logging callback object
caseyquinn 9:8646fd501832 102 Ticker flowCtl; //This is the control loop callback object
jelord 3:122bfc998c4c 103
caseyquinn 12:5b4f3245606a 104 /////////////////////////////////////////////
caseyquinn 12:5b4f3245606a 105 //Varible Definitions
caseyquinn 12:5b4f3245606a 106 /////////////////////////////////////////////
jelord 3:122bfc998c4c 107 uint16_t serial_num = 1; // Default serial/calibration number
jelord 3:122bfc998c4c 108 int RunReady =0;
jelord 3:122bfc998c4c 109
caseyquinn 4:5d004fd997d5 110 struct tm STtime;
caseyquinn 7:29b01d5812ee 111 char timestr[32];
jelord 3:122bfc998c4c 112
caseyquinn 9:8646fd501832 113 float press;
caseyquinn 9:8646fd501832 114 float temp;
caseyquinn 9:8646fd501832 115 float rh;
jelord 3:122bfc998c4c 116
caseyquinn 9:8646fd501832 117 int uv;
caseyquinn 9:8646fd501832 118 int vis;
caseyquinn 9:8646fd501832 119 int ir;
jelord 3:122bfc998c4c 120
caseyquinn 9:8646fd501832 121 float compass;
caseyquinn 9:8646fd501832 122 float accel_x;
caseyquinn 9:8646fd501832 123 float accel_y;
caseyquinn 9:8646fd501832 124 float accel_z;
caseyquinn 9:8646fd501832 125 float accel_comp;
caseyquinn 9:8646fd501832 126 float angle_x;
caseyquinn 9:8646fd501832 127 float angle_y;
caseyquinn 9:8646fd501832 128 float angle_z;
caseyquinn 9:8646fd501832 129 float mag_x;
caseyquinn 9:8646fd501832 130 float mag_y;
caseyquinn 9:8646fd501832 131 float mag_z;
jelord 3:122bfc998c4c 132
caseyquinn 9:8646fd501832 133 int vInReading;
caseyquinn 9:8646fd501832 134 int vBlowerReading;
caseyquinn 9:8646fd501832 135 int omronDiff;
caseyquinn 9:8646fd501832 136 float omronVolt; //V
caseyquinn 9:8646fd501832 137 int omronReading;
caseyquinn 9:8646fd501832 138 float atmoRho; //g/L
jelord 3:122bfc998c4c 139
caseyquinn 9:8646fd501832 140 float massflow; //g/min
caseyquinn 9:8646fd501832 141 float volflow; //L/min
jelord 3:122bfc998c4c 142 float volflowSet = 1.0; //L/min
jelord 3:122bfc998c4c 143 int logInerval = 10; //seconds
jelord 3:122bfc998c4c 144 double secondsD = 0;
jelord 3:122bfc998c4c 145 double lastsecondD = 0;
caseyquinn 9:8646fd501832 146 float massflowSet;
jelord 3:122bfc998c4c 147 float deltaVflow = 0.0;
jelord 3:122bfc998c4c 148 float deltaMflow = 0.0;
caseyquinn 9:8646fd501832 149 float gainFlow;
caseyquinn 9:8646fd501832 150 float sampledVol; //L, total sampled volume
jelord 3:122bfc998c4c 151
caseyquinn 9:8646fd501832 152 int digital_pot_setpoint; //min = 0x7F, max = 0x00
caseyquinn 9:8646fd501832 153 int digital_pot_set;
caseyquinn 9:8646fd501832 154 int digital_pot_change;
jelord 3:122bfc998c4c 155 int digitalpotMax = 127;
caseyquinn 9:8646fd501832 156 int digitalpotMin = 10;
jelord 3:122bfc998c4c 157
caseyquinn 12:5b4f3245606a 158 int dutyUp;
caseyquinn 12:5b4f3245606a 159 int dutyDown;
caseyquinn 12:5b4f3245606a 160
caseyquinn 12:5b4f3245606a 161 float flat = 0;
caseyquinn 12:5b4f3245606a 162 float flon = 0;
jelord 3:122bfc998c4c 163
caseyquinn 12:5b4f3245606a 164 uint8_t gpssatellites = 0;
caseyquinn 12:5b4f3245606a 165 double gpsspeed = 0.0;
caseyquinn 12:5b4f3245606a 166 double gpslatitude = 0.0;
caseyquinn 12:5b4f3245606a 167 double gpslongitude = 0.0;
caseyquinn 12:5b4f3245606a 168 float gpsaltitude = 0.0;
caseyquinn 12:5b4f3245606a 169 char gpslat = 'W';
caseyquinn 12:5b4f3245606a 170 char gpslon = 'N';
caseyquinn 12:5b4f3245606a 171
caseyquinn 12:5b4f3245606a 172
caseyquinn 12:5b4f3245606a 173 float home_lat = 40.580508;
caseyquinn 12:5b4f3245606a 174 float home_lon = -105.081823;
caseyquinn 12:5b4f3245606a 175 float work_lat = 40.594062; //40.569136;
caseyquinn 12:5b4f3245606a 176 float work_lon = -105.075683; //-105.081966;
caseyquinn 12:5b4f3245606a 177 int location = 0;
caseyquinn 12:5b4f3245606a 178
caseyquinn 12:5b4f3245606a 179 float homeDistance = 99999;
caseyquinn 12:5b4f3245606a 180 float workDistance = 99999;
caseyquinn 12:5b4f3245606a 181
jelord 3:122bfc998c4c 182 //*************************************************//
jelord 3:122bfc998c4c 183
jelord 2:88fcbfadec6a 184 void sendData();
caseyquinn 11:aa21628a9b15 185
caseyquinn 11:aa21628a9b15 186
caseyquinn 11:aa21628a9b15 187 void pc_recv(){
caseyquinn 11:aa21628a9b15 188 while(pc.readable()){
caseyquinn 11:aa21628a9b15 189 pc.getc();
caseyquinn 11:aa21628a9b15 190 }
caseyquinn 11:aa21628a9b15 191 }
caseyquinn 11:aa21628a9b15 192
jelord 0:2cb2b2ea316f 193 static uint8_t rx_buf[20];
jelord 0:2cb2b2ea316f 194 static uint8_t rx_len=0;
jelord 1:9fbb5b665068 195 static int haltBLE = 1;
jelord 1:9fbb5b665068 196 static int transmissionValue = 0;
jelord 2:88fcbfadec6a 197 uint8_t writeData[20] = {0,};
jelord 2:88fcbfadec6a 198 static uint8_t dataLength = 0;
jelord 3:122bfc998c4c 199 static int runReady = 0;
jelord 3:122bfc998c4c 200 static uint8_t startAndEndTime[12] = {0,};
caseyquinn 5:c3252e5d45ca 201
caseyquinn 9:8646fd501832 202 //////////////////////////////////////////////////////////////
caseyquinn 9:8646fd501832 203 //BLE Functions
caseyquinn 9:8646fd501832 204 //////////////////////////////////////////////////////////////
caseyquinn 9:8646fd501832 205
caseyquinn 9:8646fd501832 206 void uartMicro(){
jelord 3:122bfc998c4c 207 if(runReady!=1){
jelord 3:122bfc998c4c 208 haltBLE = 2;
jelord 3:122bfc998c4c 209 while(microChannel.readable()){
jelord 3:122bfc998c4c 210 rx_buf[rx_len++] = microChannel.getc();
jelord 2:88fcbfadec6a 211
jelord 3:122bfc998c4c 212 //Code block to verify what is being transmitted. To function correctly, all data must terminate with \0 or \n
jelord 3:122bfc998c4c 213 if(transmissionValue==0){
jelord 3:122bfc998c4c 214
caseyquinn 4:5d004fd997d5 215 if (rx_buf[0] == 0x01)transmissionValue = 1; //rtc
jelord 3:122bfc998c4c 216 else if(rx_buf[0] == 0x02)transmissionValue = 2; //sample start and end times
jelord 3:122bfc998c4c 217 else if(rx_buf[0] == 0x03)transmissionValue = 3; //sample name
jelord 3:122bfc998c4c 218 else if(rx_buf[0] == 0x04)transmissionValue = 4; //Send Data Check
jelord 3:122bfc998c4c 219
jelord 3:122bfc998c4c 220 else if(rx_buf[0] == 0x05)transmissionValue = 5; //log interval
jelord 3:122bfc998c4c 221 else if(rx_buf[0] == 0x06)transmissionValue = 6; //Flow Rate
jelord 3:122bfc998c4c 222 else if(rx_buf[0] == 0x07)transmissionValue = 7; //Serial Number
jelord 3:122bfc998c4c 223 else if(rx_buf[0] == 0x08)transmissionValue = 8; //Run Enable
jelord 3:122bfc998c4c 224 else transmissionValue = 100; //Not useful data
jelord 3:122bfc998c4c 225 }
jelord 3:122bfc998c4c 226
jelord 3:122bfc998c4c 227 if(rx_buf[rx_len-1]=='\0' || rx_buf[rx_len-1]=='\n' || rx_buf[rx_len-1] == 0xff){
jelord 3:122bfc998c4c 228 if((transmissionValue == 1 || transmissionValue == 2 || transmissionValue == 3 || transmissionValue == 4 || transmissionValue == 5 ||
jelord 3:122bfc998c4c 229 transmissionValue == 6 || transmissionValue == 7) && rx_buf[rx_len-1] != 0xff)
jelord 3:122bfc998c4c 230 {}else{
caseyquinn 12:5b4f3245606a 231 //if(transmissionValue == 4 ) sendData();
jelord 3:122bfc998c4c 232 if(transmissionValue == 8){
jelord 3:122bfc998c4c 233 runReady = 1;
jelord 3:122bfc998c4c 234 microChannel.attach(NULL,microChannel.RxIrq);
jelord 3:122bfc998c4c 235 }
jelord 3:122bfc998c4c 236 haltBLE = 1;
jelord 3:122bfc998c4c 237 transmissionValue = 0;
jelord 3:122bfc998c4c 238 dataLength = 0;
jelord 2:88fcbfadec6a 239
jelord 3:122bfc998c4c 240 }
jelord 2:88fcbfadec6a 241 }
jelord 1:9fbb5b665068 242 }
caseyquinn 12:5b4f3245606a 243
jelord 3:122bfc998c4c 244 if(haltBLE!=1){
jelord 2:88fcbfadec6a 245
jelord 3:122bfc998c4c 246 if((transmissionValue!=100) && (dataLength!= 0)) writeData[dataLength-1] = rx_buf[0];
jelord 3:122bfc998c4c 247
jelord 3:122bfc998c4c 248 if(transmissionValue ==100){
caseyquinn 10:06fbb1c9e3bd 249 pc.putc(rx_buf[0]);
jelord 2:88fcbfadec6a 250
jelord 3:122bfc998c4c 251 }else if(transmissionValue ==1){ //process and store RTC values
jelord 3:122bfc998c4c 252
caseyquinn 7:29b01d5812ee 253 //if(dataLength==6)RTC_UPAS.set_time(writeData[0],writeData[1],writeData[2],writeData[3],writeData[3],writeData[4],writeData[5]);//sets chronodot RTC
caseyquinn 7:29b01d5812ee 254 if(dataLength==6){
caseyquinn 12:5b4f3245606a 255 //RTC_UPAS.set_time(writeData[0],writeData[1],writeData[2],writeData[3],writeData[3],writeData[4],writeData[5]);//sets chronodot RTC
caseyquinn 12:5b4f3245606a 256 ///////////////////////
caseyquinn 7:29b01d5812ee 257 //sets ST RTC
caseyquinn 12:5b4f3245606a 258 //////////////////////
caseyquinn 7:29b01d5812ee 259 STtime.tm_sec = writeData[0]; // 0-59
caseyquinn 7:29b01d5812ee 260 STtime.tm_min = writeData[1]; // 0-59
caseyquinn 7:29b01d5812ee 261 STtime.tm_hour = writeData[2]; // 0-23
caseyquinn 7:29b01d5812ee 262 STtime.tm_mday = writeData[3]; // 1-31
caseyquinn 7:29b01d5812ee 263 STtime.tm_mon = writeData[4]-1; // 0-11
caseyquinn 7:29b01d5812ee 264 STtime.tm_year = 100+writeData[5]; // year since 1900 (116 = 2016)
caseyquinn 7:29b01d5812ee 265 time_t STseconds = mktime(&STtime);
caseyquinn 12:5b4f3245606a 266 set_time(STseconds); // Set RTC time
caseyquinn 7:29b01d5812ee 267 }
jelord 3:122bfc998c4c 268
caseyquinn 12:5b4f3245606a 269 }
caseyquinn 12:5b4f3245606a 270 /*else if(transmissionValue ==2){ //process and store sample start/end
jelord 3:122bfc998c4c 271 if(dataLength ==12)E2PROM.write(0x00015, writeData, 12);
jelord 3:122bfc998c4c 272
jelord 3:122bfc998c4c 273 }else if(transmissionValue ==3){ //process and store sample name
jelord 3:122bfc998c4c 274 if(dataLength ==8)E2PROM.write(0x00001,writeData,8);
jelord 3:122bfc998c4c 275
jelord 3:122bfc998c4c 276 }else if(transmissionValue ==5){ //process and store Log Interval
jelord 3:122bfc998c4c 277 if(dataLength ==1)E2PROM.write(0x00014,writeData,1);
jelord 2:88fcbfadec6a 278
jelord 3:122bfc998c4c 279 }else if(transmissionValue ==6){ //process and store Flow Rate
jelord 3:122bfc998c4c 280 if(dataLength ==4)E2PROM.write(0x00010,writeData,4);
jelord 3:122bfc998c4c 281
jelord 3:122bfc998c4c 282 }else if(transmissionValue ==7){ //process and store Serial Number
jelord 3:122bfc998c4c 283 if(dataLength ==2)E2PROM.write(0x00034,writeData,2);
jelord 3:122bfc998c4c 284 }
caseyquinn 12:5b4f3245606a 285 */
jelord 3:122bfc998c4c 286 dataLength++;
jelord 1:9fbb5b665068 287 }
jelord 3:122bfc998c4c 288
jelord 3:122bfc998c4c 289 rx_len = 0;
jelord 3:122bfc998c4c 290 }else{
jelord 3:122bfc998c4c 291 while(microChannel.readable())
jelord 3:122bfc998c4c 292 uint8_t extract = microChannel.getc();
jelord 3:122bfc998c4c 293 }
jelord 2:88fcbfadec6a 294
caseyquinn 12:5b4f3245606a 295
jelord 2:88fcbfadec6a 296 }
caseyquinn 12:5b4f3245606a 297 /*
jelord 2:88fcbfadec6a 298 void sendData(){
jelord 2:88fcbfadec6a 299
jelord 2:88fcbfadec6a 300 uint8_t sampleTimePassValues[13] = {0x01,};
jelord 2:88fcbfadec6a 301 uint8_t subjectLabelOriginal[9] = {0x02,};
jelord 2:88fcbfadec6a 302 uint8_t dataLogOriginal[2] = {0x03,};
jelord 2:88fcbfadec6a 303 uint8_t flowRateOriginal[5] = {0x04,};
jelord 2:88fcbfadec6a 304 //uint8_t presetRunModeCheck[1] = {0,}; Commented and currently unused to prevent mem issues
jelord 2:88fcbfadec6a 305 E2PROM.read(0x00015, sampleTimePassValues+1, 12);
jelord 2:88fcbfadec6a 306 E2PROM.read(0x00001, subjectLabelOriginal+1,8);
jelord 2:88fcbfadec6a 307 E2PROM.read(0x00014,dataLogOriginal+1,1);
jelord 2:88fcbfadec6a 308 E2PROM.read(0x00010,flowRateOriginal+1,4);
jelord 2:88fcbfadec6a 309
jelord 2:88fcbfadec6a 310 for(int i=0; i<13; i++){
jelord 2:88fcbfadec6a 311 microChannel.putc(sampleTimePassValues[i]);
jelord 2:88fcbfadec6a 312 }
jelord 2:88fcbfadec6a 313 wait(.25);
jelord 2:88fcbfadec6a 314
jelord 2:88fcbfadec6a 315 for(int i=0; i<9; i++){
jelord 2:88fcbfadec6a 316 microChannel.putc(subjectLabelOriginal[i]);
jelord 2:88fcbfadec6a 317 }
jelord 2:88fcbfadec6a 318 wait(.25);
jelord 2:88fcbfadec6a 319
jelord 2:88fcbfadec6a 320 for(int i=0; i<2; i++){
jelord 2:88fcbfadec6a 321 microChannel.putc(dataLogOriginal[i]);
jelord 2:88fcbfadec6a 322 }
jelord 2:88fcbfadec6a 323 wait(.25);
jelord 2:88fcbfadec6a 324
jelord 2:88fcbfadec6a 325 for(int i=0; i<5; i++){
jelord 2:88fcbfadec6a 326 microChannel.putc(flowRateOriginal[i]);
jelord 2:88fcbfadec6a 327 }
jelord 0:2cb2b2ea316f 328
jelord 2:88fcbfadec6a 329
jelord 2:88fcbfadec6a 330 }
caseyquinn 12:5b4f3245606a 331 */
caseyquinn 12:5b4f3245606a 332 //////////////////////////////////////////////////////////////
caseyquinn 12:5b4f3245606a 333 // GPS: Degree-minute format to decimal-degrees
caseyquinn 12:5b4f3245606a 334 //////////////////////////////////////////////////////////////
caseyquinn 12:5b4f3245606a 335 double convertDegMinToDecDeg (float degMin)
caseyquinn 12:5b4f3245606a 336 {
caseyquinn 12:5b4f3245606a 337 double min = 0.0;
caseyquinn 12:5b4f3245606a 338 double decDeg = 0.0;
caseyquinn 12:5b4f3245606a 339
caseyquinn 12:5b4f3245606a 340 //get the minutes, fmod() requires double
caseyquinn 12:5b4f3245606a 341 min = fmod((double)degMin, 100.0);
caseyquinn 12:5b4f3245606a 342
caseyquinn 12:5b4f3245606a 343 //rebuild coordinates in decimal degrees
caseyquinn 12:5b4f3245606a 344 degMin = (int) ( degMin / 100 );
caseyquinn 12:5b4f3245606a 345 decDeg = degMin + ( min / 60 );
caseyquinn 12:5b4f3245606a 346
caseyquinn 12:5b4f3245606a 347 return decDeg;
caseyquinn 12:5b4f3245606a 348 }
caseyquinn 12:5b4f3245606a 349
caseyquinn 12:5b4f3245606a 350 //////////////////////////////////////////////////////////////
caseyquinn 12:5b4f3245606a 351 // GPS: Calculate distance from target location
caseyquinn 12:5b4f3245606a 352 //////////////////////////////////////////////////////////////
caseyquinn 12:5b4f3245606a 353 double GPSdistanceCalc (float tlat, float tlon)
caseyquinn 12:5b4f3245606a 354 {
caseyquinn 12:5b4f3245606a 355
caseyquinn 12:5b4f3245606a 356
caseyquinn 12:5b4f3245606a 357
caseyquinn 12:5b4f3245606a 358 float tlatrad, flatrad;
caseyquinn 12:5b4f3245606a 359 float sdlong, cdlong;
caseyquinn 12:5b4f3245606a 360 float sflat, cflat;
caseyquinn 12:5b4f3245606a 361 float stlat, ctlat;
caseyquinn 12:5b4f3245606a 362 float delta, denom;
caseyquinn 12:5b4f3245606a 363
caseyquinn 12:5b4f3245606a 364 double distance;
caseyquinn 12:5b4f3245606a 365 delta = (flon-tlon)*0.0174532925;
caseyquinn 12:5b4f3245606a 366 sdlong = sin(delta);
caseyquinn 12:5b4f3245606a 367 cdlong = cos(delta);
caseyquinn 12:5b4f3245606a 368 flatrad = (flat)*0.0174532925;
caseyquinn 12:5b4f3245606a 369 tlatrad = (tlat)*0.0174532925;
caseyquinn 12:5b4f3245606a 370 sflat = sin(flatrad);
caseyquinn 12:5b4f3245606a 371 cflat = cos(flatrad);
caseyquinn 12:5b4f3245606a 372 stlat = sin(tlatrad);
caseyquinn 12:5b4f3245606a 373 ctlat = cos(tlatrad);
caseyquinn 12:5b4f3245606a 374 delta = (cflat * stlat) - (sflat * ctlat * cdlong);
caseyquinn 12:5b4f3245606a 375 delta = pow(delta,2);
caseyquinn 12:5b4f3245606a 376 delta += pow(ctlat * sdlong,2);
caseyquinn 12:5b4f3245606a 377 delta = sqrt(delta);
caseyquinn 12:5b4f3245606a 378 denom = (sflat * stlat) + (cflat * ctlat * cdlong);
caseyquinn 12:5b4f3245606a 379 delta = atan2(delta, denom);
caseyquinn 12:5b4f3245606a 380 distance = delta * 6372795;
caseyquinn 12:5b4f3245606a 381 return distance;
caseyquinn 12:5b4f3245606a 382 }
caseyquinn 12:5b4f3245606a 383
caseyquinn 5:c3252e5d45ca 384
caseyquinn 9:8646fd501832 385 //////////////////////////////////////////////////////////////
caseyquinn 9:8646fd501832 386 //Shutdown Function
caseyquinn 9:8646fd501832 387 //////////////////////////////////////////////////////////////
jelord 3:122bfc998c4c 388 void check_stop() // this checks if it's time to stop and shutdown
jelord 3:122bfc998c4c 389 {
caseyquinn 9:8646fd501832 390 //!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
caseyquinn 9:8646fd501832 391 //UPDATE THIS TO WORK WITH ST RTC INSTEAD
caseyquinn 9:8646fd501832 392 //!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
caseyquinn 12:5b4f3245606a 393 /*
jelord 3:122bfc998c4c 394 if(RTC_UPAS.compare(startAndEndTime[6], startAndEndTime[7], startAndEndTime[8], startAndEndTime[9], startAndEndTime[10], startAndEndTime[11])) {
jelord 3:122bfc998c4c 395 pbKill = 0; // this is were we shut everything down
caseyquinn 4:5d004fd997d5 396 //pc.printf("If you're reading this something has gone very wrong.");
jelord 3:122bfc998c4c 397 }
caseyquinn 12:5b4f3245606a 398 */
jelord 3:122bfc998c4c 399 }
caseyquinn 5:c3252e5d45ca 400
caseyquinn 9:8646fd501832 401 //////////////////////////////////////////////////////////////
caseyquinn 9:8646fd501832 402 //SD Logging Function
caseyquinn 9:8646fd501832 403 //////////////////////////////////////////////////////////////
jelord 3:122bfc998c4c 404 void log_data()
jelord 3:122bfc998c4c 405 {
jelord 3:122bfc998c4c 406
caseyquinn 12:5b4f3245606a 407 //RGB_LED.set_led(1,1,0);
caseyquinn 7:29b01d5812ee 408
caseyquinn 7:29b01d5812ee 409 time_t seconds = time(NULL);
caseyquinn 7:29b01d5812ee 410 strftime(timestr, 32, "%y%m%d%H%M%S", localtime(&seconds));
caseyquinn 12:5b4f3245606a 411 /*
caseyquinn 9:8646fd501832 412 RTC_UPAS.get_time();
caseyquinn 7:29b01d5812ee 413 press = bmesensor.getPressure();
caseyquinn 7:29b01d5812ee 414 temp = bmesensor.getTemperature()-5.0;
caseyquinn 7:29b01d5812ee 415 rh = bmesensor.getHumidity();
caseyquinn 7:29b01d5812ee 416 uv = lightsensor.getUV();
caseyquinn 7:29b01d5812ee 417
caseyquinn 12:5b4f3245606a 418 gps.read(1);
caseyquinn 12:5b4f3245606a 419
caseyquinn 12:5b4f3245606a 420 gpsspeed = gps.speed;
caseyquinn 12:5b4f3245606a 421 gpssatellites = gps.satellites;
caseyquinn 12:5b4f3245606a 422 gpslatitude = gps.lat;
caseyquinn 12:5b4f3245606a 423 // gpslat = 'N'; //gps.lat; need to fix this (if statement?)
caseyquinn 12:5b4f3245606a 424 gpslongitude = gps.lon;
caseyquinn 12:5b4f3245606a 425 // gpslon = 'W'; //gps.lon; need to fix this (if statement?)
caseyquinn 12:5b4f3245606a 426 gpsaltitude = gps.altitude;
caseyquinn 12:5b4f3245606a 427
caseyquinn 12:5b4f3245606a 428 if (abs(gpslatitude) > 0 && abs(gpslongitude) > 0) {
caseyquinn 12:5b4f3245606a 429
caseyquinn 12:5b4f3245606a 430 if(gpslat == 'S')
caseyquinn 12:5b4f3245606a 431 {
caseyquinn 12:5b4f3245606a 432 flat = convertDegMinToDecDeg (gpslatitude) * -1;
caseyquinn 12:5b4f3245606a 433 }
caseyquinn 12:5b4f3245606a 434 else
caseyquinn 12:5b4f3245606a 435 {
caseyquinn 12:5b4f3245606a 436 flat = convertDegMinToDecDeg (gpslatitude);
caseyquinn 12:5b4f3245606a 437 }
caseyquinn 12:5b4f3245606a 438
caseyquinn 12:5b4f3245606a 439 if(gpslon == 'W')
caseyquinn 12:5b4f3245606a 440 {
caseyquinn 12:5b4f3245606a 441 flon = convertDegMinToDecDeg (gpslongitude) * -1;
caseyquinn 12:5b4f3245606a 442 }
caseyquinn 12:5b4f3245606a 443 else
caseyquinn 12:5b4f3245606a 444 {
caseyquinn 12:5b4f3245606a 445 flon = convertDegMinToDecDeg (gpslongitude);
caseyquinn 12:5b4f3245606a 446 }
caseyquinn 12:5b4f3245606a 447
caseyquinn 12:5b4f3245606a 448 workDistance = GPSdistanceCalc (work_lat, work_lon);
caseyquinn 12:5b4f3245606a 449 homeDistance = GPSdistanceCalc (home_lat, home_lon);
caseyquinn 12:5b4f3245606a 450 }
caseyquinn 12:5b4f3245606a 451
caseyquinn 12:5b4f3245606a 452 if (homeDistance == 99999 && workDistance == 99999) {
caseyquinn 12:5b4f3245606a 453 // digitalWrite (work_yellow_led, HIGH);
caseyquinn 12:5b4f3245606a 454 // digitalWrite (home_green_led, HIGH);
caseyquinn 12:5b4f3245606a 455 // digitalWrite (travel_red_led, HIGH);
caseyquinn 12:5b4f3245606a 456 location = 0;
caseyquinn 12:5b4f3245606a 457 }
caseyquinn 12:5b4f3245606a 458
caseyquinn 12:5b4f3245606a 459 else if (workDistance < 30) {
caseyquinn 12:5b4f3245606a 460 // digitalWrite (work_yellow_led, HIGH);
caseyquinn 12:5b4f3245606a 461 // digitalWrite (home_green_led, LOW);
caseyquinn 12:5b4f3245606a 462 // digitalWrite (travel_red_led, LOW);
caseyquinn 12:5b4f3245606a 463 location = 1;
caseyquinn 12:5b4f3245606a 464 }
caseyquinn 12:5b4f3245606a 465
caseyquinn 12:5b4f3245606a 466 else if (homeDistance < 20) {
caseyquinn 12:5b4f3245606a 467 // digitalWrite (work_yellow_led, LOW);
caseyquinn 12:5b4f3245606a 468 // digitalWrite (home_green_led, HIGH);
caseyquinn 12:5b4f3245606a 469 // digitalWrite (travel_red_led, LOW);
caseyquinn 12:5b4f3245606a 470 location = 2;
caseyquinn 12:5b4f3245606a 471 }
caseyquinn 12:5b4f3245606a 472
caseyquinn 12:5b4f3245606a 473 else {
caseyquinn 12:5b4f3245606a 474 // digitalWrite (work_yellow_led, LOW);
caseyquinn 12:5b4f3245606a 475 // digitalWrite (home_green_led, LOW);
caseyquinn 12:5b4f3245606a 476 // digitalWrite (travel_red_led, HIGH);
caseyquinn 12:5b4f3245606a 477 location = 3;
caseyquinn 12:5b4f3245606a 478 }
caseyquinn 12:5b4f3245606a 479
caseyquinn 12:5b4f3245606a 480
caseyquinn 7:29b01d5812ee 481 FILE *fp = fopen(filename, "a");
caseyquinn 9:8646fd501832 482 fprintf(fp, "%02d,%02d,%02d,%02d,%02d,%02d,",RTC_UPAS.year, RTC_UPAS.month,RTC_UPAS.date,RTC_UPAS.hour,RTC_UPAS.minutes,RTC_UPAS.seconds);
caseyquinn 7:29b01d5812ee 483 fprintf(fp, "%s,", timestr);
caseyquinn 7:29b01d5812ee 484 fprintf(fp, "%1.3f,%1.3f,%2.2f,%4.2f,%2.1f,%1.3f,", omronVolt,massflow,temp,press,rh,atmoRho);
caseyquinn 7:29b01d5812ee 485 fprintf(fp, "%1.3f,%5.1f,%1.1f,%1.1f,%1.1f,%1.1f,", volflow, sampledVol, accel_x, accel_y, accel_z, accel_comp);
caseyquinn 7:29b01d5812ee 486 fprintf(fp, "%.1f,%.1f,%.1f,%.3f,%.3f,%.3f,%.1f,", angle_x,angle_y,angle_z,mag_x, mag_y, mag_z,compass);
caseyquinn 7:29b01d5812ee 487 fprintf(fp, "%d,%d,%d,%d,%d,%d," ,uv,omronReading, vInReading, vBlowerReading, omronDiff,gasG.getAmps());
caseyquinn 12:5b4f3245606a 488 fprintf(fp, "%d,%d,%d,%1.3f,%1.3f,", gasG.getVolts(), gasG.getCharge(),digital_pot_set, deltaMflow, deltaVflow);
caseyquinn 12:5b4f3245606a 489 fprintf(fp, "%.4f,%.4f,%06d,%06d,%f,%d,%f,\r\n", gps.lat, gps.lon, (long)gps.date, (long)gps.utc, gpsspeed, gpssatellites, gpsaltitude); // test and add in speed, etc that Josh added in to match the adafruit GPS
caseyquinn 7:29b01d5812ee 490 fclose(fp);
caseyquinn 7:29b01d5812ee 491 free(fp);
caseyquinn 7:29b01d5812ee 492 RGB_LED.set_led(1,0,0);
caseyquinn 12:5b4f3245606a 493 */
caseyquinn 12:5b4f3245606a 494
caseyquinn 12:5b4f3245606a 495 pc.printf("%s,", timestr);
caseyquinn 12:5b4f3245606a 496
jelord 3:122bfc998c4c 497
jelord 3:122bfc998c4c 498 }
caseyquinn 8:c4a8f9b67cee 499
caseyquinn 9:8646fd501832 500 //////////////////////////////////////////////////////////////
caseyquinn 9:8646fd501832 501 //Flow Control Function
caseyquinn 9:8646fd501832 502 //////////////////////////////////////////////////////////////
caseyquinn 8:c4a8f9b67cee 503 void flowControl()
caseyquinn 8:c4a8f9b67cee 504 {
caseyquinn 12:5b4f3245606a 505 /*
caseyquinn 8:c4a8f9b67cee 506 RGB_LED.set_led(0,1,0);
caseyquinn 8:c4a8f9b67cee 507 omronReading = ads.readADC_SingleEnded(0, 0xC583); // read channel 0 PGA = 2 : Full Scale Range = 2.048V
caseyquinn 8:c4a8f9b67cee 508 omronVolt = (omronReading*4.096)/(32768*2);
caseyquinn 8:c4a8f9b67cee 509
caseyquinn 8:c4a8f9b67cee 510 if(omronVolt<=calibrations.omronVMin) {
caseyquinn 8:c4a8f9b67cee 511 massflow = calibrations.omronMFMin;
caseyquinn 8:c4a8f9b67cee 512 } else if(omronVolt>=calibrations.omronVMax) {
caseyquinn 8:c4a8f9b67cee 513 massflow = calibrations.omronMFMax;
caseyquinn 8:c4a8f9b67cee 514 } else {
caseyquinn 8:c4a8f9b67cee 515 massflow = calibrations.MF4*pow(omronVolt,(float)4)+calibrations.MF3*pow(omronVolt,(float)3)+calibrations.MF2*pow(omronVolt,(float)2)+calibrations.MF1*omronVolt+calibrations.MF0;
caseyquinn 8:c4a8f9b67cee 516 }
caseyquinn 8:c4a8f9b67cee 517
caseyquinn 8:c4a8f9b67cee 518 atmoRho = ((press-((6.1078*pow((float)10,(float)((7.5*temp)/(237.3+temp))))*(rh/100)))*100)/(287.0531*(temp+273.15))+((6.1078*pow((float)10,(float)((7.5*temp)/(237.3+temp))))*(rh/100)*100)/(461.4964*(temp+273.15));
caseyquinn 8:c4a8f9b67cee 519 volflow = massflow/atmoRho;
caseyquinn 8:c4a8f9b67cee 520 sampledVol = sampledVol + ((((float)logInerval)/60.0)*volflow);
caseyquinn 8:c4a8f9b67cee 521 deltaVflow = volflow-volflowSet;
caseyquinn 8:c4a8f9b67cee 522 massflowSet = volflowSet*atmoRho;
caseyquinn 8:c4a8f9b67cee 523 deltaMflow = massflow-massflowSet;
caseyquinn 12:5b4f3245606a 524
caseyquinn 8:c4a8f9b67cee 525 if(abs(deltaMflow)>.025) {
caseyquinn 8:c4a8f9b67cee 526 digital_pot_change = (int)(gainFlow*deltaMflow);
caseyquinn 8:c4a8f9b67cee 527
caseyquinn 8:c4a8f9b67cee 528
caseyquinn 12:5b4f3245606a 529 if(abs(digital_pot_change)>=10) {
caseyquinn 12:5b4f3245606a 530 digital_pot_set = (int)(digital_pot_set+ (int)(1*deltaMflow));
caseyquinn 12:5b4f3245606a 531 RGB_LED.set_led(1,0,0);
caseyquinn 12:5b4f3245606a 532 } else {
caseyquinn 8:c4a8f9b67cee 533 digital_pot_set = (digital_pot_set+ digital_pot_change);
caseyquinn 12:5b4f3245606a 534 RGB_LED.set_led(1,1,0);
caseyquinn 8:c4a8f9b67cee 535 }
caseyquinn 8:c4a8f9b67cee 536
caseyquinn 12:5b4f3245606a 537 if(digital_pot_set>=digitalpotMax) {
caseyquinn 12:5b4f3245606a 538 digital_pot_set = digitalpotMax;
caseyquinn 12:5b4f3245606a 539 RGB_LED.set_led(1,0,0);
caseyquinn 12:5b4f3245606a 540 } else if(digital_pot_set<=digitalpotMin) {
caseyquinn 12:5b4f3245606a 541 digital_pot_set = digitalpotMin;
caseyquinn 12:5b4f3245606a 542 RGB_LED.set_led(1,0,0);
caseyquinn 12:5b4f3245606a 543 }
caseyquinn 8:c4a8f9b67cee 544
caseyquinn 8:c4a8f9b67cee 545 DigPot.writeRegister(digital_pot_set);
caseyquinn 12:5b4f3245606a 546
caseyquinn 8:c4a8f9b67cee 547 } else {
caseyquinn 12:5b4f3245606a 548 RGB_LED.set_led(0,1,0);
caseyquinn 8:c4a8f9b67cee 549 }
caseyquinn 12:5b4f3245606a 550
caseyquinn 12:5b4f3245606a 551 */
caseyquinn 8:c4a8f9b67cee 552 }
caseyquinn 9:8646fd501832 553 //////////////////////////////////////////////////////////////
caseyquinn 9:8646fd501832 554 //Main Function
caseyquinn 9:8646fd501832 555 //////////////////////////////////////////////////////////////
jelord 1:9fbb5b665068 556 int main(){
caseyquinn 7:29b01d5812ee 557
caseyquinn 12:5b4f3245606a 558 /*
caseyquinn 12:5b4f3245606a 559 motor1.drive(254); //closed = 253, open = 254
caseyquinn 12:5b4f3245606a 560 motor2.drive(253); //closed = 253, open = 254
caseyquinn 12:5b4f3245606a 561 motor3.drive(253); //closed = 253, open = 254
caseyquinn 12:5b4f3245606a 562 motor4.drive(253); //closed = 253, open = 254
caseyquinn 12:5b4f3245606a 563
caseyquinn 12:5b4f3245606a 564 wait(1);
caseyquinn 12:5b4f3245606a 565 motor1.stop();
caseyquinn 12:5b4f3245606a 566 motor2.stop();
caseyquinn 12:5b4f3245606a 567 motor3.stop();
caseyquinn 12:5b4f3245606a 568 motor4.stop();
caseyquinn 12:5b4f3245606a 569 */
caseyquinn 12:5b4f3245606a 570
caseyquinn 10:06fbb1c9e3bd 571 pc.baud(115200); // set what you want here depending on your terminal program speed
caseyquinn 10:06fbb1c9e3bd 572 pc.printf("\f\n\r-------------Startup-------------\n\r");
jelord 1:9fbb5b665068 573 wait(0.5);
caseyquinn 5:c3252e5d45ca 574
caseyquinn 12:5b4f3245606a 575
jelord 3:122bfc998c4c 576 uint8_t serialNumberAndType[6] = {0x50,0x53};
caseyquinn 12:5b4f3245606a 577 /*
jelord 3:122bfc998c4c 578 E2PROM.read(0x00034,serialNumberAndType+2,2);
caseyquinn 4:5d004fd997d5 579
jelord 3:122bfc998c4c 580 int tempSerialNum = serialNumberAndType[2]+serialNumberAndType[3];
jelord 3:122bfc998c4c 581 int serialNumDigits[4];
jelord 3:122bfc998c4c 582 serialNumDigits[0] = tempSerialNum / 1000 % 10;
jelord 3:122bfc998c4c 583 serialNumDigits[1] = tempSerialNum / 100 % 10;
jelord 3:122bfc998c4c 584 serialNumDigits[2] = tempSerialNum / 10 % 10;
jelord 3:122bfc998c4c 585 serialNumDigits[3] = tempSerialNum % 10;
jelord 3:122bfc998c4c 586
jelord 3:122bfc998c4c 587 serialNumberAndType[2] = serialNumDigits[0]+48;
jelord 3:122bfc998c4c 588 serialNumberAndType[3] = serialNumDigits[1]+48;
jelord 3:122bfc998c4c 589 serialNumberAndType[4] = serialNumDigits[2]+48;
jelord 3:122bfc998c4c 590 serialNumberAndType[5] = serialNumDigits[3]+48;
caseyquinn 12:5b4f3245606a 591
caseyquinn 5:c3252e5d45ca 592 RGB_LED.set_led(0,1,0);
caseyquinn 12:5b4f3245606a 593 */
caseyquinn 10:06fbb1c9e3bd 594 pc.attach(pc_recv);
jelord 1:9fbb5b665068 595 microChannel.attach(uartMicro,microChannel.RxIrq);
jelord 3:122bfc998c4c 596 microChannel.baud(115200);
jelord 1:9fbb5b665068 597 microChannel.printf("$$$");
jelord 3:122bfc998c4c 598 wait(0.5);
jelord 3:122bfc998c4c 599 microChannel.printf("SN,");
jelord 3:122bfc998c4c 600 for(int i=0;i<6;i++)microChannel.putc(serialNumberAndType[i]);
jelord 3:122bfc998c4c 601 microChannel.printf("\r");
jelord 3:122bfc998c4c 602 wait(0.5);
jelord 1:9fbb5b665068 603 microChannel.printf("A\r");
jelord 3:122bfc998c4c 604 wait(0.5);
jelord 2:88fcbfadec6a 605 microChannel.printf("---\r");
jelord 3:122bfc998c4c 606 wait(0.5);
jelord 2:88fcbfadec6a 607
caseyquinn 12:5b4f3245606a 608 //RGB_LED.set_led(1,1,1);
jelord 3:122bfc998c4c 609 while(runReady!=1) {
jelord 3:122bfc998c4c 610 wait(1);
caseyquinn 11:aa21628a9b15 611 pc.printf("Waiting for BLE instruction");
jelord 3:122bfc998c4c 612
jelord 3:122bfc998c4c 613 }
jelord 3:122bfc998c4c 614
caseyquinn 12:5b4f3245606a 615 /*
jelord 3:122bfc998c4c 616 E2PROM.read(0x00015, startAndEndTime, 12); //Grab start and end times from EEPROM
jelord 3:122bfc998c4c 617 RGB_LED.set_led(0,1,0);
caseyquinn 12:5b4f3245606a 618 */
caseyquinn 7:29b01d5812ee 619 //!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
caseyquinn 7:29b01d5812ee 620 //UPDATE THIS TO WORK WITH ST RTC INSTEAD
caseyquinn 7:29b01d5812ee 621 //!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
caseyquinn 12:5b4f3245606a 622 /*
jelord 3:122bfc998c4c 623 while(!RTC_UPAS.compare(startAndEndTime[0], startAndEndTime[1], startAndEndTime[2], startAndEndTime[3], startAndEndTime[4], startAndEndTime[5])) { // this while waits for the start time by looping until the start time
jelord 3:122bfc998c4c 624 wait(0.5);
jelord 3:122bfc998c4c 625
jelord 3:122bfc998c4c 626 RTC_UPAS.get_time();
jelord 3:122bfc998c4c 627
jelord 3:122bfc998c4c 628 }
caseyquinn 12:5b4f3245606a 629 */
caseyquinn 12:5b4f3245606a 630 /*
jelord 3:122bfc998c4c 631
jelord 3:122bfc998c4c 632 //Get the proper serial number
jelord 3:122bfc998c4c 633 uint8_t serialBytes[2] = {0,};
jelord 3:122bfc998c4c 634 E2PROM.read(0x00034, serialBytes,2);
jelord 3:122bfc998c4c 635 serial_num = ((uint16_t)serialBytes[1] << 8) | serialBytes[0];
jelord 3:122bfc998c4c 636 calibrations.initialize(serial_num);
jelord 3:122bfc998c4c 637
jelord 3:122bfc998c4c 638 uint8_t logByte[1] = {0,};
jelord 3:122bfc998c4c 639 E2PROM.read(0x00014,logByte,1);
jelord 3:122bfc998c4c 640 logInerval = logByte[0];
jelord 3:122bfc998c4c 641
jelord 3:122bfc998c4c 642 //Use the flow rate value stored in eeprom
jelord 3:122bfc998c4c 643 uint8_t flowRateBytes[4] = {0,};
jelord 3:122bfc998c4c 644 E2PROM.read(0x00010,flowRateBytes,4);
jelord 3:122bfc998c4c 645 E2PROM.byteToFloat(flowRateBytes, &volflowSet);
jelord 3:122bfc998c4c 646
jelord 3:122bfc998c4c 647 if(volflowSet<=1.0) {
jelord 3:122bfc998c4c 648 gainFlow = 100;
jelord 3:122bfc998c4c 649 } else if(volflowSet>=2.0) {
jelord 3:122bfc998c4c 650 gainFlow = 25;
jelord 3:122bfc998c4c 651 } else {
jelord 3:122bfc998c4c 652 gainFlow = 25;
jelord 0:2cb2b2ea316f 653 }
jelord 3:122bfc998c4c 654
jelord 3:122bfc998c4c 655 RGB_LED.set_led(1,0,0);
jelord 3:122bfc998c4c 656 press = bmesensor.getPressure();
jelord 3:122bfc998c4c 657 temp = bmesensor.getTemperature();
jelord 3:122bfc998c4c 658 rh = bmesensor.getHumidity();
jelord 3:122bfc998c4c 659
jelord 3:122bfc998c4c 660 atmoRho = ((press-((6.1078*pow((float)10,(float)((7.5*temp)/(237.3+temp))))*(rh/100)))*100)/(287.0531*(temp+273.15))+((6.1078*pow((float)10,(float)((7.5*temp)/(237.3+temp))))*(rh/100)*100)/(461.4964*(temp+273.15));
jelord 3:122bfc998c4c 661 massflowSet = volflowSet*atmoRho;
jelord 3:122bfc998c4c 662
jelord 3:122bfc998c4c 663 DigPot.writeRegister(digital_pot_setpoint);
jelord 3:122bfc998c4c 664 wait(1);
caseyquinn 12:5b4f3245606a 665 blower = 1;
jelord 3:122bfc998c4c 666
jelord 3:122bfc998c4c 667 uint8_t subjectLabelOriginal[8] = {0,};
caseyquinn 4:5d004fd997d5 668 E2PROM.read(0x00001, subjectLabelOriginal,8);
caseyquinn 12:5b4f3245606a 669
caseyquinn 12:5b4f3245606a 670 */
caseyquinn 12:5b4f3245606a 671
caseyquinn 4:5d004fd997d5 672 time_t seconds = time(NULL);
caseyquinn 4:5d004fd997d5 673 strftime(timestr, 32, "%y-%m-%d-%H=%M=%S", localtime(&seconds));
caseyquinn 12:5b4f3245606a 674 /*
caseyquinn 9:8646fd501832 675 //sprintf(filename, "/sd/UPAS%04dLOG_%02d-%02d-%02d_%02d=%02d=%02d_%c%c%c%c%c%c%c%c.txt",serial_num,RTC_UPAS.year,RTC_UPAS.month,RTC_UPAS.date,RTC_UPAS.hour,RTC_UPAS.minutes,RTC_UPAS.seconds,subjectLabelOriginal[0],subjectLabelOriginal[1],subjectLabelOriginal[2],subjectLabelOriginal[3],subjectLabelOriginal[4],subjectLabelOriginal[5],subjectLabelOriginal[6],subjectLabelOriginal[7]);
caseyquinn 12:5b4f3245606a 676 sprintf(filename, "/sd/UPAS_TboardtestLog_%s_%c%c%c%c%c%c%c%c.txt", timestr,subjectLabelOriginal[0],subjectLabelOriginal[1],subjectLabelOriginal[2],subjectLabelOriginal[3],subjectLabelOriginal[4],subjectLabelOriginal[5],subjectLabelOriginal[6],subjectLabelOriginal[7]);
jelord 3:122bfc998c4c 677 FILE *fp = fopen(filename, "w");
jelord 3:122bfc998c4c 678 fclose(fp);
jelord 3:122bfc998c4c 679
jelord 3:122bfc998c4c 680
caseyquinn 12:5b4f3245606a 681 omronReading = ads.readADC_SingleEnded(0, 0xC583); // read channel 0 PGA = 2 : Full Scale Range = 2.048V
caseyquinn 12:5b4f3245606a 682 omronVolt = (omronReading*4.096)/(32768*2);
caseyquinn 12:5b4f3245606a 683 if(omronVolt<=calibrations.omronVMin) {
caseyquinn 12:5b4f3245606a 684 massflow = calibrations.omronMFMin;
caseyquinn 12:5b4f3245606a 685 } else if(omronVolt>=calibrations.omronVMax) {
caseyquinn 12:5b4f3245606a 686 massflow = calibrations.omronMFMax;
caseyquinn 12:5b4f3245606a 687 } else {
caseyquinn 12:5b4f3245606a 688 massflow = calibrations.MF4*pow(omronVolt,(float)4)+calibrations.MF3*pow(omronVolt,(float)3)+calibrations.MF2*pow(omronVolt,(float)2)+calibrations.MF1*omronVolt+calibrations.MF0;
caseyquinn 12:5b4f3245606a 689 }
caseyquinn 12:5b4f3245606a 690 deltaMflow = massflow-massflowSet;
caseyquinn 12:5b4f3245606a 691 digital_pot_set = digital_pot_setpoint;
caseyquinn 12:5b4f3245606a 692 wait(5);
caseyquinn 12:5b4f3245606a 693
caseyquinn 12:5b4f3245606a 694 //---------------------------------------------------------------------------------------------//
caseyquinn 12:5b4f3245606a 695 //Sets the flow withen +-1.5% of the desired flow rate based on mass flow
caseyquinn 12:5b4f3245606a 696
caseyquinn 12:5b4f3245606a 697 while(abs(deltaMflow)>.025) {
caseyquinn 12:5b4f3245606a 698
caseyquinn 12:5b4f3245606a 699 omronReading = ads.readADC_SingleEnded(0, 0xC583); // read channel 0 PGA = 2 : Full Scale Range = 2.048V
caseyquinn 12:5b4f3245606a 700 omronVolt = (omronReading*4.096)/(32768*2);
caseyquinn 12:5b4f3245606a 701 //Mass Flow tf from file: UPAS v2 OSU-PrimaryFlowData FullSet 2015-05-29 CQ mods.xlsx
caseyquinn 12:5b4f3245606a 702 if(omronVolt<=calibrations.omronVMin) {
caseyquinn 12:5b4f3245606a 703 massflow = calibrations.omronMFMin;
caseyquinn 12:5b4f3245606a 704 } else if(omronVolt>=calibrations.omronVMax) {
caseyquinn 12:5b4f3245606a 705 massflow = calibrations.omronMFMax;
caseyquinn 12:5b4f3245606a 706 } else {
caseyquinn 12:5b4f3245606a 707 massflow = calibrations.MF4*pow(omronVolt,(float)4)+calibrations.MF3*pow(omronVolt,(float)3)+calibrations.MF2*pow(omronVolt,(float)2)+calibrations.MF1*omronVolt+calibrations.MF0;
caseyquinn 12:5b4f3245606a 708 }
caseyquinn 12:5b4f3245606a 709
caseyquinn 12:5b4f3245606a 710 atmoRho = ((press-((6.1078*pow((float)10,(float)((7.5*temp)/(237.3+temp))))*(rh/100)))*100)/(287.0531*(temp+273.15))+((6.1078*pow((float)10,(float)((7.5*temp)/(237.3+temp))))*(rh/100)*100)/(461.4964*(temp+273.15));
caseyquinn 12:5b4f3245606a 711 volflow = massflow/atmoRho;
caseyquinn 12:5b4f3245606a 712 massflowSet = volflowSet*atmoRho;
caseyquinn 12:5b4f3245606a 713 deltaMflow = massflow-massflowSet;
caseyquinn 12:5b4f3245606a 714
caseyquinn 12:5b4f3245606a 715 digital_pot_set = (int)(digital_pot_set+(int)((gainFlow*deltaMflow)));
caseyquinn 12:5b4f3245606a 716 if(digital_pot_set>=digitalpotMax) {
caseyquinn 12:5b4f3245606a 717 digital_pot_set = digitalpotMax;
caseyquinn 12:5b4f3245606a 718 } else if(digital_pot_set<=digitalpotMin) {
caseyquinn 12:5b4f3245606a 719 digital_pot_set = digitalpotMin;
caseyquinn 12:5b4f3245606a 720 }
caseyquinn 12:5b4f3245606a 721
caseyquinn 12:5b4f3245606a 722 wait(2);
caseyquinn 12:5b4f3245606a 723 DigPot.writeRegister(digital_pot_set);
caseyquinn 12:5b4f3245606a 724 pc.printf("%d,\r\n", digital_pot_set);
caseyquinn 12:5b4f3245606a 725 wait(1);
caseyquinn 12:5b4f3245606a 726
caseyquinn 12:5b4f3245606a 727
caseyquinn 12:5b4f3245606a 728 }
caseyquinn 12:5b4f3245606a 729
jelord 3:122bfc998c4c 730 sampledVol = 0.0;
jelord 3:122bfc998c4c 731 RGB_LED.set_led(0,1,0);
caseyquinn 12:5b4f3245606a 732 */
caseyquinn 12:5b4f3245606a 733 // stop.attach(&check_stop, 9); // check if we should shut down every 9 number seconds, starting after the start.
caseyquinn 7:29b01d5812ee 734 logg.attach(&log_data, logInerval);
caseyquinn 12:5b4f3245606a 735 //flowCtl.attach(&flowControl, 1);
caseyquinn 7:29b01d5812ee 736
jelord 3:122bfc998c4c 737
jelord 3:122bfc998c4c 738 //** end of initalization **//
jelord 3:122bfc998c4c 739 //---------------------------------------------------------------------------------------------//
jelord 3:122bfc998c4c 740 //---------------------------------------------------------------------------------------------//
jelord 3:122bfc998c4c 741 // Main Control Loop
jelord 3:122bfc998c4c 742
caseyquinn 7:29b01d5812ee 743 while (1) {
caseyquinn 7:29b01d5812ee 744 // Do other things...
caseyquinn 7:29b01d5812ee 745 }
caseyquinn 7:29b01d5812ee 746
caseyquinn 8:c4a8f9b67cee 747
caseyquinn 4:5d004fd997d5 748
jelord 3:122bfc998c4c 749
jelord 0:2cb2b2ea316f 750 }