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, про это наверняка есть в хелпе баскома.

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

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

Добавлено спустя 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

roboforum.ru

нужна помощь в Bascom AVR

нужна помощь в Bascom AVR

Re: нужна помощь в Bascom AVR

Re: нужна помощь в Bascom AVR

Re: нужна помощь в Bascom AVR

Re: нужна помощь в Bascom AVR

Re: нужна помощь в Bascom AVR

Re: нужна помощь в Bascom AVR

Re: нужна помощь в Bascom AVR

Re: нужна помощь в Bascom AVR

Re: нужна помощь в Bascom AVR

Re: нужна помощь в Bascom AVR

Re: нужна помощь в Bascom AVR

Re: нужна помощь в Bascom AVR

Re: нужна помощь в Bascom AVR

Re: нужна помощь в Bascom AVR