roboforum.ru

Технический форум по робототехнике.

Кто щас чем занят?

Наше хобби — конструировать и программировать.
Демонстрация готовых роботов и устройств построенных своими руками.

Re: Кто щас чем занят?

Сообщение rig » 04 мар 2010, 17:33

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

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

02 2010 026.jpg
общий вид

02 2010 028.jpg
с переди

02 2010 029.jpg
с зади

02 2010 030.jpg
в разобранном

02 2010 033.jpg
оборотка

02 2010 002.jpg
ЛУТ

02 2010 005.jpg
Лут
Последний раз редактировалось rig 04 мар 2010, 18:50, всего редактировалось 2 раз(а).
Аватара пользователя
rig
 
Сообщения: 1437
Зарегистрирован: 03 авг 2007, 19:43
Откуда: Екатеринбург
прог. языки: Си, асм со словарем

Re: Кто щас чем занят?

Сообщение Int_13h » 04 мар 2010, 17:40

На каком камушке реализовано?
Int_13h
 
Сообщения: 18
Зарегистрирован: 18 фев 2010, 12:51
Откуда: Irkutsk
прог. языки: двоичный код

Re: Кто щас чем занят?

Сообщение rig » 04 мар 2010, 17:48

ATmega8(L) TQFP
Аватара пользователя
rig
 
Сообщения: 1437
Зарегистрирован: 03 авг 2007, 19:43
Откуда: Екатеринбург
прог. языки: Си, асм со словарем

Re: Кто щас чем занят?

Сообщение yak-40 » 04 мар 2010, 18:23

А аккумулятор это что? резервное питание?
- Этот человек - не человек! это робот!
- Как? уже делают?!
- Делают!!!
Аватара пользователя
yak-40
 
Сообщения: 3037
Зарегистрирован: 23 окт 2007, 22:03
Откуда: Москва
прог. языки: С
ФИО: Евгений Яковец

Re: Кто щас чем занят?

Сообщение rig » 04 мар 2010, 18:48

ага, часов на 4-5 хватает если не экономить. только вот регулировать нечего если сети не будет.
вообщето меня просили простую мигалку сделать чтоб воров отпуивать, но я ведь не могу простую сделать мне надо чтонить многофункциональное :)
верхние разъемы - слева на право
первые два для светика - мигаем типа охрана и чтоб освещение замерять,
следующие три для DS1820 сколько захочешь, планировал 2.
нижняя плата две нагрузки через симистор BТ137 8А, без радиатора поменьше будет.
предохранители один по входу на транс второй на нагрузку.
красные светодиоды на индикацию вкл нагрузки.
инидкатор четыре восьмерки с точкой с общим плюсом, анод вроде.
Аватара пользователя
rig
 
Сообщения: 1437
Зарегистрирован: 03 авг 2007, 19:43
Откуда: Екатеринбург
прог. языки: Си, асм со словарем

Re: Кто щас чем занят?

Сообщение ALHIMIK » 04 мар 2010, 19:56

а чем снимался лишний текстолит ?
Аватара пользователя
ALHIMIK
 
Сообщения: 997
Зарегистрирован: 05 окт 2008, 14:41
Откуда: СПб
прог. языки: C,Python

Re: Кто щас чем занят?

Сообщение -= Александр =- » 04 мар 2010, 20:48

Я край торцом точильного камня обрабатываю, но тут не похоже... Или обороты сильно больше чем у меня...
Ниндзя - круче всех. Они умеют ходить по воде, делить на ноль и угадывать шаффл в АйПоде.
Аватара пользователя
-= Александр =-
Мастер Самоделкин
 
Сообщения: 3678
Зарегистрирован: 11 окт 2004, 19:20
Откуда: Россия, СПб
прог. языки: C/C++, Python, asm
ФИО: Курмис Александр Андреевич

Re: Кто щас чем занят?

Сообщение rig » 04 мар 2010, 23:05

