Sayfa 78

Eğer arkadaşlarınızın adreslerini ve telefon numaralarını saklayabileceğiniz kullanışlı bir database programına sahip olmak hoşunuza gidecekse hiç düşünmeden bilgisayarınızın karşısına geçip bu programı yazmaya başlamalısınız. Yaklaşık 9K'lık bir program olan AMIGA-DATABASE, AMIGA BASIC kullanılarak yazılmıştır. Programı çalıştırmak için önce AMIGA BASIC’i yükleyin ve liste penceresinden programı aynı şekilde yazın ve diskete kaydedin. Satır sonlarındaki semboller RETURN tuşuna basılacağını belirtmektedir. Programı yazarken dikkat edeceğiniz nokta sadece RETURN işareti olan yerlerde satırları bitirmeniz gerektiğidir. Yani RETURN işareti ile sonlanmamış bir satır, altta devam ediyor demektir. Siz de satıra ara vermeden RETURN tuşuna kadar olan tüm satırı yanyana ve ara vermeden yazmalısınız.

AMIGA-DATABASE'in kullanımı oldukça basit. Programı çalıştırdığınızda ekranda üç ayrı pencere açılıyor. Üst kısımdaki büyük pencere, kayıtların gösterildiği database penceresi. Onun altında veri girişinin yapıldığı başka bir pencere yer alıyor. Sağ alt köşedeki minik pencerede ise o an database penceresinde bulunan kaydın numarası gösteriliyor.

Programı çalıştırır çalıştırmaz kayıtları girmeye başlayabilirsiniz. Burada küçük harflerle yazdığınız isim, soyadı, adres vb. kayıtların ilk harfleri database ekranında büyük harf olarak değiştiriliyor. Ülke isimlerinin harfleri ise tamamen büyük harflere dönüştürülüyor. Kayıtları yazdıktan sonra satır numarasını yazarak istediğiniz kayıt üzerinde düzeltmeler de yapabilirsiniz. Bundan sonra, girdiğiniz kayıt diskete kaydediliyor.

Ana menüde fonksiyon tuşları veya mouse ile seçebildiğiniz beş ayrı seçenek var. Bunlar KAYIT GİRİŞİ (F1), KAYIT ARAMA (F2), KAYIT LİSTESİ (F3), KAYIT BASIMI (F4) ve PROGRAMDAN ÇIKIŞ (F5) olarak düzenlenmiş. Kayıt girmeye devam edecekseniz F1'i seçin. Beş ayrı kayıt girdikten sonra program, bunları alfabetik sıraya göre yeniden düzenleyecektir. Eğer F3'e basarak kayıtların listesine baktığınızda bunu kendiniz de görebilirsiniz.

F2 ile kayıt aramak isterseniz önce isim veya kayıt numarası soruluyor. Kayıt numarasını biliyorsanız bu numarayla hemen o kaydı ekrana getirebilirsiniz. Eğer isim yazarsanız ayrıca bir de soyadı girmeniz gerekli. Aradığınız kaydı bulduktan sonra ekranda çıkan altı değişik seçenekle kayıt üzerinde değişiklik yapabilir, kaydı silebilir, önceki veya sonraki kayda geçebilir, kaydı yazıcıya bastırabilir veya ana menüye geri dönebilirsiniz.

Program etiketler üzerine çıkış almanızı da sağlıyor. F4 seçeneğiyle tüm veya sizin belirteceğiniz harfler arasında kalan kayıtların çıkışını etiketler üzerine alabilirsiniz.

AMIGA-DATABASE'de 300 ayrı kayıt saklanabiliyor fakat prog- ramın ikinci satırındaki dosya değişkenini istediğiniz kayıt adedine uygun olarak ayarlayabilirsiniz. Ayrıca, kayıt satırlarının uzunluk- ları da program sonundaki DA TA satırlarından değiştirebilir. An- cak bu değişiklikten sonra daha önce, başka formatta kaydettiği- niz kayıtlarınızı kullanamazsınız. Bol programlı günler. DEFINT d-m,r,w-z: DEFSTR a-c,n,o,s,t <— dosya=300 : chrn=CHR$(248) : chrd=CHR$(208) <— OPTION BASE 1:DIM SHARED recno(dosya),sl(dosya),s2(dosya) <— DIM SHARED typestat(7),fs(7),s(7),stat(7),boxl(468),box2(930)

watch(86) <— SCREEN 1,640,200,3,2 <— , WINDOW 2, "DATABASE”,(0,0)-(617,144),7,1 <— WINDOW 4,"KAYIT#“(550,133)-(617,141),2,1 <— WIND0W 3,,(0,158)-(617,186),7,1 <—

PALETTE 0,.6,.9,.9:PALETTE 1,0,.5,.5 <— PALETTE 2,0,0,0:PALETTE 3,1,1,1 <— PALETTE 4,1,.8,.7:PALETTE 5,.8,.8,1 <— PALETTE 6,1,.8,.8:PALETTE 7,.9,0,0 <— LINE(32,5)-(108,18),7,b:PAINT(42,10),4,7:GET (32,5)-(108,18),boxl:CLS <— LINE(32,5)-(92,24),7,b:PAINT(42,10),4,7:GET (32,5)-(92,24),box2:CLS <— CIRCLE (40,12),12,2:PAINT (40,12),3,2 <—

LINE (40,12)-(39,9),2,b:LINE (40,12)-(45,12),2:GET (28,7)-(52,17),watch <—