Sayfa 72

Block halinde kullılan IF - THEN - ELSE grubunun avantajı şudur : Tek satır yerine bir çok satıra yayılabilirler. Örnek mi istersiniz 2

10 IF A$ - "SHİT MEDAL" THEN 20 YEAH" 30 ELSE 40 PRINT" DA YA WANNA TO TRYAGAIN ? " 50 END IF

Evet sizi duyar gibi oluyorum. Haydaa, bu END IF de nerden çıktı diyorsunuz. Oldukça basit. END IF, IF ile başlatılan bloğu (10. satır) sona erdirir. Yani program şart doğru ya da yanlış olsun, belirtilen komutu yerine getirdikten sonra END IF komutuna atlar. Tabii bir kaç Block halinde IF - THEN - ELSE - ENDIF komutunu da kullanabilirsiniz. Örnek #2: INPUT a,b THEN PRINT"aveb- ii" ELSE PRINT."as1,be>1" END IF ELSE IF a >0 THEN IF b>0 THEN PRINT" Both a and b>0" PRINT "a > 0" ELSE PRINT"a<- 0" END IF Şimdi bu örneğimizi satır satır açıklayalım. Satır # 1: A ve B değişkenlerine INPUT komutu yardımıyla kullanıcının değer atamasını bekliyor-

TUZ. Satır #2: A değişkeninin 1'e eşit olup olmadığı kontrol ediliyor. Satır # 3: B değişkeninin 1'e eşit olup olmadığı kontrol ediliyor. Satır # 4: Eğer her iki değişken de 1 ise a=1, b=1 mesajı basılıyor ve satır atlanıyor. Satır # 5: Else komutu ikinci koşulun başlangıcını belirtiyor. sajı basılıyor. Satır # 7: Eğer a 1 değilse o zaman a değişkeninin pozitif olup olmadığı kontrol ediliyor.

Satır # 8 : Eğer a pozitifse b de-

değişkeninin pozitif olup olmadığı

kontrol ediliyor. Satır # 9: Sadece a pozitifse mesaj veriliyor. Satır # 10: Son koşul. Satır # 11: Eğer ne 1 ne de pozitifse a zaman a negatif mesajı verilerek programcık sona eriyor. Bu program parçasında iki IF-THEN-ELSE-ENDIF bloğu var. Birincisi 2. satır ve 7-11 arası satırlarda, ikincisi 3-6 arası satırlarda yer alıyor. Umarım size bu komutu anlatmakta başarılı olmuşumdur. Şimdi yeni komutlarımız: BEEP Basitlik bakımından birinciliği kimseye kaptırmayan komuttur. Tek yaptığı bip sesi çıkartıp ekranı flash etmektir. Bu komutu alarm mekanizması olarak kullanabilirsiniz. Grafik komutları

Grafik komutları oldukça çeşitli ve biraz karışık ama inanıyorum ki pratik yaparak zamanla alışacaksınız. CIRCLE komutu Circle komutu daire ya da elips çizmeye yarar ve bir çok parametre gerektirir. Komutun kullanımı şu şekildedir: Circle X,y,r,r2,r3,r4,r5 Buradaki parametrelerin kullanımı şu şekildedir: X: Dairenin merkezinin X koordinatı Y: Dairenin merkezinin Y koordinatı r: Dairenin çapı r2: Hangi renkle çizim yapılacağı. Daha önceden tanımlamış olduğumuz bir renk numarasına göre çizim yapılır. r3 ve r4: Bu parametreler dairenin kaçta kaçının çizileceğini belirler ama bunu anlamak için trigonometrik daire olayını matematik dersinde görmüş olmanız gerekiyor. (Bu vesile ile matematik hocama teşekkür ederim.) Neyse, trigonometrik dairede radyan cinsinden açılarla sinus-kosinus-tanjant bulmasını biliyoruz. Açıları da radyan cinsinden yazabiliyoruz. Örneğin pi/2 doksan derece, pi 180 derece vs. Burada r3 ve r4 radyan cinsinden verilmesi gereken parametreler. Birincisi dairenin başlangıç açısını gösteren (merkeze göre) radyan, ikincisi de bitiş parametredir r5: Elips ile daire arasındaki seçimi buradan yapıyoruz. Bu seçenek bize x/y oranları arasındaki farkı belirlememizi sağlıyor. Bu olay çok karışık, iyisi mi siz vereceğim örneklere bakın. Bu arada şunu da söylemek istiyorum: x,y ve r dışındaki parametreler isteğe göre verilmeyebilir. Circle 150, 100, 70 150, 100 koordinatlarını merkez alan 70 pixel çapında bir daire çizer. Circle 150, 100, 70, 2