roboforum.ru

[rig]

похвастатца чтоли, такая вот штука. для регулировки градуса в подвале.
первая проба игла. Если доделаю опубликую, вдруг будет интерес.
smd 1206, mk mega8L.
Возможности:
измерение температуры от энного кол-ва ds1820
реакция на изменение Т
управление двумя нагрузками 220В до 5А, глобально на уровне программирования, по мелочи с кнопок - управлять пределами по градусу и реакции нагрузки.
измерение напряжения батареи и управление потреблением (яркостью индикатора - до 70мА жрет) энергии, МК всего 3 мА.
измерение входного напряжения (после трансформатора)

верхние разъемы - слева на право
первые два для светика - мигаем типа охрана и чтоб освещение замерять,
следующие три для DS1820 сколько захочешь, планировал 2.
нижняя плата две нагрузки через симистор BТ137 8А, без радиатора поменьше будет.
предохранители один по входу на транс второй на нагрузку.
красные светодиоды на индикацию вкл нагрузки.
инидкатор четыре восьмерки с точкой с общим плюсом, анод вроде.

общий вид

с переди

с зади

в разобранном

оборотка

ЛУТ

Лут

[Int_13h]

На каком камушке реализовано?

[rig]

ATmega8(L) TQFP

[yak-40]

А аккумулятор это что? резервное питание?

[rig]

ага, часов на 4-5 хватает если не экономить. только вот регулировать нечего если сети не будет.
вообщето меня просили простую мигалку сделать чтоб воров отпуивать, но я ведь не могу простую сделать мне надо чтонить многофункциональное
верхние разъемы - слева на право
первые два для светика - мигаем типа охрана и чтоб освещение замерять,
следующие три для DS1820 сколько захочешь, планировал 2.
нижняя плата две нагрузки через симистор BТ137 8А, без радиатора поменьше будет.
предохранители один по входу на транс второй на нагрузку.
красные светодиоды на индикацию вкл нагрузки.
инидкатор четыре восьмерки с точкой с общим плюсом, анод вроде.

[ALHIMIK]

а чем снимался лишний текстолит ?

[-= Александр =-]

Я край торцом точильного камня обрабатываю, но тут не похоже... Или обороты сильно больше чем у меня...

[rig]

крупные куски выкусывались кусачками, более точная обработка фрезой с дремелем - skill.
отверстия под выводы тоже дремелем 0,7-1 мм. Более крупные 3 мм.
точность двухстороннего травления практически один в один. Дырка под вывод с одной стороны точно попадала в отверстие на другой стороне.
По логике я немножко промахнулся пришлось исправлять проводочками - под индикатором. На фото не видно.

[Levsha128]

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

[galex1981]

Странно конечно! Код под Видну под МК отличается от кода под Линукс - он разве не платформонезависимый? Или вы пишите ОС под МК?

[Levsha128]

Я пишу _эмулятор_ микроконтроллера и электрических схем, что то типа протеуса.

А еще я совместно с форумом программистов пишем первый номер журнала для программистов.
<Вырезано EdGull>

[кулер 23]

А я вот проигрывать мелодии научился
Свук какойто тупой стал когда на ютуб закинул

код

Код: Выделить всё • Развернуть

