Из wav файла вывести график на форму

@DwinT · Регистрация: 19.12.2011

Студворк — интернет-сервис помощи студентам

Очень нужна помощь, на форме есть кнопки нужно чтобы по нажатию кнопки выводился график из wav файла. файл примерно длительностью 1 сек (не важно вообщем то какой). главное чтобы выводился график и чтобы на нем можно было смотреть значения, если он при этом еще и динамический будет то вообще идеально.

@Опан · 01.02.2015, 18:43

Значит, шкала в децибелах - это прежде всего шкала логарифмической зависимости от амплитуды, т. е. если мощность звука возрастает в столько-то раз, то это вызывает увеличение на столько-то децибел. А мощность звука, в свою очередь имеет квадратическую зависимость от амплитуды, так, как увеличили мы. скажем, амплитуду в 1.5 раза - на выходе усилителя возросло напряжение в 1.5 раза и во столько же возрасла сила тока. В итоге звуковая мощность выросла в 2.25 раза.
Во вложении есть таблица, переводящая амплитуду в децибелы. (Источник - Децибел, как единица сравнения уровня двух различных величин сигналов) Там же и точная формула для расчёта, но мне не хочется по новой дерзать школьный учебник.
В таблице видно, что с изменением амплитуды в 2 раза, количество децибел меняется на 3 децибела, так что удобней всего шкалу в децибелах построить так, чтобы с каждым децибелом амплитуда увеличивалась в корень третьей степени из двух по сравнению с предыдущим значением.

@The trick · 02.02.2015, 00:29

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
Option Explicit
 
Private Sub Form_Load()
    Dim dat()   As Single
    Dim index   As Long
    
    ReDim dat(5000)
    
    Me.Scale (0, 0)-(UBound(dat), -160)
    Me.AutoRedraw = True
    ' Рисуем шкалу
    For index = Me.ScaleTop To (Me.ScaleHeight - Me.ScaleTop) Step -10
        Me.Line (0, index)-Step(Me.ScaleWidth, 0), &HC8C8C8
        Me.CurrentX = 0: Me.CurrentY = index: Me.Print Format(IIf(index < -80, -160 - index, index), "0 db")
    Next
    
    ' В примере заполняем пилой, в реальности берем отсчеты из файла
    ' и приволим их к диапазону от -1 до +1
    ' Пила линейно возрастает по амплитуде
    For index = 0 To UBound(dat)
        dat(index) = ((index Mod 300) / 150 - 1) * (index / (UBound(dat) + 1))
    Next
    
    ' Выводим в логарифмическом масштабе
    Me.ForeColor = vbRed
    For index = 0 To UBound(dat)
        If index Then Me.Line -(index, GetLogAmp(dat(index))) Else Me.PSet (index, GetLogAmp(dat(index)))
    Next
    
End Sub
 
Private Function GetLogAmp(ByVal Value As Single) As Single
    Dim tmp As Single
    
    tmp = Abs(Value)
    If tmp < 0.0001 Then tmp = 0.0001
    
    If Value > 0 Then
        GetLogAmp = Log(tmp) / 0.115129254649702
    Else
        GetLogAmp = -Log(tmp) / 0.115129254649702 - 160
    End If
    
End Function

На данном графике хорошо будут видны и громкие звуки и очень очень тихие, основная площадь как раз занимают тихие звуки (-30..-80db)

@Анаконда_Мира · 02.02.2015, 09:43

The trick, спасибо

Добавлено через 34 минуты
почему то у вас шкала немного по другому выглядит,вот как должна
https://www.cyberforum.ru/atta... 1422859494

@The trick · 02.02.2015, 19:13

Сообщение от Анаконда_Мира

почему то у вас шкала немного по другому выглядит,вот как должна

Потому что у меня логарифмический масштаб, а на рисунке линейный.

@Анаконда_Мира · 03.02.2015, 07:16

Сообщение от The trick

Потому что у меня логарифмический масштаб, а на рисунке линейный.

а на рисунке(в частности у меня) тоже логарифмический,тогда про какой рисунок идет речь?

@Pro_grammer · 03.02.2015, 07:33

Сообщение от Анаконда_Мира

почему то у вас шкала немного по другому выглядит

Может потому что там не реальный звук, а "пила" ?

' В примере заполняем пилой,

@The trick · 03.02.2015, 17:33

Сообщение от Анаконда_Мира

а на рисунке(в частности у меня) тоже логарифмический,тогда про какой рисунок идет речь?

У тебя масштаб линейный (разница сигнала в 2 раза соответствует разнице высот графика в 2 раза), у меня логарифмический. У тебя шкала логарифмическая, у меня тоже. На рисунке из-за того что у меня логарифмический масштаб шкала выглядит как линейная.
Для того чтобы перевести децибелы в разы (чтобы сделать такую шкалу как у тебя на рисунке):

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
Option Explicit
 
 
Private Sub Form_Load()
    Dim dat()   As Single
    Dim index   As Long
    
    ReDim dat(5000)
    
    Me.Scale (0, 1)-(UBound(dat), -1)
    Me.AutoRedraw = True
    
    ' Øêàëà
    Dim var As Variant
    
    For Each var In Array(0, -3, -6, -12, -18, -1300)
        Me.Line (0, FromDb(var))-Step(Me.ScaleWidth, 0)
        Me.CurrentX = 0: Me.Print Format(var, "0 db")
        Me.Line (0, -FromDb(var))-Step(Me.ScaleWidth, 0)
        Me.CurrentX = 0: Me.Print Format(var, "0 db")
    Next
    
    ' Â ïðèìåðå çàïîëíÿåì ïèëîé, â ðåàëüíîñòè áåðåì îòñ÷åòû èç ôàéëà
    ' è ïðèâîëèì èõ ê äèàïàçîíó îò -1 äî +1
    ' Ïèëà ëèíåéíî âîçðàñòàåò ïî àìïëèòóäå
    For index = 0 To UBound(dat)
        dat(index) = ((index Mod 300) / 150 - 1) * (index / (UBound(dat) + 1))
    Next
    
    ' Âûâîäèì â ëèíåéíîì ìàñøòàáå
    Me.ForeColor = vbRed
    For index = 0 To UBound(dat)
        If index Then Me.Line -(index, dat(index)) Else Me.PSet (index, dat(index))
    Next
    
