Sayfa 69

SATIR 2: (x) değişkeninin değerinin -1 olup olmadığı kontrol edilir. Eğer -1 ise spritesola adlı rutine atlar. (x) değişkeni 0 ise program bir alt satırdan devam eder. SATIR 3: oku adlı label'a gider. Döngüyü başlatır. Mouse portundaki joystick hareketlerini kontrol etmek için ise; JLEFT(0); komutunu vermelisiniz. JRIGHT(n) FONKSİYONU: Joystick'in sağa doğru hareketlerini kontrol etmek için kullanılır. n port numarasını belirtir. Sağa hareket olursa fonksiyonu okuyan değişken -1 değerini alır. Aksi halde 0 değerini alır. Örnekler;

X = JRIGHT(0) x1 = JRIGHT(1) Birinci satırda x adlı değişken 0 nolu mouse portundaki joystick sağa gitti mi gitmedi mi kontrol eder, ikinci satır ise joystick 1 nolu portta iken sağı kontrol eder. Değişken olarak x1 adlı değişkeni kullanır. JUP(n) FONKSİYONU: Joystick'in yukarı itilip itilmediğini kontrol eder. Bu fonksiyon da sonucu okumak için bir değişken kullanır. Eğer n numaralı porttaki joystick yukarı itildiyse ilgili değişken -1 değerini, yukarı itilmemiş ise 0 değerini alır. y = JUP(0) y1 = JUP(1) JDOWN(n) FONKSİYONU:

Joystick'in aşağı çekilip çekilmediğini kontrol eder. Sonucu bir değişken aracı ile okuyan fonksiyon, çekilmesi halinde -1 değerini yapar. Aksi halde 0 olarak kalır. y = JDOWN(0) y1 = JDOWN(1) FIRE(n) FONKSİYONU: Bu fonksiyonda, tahmin edilebileceği gibi n nolu porttaki joystick'in ateş tuşuna basılıp basılmadığını kontrol eder.

Basılması durumunda -1 değerini alır. Tersi durumlarda 0 olarak kalır. y = FIRE(0) y1 = FIRE(1) Böylece joystick kontrollü gerekli AMOS Basic fonksiyonlarını görmüş olduk şimdi bütün bu

fonksiyonları kullanarak ku • program yapalım ... Program ın listesi : 1 O IF JLEFT(1) THEN PRI ılT • PORTTAK i JOY SOLA ITILOr 20 IF JRIGHT(1 ) THEN PR PORTTAK i JOY SAGA ITILOr 30 IF JUP(1) THEN PRINT • PORTTAK i JOY YUKARI ı r 40 IF JDOWN(1) THEN PR T PORTTAKi JOY AŞAGI ITIL!Dr 50 IF FIRE( 1) THEN PRI lT· PORTTAKi JOY ATEŞE BAS 60 IF JLEFT(O) THEN PRI T-o PORTTAKi JOY SOLA ITiLOr 70 IF JRIGHT(O) THEN PR 'fl -o PORTTAKi JOY SAGA ITIL!Or 80 IF JUP(O} THEN PRINT -o PORTTAKi JOY YUKARI iTilOr 90 IF JDOWN(O) THEN PR T-o PORTTAK i JOY AŞAGI fTILOr 100 IF FIRE(O) THEN PRI T '"O

PORTTAKi JOY ATEŞE BASlLDI"

110 GOTO 10 .

Programın açıklaması: Yukarıdaki satırlarda gördüğümüz IF cümlelerinde verilen ifadelerde JLEFT(1), FIRE(0) fonksiyonlarının doğru mu yanlış mı olduğu kontrol edilir. Normal olarak Jleft(1) komutu

1. porttaki joystick sola çekildiğinde -1 değeri verdiğinde doğru yani true yani pozitif bir sonuç olacaktır. IF cümlesi ise fonksiyonun doğruluğunu kontrol ettiğinden -1 olması durumunda THEN komutundan sonraki komutları çalıştıracaktır. Böylece 1. porttaki

,ır so a çekildiğinde sola çekildi g me!.aJiar verecektir. Bu pcog•an' ıoystıcklerin izi test etmek a~a yapılmışçok basit bir pcog·amo · Daha da geliştirılebılir, eğ n bazı grafikler eklenebilir. Yarla ,ıoystıck hareket eliirildiğinde

~a baz., anımasyonlar Iab ıt. Tabii bu gıbi şeylerı eaha rde ogreneceğiz fakat br şey yapabilen varsa bize ~er p oığer AMOSçularta payta.şab ır Sonuçta bu ayki

dosya bitti. Sizler eğer bir sorununuz olursa, herhangi bir

:mJiu ullanmakta zorluk rsanız . Yada Metai-Rap çugs nde kaset değışmek sanrz (çakım yapılır) ışte size ad es her konuda yazmaktan

~msyn . BURAK OZIŞIK P 5- FIKIRTEPE

KADIKÖY-İSTANBUL