$regfile = "m8def.dat"
$crystal = 12000000
Config Portb.1 = Output
Speaker Alias Portb.1
'
'===============================================================================
'              _______
'      |       |_____|     |
'  PB.1|----|____|----|+ -|----| GND
'      |         |___|      |
'      |    100 Ом   Speaker
'
'===============================================================================
Do
'Celine Dion : : My Heart Will Go On
Sound Speaker , 587 , 1135                                  'D2(1/2)
Sound Speaker , 659 , 1011                                  'E2(1/2)
Sound Speaker , 880 , 388                                   'A3(1/4)
Sound Speaker , 880 , 758                                   'A2(1/2)
Sound Speaker , 392 , 850                                   'G2(1/4)
Sound Speaker , 185 , 901                                   'Fis2(1/8)
Sound Speaker , 659 , 1011                                  'E2(1/2)
Sound Speaker , 370 , 901                                   'Fis2(1/4)
Sound Speaker , 392 , 850                                   'G2(1/4)
Sound Speaker , 740 , 901                                   'Fis2(1/2)
Sound Speaker , 330 , 1011                                  'E2(1/4)
Sound Speaker , 294 , 1135                                  'D2(1/4)
Sound Speaker , 277 , 1203                                  'Cis2(1/4)
Sound Speaker , 587 , 1135                                  'D2(1/2)
Sound Speaker , 277 , 1203                                  'Cis2(1/4)
Sound Speaker , 3952 , 337                                  'H3(1/1)
Sound Speaker , 3440 , 388                                  'A3(1/1)
Sound Speaker , 1175 , 1135                                 'D2(1/1)
Sound Speaker , 659 , 1011                                  'E2(1/2)
Sound Speaker , 880 , 388                                   'A3(1/4)
Sound Speaker , 880 , 758                                   'A2(1/2)
Sound Speaker , 392 , 850                                   'G2(1/4)
Sound Speaker , 185 , 901                                   'Fis2(1/8)
Sound Speaker , 659 , 1011                                  'E2(1/2)
Sound Speaker , 370 , 901                                   'Fis2(1/4)
Sound Speaker , 392 , 850                                   'G2(1/4)
Sound Speaker , 740 , 901                                   'Fis2(1/2)
Sound Speaker , 330 , 1011                                  'E2(1/4)
Sound Speaker , 294 , 1135                                  'D2(1/4)
Sound Speaker , 277 , 1203                                  'Cis2(1/4)
Sound Speaker , 587 , 1135                                  'D2(1/2)
Sound Speaker , 277 , 1203                                  'Cis2(1/4)
Sound Speaker , 277 , 1203                                  'Cis2(1/4)
Sound Speaker , 587 , 1135                                  'D2(1/2)
Sound Speaker , 330 , 1011                                  'E2(1/4)
Sound Speaker , 740 , 901                                   'Fis2(1/2)
Sound Speaker , 659 , 1011                                  'E2(1/2)
Sound Speaker , 1175 , 1135                                 'D2(1/1)
Wait 2

'Europe :: Final Countdown
Sound Speaker , 124 , 675                                   'H2(1/16)
Sound Speaker , 110 , 758                                   'A2(1/16)
Sound Speaker , 248 , 675                                   'H2(1/8)
Waitms 125                                                  'P(1/16)
Sound Speaker , 165 , 1011                                  'E2(1/8)
Waitms 250                                                  'P(1/8)
Waitms 125                                                  'P(1/16)
Sound Speaker , 131 , 637                                   'C3(1/16)
Sound Speaker , 124 , 675                                   'H2(1/16)
Sound Speaker , 131 , 637                                   'C3(1/16)
Waitms 125                                                  'P(1/16)
Sound Speaker , 124 , 675                                   'H2(1/16)
Waitms 125                                                  'P(1/16)
Sound Speaker , 220 , 758                                   'A2(1/8)
Waitms 125                                                  'P(1/16)
Waitms 250                                                  'P(1/8)
Sound Speaker , 131 , 637                                   'C3(1/16)
Sound Speaker , 124 , 675                                   'H2(1/16)
Sound Speaker , 262 , 637                                   'C3(1/8)
Waitms 125                                                  'P(1/16)
Sound Speaker , 165 , 1011                                  'E2(1/8)
Waitms 250                                                  'P(1/8)
Waitms 125                                                  'P(1/16)
Sound Speaker , 110 , 758                                   'A2(1/16)
Sound Speaker , 98 , 850                                    'G2(1/16)
Sound Speaker , 110 , 758                                   'A2(1/16)
Waitms 125                                                  'P(1/16)
Sound Speaker , 98 , 850                                    'G2(1/16)
Waitms 125                                                  'P(1/16)
Sound Speaker , 92 , 901                                    'Fis2(1/16)
Waitms 125                                                  'P(1/16)
Sound Speaker , 110 , 758                                   'A2(1/16)
Waitms 125                                                  'P(1/16)
Sound Speaker , 196 , 850                                   'G2(1/8)
Wait 2

