Да пребудет с вами Ярость!

KrAB-Mir

Объявление





Планируем выезд ↓

Информация о пользователе

Привет, Гость! Войдите или зарегистрируйтесь.


Вы здесь » KrAB-Mir » Физика, Химия, Биология... » Электронные устройства


Электронные устройства

Сообщений 151 страница 180 из 408

151

Он  имел в виду, что в компе отсувствует такой разъем

0

152

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

Отредактировано Петрон (2009-05-12 13:53:45)

0

153

На руль нужно 3переменных резистора!2 кнопки!!! 1 разем !!!! И главное желание!!!

кнопки без фиксации!!!

Отредактировано SHMITZ (2009-05-12 19:06:50)

0

154

Блин, у меня такого разъема тоже нет... У Лехи есть.

Хотя должны продаваться, через пси вход.

0

155

К примеру вот такое гонево можно взять http://hotline.ua/tx/c-media_cmi_87384ch , тут есть геймпорт.

0

156

Пси-вход - это круто!  :stupor:

0

157

Собрал очередной металлодетектор Chance (Шанс), инфа здесь http://www.fandy.front.ru/Chance.htm

Отредактировано Петрон (2009-08-10 19:36:21)

0

158

Устройство в корпусе

0

159

Зарядное устройство на микросхеме МАХ713 в корпусе

0

160

Вентилятор с психофона снял?

0

161

На психофоне небыло вентиляторов

0

162

Значит раньше снял) Их там две штуки было.

0

163

Там ниодного небыло, вранье

Отредактировано Петрон (2009-09-05 22:08:12)

0

164

Один маленький (как тут - на 12 Вольт), а другой - большой, он еще воздух в динамик нагнетал, что еще к радиоточке подключался)
...или то маленький туда дул.. Не важно, но он там когда-то был..

0

165

Приставка к робоконтроллеру, инфа здесь http://robozone.su/2009/08/14/yeksperim … c40-s.html

0

166

Типа робот, едущий по черной линии. Задние габариты включаются при поворотах и стопе, нижняя подсветка ведет аналогично. Тачка постоянно вылетала с трассы, машина не успевала поворачивать вовремя, даже при пятом испытании накрылся датчик линии, но несмотря на кучу помех, машина однажды доехала до финиша. Трасса представляла собой 1\4 круга, длинной 2м. Ксей, подгони мне танк для опытов, или что похожее, в двумя двигателями.

0

167

Скидую для наглядности код програмы на Бэйсике

$regfile = "m16def.dat"                                     'используем Mega16
$crystal = 16000000                                         'частота кварцевого резонатора 16mHz

Config Pind.0 = Input
Config Pind.1 = Input
Config Pind.2 = Input
Config Pind.3 = Input

Config Portd.4 = Output
Config Portd.5 = Output
Config Portd.6 = Output
Config Portd.7 = Output

Pind.0 = 0
Pind.1 = 0
Pind.2 = 1
Pind.3 = 1

Pind.4 = 0
Pind.5 = 0
Pind.6 = 0
Pind.7 = 0

Config Porta.0 = Output
Config Porta.1 = Output
Config Porta.2 = Output
Config Porta.3 = Output
Config Porta.4 = Output
Config Porta.5 = Output
Config Porta.6 = Output
Config Porta.7 = Output

Porta.0 = 0
Porta.1 = 0
Porta.2 = 0
Porta.3 = 0
Porta.4 = 0
Porta.5 = 0
Porta.6 = 0
Porta.7 = 0

Dim Effect As Byte
Dim Temp As Byte
Temp = 255

            'инициализация светодиодов
Porta = 15                                                  '@@@@'
Waitms Temp
Porta = 0                                                   'OOOO'
Waitms Temp

      'начало цикла 'опрос кнопок и присвоение переменной Effect соответствующего значения
Do

If Pind.2 = 0 Then Effect = 1
If Pind.3 = 0 Then Effect = 2
If Pind.2 = 0 And Pind.3 = 0 Then Effect = 3
If Pind.2 = 1 And Pind.3 = 1 Then Effect = 4

If Effect = 1 Then                                          'Вперед влево

Portd.4 = 1
Portd.5 = 1
Portd.6 = 0
Portd.7 = 1

Porta.0 = 1
Porta.1 = 1
Porta.2 = 1
Porta.3 = 0
Porta.4 = 1
Porta.5 = 0
Porta.6 = 1
Porta.7 = 0

End If

If Effect = 2 Then                                          'Вперед вправо
Portd.4 = 1
Portd.5 = 1
Portd.6 = 0
Portd.7 = 0

Porta.0 = 1
Porta.1 = 1
Porta.2 = 0
Porta.3 = 1
Porta.4 = 0
Porta.5 = 1
Porta.6 = 0
Porta.7 = 1
End If

If Effect = 3 Then                                          'Стоп
Portd.4 = 0
Portd.5 = 0
Portd.6 = 0
Portd.7 = 0

