Sayfa 20

Bir INPUT komutuyla değişken-listesi olarak sıralanan birçok değişkene değer atamak mümkündür. Değişken isimleri aralarına virgül koyularak sıralanırlar. INPUT komutundaki değişken isimleri ile giriş sayısı birbirinden farklıysa, "?Redo from start" hata mesajı görüntülenecektir. Aynı mesaj değişken türü sayısal iken giriş yazısal yapıldığında da ortaya çıkar. Bu mesajın anlamı, girişin yeniden yapılması gerektiğidir.

INPUT komutundan hemen sonra uyarı mesajı'ndan önce koyacağınız noktalı virgül, kursorun alt satıra geçmeyip girilen bilginin son karakterinden hemen sonra beklemesini sağlar. Bu durumda sonraki çıktı aynı satırda buradan itibaren yazılacaktır.

INPUT "ADINIZ NE? ";a$ PRINT "Merhaba ",a$

INPUT;"ADINIZ NE",a$ PRINT " MERHABA...."

INPUT$ KOMUTU: Kullanım Şekli: Değişken=INPUT$(uzunluk[,[#]dosya-no)

Bu komut, sırasal dosyalarda kullanılır. dosya-no ile belirtilen dosyadan, istenen uzunluk'ta bir yazısal dizi okur. dosya-no belirtilmemişse, INPUT$ istenen uzunlukta karakteri klavyeden okur. Girişler klavyeden yapılırsa, ekrana hiçbir karakter yazılmaz. Klavyeden bilgi okuma işlemine Return tuşuna basılana kadar devam eder. İşlemi kesmenin tek yolu, Ctrl+C tuşlarına basmaktır. Byte'ları INPUT$ ile okuduktan sonra, CV* fonksiyonlarını kullanarak sayıya çevirebilirsiniz.

İsterseniz, INPUT$ ile klavyeden bir fonksiyon tuşu okuyarak ekrana yazdıran bir program deneyelim:

PRINT "F1-F10 tuşlarından birine basın" Oku: FT$=INPUT$(1) t=ASC(FT$)-128 IFt<lORt>10THENOku PRINT t", fonksiyon tuşuna bastınız"

INPUT# KOMUTU: Kullanım Şekli: INPUT #dosya no,değişken listesi

Bu komut, normal ekran INPUT'u gibi çalışır, fakat değişkenleri ve yazısal dizileri ekran yerine bir dosyadan okur. Dosya diskette var olan bir dosyadır ve data girişi yapılarak bilgiler PRINT# ya da WRITE# ile dosyaya yazdırılmıştır. Okuma işlemi için, dosyanın INPUT# komutundan önce açılmış olması gerekir.

INPUT#, dosyadaki kayıtları sırayla bir sonraki kayıt aşamasına erişene kadar teker teker okur. Bu komut; boşlukları, virgülleri, Return'leri (CHR$(10)) ve linefeed'leri (CHR$(13)) kayıt ayırıcısı olarak tanır. Boşluklar, yazısal dizilerin alan ayırıcısı olarak tanımlanmamıştır. Yazısal dizi içinde virgül kullanmak isterseniz, bu bilgileri tırnak işaretleri arasında girmelisiniz.

Aşağıdaki programı inceleyin: INPUT "Adınız ";A$ INPUT "YAŞINIZ ";y ÖPEN "TEST" FOR OUTPUT AS #1 PRINT#1,N$ PRINT#1,Y CLOSE1 ÖPEN "TEST" FOR INPUT AS #1 INPUT#1,Y:PRINTY INPUT#1,N$:PRINTN$ CLOSE1

Evet... Bu aylık da bu kadar. Gelecek ay görüşmek üzere, hoşçakalın.