С Днем Победы!
Сообщений 31 страница 60 из 87
Поделиться312016-04-22 22:01:07
Втягивающую от стартера посадил на три полевых транзистора IRF3203 через драйвер IR4426
Альтернативы втягивающему нет ?
Неужели при повальном дефиците соленоидов в РФ (см. выше ) невозможно найти что-то взамен ?
Взять, наконец, электродвигатель какой-то автомобильный...
Жрет в разы меньше, механика уже отработана на других приводах...
Поделиться322016-04-23 07:59:30
Картинка не открывается.
Альтернативы втягивающему нет ?
Там руками пружину фиг оттянешь, втягивающая была халявная и является самым дешевым выходом при замене.
Принцип бас бочки иной, чем у барабанов. Там колотушка прижимается к мембране, в момент удара, её нужно оттянуть и отпустить.Педалью от ноги она бьёт, но барабанщики держат колотушку на мембране.
Отредактировано Ev3658 (2016-04-23 07:59:43)
Поделиться332016-04-23 09:40:18
Барабанный модуль АЗЛК )))
Супер ! Скоро не только завод свой но и город прославишь
Надеюсь после 9 мая в новостях твой москвич увидеть
Поделиться342016-04-23 10:28:58
Может у кого есть список полевых транзисторов N-типа с логическим уровнем затвора
Обрати внимание на транзисторв серии IRL. Они управляются логическим уровнем.
Поделиться352016-04-24 15:36:00
Принцип бас бочки иной, чем у барабанов. Там колотушка прижимается к мембране, в момент удара, её нужно оттянуть и отпустить.Педалью от ноги она бьёт, но барабанщики держат колотушку на мембране.
Так это объясняется банально - не будет же барабанщик держать ногу постоянно в поднятом состоянии...
Сдохнет через минуту, а то и раньше...
Методика работы с данным барабаном связана с физиологией человека, а не с необходимостью держать колотушку прижатой...
В разного рода пеших оркестрах как держат колотушку ?
Отредактировано Nord (2016-04-24 15:38:01)
Поделиться362016-04-24 22:07:31
....В разного рода пеших оркестрах как держат колотушку ? ...
У них маршевый барабан, а у меня бас бочка. Если не прижимать колотушку, то звук будет не очень.
Вот:
Поделиться372016-04-25 17:32:54
Процесс пошел. Механика хлюпкая, боюсь солидолить
Поделиться382016-04-25 18:37:57
Ну ты и монстр!))) Коллекционируешь барабаны?
Поделиться392016-04-25 20:28:13
Вот, час с пустя... с пультиком
Поделиться402016-04-25 22:26:09
Монстроклассно!)
Поделиться412016-04-26 08:25:29
Ну крутяк! Надо еще пионерскую дробь научить играть и горн присобачить.
Отредактировано sva-don (2016-04-26 08:25:47)
Поделиться422016-04-26 11:11:36
да, тема горна не раскрыта!
Поделиться432016-04-27 18:01:41
Зато тема барабанов продолжается!!!!
Код программы:
$regfile = "m328pdef.dat" $crystal = 16000000 $hwstack = 96 $swstack = 96 $framesize = 96 $baud = 9600 '================ ПУЛЬТ Kn1 Alias Pinc.5 Config Kn1 = Input '--------- Выводы барабана 1 B11 Alias Portd.2 P11 Alias Pind.3 B12 Alias Portd.4 P12 Alias Pind.5 Config B11 = Output Config Portd.3 = Input Portd.3 = 1 Config B12 = Output Config Portd.5 = Input Portd.5 = 1 '--------- Выводы барабана 2 B21 Alias Portd.6 P21 Alias Pind.7 B22 Alias Portb.0 P22 Alias Pinb.1 Config B21 = Output Config P21 = Input Portd.7 = 1 Config B22 = Output Config P22 = Input Portb.1 = 1 '--------- Выводы барабана 3 B31 Alias Portb.2 P31 Alias Pinb.4 B32 Alias Portb.3 P32 Alias Pinc.0 Config B31 = Output Config P31 = Input Portb.4 = 1 Config B32 = Output Config P32 = Input Portc.0 = 1 '--------- Выводы бас бочка Bass Alias Portc.1 Config Bass = Output '==== Переменнаые палочек: Dim Pp11 As Bit Dim Pp12 As Bit Dim Pp21 As Bit Dim Pp22 As Bit Dim Pp31 As Bit Dim Pp32 As Bit Dim Npp11 As Bit Dim Npp12 As Bit Dim Npp21 As Bit Dim Npp22 As Bit Dim Npp31 As Bit Dim Npp32 As Bit 'запоминаем состояние входов по умолчанию Pp11 = P11 Pp12 = P12 Pp21 = P21 Pp22 = P22 Pp31 = P31 Pp32 = P32 Npp11 = Not P11 Npp12 = Not P12 Npp21 = Not P21 Npp22 = Not P22 Npp31 = Not P31 Npp32 = Not P32 Dim Tm11 As Byte Dim Tm12 As Byte Dim Tm21 As Byte Dim Tm22 As Byte Dim Tm31 As Byte Dim Tm32 As Byte 'Тригеры состояния барабанной палочки Dim Tr11 As Byte Dim Tr12 As Byte Dim Tr21 As Byte Dim Tr22 As Byte Dim Tr31 As Byte Dim Tr32 As Byte 'переменные дроби палочки Dim Dr11 As Byte Dim Dr12 As Byte Dim Dr21 As Byte Dim Dr22 As Byte Dim Dr31 As Byte Dim Dr32 As Byte Dim Takt As Integer Dim L As Integer Dim B As Integer '==== Время, за которое должен сработать геркон, если он не сработал, то выполняется дальше Const Vr11 = 120 Const Vr12 = 120 Const Vr21 = 120 Const Vr22 = 120 Const Vr31 = 120 Const Vr32 = 120 Const Vr0 = 20 'минимальная длительность мотора '========= Переменные Бас бочки Dim Tmbass As Byte Dim Bas As Bit Const Vrbass = 120 '==== Переменные тела программы Dim P As Byte Dim Bt As Bit Dim Play As Bit Dim Trkn As Byte Tr11 = 0 Tm11 = 0 Tr12 = 0 Tm12 = 0 Tr21 = 0 Tm21 = 0 Tr22 = 0 Tm22 = 0 Tr31 = 0 Tm31 = 0 Tr32 = 0 Tm32 = 0 Tmbass = 0 Goto Prog: Stuk: ' ========= Исполнение Заказа Барабан 1 Палочка 1 If Dr11 > 0 Then If Tr11 = 0 Then Incr Tm11 B11 = 1 If P11 = Pp11 Or Tm11 = Vr0 Then Tr11 = 1 Tm11 = 0 End If End If If Tr11 = 1 Then Incr Tm11 If P11 = Npp11 Or Tm11 => Vr11 Then Dr11 = Dr11 - 1 Tr11 = 3 'B11 = 0 Tm11 = 0 End If End If Else B11 = 0 Tr11 = 3 End If '========= Исполнение заказа Барабан 1 палочка 2 If Dr12 > 0 Then If Tr12 = 0 Then Incr Tm12 B12 = 1 If P12 = Pp12 Or Tm12 = Vr0 Then Tr12 = 1 Tm12 = 0 End If End If If Tr12 = 1 Then Incr Tm12 If P12 = Npp12 Or Tm12 => Vr12 Then Dr12 = Dr12 - 1 Tr12 = 3 'B12 = 0 Tm12 = 0 End If End If Else B12 = 0 Tr12 = 3 End If '========= Исполнение заказа Барабан 2 палочка 1 If Dr22 > 0 Then If Tr22 = 0 Then Incr Tm22 B22 = 1 If P22 = Pp22 Or Tm22 = Vr0 Then Tr22 = 1 Tm22 = 0 End If End If If Tr22 = 1 Then Incr Tm22 If P22 = Npp22 Or Tm22 => Vr22 Then Dr22 = Dr22 - 1 Tr22 = 3 'B22 = 0 Tm22 = 0 End If End If Else Tr22 = 3 B22 = 0 End If '========= Исполнение заказа Барабан 2 палочка 2 If Dr21 > 0 Then If Tr21 = 0 Then Incr Tm21 B21 = 1 If P21 = Pp21 Or Tm21 = Vr0 Then Tr21 = 1 Tm21 = 0 End If End If If Tr21 = 1 Then Incr Tm21 If P21 = Npp21 Or Tm21 => Vr21 Then Dr21 = Dr21 - 1 Tr21 = 3 'B21 = 0 Tm21 = 0 End If End If Else B21 = 0 Tr21 = 3 End If '========= Исполнение заказа Барабан 3 палочка 1 If Dr32 > 0 Then If Tr32 = 0 Then Incr Tm32 B32 = 1 If P32 = Pp32 Or Tm32 = Vr0 Then Tr32 = 1 Tm32 = 0 End If End If If Tr32 = 1 Then Incr Tm32 If P32 = Npp32 Or Tm32 => Vr32 Then Dr32 = Dr32 - 1 Tr32 = 3 'B32 = 0 Tm32 = 0 End If End If Else Tr32 = 3 B32 = 0 End If '========= Исполнение заказа Барабан 3 палочка 2 If Dr31 > 0 Then If Tr31 = 0 Then Incr Tm31 B31 = 1 If P31 = Pp31 Or Tm31 = Vr0 Then Tr31 = 1 Tm31 = 0 End If End If If Tr31 = 1 Then Incr Tm31 If P31 = Npp31 Or Tm31 => Vr31 Then Dr31 = Dr31 - 1 Tr31 = 3 'B31 = 0 Tm31 = 0 End If End If Else B31 = 0 Tr31 = 3 End If '========== Синхронизация If Tr11 = 3 And Tr12 = 3 Then If Tr21 = 3 And Tr22 = 3 Then If Tr31 = 3 And Tr32 = 3 Then Tr11 = 0 Tr12 = 0 Tr21 = 0 Tr22 = 0 Tr31 = 0 Tr32 = 0 'Print Dr11 ; " " ; Dr12 ; " " ; Dr21 ; " " ; Dr22 ; " " ; Dr31 ; " " ; Dr32 ; " " Tm11 = 0 Tm12 = 0 Tm21 = 0 Tm22 = 0 Tm31 = 0 Tm32 = 0 B11 = 0 B12 = 0 B21 = 0 B22 = 0 B31 = 0 B32 = 0 End If End If End If If Bas = 1 Then Bass = 1 Incr Tmbass If Tmbass >= Vrbass Then Bass = 0 Tmbass = 0 Bas = 0 End If End If '( If Dr11 = 0 And Dr12 = 0 Then If Dr21 = 0 And Dr22 = 0 Then If Dr31 = 0 And Dr32 = 0 Then If Bas = 0 Then 'B21 = 0 'Bass = 1 'Waitms 80 'Bass = 0 B11 = 0 B12 = 0 B21 = 0 B22 = 0 B31 = 0 B32 = 0 Bass = 0 End If End If End If End If ') Return '====================================================================================================================== '====================================================================================================================== '====================================================================================================================== '=================================== ГЛАВНАЯ ПРОГРАММА ГЛАВНАЯ ============================================ '====================================================================================================================== '====================================================================================================================== '====================================================================================================================== Prog: 'Takt = 2300 Do Waitms 1 If Play = 1 Then Incr Takt '-------------------------------------------------- 1 L = 1 If Takt = L Then Bas = 1 Dr11 = 3 Dr12 = 0 Dr21 = 8 Dr22 = 8 Dr31 = 0 Dr32 = 3 End If L = L + 150 L = L + 370 If Takt = L Then Dr11 = 1 Dr12 = 0 Dr21 = 0 Dr22 = 1 Dr31 = 1 Dr32 = 0 End If L = L + 280 If Takt = L Then Dr11 = 0 Dr12 = 1 Dr21 = 0 Dr22 = 1 Dr31 = 1 Dr32 = 0 End If '-------------------------------------------------- 2 L = L + 250 If Takt = L Then Bas = 1 Dr11 = 3 Dr12 = 0 Dr21 = 8 Dr22 = 8 Dr31 = 0 Dr32 = 3 End If L = L + 150 L = L + 380 If Takt = L Then Dr11 = 1 Dr12 = 0 Dr21 = 0 Dr22 = 1 Dr31 = 1 Dr32 = 0 End If L = L + 270 If Takt = L Then Dr11 = 0 Dr12 = 1 Dr21 = 0 Dr22 = 1 Dr31 = 1 Dr32 = 0 End If '--------------------------------------------------- 4 L = L + 250 B = L If Takt = L Then Dr11 = 0 Dr12 = 1 Dr21 = 0 Dr22 = 1 Dr31 = 0 Dr32 = 1 End If If Takt = B Then Bas = 1 B = B + 510 If Takt = B Then Bas = 1 B = B + 510 If Takt = B Then Bas = 1 B = B + 510 If Takt = B Then Bas = 1 L = L + 260 If Takt = L Then Dr11 = 1 Dr12 = 0 Dr21 = 1 Dr22 = 0 Dr31 = 1 Dr32 = 0 End If L = L + 125 If Takt = L Then Dr11 = 0 Dr12 = 1 Dr21 = 0 Dr22 = 1 Dr31 = 0 Dr32 = 1 End If L = L + 125 If Takt = L Then Dr11 = 1 Dr12 = 0 Dr21 = 1 Dr22 = 0 Dr31 = 1 Dr32 = 0 End If '----------------- L = L + 255 If Takt = L Then Dr11 = 1 Dr12 = 0 Dr21 = 0 Dr22 = 1 Dr31 = 1 Dr32 = 0 End If L = L + 245 If Takt = L Then Dr11 = 0 Dr12 = 1 Dr21 = 0 Dr22 = 1 Dr31 = 0 Dr32 = 1 End If L = L + 245 If Takt = L Then Dr11 = 1 Dr12 = 0 Dr21 = 0 Dr22 = 1 Dr31 = 1 Dr32 = 0 End If L = L + 245 If Takt = L Then Dr11 = 0 Dr12 = 0 Dr21 = 1 Dr22 = 0 Dr31 = 0 Dr32 = 1 End If L = L + 245 If Takt = L Then Dr11 = 1 Dr12 = 0 Dr21 = 0 Dr22 = 1 Dr31 = 1 Dr32 = 0 End If '============================================================= '-------------------------------------------------- 1 L = L + 250 If Takt = L Then Bas = 1 Dr11 = 3 Dr12 = 0 Dr21 = 8 Dr22 = 8 Dr31 = 0 Dr32 = 3 End If L = L + 150 L = L + 370 If Takt = L Then Dr11 = 1 Dr12 = 0 Dr21 = 0 Dr22 = 1 Dr31 = 1 Dr32 = 0 End If L = L + 280 If Takt = L Then Dr11 = 0 Dr12 = 1 Dr21 = 0 Dr22 = 1 Dr31 = 1 Dr32 = 0 End If '-------------------------------------------------- 2 L = L + 250 If Takt = L Then Bas = 1 Dr11 = 3 Dr12 = 0 Dr21 = 8 Dr22 = 8 Dr31 = 0 Dr32 = 3 End If L = L + 150 L = L + 380 If Takt = L Then Dr11 = 1 Dr12 = 0 Dr21 = 0 Dr22 = 1 Dr31 = 1 Dr32 = 0 End If L = L + 270 If Takt = L Then Dr11 = 0 Dr12 = 1 Dr21 = 0 Dr22 = 1 Dr31 = 1 Dr32 = 0 End If '--------------------------------------------------- 4 L = L + 250 B = L If Takt = L Then Dr11 = 0 Dr12 = 1 Dr21 = 0 Dr22 = 1 Dr31 = 0 Dr32 = 1 End If If Takt = B Then Bas = 1 B = B + 510 If Takt = B Then Bas = 1 B = B + 510 If Takt = B Then Bas = 1 B = B + 510 If Takt = B Then Bas = 1 L = L + 260 If Takt = L Then Dr11 = 1 Dr12 = 0 Dr21 = 1 Dr22 = 0 Dr31 = 1 Dr32 = 0 End If L = L + 125 If Takt = L Then Dr11 = 0 Dr12 = 1 Dr21 = 0 Dr22 = 1 Dr31 = 0 Dr32 = 1 End If L = L + 125 If Takt = L Then Dr11 = 1 Dr12 = 0 Dr21 = 1 Dr22 = 0 Dr31 = 1 Dr32 = 0 End If '----------------- L = L + 255 If Takt = L Then Dr11 = 1 Dr12 = 0 Dr21 = 0 Dr22 = 1 Dr31 = 1 Dr32 = 0 End If Gosub Stuk: L = L + 245 If Takt = L Then Dr11 = 0 Dr12 = 1 Dr21 = 0 Dr22 = 1 Dr31 = 0 Dr32 = 1 End If L = L + 245 If Takt = L Then Dr11 = 1 Dr12 = 0 Dr21 = 0 Dr22 = 1 Dr31 = 1 Dr32 = 0 End If L = L + 245 If Takt = L Then Dr11 = 1 Dr12 = 1 Dr21 = 1 Dr22 = 1 Dr31 = 1 Dr32 = 1 End If Gosub Stuk: L = L + 370 If Takt = L Then Takt = 0 If Kn1 = 1 And Trkn = 0 Then Trkn = 1 If Kn1 = 0 And Trkn = 1 Then Play = Not Play Trkn = 0 End If Loop Goto Prog
Поделиться442016-04-27 18:04:20
чума! но теперь надо продумать и сделать движок барабанный, чтобы только данные обрабатывал, эдакий музыкальный формат на подобии: xm, s3m, mod...
Поделиться452016-04-28 17:11:15
чума! но теперь надо продумать и сделать движок барабанный...
У меня выводов под флешку не остаётся, установка на 1 день всего и то кажись механика будет подводить, буду ездить с паяльником
Мне уже помогают барабанщики:
Поделиться462016-04-28 18:34:00
Ну так барабанный движок как раз предполагает экономность в данных, зачем флешка-то? Памяти МК - выше крыши. Поддержку MIDI никто не заставляет делать.)
Поделиться472016-05-08 21:29:13
Всех форумчан - с Великим Праздником !!!
Мирного неба и благополучия всем !
Низкий поклон Победителям фашизма !
Поделиться482016-05-10 07:58:11
Присоединяюсь к Nord.
Всех с праздником!
Ждем отчёта по барабанам.
Поделиться492016-05-12 10:16:33
Всех с великим торжественным праздником "День победы"!!!
Ну и видео от меня:
К сожалению у нас горожане мало развиты, на телефоны научились снимать, а вот выкладывать в Интернет не могут. Всего 3 видео прислали из сотни отснятых, остальные отрезки слямзил с телефона сестры, своего и с одной камеры.
Жаль, что ритм ушел, разница в питании АКБ шуруповёрта и АКБ автомобиля была существенной, да и прошить уже было нечем. Временные величины, которые отвечали за минимальную работу двигателя палочки, максимальная длительность работы палочки если не сработал геркон и т.п.
Поделиться502016-05-12 13:06:36
Красота!!
Поделиться512016-05-12 18:08:12
Всех с великим торжественным праздником "День победы"!!! Ну и видео от меня
Класс !
Особенно убил дирижерский жезл...
Его механику надо плюшевым мишкой в форме обернуть - смотрелось бы отпадно.
На следующий год надо уже оркестр готовить...
Отредактировано Nord (2016-05-12 18:10:12)
Поделиться522016-05-12 23:23:22
Обалденно!
Поделиться532016-05-13 10:14:55
Я знал, что будет круто, но чтобы так...
Круто, молодец. Ничего подобного не видел.
Ждем следующего 9 мая. Надеемся, что будет еще круче.
Задумка с дирижерской палкой вообще выше всяких похвал.
Отредактировано sva-don (2016-05-13 10:16:48)
Поделиться542016-06-17 13:00:43
Ev3658
Твой сородич: https://youtu.be/-L6olgFO73Q
Поделиться552016-06-17 16:47:44
уважаю таких умно-рукастых ))
Поделиться562016-06-17 19:30:57
Ev3658Твой сородич: https://youtu.be/-L6olgFO73Q
Грамотно человек глушит барабан после ударов "большими палочками"...
Не заметили ?
Одним из двигателей с "метелками" !
Однозначно зачет !
Ev3658 (при всем уважении) надо взять этот опыт в копилку !
Работать с одним барабаном (!) там, где Ev3658 работал с тремя !
Прошу понять меня правильно...
Им однозначно надо познакомиться и подружиться !
Следующий день Великого праздника будет просто великолепным !
Отредактировано Nord (2016-06-17 19:33:16)
Поделиться572016-08-22 12:18:58
Ev3658
Твой сородич: https://youtu.be/-L6olgFO73Q
Жесть. Мне сложнее пришлось, нужны были палочки для вида
Прошло время, люди начинают очухиваться и стали появляться у многих вопросы: "Как это работало". У нас город в основном производственников, электроника слабо развита, все думали, что просто моторчики работали, ну я про тех, кто слышал, что машина каталась с барабанами и барабаны грохотали, они думали, что просто бренчали, но увидев видео уходили в зависание над вопросом "как это работат?". Несколько раз подлавливали и спрашивали, но ответить не знаю как.
Думаю, если Москвич-2140 доживёт до следующего 9 мая, то буду собирать пушку, которая будет крутится по двум осям и бабахать уже реально. Тут сложность будет подавать воздух и газ в нужных пропорциях с большой скоростью, возможно понадобится компрессор.
Если успею и не убегу с работы, то финансово потяну некое подобие манекена, который для вида будет крутить вертеть механизм и реальными бабахами долбасить в небо.
К примеру будет сидеть на багажнике, а пушка будет на верху, пушка будет немного поворачиваться и подниматься/опускаться, манекен будет как живой
Для того, чтоб всё получилось, нужно придумать за зиму камеру сгорания, которая при детонации заново заполняется и опять детонирует от искры и чтоб небыло детонации от остаточного пламени, надо как-то придумать механизм, вообщем сделаю это, остальное не проблема. Без датчиков давления тут не обойтись.
Предполагаю использовать промежуточную камеру между камерой сгорания и баллонами газа/воздуха. Или использовать электролизёр. В промежуточной камере держать давление, которое будет стравливатсья в камеру сгорания, в момент поджига и выхлопа, промежуточная камера наполняется и процесс повторяется. Таким образом смогу дозировать нужное кол-во смеси и предотвратить тление (при не точной дозировки не будет детонации или будет просто тлеть). Хотя есть вариант на бензине, но как-то не хочется в случае поломки, чтоб по крыше растеклось то, что может гореть
Поделиться582016-08-22 15:02:24
Думаю, если Москвич-2140 доживёт до следующего 9 мая, то буду собирать пушку, которая будет крутится по двум осям и бабахать уже реально.
Довольно длительно и нудно будет получать разрешение на "провоз", а уж тем более с "бабАхами"...
У нас на городском параде тоже самоделкины катаются.
Один в этом году в кузов "Тундры" поставил что-то очень похожее на "Эрликон" и посадил за него сына-подростка.
Полисмены заставили демонтировать еще до старта колонны, несмотря на то, что даже издалека было понятно, что это просто модель...
Спокойно ему объяснили, куда и когда обращаться, чтоб в следующий раз не было вопросов.
Думаю, на следующий год мы "Эрликон" увидим...
А вот бумажные танковые башни на крышах даже не вызвали у них эмоций.
Поделиться602016-09-15 12:04:31
https://vimeo.com/180192476
Да ну, у меня солидней