Помогите разобратся.
На 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
