pasalda rep+pop+hit müzik ..:11:

[gokhanaygun]

merhabalar...
.şimdi aklınıza gelen ilk şey sanırım rep veya pop ve pascal ..ne alaka yanı ...
diceksiniz...elbette doğrudan bi alakası yok ...ama şu iyi bilinmeli dir ki
her müzik notalardan oluşur tabi bas ve tiz da şart ..ama pascalı maruz görün...
yanı neymiş nota olursa müzkte olur..ama biraz mat olur..çünkü pascal sadece.sistem sesini çıkarabilir.yanı sistem sesi kasanın içinden çıkan ses..
biraz cıvık ama idare edin artık pascal bu 1968 rahmetli niklaus wird yazılımı
neyse lafı uzatttım yine biraz bakalım .

ses sound ile başlar nosound ile bitirilir hanı begin end meselesi..yanı başla ve bitir.olayı .şimdi sesi aştık ve kapatacak ve tabı uzunluğunu belirtmek lazım ..burda..yanı do notası mesela 2 sn çalsın re 1 sn çalsın gibi süreyi ayarlamak için ..delay kullancaz.şimdi sıralayalım şunları ..

sound
delay
nosound

ihtiyacımız olan şeyler bunlar şimdi bunları yazmaya çalışalım ....

uses crt;

begin
sound(1000); delay(1000);
nosound;
end.
yukardaki program yaklaşık değeri şöle dir 1000 frekans ta 1 sn lık do sesi üretilir..

bu arada sound(x) yanı x frekans ses üretiliyor delay(x) x sürede üretiliyor.
delay(1000) yaklaşık 1 sn ye denk gelir...
ve notolar ise yine yaklaşık değeri...
delay;
1000 do
1100 re
1200 mi
1300 fa
1400 sol
1500 la
1600 si
gibi gibi...yanı iyi bi kulağa sahipseniz deneyerekte sesleri bulacaksanız.
artık hangi notayı ne kadar uzatacağınız.da delaya kalmış ..ve en son nosound la sesi kesiyoruz...evet sanırım anladınız. işte bu kadar ..gerisi size kalmış ..

evet yazdığım bi programdaki hata sesini yazım ..

uses crt;
begin
sound(100);
delay(2000);
nosound;
end. (100 ferekans sesi 2 sn de üretir..)

şimdide teprikler sesi ..

uses crt;
begin
SOUND(1600);DELAY(100);
SOUND(1500);DELAY(100);
SOUND(1600);DELAY(100);
SOUND(1700);DELAY(100);
SOUND(1600);DELAY(100);
SOUND(1500);DELAY(100);
SOUND(1600);DELAY(100);
NOSOUND;
END.


haa bu arada pascalda küçük harf büyük harf ayrımı yoktur .yeterki türkçe karakter kullanmayın ...apastroflar dışında .sesi bir defa kapatmak yeterli yanı
nosound bir defa sonda kullanılırsa tamamdır...

bu kadar kolay dimi.evet artık başardınz
benden de bu kadar artık gerisi sizin kulaklarınıza ve programcılığınıza kalmış...

kolay gelsin....

[firari]

Paylaşım için tşkler…

[Mattet]

teŞekkÜrler PaylaŞim İİÇİn

[Neutralizer]

Paylaşım İçin Teşekkürler