roboforum.ru

Технический форум по робототехнике.

Помогите код написать...

Готовая электроника для самодельного робота. Уровень от начинающих до опытных конструкторов.

Re: Помогите код написать...

Сообщение кулер 23 » 02 фев 2010, 16:21

Я в бесике тупак и нетолько в нем)) Вопрос а где тут ноги??
Аватара пользователя
кулер 23
 
Сообщения: 798
Зарегистрирован: 17 апр 2009, 19:44
Откуда: Югорск
Skype: rizhykot
ФИО: Аксютин Юрий

Re: Помогите код написать...

Сообщение SkyStorm » 02 фев 2010, 16:23

Ноги судя по всему в LCD_Siemens_S65.cfg
Никто кроме нас!!!
4Robots.ru - Все для роботов!
Аватара пользователя
SkyStorm
 
Сообщения: 2687
Зарегистрирован: 05 фев 2008, 15:33
Откуда: St. Petersburg - Moscow
Skype: SkyStorm77
ФИО: Костюк Константин Вячеславович

Re: Помогите код написать...

Сообщение galex1981 » 02 фев 2010, 18:26

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

Бейсик можно выучить максимум за неделю с учетом того что через день им заниматься. Вы уже почти год на Форуме и не можете его изучить...
if(!Operate) Read(pDatasheet);
Аватара пользователя
galex1981
 
Сообщения: 4362
Зарегистрирован: 04 дек 2008, 22:44
Откуда: Камышин
Skype: galk-aleksandr1
прог. языки: Kotlin, Java, C, C++, Assm, BasCom, VB, php
ФИО: Галкин Александр Владимирович

Re: Помогите код написать...

Сообщение кулер 23 » 16 фев 2010, 13:58

А как можно светик включать с помощью RC5? Светик висит на PortC 7 куда это писать Там где Моторы? :RTFM:
Код: Выделить всёРазвернуть
$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
Аватара пользователя
кулер 23
 
Сообщения: 798
Зарегистрирован: 17 апр 2009, 19:44
Откуда: Югорск
Skype: rizhykot
ФИО: Аксютин Юрий

Re: Помогите код написать...

Сообщение EdGull » 16 фев 2010, 14:01

сам-то понял что спросил?
ждем телепатов...
Аватара пользователя
EdGull
 
Сообщения: 10211
Зарегистрирован: 28 дек 2004, 20:33
Откуда: Тольятти
Skype: Ed_Gull
прог. языки: Bascom AVR Basic
ФИО: Гуль Эдуард Викторович

Re: Помогите код написать...

Сообщение galex1981 » 16 фев 2010, 14:03

У тебя есть бесконечный цикл, где МК всегда что то делает. Логично предположить что обработчик RC5 нужно вставить по обработке команды принятой от RC5
Код: Выделить всёРазвернуть
Do   
  Getrc5(address , Command) 
   If Address <> 255 And Command <> 255 Then     
   здесь нужно вставить свой код по нажатию клавиши для управления светодиодом

  End If
Loop
if(!Operate) Read(pDatasheet);
Аватара пользователя
galex1981
 
Сообщения: 4362
Зарегистрирован: 04 дек 2008, 22:44
Откуда: Камышин
Skype: galk-aleksandr1
прог. языки: Kotlin, Java, C, C++, Assm, BasCom, VB, php
ФИО: Галкин Александр Владимирович

Re: Помогите код написать...

Сообщение кулер 23 » 16 фев 2010, 14:07

Просто вписать код "12" или чтото надо еще писать перед кодом?
Аватара пользователя
кулер 23
 
Сообщения: 798
Зарегистрирован: 17 апр 2009, 19:44
Откуда: Югорск
Skype: rizhykot
ФИО: Аксютин Юрий

Re: Помогите код написать...

Сообщение galex1981 » 16 фев 2010, 14:11

Что значит 12? В твоем коде ты проверяешь переменную Command на соответствие с кодом нажатой кнопки а затем шлешь единицу в тот порт на котором повешен светодиод
if(!Operate) Read(pDatasheet);
Аватара пользователя
galex1981
 
Сообщения: 4362
Зарегистрирован: 04 дек 2008, 22:44
Откуда: Камышин
Skype: galk-aleksandr1
прог. языки: Kotlin, Java, C, C++, Assm, BasCom, VB, php
ФИО: Галкин Александр Владимирович

Re: Помогите код написать...

Сообщение кулер 23 » 16 фев 2010, 14:18

12 это код кнопки. Блин че я такой тупой ниче не понимаю. :(
Аватара пользователя
кулер 23
 
Сообщения: 798
Зарегистрирован: 17 апр 2009, 19:44
Откуда: Югорск
Skype: rizhykot
ФИО: Аксютин Юрий

Re: Помогите код написать...

Сообщение кулер 23 » 19 фев 2010, 21:49

Код: Выделить всёРазвернуть
$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 как в уроках :)
Аватара пользователя
кулер 23
 
Сообщения: 798
Зарегистрирован: 17 апр 2009, 19:44
Откуда: Югорск
Skype: rizhykot
ФИО: Аксютин Юрий

Re: Помогите код написать...

Сообщение EdGull » 20 фев 2010, 08:00

а выключаешь светодиод ресетом меги? :)
Аватара пользователя
EdGull
 
Сообщения: 10211
Зарегистрирован: 28 дек 2004, 20:33
Откуда: Тольятти
Skype: Ed_Gull
прог. языки: Bascom AVR Basic
ФИО: Гуль Эдуард Викторович

Re: Помогите код написать...

Сообщение кулер 23 » 20 фев 2010, 12:18

да :)

Добавлено спустя 49 минут 21 секунду:
А как минибота заряжать-то? :oops:
Последний раз редактировалось кулер 23 20 фев 2010, 12:57, всего редактировалось 1 раз.
Аватара пользователя
кулер 23
 
Сообщения: 798
Зарегистрирован: 17 апр 2009, 19:44
Откуда: Югорск
Skype: rizhykot
ФИО: Аксютин Юрий

Re: Помогите код написать...

Сообщение EdGull » 20 фев 2010, 12:38

или через USB или через разъем внешней зарядки
Аватара пользователя
EdGull
 
Сообщения: 10211
Зарегистрирован: 28 дек 2004, 20:33
Откуда: Тольятти
Skype: Ed_Gull
прог. языки: Bascom AVR Basic
ФИО: Гуль Эдуард Викторович

Re: Помогите код написать...

Сообщение кулер 23 » 20 фев 2010, 12:59

А светодиод загорится зеленым, когда зарядится?
Аватара пользователя
кулер 23
 
Сообщения: 798
Зарегистрирован: 17 апр 2009, 19:44
Откуда: Югорск
Skype: rizhykot
ФИО: Аксютин Юрий

Re: Помогите код написать...

Сообщение EdGull » 20 фев 2010, 15:45

когда зарядится светодиод наоборот потухнет
Аватара пользователя
EdGull
 
Сообщения: 10211
Зарегистрирован: 28 дек 2004, 20:33
Откуда: Тольятти
Skype: Ed_Gull
прог. языки: Bascom AVR Basic
ФИО: Гуль Эдуард Викторович

Пред.След.

Вернуться в МиниБот — национальный класс роботов

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 0

cron