Систем за надгледање нивоа воде у резервоару

#инцлуде
#дефине лед 13
#дефине лед2 12
#дефине лед3 11
#дефине лед4 10
#дефине лед5 9
#дефине лед6 8
#дефине окидач 18
#дефине одјек 19
#дефине мотор 17
#дефине зујање 16
Течни кристал лцд (2,3,4,5,6,7);
флоат тиме = 0, удаљеност = 0;
инт темп = 0;
подешавање празнине ()
{
лцд.бегин (16.2);
Сериал.бегин (9600);
пинМоде (окидач, ОУТПУТ);
пинМоде (одјек, улаз);
пинМоде (мотор, ОУТПУТ);
пинМоде (зујање, ИЗЛАЗ);
пинМоде (лед, ОУТПУТ);
пинМоде (лед2, ОУТПУТ);
пинМоде (лед3, ОУТПУТ);
пинМоде (лед4, ОУТПУТ);
пинМоде (лед5, ОУТПУТ);
пинМоде (лед6, ОУТПУТ);
лцд.принт ("Ниво воде");
лцд.сетЦурсор (0,1);
лцд.принт ("б индикатор");
кашњење (2000);
}
воид петља ()
{
лцд.цлеар ();
дигиталВрите (окидач, ЛОВ);
делаиМицросецондс (2);
дигиталВрите (окидач, ХИГХ);
делаиМицросецондс (10);
дигиталВрите (окидач, ЛОВ);
делаиМицросецондс (2);
време = пулсИн (одјек, ХИГХ);
удаљеност = време * 340/20000;
лцд.цлеар ();
лцд.принт ("Водни простор у");
лцд.сетЦурсор (0,1);
лцд.принт ("Резервоар је:");
лцд.принт (удаљеност);
лцд.принт ("Цм");
кашњење (2000);
ако (удаљеност <лт = 78)
{
дигиталВрите (лед, ХИГХ);
}
друго
{
дигиталВрите (лед, ЛОВ);
}
ако (удаљеност <65)
{
дигиталВрите (лед2, ХИГХ);
}
друго
{
дигиталВрите (лед2, ЛОВ);
}
ако (удаљеност <52)
{
дигиталВрите (лед3, ХИГХ);
}
друго
{
дигиталВрите (лед3, ЛОВ);
}
ако (удаљеност <45)
{
дигиталВрите (лед4, ХИГХ);
}
друго
{
дигиталВрите (лед4, ЛОВ);
}
ако (удаљеност <28)
{
дигиталВрите (лед5, ХИГХ);
}
друго
{
дигиталВрите (лед5, ЛОВ);
}
ако (удаљеност <15)
{
дигиталВрите (лед6, ХИГХ);
}
друго
{
дигиталВрите (лед6, ЛОВ);
}
ако (удаљеност <15 && темп == 0)
{
дигиталВрите (мотор, ЛОВ);
дигиталВрите (зујање, ХИГХ);
лцд.цлеар ();
лцд.принт ("Резервоар за воду пун");
лцд.сетЦурсор (0,1);
лцд.принт ("Мотор искључен");
кашњење (3000);
дигиталВрите (зујање, ЛОВ);
кашњење (3000);
темп = 1;
}
друго ако (удаљеност <15 && темп == 1)
{
дигиталВрите (мотор, ЛОВ);
лцд.цлеар ();
лцд.принт ("Резервоар за воду пун");
лцд.сетЦурсор (0,1);
лцд.принт ("Мотор искључен");
кашњење (5000);
}
друго ако (удаљеност> 70)
{
дигиталВрите (мотор, ХИГХ);
лцд.цлеар ();
лцд.принт ("НИСКИ ниво воде");
лцд.сетЦурсор (0,1);
лцд.принт ("Мотор укључен");
кашњење (5000);
темп = 0;
}
}