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

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

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

Сообщение Duhas » 19 янв 2010, 18:05

на счет подумать самому и тд, ты пиши что не понятно в работе МК, и в использовании ... тут помогут )
«Как сердцу выразить себя? … Мысль изреченная есть ложь!»
В этом мире меня подводит доброта и порядочность...
"двое смотрят в лужу, один видит лужу, другой отраженные в ней звезды"
Аватара пользователя
Duhas
 
Сообщения: 6338
Зарегистрирован: 15 сен 2007, 13:03
Откуда: Красноярск
прог. языки: ASM(МК), C(PC)
ФИО: Гагарский Андрей Александрович

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

Сообщение galex1981 » 20 янв 2010, 15:33

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

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

Сообщение Victorovych » 20 янв 2010, 17:13

Давай писать на пару, изучаем язык и друг друга подтягиваем? (С)
Аватара пользователя
Victorovych
 
Сообщения: 491
Зарегистрирован: 20 сен 2007, 11:44
Откуда: Харьков
Skype: Victorovych_FF
прог. языки: ASM
ФИО: Иван ВикторОвич

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

Сообщение кулер 23 » 20 янв 2010, 20:06

Мне с прогой уже помогли))Но у мя не работает Бампер)) Пока буд усами)

Код: Выделить всё
'Пример работы инфракрасного датчика препятствия на основе TSOP2136
$regfile = "m32def.dat" 'используем Mega32
$crystal = 8000000 'частота кварцевого резонатора 8mHz
'Генерация частоты 36kHz
'Настраиваем Timer1
Config Timer1 = Counter , Edge = Rising , Prescale = 8 , Compare A = Toggle
' Расчитываем Compare1a
' тактовая частота (kHz) / частота TSOPa (kHz) / 2 = Compare
' 8000 / 36 / 2 = 111
Compare0 = 111
'PortB.3 - выход сигнала
'PinB.1 - считываем состояние TSOPa
'PortC.7 - сигнальный светодиод
Config PinB.3= Output
Config PortC.7 = Output
Config PinB.1 = Input
Start Timer1
Do
If PinA.6 = 0 Then
PortC.7 = 1
Else
PortC.7 = 0
End If
Loop
End
Аватара пользователя
кулер 23
 
Сообщения: 798
Зарегистрирован: 17 апр 2009, 19:44
Откуда: Югорск
Skype: rizhykot
ФИО: Аксютин Юрий

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

Сообщение Master » 20 янв 2010, 20:27

Конечно не работает, если это весь код программы, где выход ИК сигнала с нужной частотой на ИК диод подключенный к PortB.3 - выход сигнала ?
Аватара пользователя
Master
 
Сообщения: 4468
Зарегистрирован: 21 дек 2006, 19:56
Откуда: Украина, г.Одесса
прог. языки: Delphi и С

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

Сообщение кулер 23 » 20 янв 2010, 22:23

Оей)) ладно все понял потом значит расберусь)) я покачто с кнопками вожусь. Да кстать подскажите плиз куда кнопки подключить????? А то ваще ниче не понимаю, по схеме PB.1 на X20 идет на 37 ногу мк если верить ей)) но на мк 37 нога PA 0 как это так???

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

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

Сообщение Master » 21 янв 2010, 00:31

Еще вопросы есть?
Вложения
2.JPG
2.JPG (29.82 КиБ) Просмотров: 2179
Аватара пользователя
Master
 
Сообщения: 4468
Зарегистрирован: 21 дек 2006, 19:56
Откуда: Украина, г.Одесса
прог. языки: Delphi и С

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

Сообщение EdGull » 21 янв 2010, 09:29

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

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

Сообщение Master » 21 янв 2010, 10:03

Ну тогда так, а вывод прост нужно учиться работать с документацией, хотя бы на начальном уровне.

Добавлено спустя 1 минуту 8 секунд:
PB.1 41-я нога
PB.3 43-я нога
Вложения
.JPG
Аватара пользователя
Master
 
Сообщения: 4468
Зарегистрирован: 21 дек 2006, 19:56
Откуда: Украина, г.Одесса
прог. языки: Delphi и С

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

Сообщение кулер 23 » 21 янв 2010, 12:32

EdGull писал(а):
кулер 23 выкладывай схему и обводи красным то, что тебе не понятно.

Вот почему тут так написанно хотя PB.1 41-я нога
PB.3 43-я нога ??
Master Где выходы на мк то я знаю а где они на миниботе выходя не понимаю!
Вложения
6666.JPG
6666.JPG (30.52 КиБ) Просмотров: 2146
Аватара пользователя
кулер 23
 
Сообщения: 798
Зарегистрирован: 17 апр 2009, 19:44
Откуда: Югорск
Skype: rizhykot
ФИО: Аксютин Юрий

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

Сообщение yak-40 » 21 янв 2010, 13:33

На скока я понимаю, так обозначаются не ноги МК, а номера проводов в схеме.
Смотри дальше по схеме, куда провода с этими номерами идут.
- Этот человек - не человек! это робот!
- Как? уже делают?!
- Делают!!!
Аватара пользователя
yak-40
 
Сообщения: 3037
Зарегистрирован: 23 окт 2007, 22:03
Откуда: Москва
прог. языки: С
ФИО: Евгений Яковец

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

Сообщение Master » 21 янв 2010, 13:48

кулер 23
Накрайняк можно тестером прозвонить или проследить по дорожке.
Аватара пользователя
Master
 
Сообщения: 4468
Зарегистрирован: 21 дек 2006, 19:56
Откуда: Украина, г.Одесса
прог. языки: Delphi и С

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

Сообщение кулер 23 » 21 янв 2010, 22:31

Мигать кнопкой уже смог СПАСИБО pashteet'y :)
Код: Выделить всё
$regfile = "m32DEF.dat"                                     ' указываем компилятору что у нас Мега32
$crystal = 8000000                                          ' указываем компилятору что тактовая частота Меги32 8МГц


Config Pinc.4 = Output : Led Alias Portc.4
Config Pind.2 = Input

Do
Led = 0

Do
If Pind.2 = 0 Then
Set Led
End If
Loop Until Pind.2 = 1
Loop

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

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

Сообщение EdGull » 21 янв 2010, 23:44

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

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

Сообщение кулер 23 » 24 янв 2010, 13:49

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

Пред.След.

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

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

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