крупные куски выкусывались кусачками, более точная обработка фрезой с дремелем - skill.
отверстия под выводы тоже дремелем 0,7-1 мм. Более крупные 3 мм.
точность двухстороннего травления практически один в один. Дырка под вывод с одной стороны точно попадала в отверстие на другой стороне.
По логике я немножко промахнулся пришлось исправлять проводочками - под индикатором. На фото не видно.
Аватара пользователя
rig
 
Сообщения: 1437
Зарегистрирован: 03 авг 2007, 19:43
Откуда: Екатеринбург
прог. языки: Си, асм со словарем

Re: Кто щас чем занят?

Сообщение Levsha128 » 08 мар 2010, 20:23

Пишу класс микроконтроллера ATtiny2313 для своего эмулятора электрических схем под линукс(убунту) на с++. И попутно занимаюсь переводом кода этого же симулятора под линух(изначально он разрабатывался под винду, но потом я стал линуксоидом=))
Смотри в корень!
Аватара пользователя
Levsha128
 
Сообщения: 22
Зарегистрирован: 08 мар 2010, 20:19
Откуда: Херсон
прог. языки: C++, Delphi, ASM, Си
ФИО: Шульга Алексей

Re: Кто щас чем занят?

Сообщение galex1981 » 08 мар 2010, 23:16

Странно конечно! Код под Видну под МК отличается от кода под Линукс - он разве не платформонезависимый? Или вы пишите ОС под МК?
if(!Operate) Read(pDatasheet);
Аватара пользователя
galex1981
 
Сообщения: 4362
Зарегистрирован: 04 дек 2008, 22:44
Откуда: Камышин
Skype: galk-aleksandr1
прог. языки: Kotlin, Java, C, C++, Assm, BasCom, VB, php
ФИО: Галкин Александр Владимирович

Re: Кто щас чем занят?

Сообщение Levsha128 » 08 мар 2010, 23:43

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

А еще я совместно с форумом программистов пишем первый номер журнала для программистов.
<Вырезано EdGull>
Смотри в корень!
Аватара пользователя
Levsha128
 
Сообщения: 22
Зарегистрирован: 08 мар 2010, 20:19
Откуда: Херсон
прог. языки: C++, Delphi, ASM, Си
ФИО: Шульга Алексей

Re: Кто щас чем занят?

Сообщение кулер 23 » 11 мар 2010, 20:43

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

код
Код: Выделить всёРазвернуть
$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
Аватара пользователя
кулер 23
 
Сообщения: 798
Зарегистрирован: 17 апр 2009, 19:44
Откуда: Югорск
Skype: rizhykot
ФИО: Аксютин Юрий

Re: Кто щас чем занят?

Сообщение yak-40 » 11 мар 2010, 20:58

А что, в Васике массивов и циклов нет? :wink:
- Этот человек - не человек! это робот!
- Как? уже делают?!
- Делают!!!
Аватара пользователя
yak-40
 
Сообщения: 3037
Зарегистрирован: 23 окт 2007, 22:03
Откуда: Москва
прог. языки: С
ФИО: Евгений Яковец

Re: Кто щас чем занят?

Сообщение кулер 23 » 11 мар 2010, 21:15

Если чесно ненаю :oops:
вот оригинал кода)
Код: Выделить всёРазвернуть
$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
Аватара пользователя
кулер 23
 
Сообщения: 798
Зарегистрирован: 17 апр 2009, 19:44
Откуда: Югорск
Skype: rizhykot
ФИО: Аксютин Юрий

Re: Кто щас чем занят?

Сообщение yak-40 » 11 мар 2010, 22:11

Просто вместо того что-бы много раз писАть одни и те-же команды, можно организовать один цикл, в котором указать на массив с нотами. Итого несколько строчек кода вместо такой портянки.
- Этот человек - не человек! это робот!
- Как? уже делают?!
- Делают!!!
Аватара пользователя
yak-40
 
Сообщения: 3037
Зарегистрирован: 23 окт 2007, 22:03
Откуда: Москва
прог. языки: С
ФИО: Евгений Яковец

Пред.След.

Вернуться в Наши проекты

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 0

cron