Как воспроизвести звуковой файл

@kukushka3 · Регистрация: 25.01.2021

Добрый день, форумчане! Мне очень нравится следующая страница форума Воспроизведение звука
Хотелось бы реализовать коды, представленные на данной странице, но несколько дней пытаюсь и ничего не получается, вы не могли бы помочь в этом вопросе. Условие задачи, необходимо воспроизвести звуковой файл короткого содержания при нажатии кнопки button1, button2-временно остановить (пауза) и button3 просто остановить. Звуковые файлы (они представлены в формате и mp3 и wav подготовлены и хранятся в папке проекта в папке Files). Длина звучания звукового файла предполагается звучать 2, 3 секунды, но можно и больше. Открывать файл не обязательно, предполагается только в коде указать путь к нему…Помогите, кто может...Хотелось бы правильный рабочий код...

@kukushka3 · 10.03.2025, 20:09 **[ТС]**

January29, ПОСМОТРИТЕ, ПОЖАЛУЙСТА, СЛЕДУЮЩИЙ МОМЕНТ...НА ФОРМУ ДОБАВЛЕН TextBox1 и в него вписан текст UA4UUU возможно ли сделать так, ЧТОБЫ ПРИ НАЖАТИИ button1 проигрывался файл в цикле, сначала звучит файл с именем U.wav, потом A.wav, 4.wav, U.wav, U.wav, U.wav, то есть происходит последовательное считывание 5 букв и цифр. Звуки я поместил в папку Files. Каждый файл - это звук Морзе. Как только заканчивается последняя буква или цифра, то здесь происходит автоматический стоп...

@kukushka3 · 10.03.2025, 20:10 **[ТС]**

Может Вам это уже надоело, то отложите это дело на потом, я всё равно вам буду благодарен...

@January29 · 10.03.2025, 20:26

kukushka3, Чёт у вас странно, то проект созданный в visual studio 2019 то в visual studio 2022. Вы на какой пишете?

Добавлено через 6 минут

Сообщение от kukushka3

вписан текст UA4UUU

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

@kukushka3 · 11.03.2025, 07:39 **[ТС]**

пока, что то не получается...Вот как реализован код на PureBasic, мне хотелось бы примерно по такой технологии:

