Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Требуется озвучивание *.xls или *.txt [XP]

Страницы: 1 2 >
UriyV © (2006-11-26 22:50:00)
Добрый день!
Подскажите пожалуйста в каком разделе я смогу найти ответы на свои вопросы, а возможно и програмистов которые бы мне помогли материализовать мои потребности по договоренности:

Всем известно, что частоты для нот первой октавы в Гц следующие:
до 261.7 до# 277.2 ре 293.7 ре# 311.1 ми 329.6 фа 349.2 фа# 370.0
соль 392.0 соль# 415.3 ля 440.0 ля# 466.2 си 493.9

Требуется создание мелодии, когда за основу берется таблица (например Excel) в которой построчно заданы:частота тона, его длительность и громкость звучания.

Заранее благодарен

RASkov (2006-11-29 04:04:00) [1]
^ Это интерпретатор:)

RASkov (2006-11-29 04:03:00) [2]
Загнать это все дело в массив и типа ченить так

for N:=0 to Length(arr)-1 do
Windows.Beep(arr[N,1], arr[N,2]);

А в место beep лучше ченить свое, или конвертить 0,51955 и 0,450 в подходящие параметры для beep
Ну а с громкостью [4]:)

Сергей М. (2006-11-28 16:19:00) [3]

> UriyV © (28.11.06 16:15) [21]

Это в какое место вставить ?)

UriyV (2006-11-28 16:15:00) [4]
I колонка - номер строки, II колонка - ряд значений, III колонка -длительность звучания тона, IV колонка - громкость в %. Привязка первой октавы: строка №3 -523,4 Гц (До), строка №13 -261,7 Гц (До) I II III IV

1 0,51915 0,972 60,14
2 0,50860 1,530 53,82
3 0,533600,072 0,16
4 0,52790 0,990 46,52
5 0,51635 1,116 56,27
6 0,50895 0,744 55,02
7 0,50050 1,266 64,00
8 0,49210 0,732 42,47
9 0,48970 0,084 0,12
10 0,48815 0,558 29,92
11 0,48830 0,864 34,60
12 0,47980 1,020 32,69
13 0,490350,780 33,33
14 0,49795 0,558 29,31
15 0,50100 0,120 0,19
16 0,49610 1,002 31,14
17 0,48955 0,570 29,13
18 0,49095 0,414 29,35
19 0,48675 1,248 31,50
20 0,47300 1,134 30,20
21 0,46900 0,096 0,14
22 0,46680 0,534 26,65
23 0,47220 0,492 34,07
24 0,46975 0,624 48,36
25 0,46360 1,272 41,10
26 0,46695 1,374 35,72
27 0,49690 0,066 0,27
28 0,49450 0,642 53,12
29 0,49040 0,414 34,24
30 0,48940 0,984 40,66
31 0,48310 0,480 39,99
32 0,48060 1,134 33,25
33 0,50055 0,066 0,33
34 0,49635 0,948 35,10
35 0,49130 0,654 38,00
36 0,48950 1,038 39,04
37 0,47955 0,846 39,33
38 0,49130 0,672 39,88
39 0,48810 0,120 1,83
40 0,47855 1,296 88,44
41 0,46660 0,798 24,95
42 0,46835 1,278 37,82
43 0,48905 0,630 26,97
44 0,49295 0,780 25,22
45 0,50955 0,102 0,40
46 0,50520 0,690 26,80
47 0,49570 0,906 29,62
48 0,48350 0,978 28,71
49 0,50240 0,894 30,60
50 0,50530 0,732 22,94
51 0,51305 0,060 0,47
52 0,51020 0,438 30,49
53 0,51355 0,840 33,21
54 0,52580 0,390 28,98
55 0,52185 1,284 34,65
56 0,52680 1,662 29,06
57 0,55725 0,072 0,28
58 0,55560 0,462 66,60
59 0,55295 0,684 100,00
60 0,55540 0,840 68,36
61 0,54915 1,344 49,11
62 0,54155 0,624 36,78
63 0,54010 0,132 0,38
64 0,53915 0,666 38,05
65 0,53635 0,750 43,18
66 0,54245 0,864 37,86
67 0,54080 1,128 36,63
68 0,53315 0,558 36,21
69 0,53010 0,078 0,51
70 0,52610 1,110 46,56
71 0,54020 0,570 40,22
72 0,53510 0,804 33,97
73 0,54015 0,684 39,19
74 0,53745 0,510 34,25
75 0,53770 0,072 0,17
76 0,53440 0,786 27,73
77 0,54070 0,780 42,87
78 0,54695 0,540 38,04
79 0,55380 0,582 42,72
80 0,55270 0,660 30,80
81 0,55505 0,102 0,66
82 0,55605 0,306 48,41
83 0,54975 0,876 71,50
84 0,53970 0,978 65,18
85 0,53055 0,984 37,26
86 0,52060 0,816 29,16
87 0,51515 0,024 0,04
88 0,51480 0,624 17,73
89 0,50980 0,792 22,47
90 0,52195 0,402 16,82
91 0,52295 0,960 21,02
92 0,53230 0,756 17,27
93 0,52805 0,084 0,36
94 0,52600 0,630 18,10
95 0,53045 0,684 22,75
96 0,52775 0,774 20,53
97 0,52955 1,002 22,46
98 0,55130 0,414 17,72
99 0,54895 0,084 0,15
100 0,55035 0,540 17,28
101 0,54700 0,564 19,73
102 0,54150 0,630 20,44
103 0,53225 1,146 19,14
104 0,52380 0,876 19,70
105 0,52550 0,132 0,28
106 0,51870 1,182 18,54
107 0,53595 0,246 16,02
108 0,53705 0,588 20,65
109 0,53250 0,702 18,18
110 0,52495 1,164 18,17
111 0,51945 0,054 0,10
112 0,51795 0,474 14,22
113 0,51025 1,050 20,03
114 0,50355 0,426 18,55
115 0,50230 0,444 14,86
116 0,50780 0,588 15,07
117 0,50535 0,054 0,08
118 0,50175 0,738 13,51
119 0,50725 0,762 16,71
120 0,51955 0,450 14,89
121 0,51265 0,798 13,69
122 0,52360 0,618 13,09
123 0,53320 0,042 0,08
124 0,52755 0,864 16,88
125 0,52270 0,564 14,41
126 0,51960 0,474 17,88
127 0,52190 0,882 14,09
128 0,53665 0,780 13,97
129 0,54285 0,516 15,02
130 0,54820 0,834 16,98

