Pascal NOTA PROGRAMI 2.0

CorsaiR · 11 Ağu 2007

NOTA PROGRAMI 2.0 Kendi marşlarınızı,türkülerinizi yazıp,kaydetip sonra tekrar tekrar dinlemek için tasarlanmış bir program.Ayrıca nota frekanslarınıda isterseniz siz ayarlıyabiliyorsunuz.Bittimi bitmedi :> kaydettiğiniz marşları, türküleri başka bilgisayrlarda (mesala arkadaşınızda) aynı programla çalabiliyorsunuz NOT: programı ilk önce exe haline getirin ve daha sonra başka bir klosörün içinde çalışmalarınızı yapın.AYRICA SITEDE YAYINLARKEN SORUN CIKARILIYOR AMA PROGRAMIN HEMEN BASINDAKI NOTU UYGULARSANIZ SORUN ORTADAN KALKIYORuses crt;
var
sec,ch,tus:char;
x,hiz,s,l:longint;
ota:array[1..99] of string;
a:array[1..99] of longint;
i,p,ohiz,akord:longint;
dooo,doo,re,mi,fa,sol,la,si:integer;
dd,tt:text;
ad,d:string;
procedure nota;
begin
for i:=1 to 99 do
begin
a:=0;
ota:="; {DIKKAT DIKKAT sıtede yayınlarken burayı su " ısaretle alıyor lütfen
bunu ' ' arada bosluk olmicak sekılde yazın aksı taktırde calısmaz}
end;
clrscr;
i:=0;
p:=0;
textcolor(white);
writeln('(a)=DO (s)=RE (d)=MI (e)=FA (f)=SOL (g)=LA (h)=SI (j)=DO (b)=BOSLUK');
textcolor(red);
writeln(' ()=MENUYE DON ');
textcolor(white);
repeat
i:=i+1;
p:=p+1;
tus:=readkey;
tus:=upcase(tus);
case tus of
'A':begin x:=doo; a:=x; sound(x); delay(200); nosound; write('DO'); ota:='DO'; end;
'S':begin x:=re; a:=x; sound(x); delay(200); nosound; write('RE'); ota:='RE'; end;
'B':begin x:=0; a:=x; sound(x); delay(200); nosound; write('__'); ota:='__'; end;
'D':begin x:=mi; a:=x; sound(x); delay(200); nosound; write('MI'); ota:='MI'; end;
'E':begin x:=fa; a:=x; sound(x); delay(200); nosound; write('FA'); ota:='FA'; end;
'F':begin x:=sol; a:=x; sound(x); delay(200); nosound; write('SOL'); ota:='SOL'; end;
'G':begin x:=la; a:=x; sound(x); delay(200); nosound; write('LA'); ota:='LA'; end;
'H':begin x:=si; a:=x; sound(x); delay(200); nosound; write('SI'); ota:='SI'; end;
'J':begin x:=dooo; a:=x; sound(x); delay(200); nosound; write('DO'); ota:='DO'; end;
end;
until (tus='š');
end;
procedure dinle;
begin
i:=0;
clrscr;
repeat
i:=i+1;
sound(a);
delay(200);
write(ota);
nosound;
until keypressed;
readln;
writeln('KAYDETMEK ICIN (K)');
writeln('CIKMAK ICIN (V)');
sec:=readkey;
sec:=upcase(sec);
if sec='K' then
begin
assign(dd,'SES.orn');
rewrite(dd);
for i:=1 to 99 do
begin
writeln(dd,a);
writeln(dd,ota);
end;
close(dd);
end;
end;
procedure k_dinle;
begin
clrscr;
i:=0;
assign(dd,'SES.orn');
reset(dd);
while not eoln(dd) do
begin
i:=i+1;
readln(dd,a);
readln(dd,ota);
end;
close(dd);
for i:=1 to 99 do
begin
sound(a);
if a=0 then
ohiz:=0
else
ohiz:=akord;
delay(ohiz);
write(ota);
nosound;
end;
end;
procedure akors;
begin
clrscr;
writeln('YENI AYARLAMALAR ICIN (Y)');
writeln('ESKI AYARLAR ICIN (K)');
tus:=readkey;
tus:=upcase(tus);
if tus='K' then
begin
assign(tt,'AYARLAR.jkl');
reset(tt);
readln(tt,doo);
readln(tt,re);
readln(tt,mi);
readln(tt,fa);
readln(tt,sol);
readln(tt,la);
readln(tt,si);
readln(tt,dooo);
close(tt);
end;

