roboforum.ru

Такое дело, мне нужно объединить две готовые программы, но в них есть циклы do...loop, как я знаю цикл в программе Bascom AVR может быть только один, как можно обеъдинить программы с циклами?

Добавлено спустя 13 минут 44 секунды:
вот два цикла

Код: Выделить всё

Do
Start Adc : АЦП1 = Getadc(0)
If АЦП1 >= 500 Then : Gosub Отъехать_от_препятствия_спереди : Else : Gosub Вперёд : End If
  Loop

Код: Выделить всё

Do
   Gosub Прием_rc5
   If Command = 255 Then
      Gosub Стоп
       Waitms 0
  Elseif Command = 32 Then
      Gosub Прямо
       Waitms 0
   Elseif Command = 33 Then
      Gosub Назад
       Waitms 0
   Elseif Command = 17 Then
      Gosub Влево
       Waitms 0
   Elseif Command = 16 Then
      Gosub Вправо
       Waitms 0
   End If
Loop

Например склеить обе программы. Например так:

Код: Выделить всё

Do
Start Adc : АЦП1 = Getadc(0)
If АЦП1 >= 500 Then : Gosub Отъехать_от_препятствия_спереди : Else : Gosub Вперёд : End If 
Gosub Прием_rc5   
If Command = 255 Then     
   Gosub Стоп       
   Waitms 0 
Elseif Command = 32 Then     
   Gosub Прямо       
   Waitms 0   
Elseif Command = 33 Then     
   Gosub Назад       
   Waitms 0   
Elseif Command = 17 Then     
   Gosub Влево       
   Waitms 0   
Elseif Command = 16 Then     
   Gosub Вправо       
   Waitms 0   
End If
Loop


Нельзя!
BascomAVR - компилятор пишет, типо что это за фигня, такого быть не может!

Добавлено спустя 10 минут 25 секунд:
Кто может дать пример с программой датчика поверхности

Для отдельного вот такое есть: [[OR-BWSENS]]

Можно!
Просто он наверно на "Waitms 0" ругается

Гуль, а если всё совмещать, то нужно переменных 2х программ соединить и конфигурации портов, да?
И что можно циклы просто складывать?
А что если циклы по разному назваются?
Do...Loop Until или While ... Wend?

Посмотрите примеры BASCOM

Почитай здесь про циклы.

Вот интересный вопрос, можно ли на Бейсике реализовать такую тему:
При нажатии кнопки, чтобы менялась программа, т.е. не нужно будет каждый раз прошивать МК.
Если можно скажите как, или лучше дайте скелет такой программы.

Люди не кто не знает как расширить порты на Bascom AVR?

Можно расширить при помощи вот такой микросхемы:
http://avrdevices.ru/rasshiritely-portov-mcp23008/
Подключается по I2C, про это наверняка есть в хелпе баскома.

Гуль, точно можно "склеивать" программы совмещая циклы?

Если переменные и функции не пересекаются - можно

Добавлено спустя 1 минуту 15 секунд:
С другой стороны, можно после склейки программу прогнать дебаггером, проверить в Протеусе и т. д... и там сразу видно все будет, правильно склеил или нет

Не хотел тему создавать, но мне тоже помощь по Баскому нужна. Начал осваивать программирование 2 дня назад, уже и светодиодом помигал, и несколькими светодиодами по очереди, и с кнопкой. А вот сейчас пытаюсь написать код для робота, чтобы с контактными датчиками ездил, и не фурычит. Пробовал пока с одним бампером, но не пашет

Код: Выделить всё

$regfile = "ATtiny2313.DAT"                                 '-Attiny2313
$crystal = 4000000                                          ' указываем на какой частоте будем работать
'--------Описание портов-----------------

Config Pind.2 = Output : Dr1 Alias Portd.2
Config Pind.3 = Output : Dr2 Alias Portd.3
Config Pind.4 = Output : Dr3 Alias Portd.4
Config Pind.5 = Output : Dr4 Alias Portd.5
Config Pind.0 = Input : Pr1 Alias Portd.0

Do
If Pr1 = 1 Then : Gosub Вправо
Else : Gosub Вперёд
Loop Until Pr1 = 0
Return



'-------------------------Движение---------------------------------

Вперёд:                                                     'едем вперёд
Dr1 = 0 : Dr2 = 1 : Dr3 = 1 : Dr4 = 0
Return

Вправо:                                                     'поворачиваем вправо
Dr1 = 1 : Dr2 = 0 : Dr3 = 1 : Dr4 = 0
Return


End If
End


Попробуй так:

Код: Выделить всё


$regfile = "ATtiny2313.DAT"                                 '-Attiny2313
$crystal = 4000000                                          ' указываем на какой частоте будем работать
'--------Описание портов-----------------
Config Pind.2 = Output : Drl Alias Portd.2
Config Pind.3 = Output :  Drr Alias Portd.3
Config Pind.4 = Output : Dre Alias Portd.4
Config Pind.5 = Output : Drw Alias Portd.5
Config Pind.0 = Input : Pr1 Alias Portd.0
Pr1 = 1
Do
Gosub Прямо
If Pr1 = 0 Then : Gosub назад : Waitms 3000 : Gosub Влево : Waitms 3000
End if
Loop
Return



'-------------------------Движение---------------------------------

Налево:                                                     ' едим налево
   Drl = 0 : Drr = 1 : Dre = 1 : Drw = 0: Return

Направо:                                                    ' едим направо
   Drl = 1 : Drr = 0 : Dre = 0 : Drw = 1 : Return

Прямо:                                                      ' едим прямо
  Drl = 1 : Drr = 0 : Dre = 1 : Drw = 0 : Return

Назад:                                                      ' едим назад
   Drl = 0 : Drr = 1 : Dre = 0 : Drw = 1 : Return

Стоп:                                                       ' стоим на месте
  Drl = 0 : Drr = 0 : Dre = 0 : Drw = 0 : Return


Давно я работал на бейсике, сейчас пишу на winavr, если нужно могу написать
Вообще посмотри вот здесь: http://cdxp.zx6.ru/sources/?p=61