Sayfa 26

MaxNScr - 41;

type ScrArr — array (1..MaxNScr| of p. scre- en;

var win : p window; scr : p screen; Pack : SecrArr; i,Jak : integer;

begin win :— Open Window (20,20,200,10,-

Hayat ne kadar güzel değil mi? İlk işimiz intuition kullanacağımızı belirtmek. Bu library, Kick Pascal'da tanımlandığı için kolayca USES yardımı ile sisteme bağlayabiliyoruz. Bu library, gerekli tüm include dosyalarını da otomatikman bağlayacaktır. Ekranları bir dizi kullanarak sıralamak istiyoruz. Belki lazım olur diye bunu tip olarak tanımlıyoruz. ARRAY ifadesinde kullandığımız sabit ile, kaç ekran düzenleyebileceğimizi belirtiyoruz (Geleneklerimize bağlı kalarak 41 tavanını kullandık.). Daha sonra da birkaç değişken

$0103,0,0, SCREEN ser :— win4, Wscreen; Repeat if i >> then Halt(5); packli| :— ser; ser :— SerA.NextScreen; Until ser — nil; Forj:—1toido begin ser :— MoveScreen(scr,0,k-scrA.topedge); ScreenToFront(scr); k:— k4*ScrA Barheight-4-3; if k >200 then k :— 0;

yoruz. Hatırlayın ekranların özelliklerine erişebilmek için ilk olarak onlara ait bir pointer bulmamız şart. İlk olarak bu sorunu hallediyoruz. Bir pencere açıyoruz. Window tanımında Workbench ekranının adresi yer alır (WSCREEN). Bu sayede bir ekrana el atmış oluruz. Gerisi son derece kolay. İlk iş NextScreen'ler yardımı ile tüm ekranları bir dolaşmak. Ekranların bittiğini Next Screen'in Nil olması ile, Nil'i sezene dek devam edecektir. Döngü içinde tüm ekran başlangıç adreslerini bir dizide topluyoruz. Hani olmaz ama, 41'den fazla ekran vardır diye de kontrol ediyoruz. Şayet böyle bir durum varsa, Halt(5) ile program hemen DOS'a geri dönecek ve 5 hata kodunu verecektir. Döngünün sonunda i değeri toplam ekran sayısını ve PACK dizisi de bu sayıda pointer'ı barındıracaktır. Şimdi bir döngü ile bu ekranları sıra ile ekrana yazalım. Ekranı hareket ettirebilmek için MoveScreen Library komutunu kullanıyoruz. Bu komut, belirtilen ekranı x (sözde) ve y düzlemlerinde kaydırabiliyor. Kaydırma için ise, kayma miktarı değeri girilmeli. Sorun ekran tepelerinin aynı kalınlıkta olmasının gerekmemesi. Bu yüzden k değişkeni ile o an yazılacak olan ekranın y koordinatını belirliyoruz. Bu = eski k değeri + ekran tepe kalınlığı + birkaç pixel (Anlaşılırlık için). Ancak Move Screen'de fark belirtmek gerekiyor. Bu amaçla ilk olarak ekranın o anki konumu bulunuyor ve gitmesi gereken yerle arasındaki fark alınıyor. Ekran kaydıktan sonra bu ekran ScreenToFront Intuition emri ile en öne çıkarılıyor. Bu şekilde tüm ekranlar üst üste yazılıyorlar. k değerinin 200'ü aşması durumunda değer tekrar sıfırlanıyor ki, ekranlar aşağıda kaybolacaklarına öbürlerinin üzerine çıksınlar. İşte bu kadar. Tabii programı çok geliştirmek mümkün: Mesela kolayca bir ekran çalıcı yapılabilir veya ekranların özellikleri sıralanabilir. Tüm bunlar, sizin hayal gücünüze bağlı olarak gelişecektir. Bu adımları atarak, bilgisayar programlamanın aslında o kadar öcü bir şey olmadığını basit adımlarla son derece iyi programlar yapılabileceğini anlamanız, beni son derece sevindirecek. Herkese bol güneşli ve keyifli bir yaz tatili dileyeyim (Tatil diye tembellik etmeyin bakalım).