|
pasalda rep+pop+hit müzik ..:11:
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ı :4: 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 ..:78: uses crt; begin sound(100); delay(2000); nosound; end. (100 ferekans sesi 2 sn de üretir..) şimdide teprikler sesi ..:4: 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.:1:evet artık başardınz:4: benden de bu kadar artık gerisi sizin kulaklarınıza ve programcılığınıza kalmış... kolay gelsin.... |
Paylaşım için tşkler…
|
teŞekkÜrler PaylaŞim İİÇİn
|
Paylaşım İçin Teşekkürler
|
| Bütün Zaman Ayarları WEZ +3 olarak düzenlenmiştir. Şu Anki Saat: 18:23 . |
Powered by vBulletin® Version 3.7.0
Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.