Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/6: Рейтинг темы: голосов - 6, средняя оценка - 4.67
0 / 0 / 0
Регистрация: 03.03.2015
Сообщений: 1
1

Как подключить модули к этой программе

05.03.2015, 17:49. Показов 1236. Ответов 1
Метки нет (Все метки)

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
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
Program Piano; 
Uses crt,speaker, dos, mouse, graph, graphs;
const
maks:array[0..1,0..15] of integer =(
($E1FF,$EDFF,$EDFF,$EDFF,
 $EDFF,$EC00,$EDB6,$EDB6,
 $0DB6,$6FFE,$6FFE,$6FFE,
 $7FFE,$7FFE,$7FFE,$0000),
($1E00,$1200,$1200,$1200,
 $1200,$13FF,$1249,$1249,
 $F249,$9001,$9001,$9001,
 $8001,$8001,$8001,$FFFF));
const
width=18;
xl=35*width;
yl=160;
black_key_low = 100;
half_black_width = width div 3;
quit_x = 500;
quit_y = 400;
Var
frequency : array[0..4, 0..11] of real;
white_freq : array[0..4, 0..6] of real;
black_freq : array[0..4, 0..6] of real;
mouse_OK : boolean;
x,y : word;
button : byte;
 
procedure init_frequency;
const 
while_map : array[0..6] of word =(0,2,4,5,7,9,11);
black_map : array[0..6] of word =(0,1,3,0,6,8,10);
Var
x,semitone_ratio : real;
i,j : word;
Begin
semitone_ratio :=exp(ln(2.0)/12.0);
frequency[1,9]:=440.0;
x:=440.0;
for j:=8 downto 0 do
Begin
x:=x*semitone_ratio;
frequency[1,j]:=x;
end;
x:=440.0;
for j:=0 to 11 do
Begin
x:=x*semitone_ratio;
frequency[1,j]:=x;
end;
for j:=0 to 11 do
Begin 
frequency[0,j]:=0.5*frequency [1,j];
frequency[2,j]:=2.0*frequency [1,j];
frequency[3,j]:=4.0*frequency [1,j];
frequency[4,j]:=8.0*frequency [1,j];
end;
for i:=0 to 4 do 
Begin
for j:=0 to 6 do
Begin
white_freq[i,j]:=frequency [i,white_map[j]];
black_freq[i,j]:=frequency [i,black_map[j]];
end;
end;
end;
 
procedure draw_keybord;
const 
black :array[1..5] of integer = (-3, 16, 52, 70, 87);
Var
pp, z, p:integer;
Begin
x:=0;
y:=10;
for pp:=1 to 5 do 
Begin
for p:=1 to 8 do
Begin
 setcolor(11);
 for z:= y to y+150 do 
 line (x,z,x+15,z);
putpixel(x,y+150,0);
putpixel(x+15,y+150,0);
inc(x,18);
end;
dec(x,131);
for p:=1 to 5 do 
Begin
setcolor(8);
for z:=y to y+80 do 
line (x+black [p],z,x+black[p]+11,z);
setcolor(0);
rectangle(x+black[p]+1,x+black[p]+12,y+80);
setcolor(7);
for z:=y+77 to y+79 do
line (x+ black[p]+2,z,x+black[p]+11,z);
end;
inc(x,114);
end;
rectangle(quit_x,quit_y,639,479);
outtextxy(quit_x+40,quit_y+35,'Quit');
end;
 
procedure poll;
begin
repeat
get_mouse_status(button,x,y);
if button and $01 <> 0 then
exit
else
no_sound;
until false;
end;
 
procedure play;
Var
key, octave:word;
z,w:integer;
Begin
key:=x div width;
octave:=key div 7;
z:=x mod (7*width);
w:= round (z/width);
if (y<= black_key_low)and
(abs(width*w-z)<= half_black_width)and 
(w in [1,2,4..6])then 
sound (black_freq[octave,w])
else 
sound (white_freq[octave, key mod 7]);
repeat
get_mouse_status(button,x,y);
until button and $01=$00;
no_sound;
end;
Begin
init_frequency;
reset_mouse(mouse_OK, button);
if not mouse_OK then
halt;
open_graph;
reset_mouse(mouse_OK,button);
set_graph_cursor_shape(7,0,@masks);
show_cursor;
mouse_gotoXY(320,300);
draw_keyboard;
repeat 
poll;
if (x=0) or (y=0) then 
begin
no_sound;
poll;
end;
if (x<=x1)and(y<=y1)then
play
else
if (x>=quit_x) and (y>=quit_y)then
break;
no_sound;
until false;
close_graph;
end.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
05.03.2015, 17:49
Ответы с готовыми решениями:

Как подключить графические модули
Скачал я DEV C++, работаю с языком си. Вот попалась тема &quot;Графика&quot;.Ну и там нужно подключать...

Как правильно подключить модули?
Задача: Даны натуральное число n, действительные числа x1,y1; x2,y2;... xn,yn;. Найти площадь...

Как подключить модули? Почему мой подключаемый модуль не работает
Вот мой модуль # это файл &quot;my_module.py&quot; # мы собираемся использовать его в другой программе...

Как в этой программе изменить то что во вкладке "о программе"
Здравствуйте, уважаемый народ. Подскажите как в этой программе изменить то что во вкладке &quot;о...

__________________
1
Эксперт Pascal/Delphi
6619 / 4451 / 4740
Регистрация: 05.06.2014
Сообщений: 21,871
06.03.2015, 08:11 2
Для PABC никак. Это модули для TP.

Для Турбо Паскаля:
speaker, mouse, graphs;
Положить эти файлы с расширением tpu (tpp, pas) в ту же папку, что и ваша программа. Остальные - стандартные модули.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
06.03.2015, 08:11

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

Как работает вывод в этой программе на Си
Здравствуйте, в один момент возникла проблема с выводом строк. Объясните на элементарном примере,...

Как построить блок-схему по этой программе?
program Massiv; var a: array of integer; b: array of integer; N:integer; j:integer; //...

КАК правильно вводит элементы в этой программе?
помогите пожалуйста)))

Как реализовать интерфейс IComparable в этой программе?
Надо выполнить данную программу используя для хранения экземпляров разработанных классов...


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

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

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