roboforum.ru

Skyline писал(а): как сделать чтобы выполнялись оба условия сразу, а не в порядке написания проги

Наврено обеденить в IF проверку нескольких условий если так можно в бэйсике.


If ((условие 1) AND (условие 2)) Then

или ступенчато-вложенно:

If условие 1 Then
If условие 2 Then
далать что-то

Как-то вот так:

Код: Выделить всё • Развернуть

Do                                                          

Gosub Вперед                                              

If B1 = 1 And B2 = 1 Then                                   
Gosub Вперед_вправо And Gosub Вперед_влево                  
Else                                                       
Gosub Назад_вправо And Gosub Назад_влево                  
Wait 3                                                      
End If                                                     
                                                             
Loop

Добавлено спустя 1 час 23 минуты 53 секунды:
Попробовал оба варианта, не работает, либо я что-то не правильно делаю.

Наверно надо зырить как это правильно в бэйсике писать.

If B1 = 1 And B2 = 1

а условие разве не через == пишется?

бэйсик это сила ! надо уметь ею управлять.

Дык это же Басик ))) у него все по человечески, а эти == это Сишные приколы.

Код: Выделить всё • Развернуть

Then                                   
Gosub Вперед_вправо And Gosub Вперед_влево

и вот это тоже по-человечески?!
ни кавычек, ни точек с запятой?
Может все-таки после then если несколько команд идет их надо как-то объединить?
Может вообще вот-так написать:

Код: Выделить всё • Развернуть

Then                                   
Gosub Вперед_вправо
Gosub Вперед_влево

без And.

Добавлено спустя 1 минуту 7 секунд:

Попробовал оба варианта, не работает,

а что пишет, в чем проявляется не работоспособность?

Попробуйте вложенные условия. Вначале проверяете, что оба бампера не сработали и только тогда, проверяете по отдельности...

Может вообще вот-так написать:

Код: Выделить всё • Развернуть

   Then                                   
    Gosub Вперед_вправо
    Gosub Вперед_влево

без And.

Вот так:

Код: Выделить всё • Развернуть

Do

Gosub Вперед

If B1 = 1 And B2 = 1 Then
Gosub Вперед_вправо
Gosub Вперед_влево
Else
Gosub Назад_вправо
Gosub Назад_влево
End If

Loop

Это если в Gosub-ах нет пауз и они не отключают режимы других Gosub

И так попробовал, все равно нет срабатывания на бампер как вперед ехал, так и едет.

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

Бампер хоть работает???

Бампер работает. Что-то я не нашел в Вике пример работы с ИК-бампером!

Светодиоды или соединение по UART есть?
Именно c ИК-бампером нет, есть RC5 пультом.

Светодиоды есть, соединение по UART тоже, правда кабеля COM-ого нет.