End Sub
 
Private Function FromDb(ByVal db As Single) As Single
    FromDb = 10 ^ (db / 20)
End Function

Новые блоги и статьи Все статьи Все блоги /
сукцессия 30. Фосфорный и азотный замки по "честному" закону лимитирования Либиха anaschu 16.07.2026 Основные достижения за последние дни 1. Механизм отложенного высвобождения фосфора Добавлен специальный пул для медленного разложения меланизированных гиф ЕСМ Реализована разная скорость. . .	Запрет пометки на удаление и отмены проведения Maks 16.07.2026 Алгоритм из решения ниже реализован на нетиповом документе "ПутевойЛист" разработанного в КА2. Задача: запретить помечать на удаление и отменять проведения путевого листа при условии, если он сдан. . .	Как надо было делать правильно - вообще не слушать ИИ, его дело - текст. Hrethgir 15.07.2026 А вообще надо было делать не так, чтобы не исправлять ошибку https:/ / www. cyberforum. ru/ blogs/ 223907/ 10996. html , правильно было : удалил кнопку, а потом добавил её. Всё это стресс конечно. Почему?. . .	Знаете, от чего появляется стресс? kumehtar 15.07.2026 Стресс появляется оттого, что вы, зная как поступить правильно, делаете наоборот. Ларри Уингет
Нас бьют, а мы крепчаем? Какая чушь! kumehtar 15.07.2026 Вот это вот бытующее мнение, что человек меняется только под действием проблем, всегда считал вредоносным. Поверь, от проблем у людей появляются не изменения, а нервное расстройство и ПТСР. А. . .	сукцессия 29. Переход от одних деревьев на другие делать более или менее вероятностным? anaschu 12.07.2026 Насколько смена типов микоризы — исключительное событие в двухвековой сукцессии? Оценка вероятности в пространстве параметров В текущей версии модели успешно реализован ключевой механизм. . .	сукцессия 27. Думаю, как переделывать уже написанную статью с планами на сукцессию. anaschu 12.07.2026 Анализ соответствия модели требованиям Реализованные компоненты: Механизм закисления почвы через протонную помпу Конкуренция между типами микориз pH как триггер сукцессии C/ P соотношение. . .	Сукцессия 26. Мат модель создана. anaschu 12.07.2026 Модель смены растительных сукцессий посредством управления грибами работает внутри небольшой ячейки почвы, восстанавливающейся после пожара, где ненадолго бывшее царство хвойных снова захватили. . .

@DwinT 2 / 2 / 0 Регистрация: 19.12.2011 Сообщений: 17

	Из wav файла вывести график на форму 19.12.2011, 10:07. Показов 11317. Ответов 46 Метки wav, Вывести, график, файла, форму (Все метки) Очень нужна помощь, на форме есть кнопки нужно чтобы по нажатию кнопки выводился график из wav файла. файл примерно длительностью 1 сек (не важно вообщем то какой). главное чтобы выводился график и чтобы на нем можно было смотреть значения, если он при этом еще и динамический будет то вообще идеально. 1

@Опан Юзер с абсолютным слухом 709 / 489 / 195 Регистрация: 17.12.2010 Сообщений: 1,428
	01.02.2015, 18:43
	Значит, шкала в децибелах - это прежде всего шкала логарифмической зависимости от амплитуды, т. е. если мощность звука возрастает в столько-то раз, то это вызывает увеличение на столько-то децибел. А мощность звука, в свою очередь имеет квадратическую зависимость от амплитуды, так, как увеличили мы. скажем, амплитуду в 1.5 раза - на выходе усилителя возросло напряжение в 1.5 раза и во столько же возрасла сила тока. В итоге звуковая мощность выросла в 2.25 раза. Во вложении есть таблица, переводящая амплитуду в децибелы. (Источник - Децибел, как единица сравнения уровня двух различных величин сигналов) Там же и точная формула для расчёта, но мне не хочется по новой дерзать школьный учебник. В таблице видно, что с изменением амплитуды в 2 раза, количество децибел меняется на 3 децибела, так что удобней всего шкалу в децибелах построить так, чтобы с каждым децибелом амплитуда увеличивалась в корень третьей степени из двух по сравнению с предыдущим значением. Миниатюры 0

@Анаконда_Мира 0 / 0 / 0 Регистрация: 01.02.2015 Сообщений: 3
	02.02.2015, 09:43
	The trick, спасибо Добавлено через 34 минуты почему то у вас шкала немного по другому выглядит,вот как должна https://www.cyberforum.ru/atta... 1422859494 Миниатюры 0