'Corona :: Rythm of The Night
Sound Speaker , 65 , 1274                                   'C2(1/16)
Waitms 125                                                  'P(1/16)
Sound Speaker , 87 , 954                                    'F2(1/16)
Waitms 125                                                  'P(1/16)
Sound Speaker , 98 , 850                                    'G2(1/16)
Waitms 125                                                  'P(1/16)
Sound Speaker , 87 , 954                                    'F2(1/16)
Sound Speaker , 117 , 715                                   'Ais2(1/16)
Waitms 125                                                  'P(1/16)
Sound Speaker , 110 , 758                                   'A2(1/16)
Waitms 125                                                  'P(1/16)
Sound Speaker , 98 , 850                                    'G2(1/16)
Waitms 125                                                  'P(1/16)
Sound Speaker , 110 , 758                                   'A2(1/16)
Sound Speaker , 87 , 954                                    'F2(1/16)
Waitms 125                                                  'P(1/16)
Wait 2

'Jean Michel Jarre :: Oxygene 10
Sound Speaker , 131 , 637                                   'C3(1/16)
Sound Speaker , 65 , 1274                                   'C2(1/16)
Sound Speaker , 92 , 901                                    'Fis2(1/16)
Sound Speaker , 65 , 1274                                   'C2(1/16)
Sound Speaker , 131 , 637                                   'C3(1/16)
Sound Speaker , 65 , 1274                                   'C2(1/16)
Sound Speaker , 92 , 901                                    'Fis2(1/16)
Sound Speaker , 65 , 1274                                   'C2(1/16)
Sound Speaker , 117 , 715                                   'Ais2(1/16)
Sound Speaker , 65 , 1274                                   'C2(1/16)
Sound Speaker , 92 , 901                                    'Fis2(1/16)
Sound Speaker , 65 , 1274                                   'C2(1/16)
Sound Speaker , 104 , 803                                   'Gis2(1/16)
Sound Speaker , 65 , 1274                                   'C2(1/16)
Sound Speaker , 92 , 901                                    'Fis2(1/16)
Sound Speaker , 65 , 1274                                   'C2(1/16)
Sound Speaker , 98 , 850                                    'G2(1/16)
Sound Speaker , 65 , 1274                                   'C2(1/16)
Sound Speaker , 92 , 901                                    'Fis2(1/16)
Sound Speaker , 65 , 1274                                   'C2(1/16)
Sound Speaker , 98 , 850                                    'G2(1/16)
Sound Speaker , 65 , 1274                                   'C2(1/16)
Sound Speaker , 92 , 901                                    'Fis2(1/16)
Sound Speaker , 65 , 1274                                   'C2(1/16)
Sound Speaker , 98 , 850                                    'G2(1/16)
Sound Speaker , 65 , 1274                                   'C2(1/16)
Sound Speaker , 92 , 901                                    'Fis2(1/16)
Sound Speaker , 65 , 1274                                   'C2(1/16)
Sound Speaker , 98 , 850                                    'G2(1/16)
Sound Speaker , 65 , 1274                                   'C2(1/16)
Sound Speaker , 92 , 901                                    'Fis2(1/16)
Sound Speaker , 65 , 1274                                   'C2(1/16)
Wait 2