if tus='Y' then
begin
clrscr;
writeln('FREKANSLARI 1 ile 9000 ARASI BELIRLEYIN');
readln;
repeat
ch:='h';
write('DO:');
readln(doo);
sound(doo);
delay(200);
nosound;
write('ONAYLAYIN (e\h):');readln(ch);
until ch='e';
repeat
ch:='h';
write('RE:');
readln(re);
sound(re);
delay(200);
nosound;
write('ONAYLAYIN (e\h):');readln(ch);
until ch='e';
repeat
ch:='h';
write('MI:');
readln(mi);
sound(mi);
delay(200);
nosound;
write('ONAYLAYIN (e\h):');readln(ch);
until ch='e';
repeat
ch:='h';
write('FA:');
readln(fa);
sound(fa);
delay(200);
nosound;
write('ONAYLAYIN (e\h):');readln(ch);
until ch='e';
repeat
ch:='h';
write('SOL:');
readln(sol);
sound(sol);
delay(200);
nosound;
write('ONAYLAYIN (e\h):');readln(ch);
until ch='e';
repeat
ch:='h';
write('LA:');
readln(la);
sound(la);
delay(200);
nosound;
write('ONAYLAYIN (e\h):');readln(ch);
until ch='e';
repeat
ch:='h';
write('SI:');
readln(si);
sound(si);
delay(200);
nosound;
write('ONAYLAYIN (e\h):');readln(ch);
until ch='e';
repeat
ch:='h';
write('DO (KALIN):');
readln(dooo);
sound(dooo);
delay(200);
nosound;
write('ONAYLAYIN (e\h):');readln(ch);
until ch='e';
akord:=0;
write('NOTANIN KALMA ZAMANI (1 ile 6 saniye arasi):');
readln(l);
case l of
1:akord:=akord*1;
2:akord:=akord*2;
3:akord:=akord*3;
4:akord:=akord*4;
5:akord:=akord*5;
6:akord:=akord*6;
end;
assign(tt,'AYARLAR.jkl');
rewrite(tt);
writeln(tt,doo);
writeln(tt,re);
writeln(tt,mi);
writeln(tt,fa);
writeln(tt,sol);
writeln(tt,la);
writeln(tt,si);
writeln(tt,dooo);
writeln(akord);
close(tt);
end;
end;
procedure ana;
begin
for i:=1 to 25 do
begin
textbackground(1);
insline;
end;
akord:=200;
doo:=1111;
re:=2222;
mi:=3333;
fa:=4444;
sol:=5555;
la:=6666;
si:=7777;
dooo:=8888;
repeat;
textcolor(white);
clrscr;
gotoxy(30,8);
write('ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»');
gotoxy(30,9);
write('º (1) NOTA YAZMA º');
gotoxy(30,10);
write('º º');
gotoxy(30,11);
write('º (2) YAZDIGINI DINLE º');
gotoxy(30,12);
write('º º');
gotoxy(30,13);
write('º (3) KAYITLI NOTA AC º');
gotoxy(30,14);
write('º º');
gotoxy(30,15);
write('º (4) AKORD AYARI º');
gotoxy(30,16);
write('º º');
gotoxy(30,17);
write('º (5) CIKIS º');
gotoxy(30,18);
write('ÈÍÍÍÍÍÍÍËÍÍÍÍÍÍËÍÍÍÍÍÍÍ¼');
gotoxy(30,19);
write(' ºSEC: º');
gotoxy(30,20);
write(' ÈÍÍÍÍÍÍ¼');
gotoxy(44,19);
tus:=readkey;
tus:=upcase(tus);
case tus of
'1':nota;
'2':dinle;
'3':k_dinle;
'4':akors;
end;
until tus='5';
end;
begin
clrscr;
ana;
end.

LuiLui · 30 Ağu 2007

Kendi marşlarınızı,türkülerinizi yazıp,kaydetip sonra tekrar tekrar dinlemek için tasarlanmış bir program.Ayrıca nota frekanslarınıda isterseniz siz ayarlıyabiliyorsunuz...
Denemeye değer... Teşekkürşer

yeniçeri3456 · 14 Eyl 2007

sağ olasın

cezalandirilci · 25 Ağu 2010

Emegine Sağlık ..(üsTAD)__

Pascal NOTA PROGRAMI 2.0

CorsaiR

Emektar

LuiLui

Katılımcı Üye

yeniçeri3456

Yeni üye

cezalandirilci

Üye

Sosyal medya sayfalarımız