PureBasic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
   If a$="@"
              For X = 1 To Val(GetGadgetText(#Spin_5)) 
              RO$ = UCase(GetGadgetText(#String_0)) 
              If RO$<>""
                For j = 1 To Len(RO$)
              If StopWav = 1:KillThread(Tread):EndIf
              a$ = Mid(RO$,j,1) 
              If FileSize( GetPathPart(ProgramFilename()) + "c/" +a$+".wav")>0 And GetGadgetState(#CheckBox_7) = 1
              If   LoadSound(0,GetPathPart(ProgramFilename()) + "c/" +a$+".wav") 
                    d =  SoundLength( 0,#PB_Sound_Millisecond)
                    PlaySound(0)
                   Delay(d + 10) :If StopWav = 1:KillThread(Tread):EndIf
              EndIf
            EndIf
               Next
              EndIf
            Next  
                 EndIf

Добавлено через 1 час 58 минут
Работаю с разных рабочих мест, на одно месте 2019 год, на другом 2022...

@January29 · 11.03.2025, 11:19

kukushka3, Как ваши успехи в продвижение решения вопроса?

@kukushka3 · 11.03.2025, 11:24 **[ТС]**

Пока нет результата...

@January29 · 11.03.2025, 11:39

Сообщение от kukushka3

Пока нет результата...

Совсем нет, или уже чёт есть?

@kukushka3 · 11.03.2025, 11:58 **[ТС]**

Совсем ничего нет...Наверху в предыдущих сообщения представлен код на PureBasic, именно так реализовывается считывание написанного текста в TextBox1, а считанная цифра или буква английского алфавита проигрывается из папки где находятся подготовленные звуковые файлы. Я хотел бы сделать программу для работы азбукой Морзе, а так же для изучения ее. То есть проигрывание звука из ListBox не подойдёт...Посмотрите, пожалуйста эту ссылку, там представлен один из вариантов программы наподобие которой я хочу сделать, но только для С#..

http://www.cqham.ru/forum/show... %E2/page21
Пост
#203

@January29 · 11.03.2025, 12:16

Сообщение от kukushka3

То есть проигрывание звука из ListBox не подойдёт

Там не из listbox, а из плейлиста. А в listbox только отображает что играет.

Сообщение от kukushka3

Посмотрите, пожалуйста эту ссылку

А что не скачать там уже готовую? Ну да, если как там, то уже придется много потрудится, согласно из инструкции там ещё много чего надо сделать.

@kukushka3 · 11.03.2025, 12:41 **[ТС]**

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

@kukushka3 · 11.03.2025, 12:41 **[ТС]**

Почему то продублировались два сообщения, не понятно...Скачать готовую, не интересно, хочется самому...

@January29 · 11.03.2025, 13:05

Сообщение от kukushka3

нужен код для считывания с TextBox1 букв и цифр

Чёт таке

C#
1
2
3
4
foreach (var item in textBox1.Text)
{
    // с каждой итерации, в item будет каждый символ char
}

@January29 · 11.03.2025, 18:24

kukushka3, так пойдет

@Тим70 · 12.03.2025, 04:41

kukushka3, Или так, использовал SoundPlayer и звук воспроизводится в отдельном потоке.

@kukushka3 · 12.03.2025, 04:53 **[ТС]**

Доброе утро! Как же я вам благодарен и Вам Тим70 и Вам January29. Это очень хорошие ответы, спасибо вам, что вы есть...А вот код посмотреть как то возможно?...Я почему то подумал, что всё закончилось, это уже не возможно, оказывается есть выход...

@Тим70 · 12.03.2025, 06:31

kukushka3, Вариант с кнопкой "Стоп".

@kukushka3 · 12.03.2025, 07:07 **[ТС]**

Да, да с кнопкой "Стоп" ещё удобнее стало, это очень хорошо, спасибо...

@Тим70 · 12.03.2025, 07:55

kukushka3, Нашел ошибку,вот исправленный вариант с проверкой ввода.

@kukushka3 · 12.03.2025, 08:01 **[ТС]**

Да, этот вариант работает лучше, не выходит дополнительное сообщение при остановке воспроизведения звука...

@January29 · 12.03.2025, 10:54

Сообщение от kukushka3

А вот код посмотреть как то возможно?

Возможно.

Сообщение от kukushka3

Я почему то подумал, что всё закончилось

Только начинается.

Новые блоги и статьи Все статьи Все блоги /
Контроль уникальности строк в табличной части документа Maks 18.06.2026 Алгоритм из решения ниже разработан на примере нетипового документа "ПланированиеСпецтехники" с табличной частью "НаличиеОборудования", разработанного в КА2. Задача: контроль уникальности строк в. . .	Клиент Uhbif79 18.06.2026 Здесь простой клиент для работы с сервером.	Сервер Uhbif79 18.06.2026 Выкладываю простейший сервер.	Дефенестрация kumehtar 18.06.2026 Узнал интересное слово. Дефенестрация. Это когда ты выбрасываешь кого-либо или что-либо из окна. Возьму на вооружение)))
Дихотомия добра и зла kumehtar 18.06.2026 Как Дзен-буддисты говорят о добре и зле: не нужно воевать против зла, нужно воевать против невежества. Тогда добро станет ествественным, и поэтому вечным. Но дело в том, что невежество всё время. . .	Своя Интернет-Компания iceja 18.06.2026 Я программист с экономическим образованием, пишу свой проект, это SaaS для бизнесов. Мне нужен co-founder с высшим экономическим образованием, и/ или инвестор. Сейчас проект в интенсивной разработке,. . .	24 Мат модель здравосохранения: функциональные требования к строительству пищеблока anaschu 18.06.2026 СРесурсами1: финансовый SD-контур, калькулятор функциональных требований пищеблока Сегодня разделили затраты в агенте Экономика по образцу модели НАСОСЫ, добавили расчёт ROI и построили первый. . .	23. что сделано за последнее время. anaschu 17.06.2026 • Эталон: Клиника НИИ питания РАМН, Москва — централизованный пищеблок, 225 коек, 180 пациентов • Git: репозиторий med2, ветка абсентеизм. Рабочий файл: СРесурсами1_v4. alp • Смежный проект:. . .

Как воспроизвести звуковой файл

Решение

Решение

@kukushka3 3 / 3 / 0 Регистрация: 25.01.2021 Сообщений: 82
	10.03.2025, 20:10 [ТС]
	Может Вам это уже надоело, то отложите это дело на потом, я всё равно вам буду благодарен... 0

@January29 3260 / 3325 / 556 Регистрация: 17.02.2019 Сообщений: 5,223
	11.03.2025, 11:19
	kukushka3, Как ваши успехи в продвижение решения вопроса? 0

@kukushka3 3 / 3 / 0 Регистрация: 25.01.2021 Сообщений: 82
	11.03.2025, 11:24 [ТС]
	Пока нет результата... 0

@kukushka3 3 / 3 / 0 Регистрация: 25.01.2021 Сообщений: 82
	11.03.2025, 11:58 [ТС]
	Совсем ничего нет...Наверху в предыдущих сообщения представлен код на PureBasic, именно так реализовывается считывание написанного текста в TextBox1, а считанная цифра или буква английского алфавита проигрывается из папки где находятся подготовленные звуковые файлы. Я хотел бы сделать программу для работы азбукой Морзе, а так же для изучения ее. То есть проигрывание звука из ListBox не подойдёт...Посмотрите, пожалуйста эту ссылку, там представлен один из вариантов программы наподобие которой я хочу сделать, но только для С#.. http://www.cqham.ru/forum/show... %E2/page21 Пост #203 1

@kukushka3 3 / 3 / 0 Регистрация: 25.01.2021 Сообщений: 82
	11.03.2025, 12:41 [ТС]
	Нет, мне просто хочется реализовать такую же программу, но только на си шарп теоретически как бы я всё продумал, осталось только одно, нужен код для считывания с TextBox1 букв и цифр и проигрывания их, но знаний практически и теоретический не было и нет... 0

@kukushka3 3 / 3 / 0 Регистрация: 25.01.2021 Сообщений: 82
	12.03.2025, 04:53 [ТС]
	Доброе утро! Как же я вам благодарен и Вам Тим70 и Вам January29. Это очень хорошие ответы, спасибо вам, что вы есть...А вот код посмотреть как то возможно?...Я почему то подумал, что всё закончилось, это уже не возможно, оказывается есть выход... 1

@kukushka3 3 / 3 / 0 Регистрация: 25.01.2021 Сообщений: 82
	12.03.2025, 07:07 [ТС]
	Да, да с кнопкой "Стоп" ещё удобнее стало, это очень хорошо, спасибо... 0

@kukushka3 3 / 3 / 0 Регистрация: 25.01.2021 Сообщений: 82
	12.03.2025, 08:01 [ТС]
	Да, этот вариант работает лучше, не выходит дополнительное сообщение при остановке воспроизведения звука... 0