Sayfa 36

A!=86:B!=5:A$="AMIGA" PRINT A!,B!,A$

STOP LET TOPLAM!=A!+B! PRINT TOPLAM! END

COS KOMUTU:

Kullanım Şekli: COS(değer) COS fonksiyonu, verilen değerin kosinüsünü hesaplar, değer, parantez içinde ve radyan olarak verilir. Değeri dereceden radyana çevirmek isterseniz, aşağıdaki formüllerden birini kullanın:

Radyan = (π* Derece)/180 Radyan = 0.0175 * Derece

Bu ifadenin değerlendirilmesi, verilen argüman tek açıklıktaysa tek açıklıkta; çift açıklıktaysa çift açıklıkta olarak yapılır.

Aşağıdaki örnek 1,100 ve 1000 sayılarının kosinüsünü alır: PRINT "1'İN KOSİNÜSÜ: " COS(1) PRINT "100'ÜN KOSİNÜSÜ: " COS(100) PRINT "1000'İN KOSİNÜSÜ:" COS(1000) Sonuç:

1’İN KOSİNÜSÜ: .540323 100'ÜN KOSİNÜSÜ: .8623189 1000'İN KOSİNÜSÜ: .5623189 CSNG KOMUTU: Kullanım Şekli: CSNG(değer) Sayısal değerlerin formatını değiştirmek için kullanılan komutlardan biridir. Verilen değer'i tek açıklıkta reel sayıya çevirir.

Şimdi isterseniz iki sayı için bir örnek yapalım: A#=1350:B#=300000 PRINT A#*B# PRINT CSNG(A#*B#) Sonuç: 405000000 4.05E+08 CSRLIN KOMUTU:

Kullanım Şekli: CSRLIN

CSRLIN, bir sistem değişkenidir. Tıpkı DATE$ VE FRE(0) gibi CSRLIN'e de AmigaBasic tarafından bir değer atanır. CSRLIN değişkeni içindeki bu değer kursor'un o an üzerinde bulunduğu satırın numarasıdır ve ya 1'e eşit ya da birden büyük olur. CSRLIN, kalem pozisyonunun belirlendiği LOCATE yönergesine karşılıktır.

Yazı satırının ölçülendirilmesi, o anki çıktı penceresinin üstünden kalemin bulunduğu yerin uzaklığıdır. Hesaplama tabanı olarak, pencerenin fontları arasındaki 0 karakterinin genişlik ve yüksekliği esas alınır.

Aşağıdaki örnek; önce kursor'un bulunduğu satır ve sütun numarasını saklıyor, sonra kursor'u ekranın bir yerleşimine göndererek bir mesaj yazdırıyor ve kursor'u tekrar orijinal konumuna gönderiyor:

X = CSRLIN 'KURSOR'UN BULUNDUĞU SATIR (DİKEY POZİSYON) Y = POS(0) 'KURSORUN KOLON NUMARASI (YATAY POZİSYON) LOCATE 20,1 KURSOR'U 20. SATIR 1. SÜTUNA (EKRANIN ALTINDAN) PRINT "BURASI 20,1 YERLEŞİMİ (SAYFANIN ALTINDAN)" LOCATE X,Y KURSOR'U ORJİNAL KONUMUNA GETİR PRINT "BURASI KURSORUN ORJİNAL KONUMU"

CVI CVL CVS CVD KOMUTLARI:

Kullanım Şekli: Değer = CVI(2-bayt uzun dizi) Değer = CVL(4-bayt uzun dizi) Değer = CVS(4-bayt uzun dizi) Değer = CVD(8-bayt uzun dizi)

Rasgele erişimli (Random) dosyalardaki farklı uzunluklarda yazısal dizi olarak tanımlanmış değerleri sayısal değerlere çevirmek için kullanılan fonksiyonlardır.

CVI, rasgele erişimli dosyadan 2-bayt yazısal dizi okur ve 16-bitlik kısa integer bir sayısal değere çevirir. CVL, aynı işlemi 4 baytlık dizileri 32-bitlik uzun integer sayıya çevirir. CVS, 4 baytlık uzun yazısal diziyi tek açıklıkta reel sayıya, CVD ise 8 baytlık uzun yazısal diziyi çift açıklıkta reel sayıya çevirir.

Örnek:

OPEN Dosya-adı$ FOR INPUT AS 1 RenkSeti = CVL(INPUT$(4,1)) DataSeti = CVL(INPUT$(4,1))

Bu aylık da bu kadar. Gelecek aya kadar, hoşçakalın......