'Titanic: Theme
Sound Speaker , 131 , 637                                   'C3(1/16)
Sound Speaker , 147 , 566                                   'D3(1/16)
Sound Speaker , 330 , 483                                   'E3(1/8)
Waitms 125                                                  'P(1/16)
Sound Speaker , 175 , 477                                   'F3(1/16)
Sound Speaker , 165 , 483                                   'E3(1/16)
Sound Speaker , 147 , 566                                   'D3(1/16)
Sound Speaker , 131 , 637                                   'C3(1/16)
Sound Speaker , 147 , 566                                   'D3(1/16)
Sound Speaker , 392 , 425                                   'G3(1/8)
Waitms 125                                                  'P(1/16)
Sound Speaker , 165 , 483                                   'E3(1/16)
Sound Speaker , 147 , 566                                   'D3(1/16)
Sound Speaker , 262 , 637                                   'C3(1/8)
Waitms 125                                                  'P(1/16)
Sound Speaker , 110 , 758                                   'A2(1/16)
Sound Speaker , 87 , 954                                    'F2(1/16)
Sound Speaker , 196 , 850                                   'G2(1/8)
Waitms 125                                                  'P(1/16)
Waitms 125                                                  'P(1/16)
Sound Speaker , 131 , 637                                   'C3(1/16)
Sound Speaker , 147 , 566                                   'D3(1/16)
Sound Speaker , 330 , 483                                   'E3(1/8)
Waitms 125                                                  'P(1/16)
Sound Speaker , 175 , 477                                   'F3(1/16)
Sound Speaker , 165 , 483                                   'E3(1/16)
Sound Speaker , 147 , 566                                   'D3(1/16)
Sound Speaker , 131 , 637                                   'C3(1/16)
Sound Speaker , 147 , 566                                   'D3(1/16)
Sound Speaker , 392 , 425                                   'G3(1/8)
Waitms 125                                                  'P(1/16)
Sound Speaker , 165 , 483                                   'E3(1/16)
Sound Speaker , 196 , 425                                   'G3(1/16)
Sound Speaker , 440 , 388                                   'A3(1/8)
Waitms 125                                                  'P(1/16)
Sound Speaker , 196 , 425                                   'G3(1/16)
Sound Speaker , 165 , 483                                   'E3(1/16)
Sound Speaker , 294 , 566                                   'D3(1/8)
Wait 2

Loop

[yak-40]

А что, в Васике массивов и циклов нет?

[кулер 23]

Если чесно ненаю
вот оригинал кода)

Код: Выделить всё • Развернуть

$regfile = "m16def.dat" 
$crystal = 16000000 
Config Portd.0 = Output 
Speaker Alias Portd.0 
' 
'=============================================================================== 
'              _______ 
'      |       |_____|     | 
'  PD.0|----|____|----|+ -|----| GND 
'      |         |___|      | 
'      |    100 Ом   Speaker 
' 
'=============================================================================== 
Do 
'Celine Dion : : My Heart Will Go On 
Sound Speaker , 587 , 1135                    'D2(1/2) 
Sound Speaker , 659 , 1011                    'E2(1/2) 
Sound Speaker , 880 , 388                    'A3(1/4) 
Sound Speaker , 880 , 758                    'A2(1/2) 
Sound Speaker , 392 , 850                    'G2(1/4) 
Sound Speaker , 185 , 901                    'Fis2(1/8) 
Sound Speaker , 659 , 1011                    'E2(1/2) 
Sound Speaker , 370 , 901                    'Fis2(1/4) 
Sound Speaker , 392 , 850                    'G2(1/4) 
Sound Speaker , 740 , 901                    'Fis2(1/2) 
Sound Speaker , 330 , 1011                    'E2(1/4) 
Sound Speaker , 294 , 1135                    'D2(1/4) 
Sound Speaker , 277 , 1203                    'Cis2(1/4) 
Sound Speaker , 587 , 1135                    'D2(1/2) 
Sound Speaker , 277 , 1203                    'Cis2(1/4) 
Sound Speaker , 3952 , 337                    'H3(1/1) 
Sound Speaker , 3440 , 388                    'A3(1/1) 
Sound Speaker , 1175 , 1135                    'D2(1/1) 
Sound Speaker , 659 , 1011                    'E2(1/2) 
Sound Speaker , 880 , 388                    'A3(1/4) 
Sound Speaker , 880 , 758                    'A2(1/2) 
Sound Speaker , 392 , 850                    'G2(1/4) 
Sound Speaker , 185 , 901                    'Fis2(1/8) 
Sound Speaker , 659 , 1011                    'E2(1/2) 
Sound Speaker , 370 , 901                    'Fis2(1/4) 
Sound Speaker , 392 , 850                    'G2(1/4) 
Sound Speaker , 740 , 901                    'Fis2(1/2) 
Sound Speaker , 330 , 1011                    'E2(1/4) 
Sound Speaker , 294 , 1135                    'D2(1/4) 
Sound Speaker , 277 , 1203                    'Cis2(1/4) 
Sound Speaker , 587 , 1135                    'D2(1/2) 
Sound Speaker , 277 , 1203                    'Cis2(1/4) 
Sound Speaker , 277 , 1203                    'Cis2(1/4) 
Sound Speaker , 587 , 1135                    'D2(1/2) 
Sound Speaker , 330 , 1011                    'E2(1/4) 
Sound Speaker , 740 , 901                    'Fis2(1/2) 
Sound Speaker , 659 , 1011                    'E2(1/2) 
Sound Speaker , 1175 , 1135                    'D2(1/1) 
Wait 2 

