roboforum.ru

Ребята помогите инфой по дистанционному управлению роботом,желательно не просто словами а конкретными устройствами с схемами и програмамми.Буду ОООООЧЕНЬ признателен,заранее спасибо!

Опс! А у нас всё готово к твоему приходу...
Если заполнишь город, то можешь смотреть здесь [[Задание№1-4]]

как работает TSOP в поиск по форуму сто раз обсуждали
по вопросу ДУ кокнретный пример в задаче к миниботу

Урок был к чему?
К МиниБоту!
Значит ищи схему к МиниБоту!
Или за тебя может его еще и спаять???!!!
Так не поверишь! Уже спаяли!!!
Ждет тебя уже спаяный всего за 500р.!!!

Кстати, насчет GetRC5 из Bascom AVR.

Собрал одного Минибота, вместо TSOP 1833 поставил 1736(где-то на форуме читал, что экспериментально подтверждена работоспособность), правда пришлось ему ноги повыкручивать из-за другой цоколевки. Так вот, возникла необходимость определения кодов кнопок пульта. На макетке собрал схему (Мега8 с внутренним генератором на 1 Мгц, на весь порт D навешал светодиодов, TSOP по типовой схеме подключил на PC2), написал программку

Код: Выделить всё • Развернуть

$regfile = "m8def.dat"                                      
$crystal = 1000000                                          
Config Portd.0 = Output                                    
Config Portd.1 = Output                                     
Config Portd.2 = Output                                   
Config Portd.3 = Output                            
Config Portd.4 = Output                                    
Config Portd.5 = Output                                 
Config Portd.6 = Output                                  
Config Portd.7 = Output                                  

Config Rc5 = Pinc.2
Enable Interrupts

Dim Address As Byte , Command As Byte


Do

   Getrc5(address , Command)
   If Address <> 255 And Command <> 255 Then
      Command = Command And &B01111111
      Portd = Bin(command)
      Waitms 500

   End If

   If Command = 255 Then
      Portd = &B10000001
      Waitms 100
      Portd = &B00000000
   End If

Loop

Результат нулевой - команды не отображаются. Но при нажатии на кнопки пульта моргание крайних светодиодов ускоряется - т.е. чего-то принимается. Кто работал с бейсиком - чем это можно победить?

UPD. Подумал, что из-за тактовой частоты. Менял 1,2,4,8 МГц (все внутренний генератор) - не помогло. Да и в хелпе бейсика про зависимость от частоты ничего не сказано.

так с него и начал. Там на выходе из GetRC5 получается код адреса и код команды. У меня после строчки "Command = Command And &B01111111
" Command всегда равно 48 (110000)

EdGull писал(а):тогда для начала нпиши код что если хоть чё-то пришло, то моргнуть светодиодом.

Вот, моргает на каждое нажатие

Код: Выделить всё • Развернуть

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

Config Pind.0 = Output : Led0 Alias Portd.0              
Config Pind.1 = Output : Led1 Alias Portd.1               
Config Pind.2 = Output : Led2 Alias Portd.2             
Config Pind.3 = Output : Led3 Alias Portd.3        
Config Pind.4 = Output : Led4 Alias Portd.4            
Config Pind.5 = Output : Led5 Alias Portd.5         
Config Pind.6 = Output : Led6 Alias Portd.6         
Config Pind.7 = Output : Led7 Alias Portd.7          

Config Pinc.2 = Input : Tsop_36 Alias Pinc.2
'-------------------------------------------------------------'


Do

   If Tsop_36 = 0 Then
      Led7 = 1
      Waitms 50
   Else
      Led7 = 0
      Waitms 50
    End If

Loop

EdGull писал(а):Config Portd.0 = Output
а откуда ты взял такую строчку конфигирования ноги?
так никогда не заработает!

Сначала были только примеры кодов на Си, вот в голове и застряло.

Хочу много чего Для начала хотелось бы, чтобы сигналы от пульта распознались:

Код: Выделить всё • Развернуть

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

Config Pind.0 = Output : Led0 Alias Portd.0
Config Pind.1 = Output : Led1 Alias Portd.1
Config Pind.2 = Output : Led2 Alias Portd.2
Config Pind.3 = Output : Led3 Alias Portd.3
Config Pind.4 = Output : Led4 Alias Portd.4
Config Pind.5 = Output : Led5 Alias Portd.5
Config Pind.6 = Output : Led6 Alias Portd.6
Config Pind.7 = Output : Led7 Alias Portd.7

'Config Pinc.2 = Input : Tsop_36 Alias Pinc.2

Config Rc5 = Pinc.2
Enable Interrupts

Dim Address As Byte , Command As Byte

Do

   Getrc5(address , Command)
   If Address <> 255 And Command <> 255 Then
      Command = Command And &B01111111
      Led4 = 1
      Waitms 300
      Led4 = 0
   End If

'   If Command = 255 Then
'      Led5 = 1
'      Waitms 10
'      Led5 = 0
'   End If

'   If Address = 255 Then
'      Led3 = 1
'      Waitms 10
'      Led3 = 0
'   End If

Loop

Пока никак не хочет... Если раскомментировать два последних If, то Led3 и Led5 весело моргают. Led4 на пульт не реагирует никак.