Evet arkadaşlar bu dersimizde grafiksel programlamaya geçicez.Grafiksel programlama yapacağımız zaman ilk önce ekran boyutunu ve grafik programlamaya başlayacağımızı belirtiriz, bunu da “Graphics en,boy” komutu ile yaparız.Örneğin; “Graphics 800,600”.Ardından pencere özelliğimizi çift tampon yapıyoruz.Bunu da “SetBuffer BackBuffer()” kodoyla yapıyoruz. Şimdiden bu çift tamponda neyin nesi dediğinizi tahmin edebiliyorum :D .Şimdi bu çift tamponu bir açıklayayım.
Çift tampon bize görüntümüzü daha akıcı göstermemizi sağlar.Eğer bu çift tampon özelliğini kullanmazsak görüntümüz istediğimiz gibi akıcı olmaz. Sanırım bu dediğimi vereceğim tamponlu ve tamponsus örnekle daha iyi anlayacağınızdan eminim.Bu 2 örneği uygulayarak aradaki farkı görebilirsiniz.

;tamponsuz örnek

Graphics 640,480 ;ekran boyutunu ayarladık,aynı zamanda ekrana bişeyler çizeceğimizi belirttik

kutu1_x = -20 ;kutumuzun ilk başlayacağı koordinatı belirledik
kutu1_y = 240 ; kutumuzun ulaşacağı(gideceği) son koordinatı belirledik

While Not KeyHit(1) ;ESC tuşuna basılıncaya kadar döngünün devam etmesini belirttik

Cls ;her döngü tekrarında ekranın temizlenmesini sağladık
Color 255, 255, 255 ;kutumuzun rengini belirledik(beyaz)
Rect kutu1_x,kutu1_y,20,20,1 ;kutumuzun enini ve boyunu 20 yaptık; kutu1_x ve kutu_y koordinatlarında çizdik..

kutu1_x = kutu1_x + 1 ;kutumuzun her döngüde yatay koordinatının 1 artmasını sağladık

If kutu1_x = 640 Then kutu1_x=-20 ;kutumuzun yatay koordinatı 640’a eşit olduğu zaman,tekrar -20 koordinatına geçmesini sağladık
Flip ;ekran görüntüsünü sürekli yansıtmasını sağladık

Wend ;döngümüzü bitirdik
EndGraphics ;yaptığımız grafik çalışmasını bitirdiğimizi belirttik
End ;programımızı sonlandırdık




;tamponlu örnek

Tamponlu örnek için yukarıdaki Graphics 640,480’in altına SetBuffer BackBuffer() kodunu ekleyin,çalıştırın ve aradaki farkı görün :D.




İleriki dersimizde ekrana nasıl şekil(kare,daire,üçgen gibi) çizeceğimizi görecez.Aynı zamanda bu çizdiğimiz şekillere, yön tuşlarıyla nasıl haraket ettireceğimizi de öğrenicez.Hepinize saygılar….

MUSTAFA BAYRAKTAR