Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Форум программистов и сисадминов Киберфорум > Форум программистов > Pascal (Паскаль) > Turbo Pascal
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.67/18: Рейтинг темы: голосов - 18, средняя оценка - 4.67
0 / 0 / 0
Регистрация: 27.05.2013
Сообщений: 7
1

Воспроизведение звука при нажатии на клавишу

27.05.2013, 23:54. Показов 3241. Ответов 6
Метки нет (Все метки)
Author24 — интернет-сервис помощи студентам
КонецСвета, Спасибо большое) Всё работает) Рад очень помощи) Но вот думаю может поможешь а то тоже в тупик зашел короче нужно сделать чтобы когда нажимаешь на стрелочку вверх и вниз был звук к примеру 478 или 578 без разницы.) Код клавиш 82 и 72, эт так на всякий случай)
Pascal
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

program kurs;
uses crt,dos;
label l2;
type
mas=array[1..4] of string;
const
menu:mas=('1.Сведение об авторе','2.Справка по программе','3.Вычисления','4.Выход');
var
 a:array[1..20] of integer;
pos:integer;
k:char;kod:integer;
procedure cursize(s:word);
var
regs:registers;
begin
with regs do
begin
AH:=$01;
CH:=Hi(s);
Cl:=Lo(s);
intr($10,regs);
end;
end;
procedure hidcur;
begin
cursize($2000);
end;
procedure nc;
begin
cursize($0607);
end;
procedure menu1;
var
i:integer;
begin
clrscr;
window(1,1,80,50);
textbackground(blue);
clrscr;
window(25,20,55,30);
textbackground(10);
clrscr;
for i:=1 to 4 do
begin
gotoxy(3,i+1);
if i=pos then textbackground(3) else textbackground(10);
write(menu[i]);
end;
hidcur;
end;
begin
clrscr;
menu1;
l2:
pos:=1;
menu1;
k:=readkey;
while k<>#13 do
begin
case k of
#72:if pos=1 then pos:=4 else pos:=pos-1;
#80:if pos=4 then pos:=1 else pos:=pos+1;
end;
menu1;
k:=readkey;
kod:=ord(k);
case kod of
49:begin sound(478);delay(20000);nosound;end;
50:begin sound(578);delay(20000);nosound;end;
51:begin sound(678);delay(20000);nosound;end;
52:begin sound(778);delay(20000);nosound;exit;end;
end;
end;
case pos of
1:begin sound(478);delay(20000);nosound;end;
2:begin sound(578);delay(20000);nosound;end;
3:begin sound(678);delay(20000);nosound;end;
4:begin sound(778);delay(20000);nosound;exit;end;
end;
goto l2;
end.
Добавлено через 14 минут
КонецСвета, Тут как бы всё сделано, но вот чисто не пашет как ни пробывал чтобы звук был именно на стрелочки верх и низ.. И вот хоть убейся не могу)
0
Лучшие ответы (1)
Сообщение: #4627385
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
 27.05.2013, 23:54
Ответы с готовыми решениями:

Воспроизведение звука при нажатии на определенную клавишу
Вопрос такой ! Хочу создать что-то на подобие сэмплера Система такая: При нажатии мышкой по...

Воспроизведение звука при нажатии button
Подскажите, пожалуйста, код, когда при нажатии button воспроизводится нужный мне звуковой файл...

Запустить воспроизведение звука при нажатии кнопки (MFC)
Ребят, как проиграть звук в своем приложении при нажатии кнопки например? конкретно пример...

Как добавить воспроизведение звука при нажатии кнопки?
Как в Andoid Studio сделать, чтобы когда я нажимаю на кнопку она издавала клик, который у меня...

6
0 / 0 / 0
Регистрация: 27.05.2013
Сообщений: 7
28.05.2013, 00:05  [ТС] 2
Суть в том что нужно чтобы в этой программе был еще звук при нажатии на кнопку вверх и вниз... Но чет я как ни пробывал не получается... Звук можно использовать 478 или 578.)
Pascal
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

program 2;
uses crt,dos;
label l2;
type
mas=array[1..4] of string;
const
menu:mas=('1.Сведение об авторе','2.Справка по программе','3.Вычисления','4.Выход');
var
 a:array[1..20] of integer;
