Sayfa 25

db » cr « if numelements(db) < 0 then EXIT

text inputstring('ALBÜM ADINI, GRUP ADINI YA DA İNDEKSİ GİRİNİZ!',''

if text then EXIT it objectnumber do forever it « searchitemslit, text) if itz'' then do call inform(text ||' BULUNAMADI.') EXİT end call listscroll(it) tx duzenle(getitemtext (it))

tx tx || cr cr * ARAMAYA DEVAM EDEYİM

tresponse (tx)

then break

değiştiren çerçevenin hangi — citi objeye dit olduğuna özellikle — 9) dikkat etmek gerekiyor. Yazı — exit yazmaya başlamadan önce ena Türkçe fontlardan birini — Şi; mek amacıyla TEXT CONTROL adlı küçük kutucuğun solunda yeralan dikdörtgenin içinde sol tuşa bastık ve yazım kontrolünün yapıldığı pencereyi — «. açtık. en üstün- — de yeralan renkleri kullanarak KIT | 3 parse var tx ADI GRUBU 'da'k INDEX “Da'X UZUNLUĞU yazının yeşil olmasını sağladık — abı - iertiseripladi, ,30) İl ,06) 13 "=

AlbümBul.MACRO: İçindeki bilgilerden biri verilen albümün bulunmasını sağlar.

nput form('Albüm Ekleme',Formukur then EXİT

ve renklerin hemen altındaki — gadget'ların en solundaki yar — dımıyla font seçme menüsüne — girdik. Burada bize sunulan fontların içinde Türkçe font olmadığı için pencerenin alla: — onunu, 1 rında yeralanive içindeküçük — bir disket resmi bulunan gad- sit get'ı seçtik. Bu sayede diskte — Yeni girilmesini sağlar. yeralan fontları kullanabilme imkânımız doğmuştu. Hemen Türkçe bir font olan topazfon- — < - tunun 8 piksel yüksekliğinde olanını seçtik, ve TEXT CONT-

im-z'* theri ctionpiclit,resim)

if argi) 1 then do

lere görevler vermeden önce hepsini tek tek tanımlamamız gerekliydi. İlk olarak taban düğmesinin üzerine gittik (obje değiştirme-ekleme modu

Ba ga tx ADI ';' GRUBU ';' İNDEX ';' UZUNLUĞU düğmenin ortasına değil de SY a tepesine — © gerekiyordu. alla. — | tında yazılan meyi temsil eden boş bir kutu, yanında da açma-kapama düğmesine benzer bir gadget bulunan bir yer bulunuyordu. Bu açma-kapama düğmesi üzerinde sol tuşa bir kez basınca düğme yukarı çıktı ve boş kutunun yanında “5”, “4” ve “” belirdi. * ve - yi kullanarak yazının kutu tepesine olan uzaklığını 1 yaptıktan sonra pencerenin sol-üst köşesindeki dikdörtgeni kullanarak TEXT-CONTROL'ü ilk gördüğümüz şekline çevirdik. Daha sonra da düğmeye “JAZZ Müzikevi CD listesi” başlığını yazdık. Aynı basamakları tekrarlayarak aşağıdaki düğmeciklerin hepsinin işlevlerini de içle-

end

FormuKur(REC).FONKSİYON: Yollanan yazıyı bilgi formunda kullanlacak şekle sokar.

rine yazdık. Bu düğmeler sırasıyla şu İşleri yapmak İçin seçilmişlerdi: 1. Albüm ekleme 2. Albüm değiştirme 3. Albüm arama 4. Albüm silme 5. Liste sıralama 6. Genel işlemler Bu işi de bitirdikten sonra, ekrandaki bütün objelere İsim vermemiş olduğumuzu farkettik. Asıl kontrolü yapacak olan ARexx programlarını yazarken bu isimlere ihtiyaç duyacağımız İçin şimdiden girmeye