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

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

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

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


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


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

Сообщений 31 страница 60 из 84

1

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

0

31

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

Втягивающую от стартера посадил на три полевых транзистора IRF3203 через драйвер IR4426

Альтернативы втягивающему нет ?
Неужели при повальном дефиците соленоидов в РФ (см. выше ;) ) невозможно найти что-то взамен ? ;)
Взять, наконец, электродвигатель какой-то автомобильный...
Жрет в разы меньше, механика уже отработана на других приводах...

0

32

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

Картинка не открывается.

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

Альтернативы втягивающему нет ?

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

Отредактировано Ev3658 (2016-04-23 07:59:43)

0

33

Барабанный модуль АЗЛК )))
Супер ! Скоро не только завод свой но и город прославишь  :cool:
Надеюсь после 9 мая в новостях твой москвич увидеть  :flag:

0

34

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

Может у кого есть список полевых транзисторов N-типа с логическим уровнем затвора

Обрати внимание на транзисторв серии IRL. Они управляются логическим уровнем.

+1

35

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

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

Так это объясняется банально - не будет же барабанщик держать ногу постоянно в поднятом состоянии... ;)
Сдохнет через минуту, а то и раньше... ;)
Методика работы с данным барабаном связана с физиологией человека, а не с необходимостью держать колотушку прижатой...
В разного рода пеших оркестрах как держат колотушку ? ;)

Отредактировано Nord (2016-04-24 15:38:01)

0

36

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

....В разного рода пеших оркестрах как держат колотушку ? ...

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

Вот:

0

37

Процесс пошел. Механика хлюпкая, боюсь солидолить  :D

+2

38

Ну ты и монстр!))) Коллекционируешь барабаны? :cool:

0

39

Вот, час с пустя... с пультиком  :crazyfun:

+3

40

Монстроклассно!)

0

41

Ну крутяк! :crazyfun: Надо еще пионерскую дробь научить играть и горн присобачить.

Отредактировано sva-don (2016-04-26 08:25:47)

0

42

да, тема горна не раскрыта! :D

0

43

Зато тема барабанов продолжается!!!!

Код программы:

Код:
$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

0

44

чума! но теперь надо продумать и сделать движок барабанный, чтобы только данные обрабатывал, эдакий музыкальный формат на подобии: xm, s3m, mod...

0

45

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

чума! но теперь надо продумать и сделать движок барабанный...

У меня выводов под флешку не остаётся, установка на 1 день всего и то кажись механика будет подводить, буду ездить с паяльником  :hobo:

Мне уже помогают барабанщики:

0

46

Ну так барабанный движок как раз предполагает экономность в данных, зачем флешка-то? Памяти МК - выше крыши. Поддержку MIDI никто не заставляет делать.)

0

47

Всех форумчан - с Великим Праздником !!!
Мирного неба и благополучия всем !
Низкий поклон Победителям фашизма !

+1

48

Присоединяюсь к Nord.
Всех с праздником!
Ждем отчёта по барабанам. :flag:

0

49

Всех с великим торжественным праздником "День победы"!!!
Ну и видео от меня:

К сожалению у нас горожане мало развиты, на телефоны научились снимать, а вот выкладывать в Интернет не могут. Всего 3 видео прислали из сотни отснятых, остальные отрезки слямзил с телефона сестры, своего и с одной камеры.
Жаль, что ритм ушел, разница в питании АКБ шуруповёрта и АКБ автомобиля была существенной, да и прошить уже было нечем. Временные величины, которые отвечали за минимальную работу двигателя палочки, максимальная длительность работы палочки если не сработал геркон и т.п.

+5

50

Красота!!

0

51

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

Всех с великим торжественным праздником "День победы"!!! Ну и видео от меня

Класс !  :flag:
Особенно убил дирижерский жезл...  :cool:
Его механику надо плюшевым мишкой в форме обернуть - смотрелось бы отпадно.
На следующий год надо уже оркестр готовить...  :rolleyes:

Отредактировано Nord (2016-05-12 18:10:12)

0

52

Обалденно!

0

53

Я знал, что будет круто, но чтобы так...
Круто, молодец. Ничего подобного не видел.
Ждем следующего 9 мая. Надеемся, что будет еще круче.
Задумка с дирижерской палкой вообще выше всяких похвал. :cool:

