roboforum.ru

Я в бесике тупак и нетолько в нем)) Вопрос а где тут ноги??

Ноги судя по всему в LCD_Siemens_S65.cfg

кулер 23 писал(а):Я в бесике тупак ...

Бейсик можно выучить максимум за неделю с учетом того что через день им заниматься. Вы уже почти год на Форуме и не можете его изучить...

А как можно светик включать с помощью RC5? Светик висит на PortC 7 куда это писать Там где Моторы?

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

$prog &HFF , &HE4 , &HD9 , &H00       'указываем какие фусибиты надо прошить
$regfile = "m32def.dat"       ' файл спецификации Меги32
$crystal = 8000000       ' указываем на какой частоте будем работать
$baud = 2400
 
'----------------------------------------------------------------------------
Config Timer1 = Pwm , Pwm = 8 , Prescale = 1 , Compare A Pwm = Clear Down , Compare B Pwm = Clear Down
Config Pinc.2 = Output : Drl Alias Portc.2       'ногу сконфигурировали как выход и обозвали Drl
Config Pinc.3 = Output : Drr Alias Portc.3       'ногу сконфигурировали как выход и обозвали Drr
Config Pind.4 = Output       'ногу ШИМа левого движка сконфигурировали как выход
Config Pind.5 = Output       'ногу ШИМа правого движка  сконфигурировали как выход
'----------------------------------------------------------------------------
 
Dim Speed As Byte
Speed = 70
 
Config Rc5 = Pind.2
Enable Interrupts
Dim Address As Byte , Command As Byte
 
Print "Start MiniBot"
 
Do
   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
Loop

сам-то понял что спросил?
ждем телепатов...

У тебя есть бесконечный цикл, где МК всегда что то делает. Логично предположить что обработчик RC5 нужно вставить по обработке команды принятой от RC5

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

Do   
  Getrc5(address , Command)  
   If Address <> 255 And Command <> 255 Then      
   здесь нужно вставить свой код по нажатию клавиши для управления светодиодом

  End If
Loop

Просто вписать код "12" или чтото надо еще писать перед кодом?

Что значит 12? В твоем коде ты проверяешь переменную Command на соответствие с кодом нажатой кнопки а затем шлешь единицу в тот порт на котором повешен светодиод

12 это код кнопки. Блин че я такой тупой ниче не понимаю.

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

$regfile = "m32def.dat"                                     ' файл спецификации Меги32
$crystal = 8000000       'указываем на какой частоте будем работать
$lib "mcsbyteint.lbx"

Config Pinc.7 = Output

Config Rc5 = Pind.3
Enable Interrupts
Dim Address As Byte , Command As Byte

Do
Getrc5(address , Command)
   If Address <> 255 And Command <> 255 Then
   Command = Command And &B01111111
   End If

If Command = 12 Then
         Set Portc.7                                        'Включить светодиод 
         End If
Loop

Я то думал че не работает то А аказывается тсоп на 3 порт подключен а не на 2 как в уроках

а выключаешь светодиод ресетом меги?

да

Добавлено спустя 49 минут 21 секунду:
А как минибота заряжать-то?

или через USB или через разъем внешней зарядки

А светодиод загорится зеленым, когда зарядится?

когда зарядится светодиод наоборот потухнет