'Europe :: Final Countdown 
Sound Speaker , 124 , 675                    'H2(1/16) 
Sound Speaker , 110 , 758                    'A2(1/16) 
Sound Speaker , 248 , 675                    'H2(1/8) 
Waitms 125                    'P(1/16) 
Sound Speaker , 165 , 1011                    'E2(1/8) 
Waitms 250                    'P(1/8) 
Waitms 125                    'P(1/16) 
Sound Speaker , 131 , 637                    'C3(1/16) 
Sound Speaker , 124 , 675                    'H2(1/16) 
Sound Speaker , 131 , 637                    'C3(1/16) 
Waitms 125                    'P(1/16) 
Sound Speaker , 124 , 675                    'H2(1/16) 
Waitms 125                    'P(1/16) 
Sound Speaker , 220 , 758                    'A2(1/8) 
Waitms 125                    'P(1/16) 
Waitms 250                    'P(1/8) 
Sound Speaker , 131 , 637                    'C3(1/16) 
Sound Speaker , 124 , 675                    'H2(1/16) 
Sound Speaker , 262 , 637                    'C3(1/8) 
Waitms 125                    'P(1/16) 
Sound Speaker , 165 , 1011                    'E2(1/8) 
Waitms 250                    'P(1/8) 
Waitms 125                    'P(1/16) 
Sound Speaker , 110 , 758                    'A2(1/16) 
Sound Speaker , 98 , 850                    'G2(1/16) 
Sound Speaker , 110 , 758                    'A2(1/16) 
Waitms 125                    'P(1/16) 
Sound Speaker , 98 , 850                    'G2(1/16) 
Waitms 125                    'P(1/16) 
Sound Speaker , 92 , 901                    'Fis2(1/16) 
Waitms 125                    'P(1/16) 
Sound Speaker , 110 , 758                    'A2(1/16) 
Waitms 125                    'P(1/16) 
Sound Speaker , 196 , 850                    'G2(1/8) 
Wait 2 

'Corona :: Rythm of The Night 
Sound Speaker , 65 , 1274                    'C2(1/16) 
Waitms 125                    'P(1/16) 
Sound Speaker , 87 , 954                    'F2(1/16) 
Waitms 125                    'P(1/16) 
Sound Speaker , 98 , 850                    'G2(1/16) 
Waitms 125                    'P(1/16) 
Sound Speaker , 87 , 954                    'F2(1/16) 
Sound Speaker , 117 , 715                    'Ais2(1/16) 
Waitms 125                    'P(1/16) 
Sound Speaker , 110 , 758                    'A2(1/16) 
Waitms 125                    'P(1/16) 
Sound Speaker , 98 , 850                    'G2(1/16) 
Waitms 125                    'P(1/16) 
Sound Speaker , 110 , 758                    'A2(1/16) 
Sound Speaker , 87 , 954                    'F2(1/16) 
Waitms 125                    'P(1/16) 
Wait 2 

