Программирование BASCOM
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 1 из 1
  • 1
Форум » BASCOM » Вопросы-ответы » шагщвик (управление шаговиком)
шагщвик
sillverДата: Воскресенье, 17.04.2011, 22:24 | Сообщение # 1
Рядовой
Группа: Пользователи
Сообщений: 11
Статус: Offline
Помогите разобратся.
На Tiny13 хочу сделать управление ШД из-за малого кол-ва ножек ужимаюсь на максимум.
задача такова: управляю движком в одну сторону, после касания концевика ( прерывание 0) откат небольшой для освобождения контакта пауза в несколько минут, движение в обратную сторону до концевика ( прерывание 0 включены паралельно ( мало ножек)) и опеть откат ожидание и т.д. по кругу.
вот что писал:
$regfile = "ATtiny13.DAT"
$crystal = 9600000
$hwstack = 0
$swstack = 0
$framesize = 0
Config Pinb.0 = Output 'настройка пина b0 на выход (LED1)
Config Pinb.2 = Output 'настройка пина b1 на выход (LED2)
Config Pinb.3 = Output 'настройка пина b2 на выход (LED3)
Config Pinb.4 = Output 'настройка пина b3 на выход (LED3)
Config Pinb.1 = Input

Config Int0 = Falling
On Int0 Kncevik

Enable Interrupts
Enable Int0

Dim A As Integer
Dim D As Integer
Dim C As Integer
'OOOO'
Do 'начало цикла

For A = 1 To 10
If A = 1 Then

For D = 1 To 10

Waitms 5
Portb = 16

Waitms 5
Portb = 24

Waitms 5
Portb = 8

Waitms 5
Portb = 12

Waitms 5
Portb = 4

Waitms 5
Portb = 5

Waitms 5
Portb = 1

Waitms 5
Portb = 17

Next D

Loop

Kncevik:

For C = 1 To 5

Waitms 3
Portb = 17

Waitms 3
Portb = 1

Waitms 3
Portb = 5

Waitms 3
Portb = 4

Waitms 3
Portb = 12

Waitms 3
Portb = 8

Waitms 3
Portb = 24

Waitms 3
Portb = 16

Next C

Wait 60
Next A

Return

End

И что-то не разберусь с прерываниями.
З.Ы. : хочется общепся через СКАЙП
мой sillver5

 
Форум » BASCOM » Вопросы-ответы » шагщвик (управление шаговиком)
  • Страница 1 из 1
  • 1
Поиск:

Copyright Radan Studio © 2024