Добавить материал и получить бесплатное свидетельство о публикации в СМИ
Эл. №ФС77-60625 от 20.01.2015
Инфоурок / Информатика / Статьи / Разработка "Программа для юнибуса".

Разработка "Программа для юнибуса".



Осталось всего 4 дня приёма заявок на
Международный конкурс "Мириады открытий"
(конкурс сразу по 24 предметам за один оргвзнос)


  • Информатика

Поделитесь материалом с коллегами:




Программа движения юнибуса на языке си++, написанная учениками в Ибресинской СОШ №1? под руководством учителя физики и информатики Альдемасова Олега Викторовича:


task main() // osnovnaja programma

{

SetSensorLowspeed(S4); //podluchaem sensor 4

SetSensorLowspeed(S1); //podluchaem sensor 1

int s,v,k,tor=0; //zadaet peremennie

while(true) // beskonechni cikl

{

tor=0; //flag tormogenia

PlayFileEx("od1.rso",4,FALSE); //ozvuchka "ostorogno dveri"

Wait(5000); // pausa 5 sek

PlayFileEx("s1.rso",4,FALSE); // severna

Wait(2000);

for(k=1;k<=100;k++) // plav razgon

{

v=k;

OnFwd(OUT_A,v);

Wait(30);

if (SensorUS(S4)<30) // esli s4 < 30 sm

{

Wait(30);

if (SensorUS(S4)<10) { tor=1; break;}

}

}

if (SensorUS(S4)<10) Off(OUT_A); //proverka i stop


for(k=1;k<=5;k++)

{

while (SensorUS(S4)>25) OnFwd(OUT_A,100);

Wait(50);

}

for(k=100;k>=1;k--) // plav zamedl

{

if (tor==1) break;

OnFwd(OUT_A,k);

Wait(30);

}

Wait(50);

Off(OUT_A);

Wait(5000);

PlayFileEx("od1.rso",4,FALSE);

Wait(5000);

PlayFileEx("u6.rso",4,FALSE); //ugnaa

Wait(2000);

tor=0;

//-----------------------------------------------------------------

for(k=1;k<=100;k++) // plav razgon

{

v=k;

OnRev(OUT_A,v);

Wait(30);

if (SensorUS(S1)<30)

{

Wait(30);

if (SensorUS(S1)<10) { tor=1; break;}

}

}

if (SensorUS(S1)<10) Off(OUT_A);

for(k=1;k<=5;k++)

{

while (SensorUS(S1)>25) OnRev(OUT_A,100);

Wait(50);

}

for(k=100;k>=1;k--) // plav zamedl

{

if (tor==1) break;

OnRev(OUT_A,k);

Wait(30);

}

Wait(50);

Off(OUT_A);

Wait(5000);

tor=0;


}

}





57 вебинаров для учителей на разные темы
ПЕРЕЙТИ к бесплатному просмотру
(заказ свидетельства о просмотре - только до 11 декабря)


Автор
Дата добавления 24.09.2016
Раздел Информатика
Подраздел Статьи
Просмотров22
Номер материала ДБ-211344
Получить свидетельство о публикации
Похожие материалы

Включите уведомления прямо сейчас и мы сразу сообщим Вам о важных новостях. Не волнуйтесь, мы будем отправлять только самое главное.
Специальное предложение
Вверх