Virgo_Style (2006-11-27 18:55:00) [5]
UriyV © (27.11.06 15:33) [14]
Как вставить фаил?

эм-м-м... в Windows есть так называемый буфер обмена, скопировать туда можно Ctrl+Ins, а вставить - Shift+Ins.

Сергей М. (2006-11-27 16:08:00) [6]

> окно для сообщений

А эт что такое ?

Сергей М. (2006-11-27 16:07:00) [7]

> окно для сообщений

Jeer (2006-11-27 15:47:00) [8]
Не вставишь.

UriyV (2006-11-27 15:41:00) [9]

> Сергей М. © (27.11.06 15:37) [15]
>
> > Как вставить фаил?
>
>
> Куда вставить ?)
> <Цитата>

в сообщение, или его прямо в окно для сообщений?

Сергей М. (2006-11-27 15:37:00) [10]

> Как вставить фаил?

Кудавставить ?)

UriyV (2006-11-27 15:33:00) [11]

> Германн © (27.11.06 02:20) [12]
> А попробуй описать "задачу"! Тут на форуме гораздо больше
> "умных людей", чем ты думаешь!
> Может они тебе предложат более "лучший" путь!

Добрый день! Как вставить фаил?

TUser (2006-11-27 05:20:00) [12]
С экселем уже сказали, а вот можешь свой геном послушать :)
http://www.nslij-genetics.org/dnamusic/

Германн (2006-11-27 02:20:00) [13]

> UriyV © (27.11.06 02:08) [11]
>
> В данной ситуации я больше заказчик, чем даже самый самый
> начинающий программист.

А попробуй описать "задачу"! Тут на форуме гораздо больше "умных людей", чем ты думаешь!
Может они тебе предложат более "лучший" путь!

UriyV (2006-11-27 02:08:00) [14]
В данной ситуации я больше заказчик, чем даже самый самый начинающий программист.
Обычно при анализе случайных числовых последовательностей, в поисках закономерности человек из всех органов чувств, для решения той либо иной задачи на основе имеющегося объема знаний использует - зрение.

Не знаю еще - что это даст, но мысль: задействовать при анализе закономерностей числового ряда вместе со зрением слух, как назойливая муха не дает покоя уже некоторое время.

Для начала требуется сделать готовые миди файлы из 3-4-х разных файлов *.xls по тех.заданию приложенным к ним.
Если хотя бы на 5% это покажет путь к решению, то можно будет вести речь о написании отдельной программы в собственной оболочке, для самостоятельного озвучивания.

С уважением
UriyV2006@yandex.ru

Германн (2006-11-27 01:56:00) [15]

> guav © (27.11.06 01:33) [8]
>
> > [7] Германн © (27.11.06 01:21)
> > поскольку справка к Д6 говорит,
>
> справка к Д6 не знает о 98/МЕ, следует использовать актуальный
> MSDN
>

Удивил, но я к этому был готов морально. :-)

UriyV (2006-11-27 01:47:00) [16]
Beep не подходит. Частоты не обязательно соответствуют основным тонам.
Какова цена вопроса, чтобы сделать интерпретатор, компилятор . . .?

guav (2006-11-27 01:33:00) [17]
> [7] Германн © (27.11.06 01:21)
> поскольку справка к Д6 говорит,

справка к Д6 не знает о 98/МЕ, следует использовать актуальный MSDN

Германн (2006-11-27 01:21:00) [18]

> Anatoly Podgoretsky © (27.11.06 01:09) [6]

Не. Меня сабж мало интересует. (Давным-давно в ДОСе один раз нужно было, делал). Я постил [5] только в связи с Вашим уточнением (на платформе НТ)
. Удивлён был им, поскольку справка к Д6 говорит, что тольков Win95 не учитываются параметры процедуры Beep!

Anatoly Podgoretsky (2006-11-27 01:09:00) [19]
> Германн (27.11.2006 1:05:05) [5]

Вообще то да, но на звуковую сложно, формирование файлов не рассматриваю, у меня на сайте есть не большой пример синтезатора, но он не будет работать на всех платах.

SweepGenerator

Германн (2006-11-27 01:05:00) [20]

> Anatoly Podgoretsky © (27.11.06 01:00) [4]
>
> > UriyV (27.11.2006 0:19:03) [3]
>
> ..., любую
> ноту можно проиграть с помощью Beep (на платформе НТ)

Ну так это на спикере :-(
Сам не помню. А что на 98-м и МЕ нельзя? Справка выделяет лишь 95-й.

Страницы: 1 2 >

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »