Amiga Dunyasi - Sayi 14 (Temmuz 1991).pdf - Retro Dergi

Input "isim sayisi=";N
Dim A$(N)
For I=1 ToN
Print "isim ";I;"=";
Input A$(I)
Next I
Sort A$(0)
For 1=1 To N
Print A$(I)
Next I
KOMUT: Match
KULLANILIŞI:
r=match(a(0),b)
r=match(a#(0),b#)
r=match(a$(0),b$)
Aşağıda bu komutla ilgili bir örnek
program yazdım. Bu program yazı ile, sıfırdan
999999'a kadar olan sayıları kelimelerine
ayırıyor ve bu kelimelerle eş anlamlı
sayılar yazıyor. Örneğin 'on dokuz
bin yedi yüz otuz altı* yazınca, bunu '10 9
KKK) 7 100 30 6' olarak çeviriyor. Programa
birkaç rutin daha ekleyerek bu sayı dizilerini
gerçek rakamlara da dönüştürmek
mümkün.
Rem**
AMIGA DÜNYASI
Rem** written by Burak Ozdemir **
Rem** AMOS copyright 1990 **
Rem**
Mandarin/Jawx
Dim R$(2l)
Dim Q(21)
For I=1 To 21
Read R$(I)
Next I
For 1=1 To 21
Read Q(I)
Next I
Input "sayi=";S$
S$=S$+""
Rem
Rem kac kelime
Rem
K=0
For I=1 To Len(S$)
If Mid$(S$,l,l)=" "Then K=K+1
Next I
Print "kelime savisi=";K
Dim K$(K)
Dim W(K)
N=l
For 1=I To K
F=lnstr(S$," ",N)
K$(I)=Mid$(S$,N,F-N)
N=F+1
Next I
Print "kelimeler="
For I=1 ToK
Print KS(I)
Next I
For I=1 To K
R=Match(R$(0),K$(I))
W(I)=Q(R)
Print W(I)
Next I
Print "rakamlar"
For I=1 ToK
Print W(I)
Next I
Data "alti"."altmiş", "bes","bin","bir"
Data "doksan","dokuz","dört"."elli","iki"
Data "kirk","on","otuz","sekiz". "seksen"
Data "sifir'', "uc","yedi","yetmiş"
Data "yirmi","yuz"
Data 6,60,5,1000,1,90,9,4,50,2,40,10,-
30,8,80
Data 0,3,7,70,20,100
Sıra geldi okuyucu köşemize. Bu ayki
şanslı okuyucumuz Biga/Çanakkale'den
sayın Dr. Ali Hatay. Bu okuyucumuzdan
sürekli mektup almamıza rağmen ancak
cavap verme imkanı bulabildik. Bunun sebebi
her ay sınırlı sayıda mektuba cevap
verebilmemiz. Şimdi tekrar ilginize teşekkir
edip sorularınızın cevabını veriyorum:
İlk olarak AMOS'da kalın çizgi çizmek
için bir komut olup olmadığını sormuşsunuz.
Bunun için özel bir komu mevcut değil.
Tabi bu kalın çizgilerin çizilemiyeceği
anlamına gelmiyor. Bunu ayrı prosedürler
tanımlayarak kolayca yapabilirsiniz. Gelecek
sayımızda bunlara çeşitli örnekler vereceğim.
Değişkenleri sıfırlayıp oyunu yeniden
başlatmak için, oyunun bittiği yere 'run
program ismi.amos' yazmak yeterli olur.
Bu şekilde program bitmeden evvel kendini
yeniden çalıştırır. Yine bu tekniği kullanarak
başka programlarıda çalıştırmak
mümkündür. Böylece adventure oyunları
gibi çok bellek isteyen programları birkaç
değişik parçada hazırlayabilirsiniz.
Karakter setleri ve komut kısaltmalarını
ise geçen sayımızda yazmıştım.
Sonix ve soundtracker gibi müzik programlarının
modüllerini AMOS"da çalmak
için AMOS disketlerinin içinde iki adet
program mevcut. Bunları kullanarak bu
müzikleri AMOS'da çalabilirsiniz.
Bu ayki yazımızda burada bitiyor sevgili
arkadaşlar. Bir dahaki sayıda buluşmak
üzere hoşçakalın.
AMIGA DÜNYASI 22