Администрация форума не несёт ответственности за достоверность информации и оставляет за собой право редактировать или в особых случаях даже удалять посты без предупреждения. Спасибо за понимание.

Программирование ATMEL в BASCOM.

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

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


Вы здесь » Программирование ATMEL в BASCOM. » Разное » С Днем Победы!


С Днем Победы!

Сообщений 1 страница 30 из 63

1

http://c.cards.imgsmail.ru/1a/f5/7f5ca71ad68c6614034e1fd1763cf51a.jpg

0

2

Все стереотипы привычно ломая,
скажу откровенно, друзья, без «лапши» –
ценю я лишь Праздник 9-е Мая,
а номером два мне – мой Праздник души.
http://uploads.ru/t/b/z/j/bzj2c.jpg

0

3

присоединяюсь
если бы не война, было бы у меня 9 дедов...

0

4

А я уже начинаю готовится к 9 мая  :crazy:
Задумка простая, сделать барабанную установку, играющая строевой шаг.
Само собой накидал эскиз в фотошоп:
https://pp.vk.me/c628727/v628727961/3aed5/_Im_bAPPT30.jpg

Провёл пару экспериментов и теперь даже не знаю, хватит-ли на целый день ресурсов механики.
Для большого бас барабана, использовал втягивающую от стартера:

Для малых барабанов придумал простенькую конструкцию из моторчиков:

Так, как сама композиция строевого шага будет очень быстрой, думаю по две палочки на барабан будет в самый раз.
Пробовал на электромагнитах и т.п., слишком колхозно, а мне ещё и вид важен, нужно, чтоб палочки прям от души ходили.
Эх и праздник же будет у меня в городе  :flag:
Типа того:

Даже не знаю, выдержат ли такой темп моторы?

Вот это будет основная композиция:

Отредактировано Ev3658 (2016-04-15 22:24:22)

+1

5

Не барабан, но может на мыслю какую наведёт.

0

6

kip написал(а):

Не барабан, но может на мыслю какую наведёт.

Возможно, но пока мысли породили это  :D

+1

7

При такой механике маловато реакции/скорости. Наверное надо делать нечто похожее на реле (с притягиванием якоря).

0

8

RDW написал(а):

... надо делать нечто похожее на реле (с притягиванием якоря).

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

0

9

Можно попытаться использовать накопление энергии и разделение силы от управления:
маховик вращаем небольшим э/двигателем. На маховике есть штырек/уступ. Необльшой э/магнит вводит в зацепление тягу со штырьком. Происходит удар всей энергией, накопленной маховиком.
Так делали на перфораторах перфоленты хх лет назад.
Как вариант.

0

10

Ev3658 написал(а):

kip написал(а):Не барабан, но может на мыслю какую наведёт. Возможно, но пока мысли породили это

Занятно...  :flag:
Только зачем моторы реверсировать ?
Пусть делают полный оборот, шатун все равно палочку вверх-вниз мотанет.
Заодно и со скоростью управление проще будет.

А в отношении соленоидов не подумывали ?

Палочки надо бы повыше поставить или размах (плечо) уменьшить, чтоб нижняя точка хода не была ниже точки удара.
Получаются спаренные удары, особенно заметно на правой.

0

11

Моторы не реверсируют, они просто дёргаются в одну сторону, возврат осуществляется пружиной.
Так, как осталось пол месяца, а то и меньше, да и не каждый день смогу делать, до кучи три малых барабана, да ещё и программу писать.
Сделал подручными средствами.
А есть возможность, чтоб к прмиеру создать текстовый файл с содержимым:

Код:
1,4,5,2,1,4,3
1,4,5,2,1,4,3
1,4,5,2,1,4,3
1,4,5,2,1,4,3

Минимальная длительность удара: 35мс
Минимальаня пауза возврата: 30мс
Если B1=1 то балочка сделает стук (палочки по очереди стучат)

Код:
P1 Alias Portb.3
P2 Alias Portb.4
Config P1.3 = Output
Config P2.4 = Output

'==================================================    переменые багаданов


Dim Tb11 As Byte                                            'таймер удара барабана 1
Dim Tb12 As Byte                                            'таймер возврата барабана 1
Dim Tr1 As Bit                                              'тригер палочек барабана 1
Dim B1 As Byte                                              'заказ удара 1

Const Pb11 = 40                                             'задержка стука палочек барабана 1
Const Pb12 = 20                                            'пауза возврата палочек барабана 1

Goto Prog:

Bar1:
If B1 > 0 Then


      If Tb11 < Pb11 And B1 = 1 Then
         If Tr1 = 0 Then
            P1 = 1
            P2 = 0
            Else
               P1 = 0
               P2 = 1
         End If
         Tb11 = Tb11 + 1
      End If

      If Tb11 = Pb11 Then
         B1 = 2
         Tb11 = 0
      End If
      If B1 = 2 And Tb12 < Pb12 Then
         P1 = 0
         P2 = 0
         Tb12 = Tb12 + 1
      End If
      If Tb12 = Pb12 Then
         Tb12 = 0
         B1 = 0
         Tr1 = Not Tr1
      End If

