Приложение а
Структурная схема МПС
Приложение в
Схема алгоритма программы
Приложение с
Листинг программы
#include "ADuC812.h"
#include "max.h"
#include "kb.h"
#include "lcd.h"
#include "i2c.h"
etazN,i,j,curEtaz,Prepat;
VvodEtaz()
{etaz;tmp;
_Type("Etazh:");='0';(etaz=='0')
{(ScanKBOnce(&etaz))
{=etaz-48;_Putch(etazN+48);='0';(etaz=='0')
{(ScanKBOnce(&etaz))
{(etaz=='A'){break;} else
{=etaz-48;=(etazN*10)+(etaz-48);_Putch(tmp+48);
};
};
};
};
};etazN;
}
HodLifta()
{j,i;(curEtaz<etazN)
{(i=curEtaz;i<=etazN;i++)
{(j=0; j<=10000; j++)
{(SV,i);();
}
}
};(curEtaz>etazN)
{(i=curEtaz;i>=etazN;i--)
{(j=0; j<=10000; j++)
{(SV,i);();
}
}
};=etazN;
}
// 5 sec na zakrytie dverei i proverka prepatstviya:ZakrDveri()
{j,i;Bc;
='0';(i=1;i<=5;i++)
{(j=0; j<=1000; j++)
{(ScanKBOnce(&Bc))
{(Bc=='B')
{=1;id3;
}; // B - datchik prepatstviya
};();
};_GotoXY(15,1);_Putch(i+48);
}: i=1;
}
main()
{Ac,etaz;tmp;
=0x20;=0x40;
();_GotoXY(0,1);_Type("SvetVyk");_GotoXY(7,1);_Type("DveriZakr");
=1; // tekushii etaz=0; // prepyatsvii net: Ac='0';(Ac=='0')
{(ScanKBOnce(&Ac))
{(Ac=='A')
{=VvodEtaz();_GotoXY(0,0); // "etaz" propal_Type(" ");_GotoXY(0,1);_Type("SvetVkl");();: LCD_GotoXY(7,1);_Type("DveriOtkr");
// zdem 20 sec:(i=0;i<=10000;i++)
{(ScanKBOnce(&Ac)) // nazhatie etaza vnutri
{(Ac=='A')
{=VvodEtaz();_GotoXY(7,1);_Type("DveriZakr");(); // medlenno zakryvaem dveri(Prepat==1)
{_GotoXY(0,1);_Type("SvetVkl");=0;id2;
};_GotoXY(0,0);_Type(" ");();id2;
};
};();
};_GotoXY(0,1);_Type("SvetVyk");_GotoXY(7,1);_Type("DveriZakr");(); // medlenno zakryvaem dveri(Prepat==1)
{_GotoXY(0,1);_Type("SvetVkl");=0;id2;
};_GotoXY(0,0);_Type(" ");_GotoXY(0,0);
// zdem sled vyzova:id;
}
}
}(1);
}