Sayfa 44

Şimdi de öğrendiğimiz tüm komutları bir örnekte toplayalım.

RENK=2

Colour 1,0 Z=$0 Curs Off: Flash Off Do K$=lnkey$ If Mouse Key=l While Mouse Key=l KOOR Plot X,Y Wend Endlf If Mouse Key=2 KOOR Paint X,Y,0 End If If K$="d"

Locaıe 0,4 : Input "renk*';D5 Ink D5 D5=RENK End If IfK$=V Gr Writine 0 Locate 0,0 : Input "REDISTER";T Repeat Cl=Colour(T) V=0 : W=0 : Q=0 Locate 0,1 : Print 'renk=";Hex$(Cl,3)

K$=Inkey$

If K$=”7” v=v+ı

End If IfK$="4M V=V-1 End If IfK$="8" W=W+$10 End If IfK$="5" W=W-$10 End If IfK$="9" Q=Q+$ 100 End If If K$="6" Q=Q-$100 End If K1=Q+V+W C2=C1+K1 Colour T,C2 Until Mouse Key End If IfK$=T Repeat Until Mouse Key Gr Writing 2

KOOR X1=X:Y1=Y While Mouse Key=l DrawX1,Y1ToX,Y KOOR DrawX1,Y1ToX,Y Wend Gr Writing 0 DrawX1,Y1ToX,Y Endlf If K$="b" Repeat Until Mouse Key Gr Writing 2 KOOR X1=X:Y1=Y While Mouse Key=l BoxX1,Y1loX,Y KOOR BoxX1,Y1ToX,Y Wend Gr Writing 0 BoxX1,Y1ToX,Y Endlf If K$="s" Repeat Until Mouse Key Gr Writing 2

KOÖR X1=X:Y1=Y While Mouse Key=l BoxX1,Y1ToX,Y KOOR BoxXI,Y1ToX,Y Wend Gr Writing 1 Ink 1 BarX1,Y1ToX,Y Ink RENK Endlf IfKS^'c" Repeat Until Mouse Key KOOR H=l Gr Writing 3 X1=X:Y1=Y While Mouse Key=l IfH=0 H=l Endlf CircleX1,Y1,(H) CircleX1,Y1,(H) KOOR H=Sqr((X 1 -X)

A2+(Y 1 - Y)

A2) Wend

Gr Writing 0 CircleX1,Y1,(H) Endlf If K$="t" KOOR F1=0 Repeat K$=Inkey$ If K$ <> TextX+Fl,Y,K$ Fl=Fl+8 Endlf If K$=Chr$(13) TextX+Fl-8,Y, " " F1=0 Y=Y+8 Endlf If K$=Chr$(8) Text X+Fl-16,Y," " F1=F1-16 Endlf Until Mouse Key Endlf Loop Procedure KOOR Shared X,Y X=X Screen(X Mouse) : Y=Y Screen(Y Mouse) End Proc

Bu örneği çalıştırdığınızda, sol mouse tuşuna basarak nokta nokta çizim yapabilir ve sağ mouse tuşu ile kapalı şekilleri boyayabilirsiniz. ‘b’ tuşuna basıldığında, BOX moduna geçer. Sol mouse tuşunu basılı tutarak dikdörtgen büyüklüğünü ayarlayabilirsiniz. Kullanılabilecek diğer tuşlar da şunlar: ‘c’ çember çizmek için; T, düzgün çizgi; 'r’ register'ların renklerini değiştirmek için; ‘s’ yapılan resmin bir bölümünü silmek için:

‘d’ çizim register'ını değiştirmek için; 't' ekranın mouse işaretçisinin bulunduğu yere yazı yazmak için kullanılır. Çember, çizgi ve silme işlemlerinde sol mouse düğmesini devamlı basılı tutarak şeklin büyüklüğünü belirlemelisiniz. Yazı yazarken 'return’ ve 'back space' tuşlarını kullanabilirsiniz, diğer özel tuşlar ekranda küçük bir kare olarak çıkacaktır. Bu moddan çıkmak için sol mouse tuşuna basmak yeterlidir. Renk register'larını değiştirirken sıra ile 7,4 kırmızı; 8,5 yeşil; 9,6 mavi rengi artırmak ve azaltmak için kullanılmalıdır.

Bu örnek, çizim programlarının nasıl yapıldığını göstermek için ideal. Fazla karmaşık değil. Eğer grafik komutlarını ve daha önce anlattığımız komutları iyice anladıysanız, bu örneği kolayca çözebilirsiniz ve kendi komutlarınızı ekleyebilirsiniz.

Gelecek aya kadar iyi çalışmalar.