End If

Return

Prog:

Do
Waitms 1
If B1 = 0 Then B1 = 1
Gosub Bar1:

Loop
End

Отредактировано Ev3658 (2016-04-17 18:02:09)

0

12

Ааааа.... блин, жесть.... эх, построить бы всё по принципу головки жесткого диска... всё-же, чего то получилось:

+1

13

Ev3658 написал(а):

Моторы не реверсируют, они просто дёргаются в одну сторону, возврат осуществляется пружиной.

Тем более - ставьте соленоиды.
Технологически гораздо проще.

PS. Если проблема с соленоидами, то, разумеется, можете мое настояние игнорировать... ;)

+1

14

Ну Ev3658 фантазер! Завидую белой завистью вашей энергии. Так держать!
Мне бы даже в голову такое не пришло, а вот есть еще на Руси талантливые люди. :cool:

+1

15

Nord написал(а):

Тем более - ставьте соленоиды.
Технологически гораздо проще.
.

Дорогие они, нужно 6 штук, а моторчики халявные.

0

16

Ev3658 написал(а):

нужно 6 штук, а моторчики халявные.

Разве только так... ;)
А сколько проживут моторы в таком "рывковом" режиме ?
Греются, небось "не по-деццки"... ;)

0

17

Nord написал(а):

...
А сколько проживут моторы в таком "рывковом" режиме ?
Греются, небось "не по-деццки"...

Ну не, греются приемлемо. Надеюсь на 1 день хватит. За втягивающую от стартера на БАС бочке больше переживаю.
Сейчас думаю один порт зарезервировать на две палочки, поставить какие нибудь датчики, герконы к примеру, чтоб отключать ещё раньше. По времени они больше отдыхают, чем работают.

0

18

Можно вообще от моторов отказаться :crazyfun:
http://content.scalecar.ru/clipart/mmitems/M11069-A10809/y45OoGD08kJ71iey-60.jpg

0

19

:D  нельзя отказываться от моторов.

Вот, сделал иначе, укоротил палочки, добавил геркон и вращение в одну сторону:

0

20

Ev, ты будешь звездой города. Такого точно никто не видел.  :D

+1

21

Может даже не одного города ))) такого ваще нигде не видели

+1

22

По звуку напоминает выстрелы из калаша)

0

23

Ev3658 написал(а):

Вот, сделал иначе, укоротил палочки, добавил геркон и вращение в одну сторону:

Зачет ! ;)
Четкие и однозначные удары !
Не буду учить уже знающего технике маршевых ритмов, но при наличии уже имеющейся технической базы - можно лупить любой !
Если я не прав - кидайте помидоры... ;)

+1

24

RDW написал(а):

По звуку напоминает выстрелы из калаша)

Это не зависит от того, кто или что бьет по барабану... ;)

Во-первых - искажения микрофонные...
Во-вторых - замкнутое и резонирующее (слышно) помещение...
В третьих... Можно еще кучу нагородить... ;)

На улице будет нормально. ;)

0

25

Ну с горном будет посложнее. :D

0

26

RDW написал(а):

Ну с горном будет посложнее.

Источник воздуха высокого давления и клапан...
Сложнее будет организовать обтюрацию на мундштуке... ;)

0

27

RDW написал(а):

Ну с горном будет посложнее. :D

Горн можно в виде атрибута, а звук записать и через усилитель. :crazy:

0

28

Ну если так мыслить, то можно попробовать в горн вывести звукоизлучатель (возможно пьезовый).

0

29

RDW написал(а):

Ну если так мыслить, то можно попробовать в горн вывести звукоизлучатель (возможно пьезовый).

Фигня полнейшая будет...
С тем же успехом можно барабанить взглядом... :)

0

30

Всё, я овладел полным комплектом. Собрали мне сольник хороший, звучит так, что два других хочется забить строительной пеной, чтоб звук не портили  :D
Втягивающую от стартера посадил на три полевых транзистора IRF3203 через драйвер IR4426, попробовал секунд 20ть постучать (жрёт зараза 30А), транзисторы не грелись.
Может у кого есть список полевых транзисторов N-типа с логическим уровнем затвора, с диодом шотки, очень надо, я бы успел завтра сгонять на рынок с утра перед работой.
А так уже вот:
http://cs604323.vk.me/v604323961/580a/IaAin1pmMxI.jpg

http://cs604323.vk.me/v604323961/6401/ZGiZ716F-Wc.jpg

P:S: Когда пробовал бас бочку, мне передали привет от технологов со второго этажа  :confused:

+1


Вы здесь » Программирование ATMEL в BASCOM. » Разное » С Днем Победы!