
С Днем Победы!
Сообщений 31 страница 60 из 92
Поделиться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
Да ну, у меня солидней 