Amiga Dunyasi - Sayi 21 (Subat 1992).pdf - Retro Dergi

Merhaba arkadaşlar. Bu ayki yazımızda geçen ayki programa
bir user interface hazırlamaya başlıyoruz. İlk olarak aşağıdaki
programı bir inceleyelim:
Rem *************** ***************
Rem ** AMIGA DÜNYASI **
Rem ** AMOS Demo Program **
Rem ** Written by **
Rem ** Burak Ozdemir . **
Rem** AMOS Copyright 1990 **
Rem ** Mandarin/Jawx **
Rem ** **
Rem *************** ***************
Reserve Zone 64
Ink 0
For 1=0 To 7
For F=0 To 7
Set Zone I+8*F+1,I*20,F*20 To(I+l)*20,(F+l)*20
Box I*20,F*20To(I+l)*20,(F+l)*20
Next F
Next I
Do
Flash Off
Curs Off
T=Zone(X Screen(X Mouse),Y Screen(Y Mouse))
R=Int((T-l)/8)
C=T-8*R-1
If(Mouse Key>0 and T0) Then SETPIX
If(Mouse Key>0 and T=0) Then Exit
Locate 0,22
Print "Zone ";T;" Row , ";R;" Column ";C; " "
Loop
Procedure SETPIX
If Mouse Key=l Then Ink 2
If Mouse Key=2 Then Ink 1
X=X Screen(X Mouse)
Y=Y Screen(Y Mouse)
Paint X,Y,0
End Proc
Bu program ekrana 8X8'lik bir grid (ağ) açar ve mouse yardımıyla
burada şekil çizmenizi sağlar. Bu program aynı zamanda
ZONE komutlarının kullanımına ilişkin iyi bir örnektir. Bu komutu
oyun programlarında da kullanabilirsiniz.
Şimdi bu programda bazı değişiklikler yapalım ve elde ettiğimiz
programı, geçen ay verdiğimiz programındaki
INP_SAMPLE[S] prosedürünün yerine yazalım. Böylece prosedür
aşağıdaki gibi olacaktır:
Procedure INP_SAMPLE[S]
Cls
Locate 0,22
Print "Örnek verilerini gir "
Reserve Zone 64
Ink 0
For 1=0 To 7
For F=0 To 7
Set Zone I+8*F+1,I*20,F*20 To(I+l)*20,(F+l)*20
Box I*20,F*20To(I+l)*20,(F+l)*20
Next F
Next I
Do
Flash Off
Curs Off
T=Zone(X Screen(X Mouse),Y Screen(Y Mouse))
R=Int((T-l)/8)
C=T-8*R-1
If(Mouse Key>0 and T0) Then SETPIX[S,R,C]
If(Mouse Key>0 and T=0) Then Exit
Loop
End Proc
Rem
Rem
Procedure SETPIX[S,R,C]
If Mouse Key=l
Ink 2
SMPLR(S,R*CLMNS+C)= 1
End If
If Mouse Key=2
Ink 1
SMPLR(S,R*CLMNS+C)=0
End If
X=X Screen(X Mouse)
Y=Y Screen(Y Mouse)
Paint X,Y,0
End Proc
Aynı programda bazı değişiklikler yaparak programın, karakterleri
ekrana bastığı bölümü de değiştirebiliriz. Programın bir
öncekinden iki ana farkı vardır. İlk olarak program hiçbir zaman
mouse'u okumaz. Onun yerine prosedürden çıkmak için bir tuşa
basmanızı bekler. Diğer bir fark da rutinin veri kaynağıdır.
Şimdi programdaki SHW_SMPLR|S] prosedürünü silin ve
onun yerine aşağıdaki satırları yazın:
Procedure SHW_SMPLR[S]
Cls
Locate 0,22
Print "Örnek ",S+1
Ink 0
For 1=0 To 7
For F=0 To 7
Set Zone I+8*F+1 ,I*20,F*20 To(I+1 )*20,(F+1 )*20
Box I*20,F*20To(I+l)*20,(F+l)*20
Next F
Next I
Rem
For R=0 To 7
For C=0 To 7
PRTPIX[S,R,C]
Next C
Next R
Wait Key
End Proc
Rem
Rem
Procedure PRTPIX[S,R,C]
If SMPLR(S,R*CLMNS+C)=1 Then Ink 2
IfSMPLR(S,R*CLMNS+C)=0 ThenInk 1
X=C*20+10
Y=R*20+10
Paint X,Y,0
End Proc
Böylece program çok daha kolay kullanılabilir hale geldi. Geriye
bir tek programın kontrol bölümü kaldı. Onu da gelecek ay
değiştireceğiz. Ama merak ediyorsanız söyleyeyim, şimdikine
benzer bir teknik kullanacağız.
Şimdilik hoşçakalın...