Переходы в Bascom

[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]

Страница 1 из 1
1

Форум » САПР, программирование » Среды программирования » Переходы в Bascom (Do.....Loop)

Переходы в Bascom

loiter

Дата: Вторник, 01.11.2011, 22:15 | Сообщение # 1

Группа: Заглянувший

Сообщений: 2

Репутация: 0

Статус: Offline

Помогите понять почему нет перехода в начало к Do?
После выполнения If зацикливается в от End If до Loop потом только сбросом

Code

$regfile = "m8def.dat"
$crystal =1000000

Config Portb.0 = Output
Config Portb.1 = Output
Config Pinc.2 = Input

Do
If Pinc.2 = 0 Then
Set Portb.0
Wait 2
Reset Portb.0
Wait 2
Else
Portb.0 = 0
End If
Set Portb.1
Wait 3
Reset Portb.1
Wait 3
Loop

Space

Дата: Вторник, 01.11.2011, 22:29 | Сообщение # 2

Администратор

Язык программированя: BascomAVR

Группа: Администраторы

Сообщений: 327

Репутация: 8

Статус: Offline

Дело здесь в задержках.
Цикл не может одновременно проверять условие и устанавливать низкий/высокий логический уровень на порту мк, из-за этого и бзик такой получается.

пробуй так:

Code

$regfile = "m8def.dat"
$crystal = 1000000

Config Portb.0 = Output
Config Portb.1 = Output
Config Pinc.2 = Input

Do

If Pinc.2 = 0 Then : Gosub 1 : Else : Portb.0 = 0 : End If

Loop

1:

  Set Portb.0 : Wait 2
  Reset Portb.0 : Wait 2

  Return

для чего это тебе?

loiter

Дата: Пятница, 23.12.2011, 15:21 | Сообщение # 3

Группа: Заглянувший

Сообщений: 2

Репутация: 0

Статус: Offline

Завалили работай на работе,отвтить не мог.
Написал так -
$regfile = "m8def.dat"
$crystal =1000000
Config Portd.0 = Output
Config Portd.1 = Output
Config Portd.2 = Output

Dim A As Integer
A = 5

Do
Set Portd.0
Wait 5
Reset Portd.0
Wait 2
Set Portd.1
Wait 6
Reset Portd.1
Wait 2
Loop Until A=5
Do
wait 1
portd.2=1
wait 1
portd.2=0
Loop

Всё работает в ISIS, но вот преследуют меня проблемы дурацкого свойства
не как не пойму,почему мега8 прошивается, но не запускается???
Всё сделал +5В на VCC(7),GND (8,22),PD2 (4) к нему диод с резистором 205 ом на GND.
Никакого эффекта.
А нужно это мне для горелки на гранулах.Для поджига и подачи гранул в нужный момент.
\ Время пока отлабочное стоит \

Добавлено (23.12.2011, 15:21)
---------------------------------------------
RESET - через 10Ком на +5В.

Форум » САПР, программирование » Среды программирования » Переходы в Bascom (Do.....Loop)

Страница 1 из 1
1