'Jean Michel Jarre :: Oxygene 10 
Sound Speaker , 131 , 637                    'C3(1/16) 
Sound Speaker , 65 , 1274                    'C2(1/16) 
Sound Speaker , 92 , 901                    'Fis2(1/16) 
Sound Speaker , 65 , 1274                    'C2(1/16) 
Sound Speaker , 131 , 637                    'C3(1/16) 
Sound Speaker , 65 , 1274                    'C2(1/16) 
Sound Speaker , 92 , 901                    'Fis2(1/16) 
Sound Speaker , 65 , 1274                    'C2(1/16) 
Sound Speaker , 117 , 715                    'Ais2(1/16) 
Sound Speaker , 65 , 1274                    'C2(1/16) 
Sound Speaker , 92 , 901                    'Fis2(1/16) 
Sound Speaker , 65 , 1274                    'C2(1/16) 
Sound Speaker , 104 , 803                    'Gis2(1/16) 
Sound Speaker , 65 , 1274                    'C2(1/16) 
Sound Speaker , 92 , 901                    'Fis2(1/16) 
Sound Speaker , 65 , 1274                    'C2(1/16) 
Sound Speaker , 98 , 850                    'G2(1/16) 
Sound Speaker , 65 , 1274                    'C2(1/16) 
Sound Speaker , 92 , 901                    'Fis2(1/16) 
Sound Speaker , 65 , 1274                    'C2(1/16) 
Sound Speaker , 98 , 850                    'G2(1/16) 
Sound Speaker , 65 , 1274                    'C2(1/16) 
Sound Speaker , 92 , 901                    'Fis2(1/16) 
Sound Speaker , 65 , 1274                    'C2(1/16) 
Sound Speaker , 98 , 850                    'G2(1/16) 
Sound Speaker , 65 , 1274                    'C2(1/16) 
Sound Speaker , 92 , 901                    'Fis2(1/16) 
Sound Speaker , 65 , 1274                    'C2(1/16) 
Sound Speaker , 98 , 850                    'G2(1/16) 
Sound Speaker , 65 , 1274                    'C2(1/16) 
Sound Speaker , 92 , 901                    'Fis2(1/16) 
Sound Speaker , 65 , 1274                    'C2(1/16) 
Wait 2 

'Titanic: Theme 
Sound Speaker , 131 , 637                    'C3(1/16) 
Sound Speaker , 147 , 566                    'D3(1/16) 
Sound Speaker , 330 , 483                    'E3(1/8) 
Waitms 125                    'P(1/16) 
Sound Speaker , 175 , 477                    'F3(1/16) 
Sound Speaker , 165 , 483                    'E3(1/16) 
Sound Speaker , 147 , 566                    'D3(1/16) 
Sound Speaker , 131 , 637                    'C3(1/16) 
Sound Speaker , 147 , 566                    'D3(1/16) 
Sound Speaker , 392 , 425                    'G3(1/8) 
Waitms 125                    'P(1/16) 
Sound Speaker , 165 , 483                    'E3(1/16) 
Sound Speaker , 147 , 566                    'D3(1/16) 
Sound Speaker , 262 , 637                    'C3(1/8) 
Waitms 125                    'P(1/16) 
Sound Speaker , 110 , 758                    'A2(1/16) 
Sound Speaker , 87 , 954                    'F2(1/16) 
Sound Speaker , 196 , 850                    'G2(1/8) 
Waitms 125                    'P(1/16) 
Waitms 125                    'P(1/16) 
Sound Speaker , 131 , 637                    'C3(1/16) 
Sound Speaker , 147 , 566                    'D3(1/16) 
Sound Speaker , 330 , 483                    'E3(1/8) 
Waitms 125                    'P(1/16) 
Sound Speaker , 175 , 477                    'F3(1/16) 
Sound Speaker , 165 , 483                    'E3(1/16) 
Sound Speaker , 147 , 566                    'D3(1/16) 
Sound Speaker , 131 , 637                    'C3(1/16) 
Sound Speaker , 147 , 566                    'D3(1/16) 
Sound Speaker , 392 , 425                    'G3(1/8) 
Waitms 125                    'P(1/16) 
Sound Speaker , 165 , 483                    'E3(1/16) 
Sound Speaker , 196 , 425                    'G3(1/16) 
Sound Speaker , 440 , 388                    'A3(1/8) 
Waitms 125                    'P(1/16) 
Sound Speaker , 196 , 425                    'G3(1/16) 
Sound Speaker , 165 , 483                    'E3(1/16) 
Sound Speaker , 294 , 566                    'D3(1/8) 
Wait 2 

Loop

[yak-40]

Просто вместо того что-бы много раз писАть одни и те-же команды, можно организовать один цикл, в котором указать на массив с нотами. Итого несколько строчек кода вместо такой портянки.