Форум программистов, компьютерный форум, киберфорум
Наши страницы
C++ Builder
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.91/11: Рейтинг темы: голосов - 11, средняя оценка - 4.91
Tazei
0 / 0 / 0
Регистрация: 13.12.2010
Сообщений: 5
1

Добавление звука при нажатии на изображение или кнопку

03.06.2012, 15:45. Просмотров 2161. Ответов 5
Метки нет (Все метки)

возникла небольшая проблема с добавлением звука по нажатию на изображение или кнопку. подчеркну, не системные звуки, а собственные с расширением wav или с другими, которые поддерживаются. есть какое нибудь свойство или компонент, с которым можно такое провернуть? прошу пример. думаю что код программы мой не нужен.
0
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
03.06.2012, 15:45
Ответы с готовыми решениями:

Добавление дополнительных ячеек при нажатии на кнопку
Нужно сделать так, чтобы при нажатие кнопки добавлялись дополнительные ячейки. Как допустим с...

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

Открыть текстовый документ или изображение при нажатии на кнопку
всем привет! хочу узнать как при помощи button при нажатии кнопки требовало открыть какой нибудь...

Проигрывание звука при нажатии на кнопку
Как при нажатии на кнопку проигравалась песня? Переношу в раздел "Delphi: графика, звук, видео".

Возпроизводство звука .wav при нажатии на кнопку
Читал, смотрел, пробовал - в итоге, теоретически, работает, но звука нету. Подскажите, чего может...

5
Avazart
Эксперт С++
7962 / 5784 / 571
Регистрация: 10.12.2010
Сообщений: 26,598
Записей в блоге: 17
03.06.2012, 15:48 2
думаю что код программы мой не нужен.
Ну вообще то нужен.

Попробуйте стандартный компонент TMediaPlayer, но можно еще в ActiveX компоненты посмотреть
1
Mr.Sandman
42 / 59 / 15
Регистрация: 19.12.2011
Сообщений: 552
03.06.2012, 15:56 3
А можно bass.dll подключить)
Хотя для wav, MediaPlayer будет удобнее.
1
Tazei
0 / 0 / 0
Регистрация: 13.12.2010
Сообщений: 5
03.06.2012, 16:15  [ТС] 4
ок, вот код.
..
C++
1
void __fastcall TForm1::Image33Click(TObject *Sender)
- сюда мне нужно добавить звук по нажатию
..

я понятия не имею что писать нужно
C++
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
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
 #include <vcl.h>
#include <stdlib.h>
#include <windows.h>
#pragma hdrstop
#include "Unit1.h"
 
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "acPNG"
#pragma resource "*.dfm"
 
