Добавить материал и получить бесплатное свидетельство о публикации в СМИ
Эл. №ФС77-60625 от 20.01.2015

Опубликуйте свой материал в официальном Печатном сборнике методических разработок проекта «Инфоурок»

(с присвоением ISBN)

Выберите любой материал на Вашем учительском сайте или загрузите новый

Оформите заявку на публикацию в сборник(займет не более 3 минут)

+

Получите свой экземпляр сборника и свидетельство о публикации в нем

Инфоурок / Информатика / Статьи / Разработка "Программа для юнибуса".
ВНИМАНИЮ ВСЕХ УЧИТЕЛЕЙ: согласно Федеральному закону № 313-ФЗ все педагоги должны пройти обучение навыкам оказания первой помощи.

Дистанционный курс "Оказание первой помощи детям и взрослым" от проекта "Инфоурок" даёт Вам возможность привести свои знания в соответствие с требованиями закона и получить удостоверение о повышении квалификации установленного образца (180 часов). Начало обучения новой группы: 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;


}

}



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

Выберите специальность, которую Вы хотите получить:

Обучение проходит дистанционно на сайте проекта "Инфоурок".
По итогам обучения слушателям выдаются печатные дипломы установленного образца.

ПЕРЕЙТИ В КАТАЛОГ КУРСОВ

Похожие материалы

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