device.XBEE.purge() private string datain global P_data1 global P_data2 global P_data3 global P_data4 global P_data5 global P_data6 global P_data7 global P_data8 private thetime private POND_2_length Private Counter = 0 while (1) try datain = device.XBEE.readUntil(asc('x')) //read serial sentence ? datain POND_2_length = getlength(datain) thetime = systime() if (left(datain,5) == "$POND") //valid data stream ?"POND_2_LENGTH = " + POND_2_length P_data1 = parse(datain,1,",") ? P_data1 P_data1.time = systime() P_bar_p.addValue(P_data1) //pick out barometric pressure P_data2 = parse(datain,2,",") ? P_data2 P_data2.time = systime() P_air_t_f.addValue(P_data2) //pick out air temperature //data = parse(datain,3,",") // ? data // data.time = systime() // P_wind_Dir.addValue(data) //pick out wind direction //data = parse(datain,4,",") // ? data // if((data < P_wind_speed[0] +20) && (data > P_wind_speed[0] -20)) // data.time = systime() // P_wind_Speed.addValue(data) //pick out wind speed // ? "WIND = " + data // endif //data = parse(datain,5,",") // ? data // data.time = systime() // P_wind_gust.addValue(data) //pick out wind gust P_data3 = parse(datain,3,",") ? P_data3 P_data3.time = systime() P_RAIN_C.addValue(P_data3) //pick out RAIN COUNTS ? "RAIN = " + P_data3 P_data4 = parse(datain,4,",") ? P_data4 P_data4.time = systime() P_volts.addValue(P_data4) //pick out voltage P_data5 = parse(datain,5,",") ? P_data5 P_data5.time = systime() P_rel_hum.addValue(P_data5) //pick out relative humidity P_data6 = parse(datain,6,",") ? P_data6 P_data6.time = systime() P_dew_point.addValue(P_data6) //pick out dew point //data = parse(datain,10,",") // ? data // data.time = systime() // P_wind_chill.addValue(data) //pick out wind chill //data = parse(datain,11,",") // ? data // data.time = systime() // P_heat_index.addValue(data) //pick out heat index P_data7 = parse(datain,7,",") ? P_data7 P_data7.time = systime() P_temp_F.addValue(P_data7) //pick out Si7201 sensor P_data8 = parse(datain,8,",") ? P_data8 P_data8.time = systime() P_rel_hum_2.addValue(P_data8) //pick out Si7201 sensor endif catch() ? strLastError endcatch delay(0.1) endwhile