Технический форум по робототехнике.
Config Servos = 1 , Servo1 = Portb.3 , Reload = 11 Прием3_rc5:
Getrc5(address , Command)
If Address <> 255 And Command <> 255 Then
Command = Command And &B01111111
End If
Return$regfile = "m16def.dat" 'используем мк ATmega16
$crystal = 16000000 'частота кварцевого резонатора 16mHz
$baud = 19200 'устанавливаем скорость для UART
Ddrc = &B11111111 ' Все порты B выставляем на выход
Config Servos = 5 , Servo1 = Portc.3 , Servo2 = Portc.4 , Servo3 = Portc.5 , Servo4 = Portc.6 , Servo5 = Portc.7 , Reload = 12 ' Указываем кол-во серв, присваеваем имя Servo№ PC№ , указываем длину импульса.
Config Rc5 = Pind.2
Enable Interrupts ' разрешаем прерывания
'************************Переменные и константы*********************************
'*******************************Переменные**************************************
Dim Address As Byte , Command As Byte
Do
Gosub Прием_rc5
Loop
Прием_rc5:
Getrc5(address , Command)
If Address <> 255 And Command <> 255 Then
Command = Command And &B01111111
'Print Chr(12); ' выводим в терминал символ
'Print "Address - " ; Address; ' выводим в терминал адрес
'Print "Command - " ; Command; ' выводим в терминал номер команды
End If
Return
Архив WinRAR.rar'as an option you can use TIMER1
'Config Servos = 2 , Servo1 = Portb.0 , Servo2 = Portb.1 , Reload = 10 , Timer = Timer1
galex1981 писал(а):В общем проблем было несколько:
1) Раз ты используешь для чего непонятно - кучу файлов - где определяешь конфиги, где функции, причем не пишешь их прототипы, в результате чего у тебя во всем проекте каша; так приводи проект в нормальный порядок а не функция там а основной файл ее не видит по вышеуказанным причинам
Если всё в одном файле, то нужный кусок искать тяжело, а так всё по полочкам galex1981 писал(а):3) В хелпе по Config servo написано что можно менять таймер. То есть у тебя для 2х функций использовался один таймер, потому шли конфликты
- Код: Выделить всё • Развернуть
'as an option you can use TIMER1
'Config Servos = 2 , Servo1 = Portb.0 , Servo2 = Portb.1 , Reload = 10 , Timer = Timer1
В общем переделанный проект прилагаю - смотри какие у тебя были ошибки.
А вообще советую все таки русские названия не использовать как и в других языках программирования.
Спасибо, про таймер я и забыл 
Declare Sub Прием_rc5$regfile = "m16def.dat" ' файл спецификации Меги32
$crystal = 16000000 ' указываем на какой частоте будем работать
$lib "lcd4.lbx"
$hwstack = 32 ' default use 32 for the hardware stack
$swstack = 10 ' default use 10 for the SW stack
$framesize = 40 ' default use 40 for the frame space
Config Lcdpin = Pin , Rs = Portb.0 , E = Portb.2 , Db4 = Portb.4 , Db5 = Portb.5 , Db6 = Portb.6 , Db7 = Portb.7
Config Lcd = 16 * 2
Config Servos = 1 , Servo1 = Portd.7 , Reload = 11
Dim W As Integer
Config Int0 = Falling
On Int0 Getencoder
Enable Interrupts
Enable Int0
Cha Alias Pind.2
Chb Alias Pind.3
Config Cha = Input
Config Chb = Input
Cls
Cursor Off
Do
If W > 150 Then W = 33
If W < 33 Then W = 150
Servo(1) = W
Locate 1 , 1
Lcd "encounter: " ; W ; " "
Waitms 100
Loop
Getencoder:
If Cha = 0 Then
If Chb = 0 Then Incr W Else Decr W
End If
Waitms 5
Gifr = 64
Return
End
работает. решил попробовать ещё раз)) Видать когда пробовал, не так что то прописал)) спасиб 