Sayfa 40

Program, ilkönce 32 renkte ve düşük çözünürlükte bir ekran açar. Bir sonraki satırda ekranın yanıp sönmesini önlemek için 'flash off' komutunu kullandım.

Repeat Until Mouse Click=l

döngüsü ile mouse'un kliklenmesi beklenir. Bundan sonra mouse'un o an bulunduğu nokta ekran koordinatları olarak XS ve YS değişkenlerine verilir.

gr writing 2

komutu ile grafik çiziminde XOR moduna geçilir. Bu sayede ekrana çizilecek bir şeklin üstünden tekrar geçilecek olursa, ekran tekrar eski durumuna döner.

Bundan sonra gelen döngüde mouse tekrar klikleninceye kadar, 'box' komutu ile ekranda 'brush' olarak seçeceğiniz bölgenin etrafına kutular çizilir. Komutu iki kere arka arkaya kullanmamın nedeni resmi bozmamak içindir.

Daha sonra dx ve dy değişkenlerine seçtiğiniz bölgenin genişliği ve yüksekliği kayıt edilir.

Bundan sonra ekran ayarlamaları yapılırken, görüntünün bozulmaması için 'auto view off' komutunu kullandım.

Screen Open l ,DX,DY,32,Lowres Get Palette 0

satırları ile seçtiğiniz brush'ın kopyalanacağı yeni bir ekran açılır.

screen copy komutunda, önce ekranın sol üst köşesi sonra da sağ alt köşesi verileceğinden;

If XS>X Then Swap XS,X If YS>Y Then Swap YS,Y

komutları ile değişkenler sıralanır.

Sonra 'screen clone' ile bu ekranın da bir kopyası alınır. Bundan sonra "auto view on" komutu ile ekranda yapılacak değişikliklerin görünmesi sağlanır. Daha sonra programın ana döngüsü gelir.

Önce bir numaralı ekran öne alınır. Daha sonra

For 1=0 To 201 Step 3 Screen Display 1„I„ Wait 1

döngüsü ile bu ekran yukarıdan aşağıya kaydırılır. Ekran aşağıya inince de 'boom' komutu ile bir patlama sesi verilir.

Bundan sonra aynı olay, 2 numaralı ekran için yapılır.

Döngüden çıkmak için 'mouse' tuşuna basmanız gereklidir.

Şimdi sizlere AMOS MANUAL'dan uyarlanmış iki program daha vereceğim. Fakat açıklamalarını gelecek ay yapacağım. Bu arada sizler de bunların nasıl çalıştıklarını bulmaya çalışın. Gelecek aya kadar hepinize iyi eğlenceler...

Rem ******************* ***************** Rem* AMOS demo 10.1 * Rem * AMOS MANUAL dan uyarlanmistir * Rem * HAM Demo * Rem* (c) Mandarin/Jawx 1990 *

IP Aryj 'I* 5f* ^K 5fC 5|C 3fC 3fC 3fC 5|< 3fC 3fC 3fC 5yC 9fC 3fC 3fC 3fC 5|C 3|C 3|C 3fC 3fC 3fC 3fC 3|C 5fC 3fC 3|C 3fC 9fC 3fC 3{C 3|e 5(C 3fC 5(Ç Rem Screen Open 0,320,290,4096,Lowres Screen Display 0,129,30,320,270 Curs Off: Cls 0 : Flash Off Locate 0,2 : Pen 15 : Paper 0 Centre "AMOS-HAM" ForB=0To 15 Colour B,B : Ink B : Bar 32,B* 15+32 To 288,B* 15+47 ForR=0To 15 For L1 =32 To 47:Ink 32+R :Plot R* 16+33,B* 15+L1 :Next L1 ForG=0To 15 Ink48+G : Draw R*16+G+34,B* 15+32 To R*16+G+34, B* 15+47 NextG NextR NextB

Rem *********************************** Rem * AMOS Example 10.2 * Rem * AMOS MANUAL dan u\ arlanmistir * Rem * (c) Mandarin /Jawx 1990 * Rem *********************************** Rem Screen Open 0,960,100,8,Lowres Screen Display 0,130,150,320,100 Palette 0,S111,$222,$333,$444,$555,$666,$777 Flash Off Set Rainbow 0,1,64,"(8,2,8)",'"*,"" Rainbow 0,1,150,100 LAND[640,0,50] Screen Copy 0,0,0,319,100 To 0,639,0 Do For 1=0 To 159 Screen Offset 0,1*4,0 : Wait Vol Next I Loop Procedure LAND[W,X,N] Ink 1 : Bar X,0 To W+X,99 Foe T=0 To N

TX=Rnd(W)+X : TW=Rnd(W/8)+4 : TH=Rnd(50) Polygon TX,99 To TX+TW/2,99-TH To TX+TW,99 Next T End Proc