Amiga Dunyasi - Sayi 02 (Temmuz 1990).pdf - Retro Dergi

[A] BASIC tamsayılar için P ile Z arasında
bir harf ile başlayan değişken
isimlerini kabul edecektir.
[B] 2500 eleman boyutunda bir dizi yaratır.
[C] Çıktı penceresini siler.
[D] (0,0) ve (120,120) noktaları ile tanımlanmış
bir dikdörtgen çizer ve
içini doldurur.
[El ASPECT değişkenine 0.1 değerini
yerleştirir.
[F] ASPECT 20 olduğu sürece aşağıdaki
işlemleri yapar.
[G] Merkezi (60, 60), yarıçapı 55, rengi
0 (mavi) ve elips parametresi =
ASPECT olan bir elips çizer.
[H] ASPECT değerini artırır.
[I] ASPECT = 20 olduğunda döngüden
çıkar.
[J] Pencerenin bu kısmının içeriğini P
dizisine kopyalar.
[K] Mouse durumunu kontrol eden
CheckMouse adlı bir rutin başlar.
[Ll Mouse'un seçim düğmesine basılana
kadar bekler.
[M] Mouse X yönünde en az 3 nokta hareket
etmişse, program MovePicture'a
dallanır.
[N] Mouse Y yönünde en az 4 nokta hareket
etmişse, program CheckMouse'a
dallanır.
[O] MovePicture adlı rutini başlatır ve
P dizisine saklanmış resmi hareket
ettirir.
[Pl Resmi eski yerleşiminden siler.
[Q] Mouse'un yeni koordinatlarını X ve
Y'ye yerleştirir.
[R] Resmi yeni X ve Y yerleşimine P dizisine
kopyalar.
[S] CheckMouse rutinine geri döner.
PROGRAMA YENİ BİR SATIR
EKLEMEK:
Programa satırları arasına, ekrana
ikinci bir elips çizdiren komut ekleyelim.
Bu elipsin merkezi 200,60 ve yapıçapı yine
55 olsun. İkinci elips resminin mavi
değil de portakal rengi çizilmesini sağlayalım.
Yeni satırı, ilk elips çizdirme satın olan
KUTUl'deki [G] satırı altına yazacağız.
Bunun için önce CIRCLE komutunun
bulunduğu satırın sonuna kursor'u yerleştirerek
RETURN tuşuna basalım. Bu
işlem, satırın altında boş bir satır açacak
ve kursor'u buraya yerleştirecektir. Şimdi
bu satıra yeni komutumuzu girebiliriz:
• CIRCLE (200,60), 55,3,„ASPECT
Bu komutu girdikten sonra programı
çalıştırırsanız, eklediğiniz komutun yarattığı
değişikliği göreceksiniz.
BİR PROGRAM SATIRINI
DEĞİŞTİRME:
KUTUl'de [J] harfi ile etiketlenmiş
GET yönergisini ilave ettiğimiz satırla
bağlantılı olarak değiştirelim. Komut satırının
tamamını seçelim ve Edit menüden
"Cut" komutunu seçerek satırı silelim.
Bu işlemi yaptığımızda satırdaki
komut silinir, ancak ilgili satır boş kalır.
Bu boş satıra yönergeyi yeni şekliyle girelim:
GET (0,0)—(327,127),P
Bu yeni GET yönergesi ile mouse kliklendiğinde
hareket edecek alan arttırılmış
olur.
Şimdi de 2500 elemanlık P dizisini
6000'e çıkartalım. Kursor'u boyutun tanımlandığı
[B] satırındaki 2500 sayısına
yerleştirdikten sonra istediğiniz şekilde silerek
yerine 6000 yazın. Artık iki şekil
mouse'u kliklediğinizde ya da çektiğinizde
birlikte hareket edeceklerdir.
RENK DEĞİŞTİRMEK:
Biliyorsunuz programın çizdiği ilk
elips mavi zemin üzerine beyaz bir dikdörtgen
çizildikten sonra, buraya beyaz
olarak yerleştiriliyordu. Gelin bunu ters
çevirelim:
önce kursor'u LINE yönergesindeki
BF'nin sonuna yerleştirerek F harfini silelim.
ilk elipsi çizen CIRCLE komutunda
[G] 0 olarak verilen renk numarasını 1
olarak değiştirelim.
Şimdi programı çalıştırdığınızda yeni
program sonucunu göreceksiniz.
PROGRAMIN KAYDEDİLMESİ:
Programda yapacağımız değişiklikler
bu kadar. Artık programı yeni şekliyle
disketinize kaydetmelisiniz. Diskete kayıt
için kullanılacak iki seçenek var: Her
ikisi de Project menü altında bulunan Save
ve Save As seçenekleri. Save programı
yüklendiği isimle ve onun üzerine kaydeder.
Yani eski program kaybolur,
onun yerine yeni program yerleşir. Save
As seçeneği ise, yeni bir isimle programı
kaydetmek için kullanılır. Orjinal programa
zarar vermemek için, siz de Save
As seçeneğini kullanarak programınızı
yeni bir isimle kaydetmelisiniz.
Bunun için:
Project menüden "Save As" kalemini
seçin. Ekrana program ismini gireceğiniz
bir istek penceresi gelir. Pencerenin
isim girilecek bölümünde programın orjinal
ismi yazılıdır.
isim kutusunu klikleyerek kursor'u
yerleştirin ve ismin sonuna 1 ekleyin. Yeni
program isminiz Basicdemos/picture
1 olacaktır.
RETURN tuşuna basarak ya da OK
kutusunu klikleyerek programın diskete
kaydedilmesini sağlayın.
AMIGA BASK
Amiga BASIC başlık çubuğunda sıralanan
4 menü başlığı vardır: Project,
Edit, Run, Windows, Menü seçeneklerinin
klavye karşılıkları varsa komutun yanında
belirtilmiştir. Şimdi bu menü seçeneklerinin
ne işe yaradığını kısaca açıklayalım:
PROJECT MENÜ:
Program dosyaları ile ilgili işlemlerde
kullanılan 5 seçeneğe sahiptir.
NEW: Amiga BASIC'e yeni bir program
girişine hazır olmasını bildirir. O anda
mevcut program listesini ekrandan ve
bellekten siler. Çıktı penceresinden doğrudan
modda yazılan NEW komutu ile
aynıdır.
ÖPEN: Diskette mevcut bir programı
çağırmak için kullanılır.
SA VE: Programı o anki ismiyle diskete
kaydeder.
S A VE AS: SAVE ile aynı işleve sahiptir.
Sadece program ismini değiştirmenize
olanak sağlar.
QUIT: Amiga BASIC'e Workbench'e
dönmesini bildirir. Çıktı penceresinden
doğrudan modda yazılan SYSTEM komutu
ile aynı işleve sahiptir.
EDİT MENÜ:
Edit menü program girişi ve editlemede
kullanılacak 3 seçeneğe sahiptir. Bu
seçenekler sadece liste penceresinde kullanılırlar.
CUT: Seçilen yazı parçasını liste penceresinden
siler ve clipboard'a yerleştirir.
Aynı işlem klavyeden Amiga-X tuşları ile
yapılabilir.
COPY: Seçilen yazı parçasını liste penceresinden
silmeksizin clipboard'a yerleştirir.
Aynı işlem klavyeden Amiga-C tuşları
ile yapılabilir.
PASTE: Clipboard'un içeriğindekiler
ile o anda seçili olan kısmı değiştirir. Seçili
bir şey yoksa, clipboard'un içindekiler
kursor'un sağından itibaren yazının
arasına sokulur. Aynı işlem klavyeden
Amiga-P tuşları ile yapılabilir.
RUN MENÜ:
Programın çalışmasının kontrolunda
kullanılan 6 komuta sahiptir.
START: Bellek ve ekranda yüklü bulunan
programı çalıştırır. Çıktı penceresinde
doğrudan modda RUN Yazmak
veya Amiga-R tuşlarına basmak da aynı
işi yapar.
AMIGA DÜNYASI 29