Отредактировано sva-don (2016-05-13 10:16:48)

0

54

Ev3658
Твой сородич: https://youtu.be/-L6olgFO73Q :)

0

55

уважаю таких умно-рукастых ))

0

56

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

Ev3658Твой сородич: https://youtu.be/-L6olgFO73Q

Грамотно человек глушит барабан после ударов "большими палочками"...
Не заметили ? ;)
Одним из двигателей с "метелками" !

Однозначно зачет !
Ev3658 (при всем уважении) надо взять этот опыт в копилку !
Работать с одним барабаном (!) там, где Ev3658 работал с тремя !

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

Отредактировано Nord (2016-06-17 19:33:16)

0

57

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

Ev3658
Твой сородич: https://youtu.be/-L6olgFO73Q

Жесть. Мне сложнее пришлось, нужны были палочки для вида  8-)

Прошло время, люди начинают очухиваться и стали появляться у многих вопросы: "Как это работало". У нас город в основном производственников, электроника слабо развита, все думали, что просто моторчики работали, ну я про тех, кто слышал, что машина каталась с барабанами и барабаны грохотали, они думали, что просто бренчали, но увидев видео уходили в зависание над вопросом "как это работат?". Несколько раз подлавливали и спрашивали, но ответить не знаю как.

Думаю, если Москвич-2140 доживёт до следующего 9 мая, то буду собирать пушку, которая будет крутится по двум осям и бабахать уже реально. Тут сложность будет подавать воздух и газ в нужных пропорциях с большой скоростью, возможно понадобится компрессор.
http://ic.pics.livejournal.com/f_fletcher/77039559/68556/68556_900.jpg

Если успею и не убегу с работы, то финансово потяну некое подобие манекена, который для вида будет крутить вертеть механизм и реальными бабахами долбасить в небо.
https://www.snariad.ru/wp-content/uploads/2013/08/Na-glavnoi-111.jpg

К примеру будет сидеть на багажнике, а пушка будет на верху, пушка будет немного поворачиваться и подниматься/опускаться, манекен будет как живой  :glasses:
http://armyman.info/uploads/posts/2016-02/1455293289_oboronastalingradavostochnijfrontvtorayamirovayavojna68440107541.jpg

Для того, чтоб всё получилось, нужно придумать за зиму камеру сгорания, которая при детонации заново заполняется и опять детонирует от искры и чтоб небыло детонации от остаточного пламени, надо как-то придумать механизм, вообщем сделаю это, остальное не проблема. Без датчиков давления тут не обойтись.
Предполагаю использовать промежуточную камеру между камерой сгорания и баллонами газа/воздуха. Или использовать электролизёр. В промежуточной камере держать давление, которое будет стравливатсья в камеру сгорания, в момент поджига и выхлопа, промежуточная камера наполняется и процесс повторяется. Таким образом смогу дозировать нужное кол-во смеси и предотвратить тление (при не точной дозировки не будет детонации или будет просто тлеть). Хотя есть вариант на бензине, но как-то не хочется в случае поломки, чтоб по крыше растеклось то, что может гореть  :hobo:

0

58

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

Думаю, если Москвич-2140 доживёт до следующего 9 мая, то буду собирать пушку, которая будет крутится по двум осям и бабахать уже реально.

Довольно длительно и нудно будет получать разрешение на "провоз", а уж тем более с "бабАхами"... ;)

У нас на городском параде тоже самоделкины катаются.
Один в этом году в кузов "Тундры" поставил что-то очень похожее на "Эрликон" и посадил за него сына-подростка.
Полисмены заставили демонтировать еще до старта колонны, несмотря на то, что даже издалека было понятно, что это просто модель...
Спокойно ему объяснили, куда и когда обращаться, чтоб в следующий раз не было вопросов.
Думаю, на следующий год мы "Эрликон" увидим... ;)
А вот бумажные танковые башни на крышах даже не вызвали у них эмоций.

0

59

https://vimeo.com/180192476

0

60

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

https://vimeo.com/180192476

Да ну, у меня солидней  :rolleyes:

0


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