Amiga Dunyasi - Sayi 13 (Haziran 1991).pdf - Retro Dergi

AMIGA BASIC
MAHMURE ÜNYELİ
Merhaba.... Bir aylık aradan sonra, yine
birlikteyiz. Okuyucularımızın çoğu, Basic
sayfalarının azlığından ve yeterince hızlı
ilerlemediğinden şikayet ediyorlar. Haklılar.
Biz de bu kadar ağır gitmekten şikayetçiyiz
ama, hem sayfa sorunumuz var;
hem de yeni başlayan Amiga'cıların adapte
olma sorunlarını gözardı edemiyoruz.
Her iki tür okuyucumuzu üzmeyecek şekilde
bir çözüm bulabileceğimizden eminiz.
İlginize teşekkür ediyoruz.
MID$ KOMUTU:
Kullanım Şekli:
MID$ (yazısal dizi$, başlangıç pozisyonu
[,uzunluk])
MİD$ (yazısal dizil$, başlangıç pozisyonu
[,uzunluk])=değiştirilecek yazısal
dizi2$
Bu yönerge, bir yazısal dizinin bir bölümünü
bir diğer yazısal dizi ile değiştirmek
için kullanılır.
Birinci kullanım şeklinde MID$ fonksiyonu,
yazısal dizi$ içindeki karakter dizisinin
başlangıç pozisyonu ile verilen değerden
itibarenki kısmını verir, uzunluk
argümanı kullanılmışsa; bu, MID$ tarafından
alınacak karakter sayısını tanımlar,
uzunluk değeri verilmemişse, belirtilen
başlangıç pozisyonundan sonraki tüm karakterler
dahil edilir.
Örneğin;
MID$("En büyük AMIGA!",10,5)
komutu,
AMIGA
sonucunu üretir.
İkinci kullanım şeklinde, yazısal
dizi1$'ın istenen bölümü verilen yazısal
AMIGA DÜNYASI 54
dizi2$ ile değiştirilir. Değiştirme işlemi,
başlangıç pozisyonundan itibaren yapılır.
uzunluk belirtilmişse, yazısal dizi2$ içinden
kaç karakter alınacağı belirlenmiş
olur.
a$= "En büyük AMIGA!"
MID$(a$, 10)= "kimmiş"
örneği, "AMIGA!" karakterlerini "kimmiş"
ile değiştirir ve;
En büyük kimmiş
karakter dizisini oluşturur.
Her iki kullanım şeklinde de, başlangıç
pozisyonu ve uzunluk değerleri I ile
32767 arasında verilebilir.
MKI$
MKL$
MKS$
MKD$ KOMUTLARI:
Kullanım Şekilleri:
MKT$ (16 bit tamsayı)
MKL$ (32 bit tamsayı)
MKS$ (tek açıklıkta ondalık sayı)
MKD$ (çift açıklıkta ondalık sayı)
Rasgele dosya buffer'ına yerleştirilmek
üzere, yazısal dizi değişkenleri için sayısal
değerler atamayı sağlayan fonksiyonlardır.
CV* komutlarında rasgele
dosya'dan okunan değişkenlerin orijinal
hallerine çevrilmesi gerektiğinden sözetmiştik
hatırlarsanız.
MKI$, 16 bitlik bir kısa tamsayıyı, 2
byte uzunluğunda yazısal diziye;
MKL$, 32 bitlik bir uzun tamsayıyı, 4
byte uzunluğunda yazısal diziye;
MKS$, tek açıklıkta ondalık sayıyı, 4
byte uzunluğunda bir yazısal diziye;
MKD$, çift açıklıkta bir ondalık sayıyı,
8 byte uzunluğunda bir yazısal diziye çevirir.
Sayısal değişkenler, bir rasgele erişimli
dosya içine yerleştirilmeden önce yazısal
dizi değişkenlerine çevrilmelidirler. İşte
bu işlem için yukarıdaki komutlar kullanılır.
Çevrim işleminden sonra, değişkenler
rasgele dosya buffer'ına LSET ya da
RSET komutlarından biri ile yerleştirilir
ve PUT# ile dosyaya yazılır.
Sayısal değişken tipleri, sembolleri ve
kullanılacak MK*$, CU* fonksiyonları
için aşağıdaki tabloyu inceleyin.
Değişken tipi Sembol Uzunluk(byte) Fonksiyon
Tamsayı % 2 MKI$, CVI
Uzun tamsayı & 4 MKL$, CVL
Tek açıklık ! 4 MKS$, CVS
Çift açıklık # 8 MKD$, CVD
Aşağıdaki örnek programı inceleyin:
OPEN "Adresler" AS#1 LEN=78
FIELD #1,20 AS Ad$,30 AS Adr$,20
AS S$,8 AS TEL$
INPUT "Okuma-Yazma (o/y)";x$
INPUT "Hangi kayıt";m
IF rn=0 THEN END
IF x$="o" THEN Kayıt Oku
LINE INPUT "Adı: ";t$: LSET Ad$=t$
LINE INPUT "Adres: ";t$: LSET Adr$=t$
LINE INPUT "Şehir: ";t$: LSET S$=t$
LINE INPUT "Telefon: ";t$:
b#=VAL(t$): LSETTELS: MKD$(b#)
PUT#l,rn
CLOSE#1
RUN
Kayıt Oku:
GET#l,rn
PRINT "Adı: ";Ad$
PRINT "Adres: ";Adr$
PRINT :Şehir: ";S$
PRINT :Tel: ";CVD(TEL$)
CLOSE#l: LINE INPUT "Return'e
Basın:";t$
RUN
Program, adres dosyalarına basit bir örnek.
Önce bir kaydı girebilir; sonra da isterseniz
okuyabilirsiniz.
MOUSE KOMUTU:
Kullanım Şekli:
MOUSE(X)
MOUSE fonksiyonu, mouse'un sol düğmesi
ve mouse hareketlerini kontrol eder
ve bilgi verir.
Parantez içinde verilen X, 0 ile 6 arasında
bir sayı olabilir. MOUSE(0), sol mouse
düğmesinin durumunu gösterir. Programda
bir MOUSE(0) fonksiyonu çalıştığında,
Amiga Basic mouse'un o anki durumunu
not eder. MOUSE(0) aşağıdaki değerleri
alabilir:
MOUSE(0)=0 Sol mouse tuşuna basılı
değildir. Ve sol mouse tuşuna son
MOUSE(0) çalıştırıldığından beri de basılmamıştır.
MOUSE(0)=1 Düğme basılı değildir,
fakat son MOUSE(0) fonksiyonundan
sonra bir kez kliklenmiştir.
MOUSE(0)=2 Sol mouse tuşu o anda
basılı değildir, fakat son MOUSE(0) çalıştığından
beri iki kez kliklenmiştir.
MOUSE(0)=3 Yine mouse tuşu basılı
değildir; ancak fonksiyonun son çağrılışından
sonra üç ya da daha cok kliklenmiştir.
MOUSE(0)=-1 Sol mouse düğmesi bir
kez basılmıştır ve hala basılıdır.
MOUSE(0)=-2 ve -3 Mouse'un sol düğ-