Sayfa 24

KOMUT: Sample KULLANILIŞI: sample ö to v

Bu komut belirli bir sample'ı ses kanallarına atar. Bu sayede play komutuyla örneklenmiş seslere ulaşabilirsiniz. Burada 'ö' ses numarası, V de kanal bilgisidir. Evet arkadaşlar, AMOS'un ses komutları bu kadar. Şimdi sıra geldi müzik komutlarına:

KOMUT: Music KULLANILIŞI: music n

Bu komut müzik bankasında kayıtlı olan bir parçayı çalmaya başlar, 'n' parça numarasıdır. Üst üste üçe kadar parçayı çalabilirsiniz. Eğer bir parça çalarken bir diğerini çalıştıracak olursanız, o anki parça durdurulur ve yenisine başlanır. Bu parça bitince eski parça kaldığı yerden devam eder.

KOMUT: Music stop KULLANILIŞI: music stop

O an çalmakta olan müziği durdurur.

KOMUT: Music off KULLANILIŞI: music off

Bütün müzikleri durdurur. Sıra geldi ilk müzik programımıza. Bakalım nasıl bulacaksınız:

Rem *'* AMIGA DÜNYASI ** Rem ** AMOS Demo Program ** Rem ** Written by Burak Ozdemir ** Rem** AMOS Copyright 1990 ** Rem ** Mandarin/Jawx **

Curs Off Flash Off F$=Fsel$("SYS:") Load F$,3 Music 1 Print "Muzigi durdurmak için mouse tu- nuna basin" Do

If Mouse Key>0 Then Exit Loop Music Off

KOMUT: Tempo KULLANILIŞI: tempo t

Bu komut, çalınan parçanın hızını ayarlar. 't', 1 ile 100 arasında değerler alabilir. Değeri büyüdükçe parça hızlanır.

Şimdi deminki programa bir de hız kontrolü ekleyelim. Çalma hızını mouse'u yatay doğrultuda hareket ettirerek ayarlayabilirsiniz.

Rem** AMIGA DÜNYASI Rem ** AMOS Demo Program ** Rem ** Written by Burak Ozdemir ** Rem** AMOS Copyright 1990 ** Rem ** Mandarin/Jawx

Curs Off Flash Off F$=Fsel$("SYS:") Load F$,3 Music 1 Print "Muzigi durdurmak için mouse tu- şuna basin" Do

If Mouse Key>0 Then Exit T=60*(X Mouse-120)/328.0 Tempo T Loop Music Off

KOMUT: Mvolume KULLANILIŞI:

mvolume v

Bu komut, adından da anlaşıldığı gibi müziğin sesini ayarlar.

Sıra geldi programa ses kontrolü eklemeye. Bunu da mouse'un dikey hareketleriyle yapıyorsunuz.

Rem ** AMIGA DÜNYASI Rem ** AMOS Demo Program , ** Rem ** Written by Burak Ozdemir ** Rem** AMOS Copyright 1990 ** Rem ** Mandarin/Jawx **

Curs Off Flash Off F$=Fsel$("SYS:") Load F$,3 Music 1 Print "Muzigi durdurmak için mouse tu- şuna basin" Do

If Mouse Key>0 Then Exit T=60*(X Mouse-120)/328.0 V=63*(YMouse-46)/241.0 Tempo T Mvolume 63-V Loop Music Off

KOMUT: Voice KULLANILIŞI: voice m

AMOS'ta çalan bir müzik parçası, aynı anda dört ses kanalına birden kumanda edebilir. Bu komut yardımıyla çalan bir parçanın istediğiniz kanalını açıp kapayabilirsiniz. İsterseniz bunu hep yapabilirsiniz.

Aşağıda buna örnek bir program var:

Rem** AMIGA DÜNYASI ** Rem ** AMOS Demo Program **

Rem ** Written by Burak Ozdemir ** Rem** AMOS Copyright 1990 ** Rem ** Mandarin/Jawx

Curs Off Flash Off V=0 F$=Fsel$("SYS:") Load F$,3 Music I Print "Muzigi durdurmak için mouse tu- şuna basin"

Print "Kanal değiştirmek için bir tuşa basin"

Do If Mouse Key>0 Then Exit Iflnkey$<>"" Inc V If V=I6 V=0 End If Voice V Locate 5,5 Print "Kanal numarasi ";V;" End If Loop Music Off

KOMUT: Vumeter KULLANILIŞI:

x=vumeter(v)

Bu komut 'v' numaralı kanala ait anlık ses şiddetini verir. V, 0 ile 3 arasında değerler alır.

Bu komut için AMOS'un manual programlarından birini biraz değiştirerek yazıyorum:

Rem* AMIGA DÜNYASI Rem ** AMOS Demo Program ** Rem ** Written by Burak Ozdemir ** Rem** AMOS Copyright 1990 ** Rem ** Mandarin/Jawx **

Load "amos_data:music/funkey.abk" Load "amos_data:sprites/Octopus.abk" Music I : Led Off Flash Off: Fade 1 To-1 Curs Off Dim Y(4) Rem Main loop Repeat For N=0 To 3 Add Y(N),Vumeter(N) If Y(N)>64 Then Y(N)=64 If Y(N)>0 Then Add Y(N),-3 Sprite 8+N,128+Y(N)*3,50+N*32,l Next Until Mouse Key

KOMUT: Auto reverse KULLANILIŞI:

Böyle bir komut yoktur. Bu yüzden kullanmanızı pek tavsiye etmem.

Bu aylık bu kadar sevgili okurlar. Gelecek ay buluşmak üzere. Hoşçakalın...