pos:integer;
k:char;kod:integer;
procedure cursize(s:word);
var
regs:registers;
begin
with regs do
begin
AH:=$01;
CH:=Hi(s);
Cl:=Lo(s);
intr($10,regs);
end;
end;
procedure hidcur;
begin
cursize($2000);
end;
procedure nc;
begin
cursize($0607);
end;
procedure menu1;
var
i:integer;
begin
clrscr;
window(1,1,80,50);
textbackground(blue);
clrscr;
window(25,20,55,30);
textbackground(10);
clrscr;
for i:=1 to 4 do
begin
gotoxy(3,i+1);
if i=pos then textbackground(3) else textbackground(10);
write(menu[i]);
end;
hidcur;
end;
begin
clrscr;
menu1;
l2:
pos:=1;
menu1;
k:=readkey;
while k<>#13 do
begin
case k of
#72:if pos=1 then pos:=4 else pos:=pos-1;
#80:if pos=4 then pos:=1 else pos:=pos+1;
end;
menu1;
k:=readkey;
kod:=ord(k);
case kod of
49:begin sound(478);delay(20000);nosound;end;
50:begin sound(578);delay(20000);nosound;end;
51:begin sound(678);delay(20000);nosound;end;
52:begin sound(778);delay(20000);nosound;exit;end;
end;
end;
case pos of
1:begin sound(478);delay(20000);nosound;end;
2:begin sound(578);delay(20000);nosound;end;
3:begin sound(678);delay(20000);nosound;end;
4:begin sound(778);delay(20000);nosound;exit;end;
end;
goto l2;
end.
0
Почетный модератор
7966 / 3937 / 2464
Регистрация: 30.10.2011
Сообщений: 5,377
28.05.2013, 00:21 3
OlegSin, у меня работает, если нажать enter на выбранном пункте меню. это - не то?
1
0 / 0 / 0
Регистрация: 27.05.2013
Сообщений: 7
28.05.2013, 00:25  [ТС] 4
КонецСвета, То что на ентер, этого не достаточно))) Нужно еще на стрелочку верх и вниз был тоже звук) Ток незнаю как поставить) Еще если нажмешь на 1,2,3,4 тоже будет звук, но этого тоже недостаточно))
0
Почетный модератор
7966 / 3937 / 2464
Регистрация: 30.10.2011
Сообщений: 5,377
28.05.2013, 00:25 5
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

а, все понятно
вот
Pascal
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

uses crt,dos;
label l2;
type
mas=array[1..4] of string;
const
menu:mas=('1.Сведение об авторе','2.Справка по программе','3.Вычисления','4.Выход');
var
 a:array[1..20] of integer;
pos:integer;
k:char;kod:integer;
procedure cursize(s:word);
var
regs:registers;
begin
with regs do
begin
AH:=$01;
CH:=Hi(s);
Cl:=Lo(s);
intr($10,regs);
end;
end;
procedure hidcur;
begin
cursize($2000);
end;
procedure nc;
begin
cursize($0607);
end;
procedure menu1;
var
i:integer;
begin
clrscr;
window(1,1,80,50);
textbackground(blue);
clrscr;
window(25,20,55,30);
textbackground(10);
clrscr;
for i:=1 to 4 do
begin
gotoxy(3,i+1);
if i=pos then textbackground(3) else textbackground(10);
write(menu[i]);
end;
hidcur;
end;
begin
clrscr;
menu1;
l2:
pos:=1;
menu1;
k:=readkey;
while k<>#13 do
begin
case k of
#72:if pos=1 then
             begin
             pos:=4;
             sound(478);
             delay(20000);
             nosound;
             end
              else
                  begin
                  pos:=pos-1;
                  sound(578);
                  delay(20000);
                  nosound;
                  end;
#80:if pos=4 then
       begin
       pos:=1;
       sound(578);
       delay(20000);
       nosound;
       end
         else
             begin
             pos:=pos+1;
             sound(478);
             delay(20000);
             nosound;
             end;
end;
menu1;
k:=readkey;
kod:=ord(k);
case kod of
49:begin sound(478);delay(20000);nosound;end;
50:begin sound(578);delay(20000);nosound;end;
51:begin sound(678);delay(20000);nosound;end;
52:begin sound(778);delay(20000);nosound;exit;end;
end;
end;
case pos of
1:begin sound(478);delay(20000);nosound;end;
2:begin sound(578);delay(20000);nosound;end;
3:begin sound(678);delay(20000);nosound;end;
4:begin sound(778);delay(20000);nosound;exit;end;
end;
goto l2;
end.
1
0 / 0 / 0
Регистрация: 27.05.2013
Сообщений: 7
28.05.2013, 00:30  [ТС] 6
КонецСвета, Спасибо огромнейшее) За день много хорошего сделал. Реально благодарен тебе. Я кстати так пробывал, но у меня почему-то не пошла программа) Спасибо еще раз)
0
0 / 0 / 0
Регистрация: 13.02.2022
Сообщений: 7
02.04.2022, 13:04 7
ругается на dos что делать?

Добавлено через 1 минуту
всё, уже решил
0
02.04.2022, 13:04
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
 02.04.2022, 13:04
Помогаю со студенческими работами здесь

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

Воспроизведение звука при нажатии на клавиши, при работе программы в фоновом режиме
Нужно написать программу, воспроизводящую звук при нажатии на любую клавишу. Только нужно что бы...

Воспроизведение звука системным динамиком при нажатии определенной клавиши
Добрый вечер! Кто знает как сделать, чтоб при нажатии клавиши &quot;.&quot; срабатывал Beep (600,400), а при...

Чтобы воспроизведение звука с одной кнопки не останавливалось при нажатии второй
Еще вопросик в тему. Есть 2 кнопки, как сделать чтобы воспроизведение звука с одной кнопки не...


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

Или воспользуйтесь поиском по форуму:
7
Ответ Создать тему
КиберФорум - форум программистов, компьютерный форум, программирование
Поддержать - Реклама - Обратная связь
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru