// Test DCP snimacov - meteorologicka stanica #define POCET_MERANI 288 // bude 288 merani (24 hod) #define CAS_MERANIA 30000 // medzi meraniami bude prestavka 5 min #define K1 3 // pre hodnoty vlhkosti (empir) #define K2 15 // pre hodnoty tlaku (empir) #define K3 10 // pre hodnoty teploty (empir) #define CAS_PRVEHO 50 // cakanie pred prvym meranim 0.5 s int vlhkost, tlak, teplota; task main () { SetSensorType (SENSOR_1, SENSOR_TYPE_LIGHT); SetSensorMode (SENSOR_1, SENSOR_MODE_PERCENT); SetSensorType (SENSOR_2, SENSOR_TYPE_LIGHT); SetSensorMode (SENSOR_2, SENSOR_MODE_PERCENT); SetSensor (SENSOR_3, SENSOR_CELSIUS); CreateDatalog (3 * POCET_MERANI); Wait (CAS_PRVEHO); repeat (POCET_MERANI) { vlhkost = K1 * SENSOR_1; tlak = K2 * SENSOR_2; teplota = SENSOR_3 / K3; AddToDatalog (vlhkost); // Variable 0 AddToDatalog (tlak); // Variable 1 AddToDatalog (teplota); // Variable 2 Wait (CAS_MERANIA); } }
Poznámka: Meranie sa uskutočnilo v septembri 2005 počas 24 hodín (od 10:00h rána)