TForm1 *Form1; int to,le;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{ Image3->Visible=false;
  to=rand()%(Form1->Height);
  if(to>=Form1->Height-200)
    to-=200;
le=rand()%Form1->Width;
if( Form1->Width-100<=le)
le-=100;
Image1->Left=le;
Image2->Left=le;
Image3->Left=le;
 
Image1->Top=to;
Image2->Top=to;
Image3->Top=to;
if(Image1->Visible==false)
{Image1->Visible=true;
Image2->Visible=false; }
else {Image2->Visible=true;
Image1->Visible=false;}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Image1Click(TObject *Sender)
{
 Image3->Visible=true;
Image1->Visible=false;
Image2->Visible=false;
 Timer1->Interval-=29;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Image2Click(TObject *Sender)
{
Image3->Visible=true;
Image1->Visible=false;
Image2->Visible=false;
 Timer1->Interval-=29;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Image3Click(TObject *Sender)
{
  Image3->Visible=false;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Timer2Timer(TObject *Sender)
{
Image4->Left=rand()%Form1->Width;
Image4->Top=rand()%(Form1->Height);
Image5->Left=rand()%Form1->Width;
Image5->Top=rand()%(Form1->Height);
Image8->Left=rand()%Form1->Width;
Image8->Top=rand()%(Form1->Height);
Image9->Left=rand()%Form1->Width;
Image9->Top=rand()%(Form1->Height);
Image10->Left=rand()%Form1->Width;
Image10->Top=rand()%(Form1->Height);
Image11->Left=rand()%Form1->Width;
Image11->Top=rand()%(Form1->Height);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Image6Click(TObject *Sender)
{
 
Form1->Width=1070;
Form1->Height=664;
 
 
Form1->Timer1->Enabled=true;
Form1->Timer2->Enabled=true;
Form1->Image1->Visible=true;
Form1->Image4->Visible=true;
Form1->Image5->Visible=true;
Form1->Image6->Visible=False;
Form1->Image8->Visible=true;
Form1->Image9->Visible=true;
Form1->Image10->Visible=true;
Form1->Image11->Visible=true;
Form1->Image7->Visible=False;
Form1->Image12->Visible=true;
Form1->Image13->Visible=true;
Form1->Image14->Visible=true;
Form1->Image15->Visible=true;
Form1->Image16->Visible=true;
Form1->Image17->Visible=true;
Form1->Image18->Visible=true;
Form1->Image19->Visible=true;
Form1->Image20->Visible=true;
Form1->Image21->Visible=true;
Form1->Image22->Visible=true;
Form1->Image23->Visible=true;
Form1->Image24->Visible=true;
Form1->Image25->Visible=true;
Form1->Image26->Visible=true;
Form1->Image27->Visible=true;
Form1->Image28->Visible=true;
Form1->Image29->Visible=true;
Form1->Image30->Visible=true;
Form1->Image31->Visible=true;
Form1->Image32->Visible=true;
Form1->Image33->Visible=true;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Image7Click(TObject *Sender)
{
  Form1->Close();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Image33Click(TObject *Sender)
{
Form1->Timer1->Enabled=False;
Form1->Timer2->Enabled=False;
Form1->Image34->Visible=true;
Form1->Image35->Visible=true;
 
 
 
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Image34Click(TObject *Sender)
{
Form1->Timer1->Interval=1000;
Form1->Timer1->Enabled=true;
Form1->Timer2->Enabled=true;
Form1->Image34->Visible=False;
Form1->Image35->Visible=False;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Image33MouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
 Form1->Timer1->Enabled=true;
Form1->Timer2->Enabled=true;
Form1->Image34->Visible=False;
Form1->Image35->Visible=False;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Image35Click(TObject *Sender)
{
Form1->Width=255;
Form1->Height=346;
Form1->Image6->Visible=true;
Form1->Image7->Visible=true;
Form1->Image1->Visible=False;
Form1->Image2->Visible=False;
Form1->Image3->Visible=False;
Form1->Image4->Visible=False;
Form1->Image5->Visible=False;
Form1->Image8->Visible=False;
Form1->Image9->Visible=False;
Form1->Image10->Visible=False;
Form1->Image11->Visible=False;
Form1->Image12->Visible=False;
Form1->Image13->Visible=False;
Form1->Image14->Visible=False;
Form1->Image15->Visible=False;
Form1->Image16->Visible=False;
Form1->Image17->Visible=False;
Form1->Image18->Visible=False;
Form1->Image19->Visible=False;
Form1->Image20->Visible=False;
Form1->Image21->Visible=False;
Form1->Image22->Visible=False;
Form1->Image23->Visible=False;
Form1->Image24->Visible=False;
Form1->Image25->Visible=False;
Form1->Image26->Visible=False;
Form1->Image27->Visible=False;
Form1->Image28->Visible=False;
Form1->Image29->Visible=False;
Form1->Image30->Visible=False;
Form1->Image31->Visible=False;
Form1->Image32->Visible=False;
Form1->Image33->Visible=False;
Form1->Image34->Visible=False;
Form1->Image35->Visible=False;
Добавлено через 15 минут
больше ни у кого предложений нет?
0
Avazart
Эксперт С++
7962 / 5784 / 571
Регистрация: 10.12.2010
Сообщений: 26,598
Записей в блоге: 17
03.06.2012, 16:41 5
Пример
C++
1
2
3
4
5
6
7
8
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
MediaPlayer1->FileName= "C:\\Users\\Public\\Music\\Sample Music\\Sleep Away.mp3";
MediaPlayer1->Open();
MediaPlayer1->Play();
}
//---------------------------------------------------------------------------
2
LK
Заблокирован
03.06.2012, 18:19 6
PlaySound()
0
03.06.2012, 18:19
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
03.06.2012, 18:19

Изображение при нажатии на кнопку
Нужно сделать крестики нолики,идея в том что я создаю 9 кнопок,и при нажатии на одну из кнопок она...

Воспроизведение системного звука при нажатии на JavaScript кнопку
Здравствуйте, коллеги. Возможно ли вызывать системный звук при кликании по JawaScript кнопке, как...

Как при нажатии на кнопку изменить её изображение на WPF?
Всем привет, как при нажатии на кнопку изменить её изображение, не через XAML, а через C#?


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
6
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.