Porta.0 = 1
Porta.1 = 1
Porta.2 = 1
Porta.3 = 1
Porta.4 = 1
Porta.5 = 1
Porta.6 = 1
Porta.7 = 1
End If

If Effect = 4 Then                                          'Вперед
Portd.4 = 0
Portd.5 = 1
Portd.6 = 0
Portd.7 = 0

Porta.0 = 1
Porta.1 = 1
Porta.2 = 1
Porta.3 = 1
Porta.4 = 0
Porta.5 = 0
Porta.6 = 0
Porta.7 = 0

End If
Loop

Отредактировано Петрон (2009-09-05 22:25:56)

0

168

Это можно.

+1

169

Конструкция из ходовой части Главрыбы, Главрыбе зачет

0

170

Как фурычит? Сколько батарей заряжаешь?
Я уже так давно не видел его в движении...

0

171

Ели чего, давай размеры, я крышку сделаю)

Кста, можно еще одну базу прикупить, и сделать самоходный металлоискатель)

0

172

Крышка пока ненужна, в ближайшее время соберу пару штук датчиков припятсвия, там уже рaбота робота будет поинтересней, вот ссылка на видео http://fileshare.in.ua/2229845

Отредактировано Петрон (2009-09-10 21:49:36)

0

173

Код на танк:

$regfile = "m16def.dat"                                     'используем Mega16
$crystal = 16000000                                         'частота кварцевого резонатора 16mHz

Config Pind.2 = Input
Config Pind.3 = Input

Config Portd.4 = Output
Config Portd.5 = Output
Config Portd.6 = Output
Config Portd.7 = Output

Pind.2 = 1
Pind.3 = 1

Pind.4 = 0
Pind.5 = 0
Pind.6 = 0
Pind.7 = 0

Dim Effect As Byte
Dim Temp As Byte
Temp = 255

Do

If Pind.2 = 0 Then Effect = 1
If Pind.3 = 0 Then Effect = 2
If Pind.2 = 0 And Pind.3 = 0 Then Effect = 3
If Pind.2 = 1 And Pind.3 = 1 Then Effect = 4

If Effect = 1 Then                                          'Вперед влево

Portd.4 = 0
Portd.5 = 1
Portd.6 = 0
Portd.7 = 0

End If

If Effect = 2 Then                                          'Вперед вправо
Portd.4 = 1
Portd.5 = 0
Portd.6 = 0
Portd.7 = 0

End If

If Effect = 3 Then                                          'Стоп
Portd.4 = 0
Portd.5 = 0
Portd.6 = 0
Portd.7 = 0

End If

If Effect = 4 Then                                          'Вперед
Portd.4 = 1
Portd.5 = 1
Portd.6 = 0
Portd.7 = 0

End If
Loop

0

174

А каким образом ты привязываешь код к системе.. хм.. точнее, как система разбирает команды кода? или это все берет на себя программатор?

0

175

микроконтроллер, скорее МАД. Просто на выходе контроллера аналоговый сигнал (токи), которые и управляют обычным моторчиком.

0

176

Если АЦП есть, но мне вот кажется, что имеется нечто триггероподобное, открывающее транзистор, и включает мотор...
Правильный ответ даст Петрон после рекламной паузы :)

0

177

Рекламная пауза!!
http://www.miotah.info/uploads/posts/2009-09/thumbs/1252078888_1252060915_47.jpg

0

178

Как я сегодня убедился дома у Петрона, все гораздо проще, чем я предполагал... почти как всегда)

0

179

Все начинается так: в начале пишется код на х языке, потом компилятор (специальная программа, в моем случае Bascom AVR) проверяет наличие ошибок в коде. Если ошибок нет, то програму можно компилировать (переводить написанную програму в шеснадцатиричный код, понятный микрокантроллеру)  код в HEX файл, который через другую програму записуется на микрокантроллер (соединение между компом и микрокантроллером осуществляется с помощью програматора). 
В даном случае могу представить работу таким образом: есть микросхема (она же драйвер двигателей, на схеме выглядит как микросхема усилителя, с кучай торчащих с низу ножей, и с железной стенкой для радиатора), которая осуществляет управление двигателе. Управляется эта микросхема следующим образом: есть четыре контакта (00|00), два на управление одним двигетелем, два для управления другоим двигателем. Если подать по логической одинице на каждый вход (10|10), то двигателя будут вращатся в одну сторону, если же подать на оставшиеся входы по одинице (11|11), то двигатели будут вращатся в другую сторону. Все типа транзисторы, с кучей прочего дерьма, скрыты в корпусе микросхемы драйвера двигателей. Осуществить управление двигателей с помощю микрокантроллера очень легко

0

180

Но на двигатель идут не дискретные сигналы, как я понял?

0


Вы здесь » KrAB-Mir » Физика, Химия, Биология... » Электронные устройства