Sayfa 69

SABOTEUR II

Bazı görevlerde kullanılacak kodlar: Görev od gerekmiyor Görev Görev 3: KIME Görev 4: KUJI KIRI

MAKİNE DİLİ

Bir program hazırlarken kullanıcıdan kontrol altında veri alışı yapmak çok faydalıdır. Böylece kullanıcının veri girişi sırasında istenmeyen sonuçlara yol açacak veri girişi önlenmiş olur. Program Döküm Eki'ndeki PROGRAMI INPUT komutunu geliştiren bir program. Program çalıştıktan sonra ekranın istediğiniz bir yerinde, istediğiniz büyüklükte bir pencere açıp veri girişi yapmanız mümkün. Veri giriş alanının büyüklüğü tanımlandıktan sonra, CRSR sağ ve sol tuşlar, INST ve DEL tuşları sadece bu alanda çalışırlar. RETURN tuşuna basıldığında girilen veri, türüne göre T$ veya TI değişkenlerine yerleştiler. yazın ve SAVE edin. Programın yazılması sırasında DATA satırlarının doğru olarak girilmesi çok önemli. Programımız DATA komutlarında girilen değerleri kontrol ediyor. Eğer bir yanlışlık olursa çalıştırıldığında diskete programı makine dili olarak yazmayacak. Program doğru olarak çalıştırıldıktan sonra kendisini makine dilinde diskete SAVE edecek. Bundan sonra bu programı kendi programlarınızda kullanabilirsiniz. kullanmak istediğiniz programa şu satırı ekleyin:

5 IF A-0 THEN A-1:LOAD “İNPUT

» 81

Eğer teyp kullanıcısı iseniz programınıza ekleyeceğiniz satır şu şekilde olmalı:

5 IF A-0 THEN A- İ:LOAD “İNPUT Bu komuttan sonra programınıza aşağıdaki rutini ekleyin:

10000 POKE 142, LNG:POKE 143, TYP 10010 SYS49152: IF (1 AND ST) THEN T$-“ ”: 10020 RETURN

Bu rutini çağırmadan evvel LNG değişkenine veri girişi alan uzunluğunu yükleyip, TYP değişkeni girilecek verinin türünü belirliyor. TYP —-0 karakter türünde, TYP — 1 ise numerik veri girişi yapılacak. Veri giriş penceresinin sol ucu o anki kursorun bulunduğu yerde olacak. Açılacak pençerenin yerini PRINT komutu ile belirleriz. Mesela pencere beşinci satır onuncu kolondan başlasın. Bunun için 100 numaralı satırı programınıza ekleyin:

100 PRİNT (5 ASAGI) (10

Bu satırı yazarken tırnak açtıktan sonra HOME için klavyeden HOME tuşuna basın. 5 ASAGI için 5 kere kursoru aşağı indiren tuşa, 10 SAGA için 10 kere kursoru sağa götüren tuşa basın ve tırnağı kapayın. komutuna “;” noktalı virgül eklemeyi unutmayın. Aksi takdirde pencere istediğimizin bir alt satırına açılır. İstersek pencerenin bir mesajdarı sonra açılmasını sağlayabiliriz. Pencerenin açıldığı yer, kursorun o anda bulunduğu yere göre belirlendiğinden PRİNT komutunu kullanıp pencereyi bir mesajdan sonra yerleştirelim:

PRINT “İSMİNİZİ YAZIN:”;

Burada da noktalı virgül unutulmamalı. Tırnağı kapamadan evvel bıraktığımız boşluk yazdığımız mesajla pencereyi ayırıyor. LNG ve TYP parametrelerini veri girişini kontrolde kullanacağız. LNG değişkeni veri alanının maksimum uzunluğunu belirler. Mesela 10 karakter genişliğinde bir veri girişi istiyorsanız, LNG değişkenine rutini çağırmadan evvel 10 değerini verin. Bundan sonra girilecek veri en fazla 10 karakter genişliğinde olabilir. Ancak girilen veri 10 karakterden az olabilir. Rutini çağırmadan evvel girilecek verinin türünü TYP değişkenini kullanarak belirlemek gerekir. Örneğimizde karakter türünü seçtiğimizden TYP —0 komutunu vermemiz gerekir. 20 karakter uzunluğunda veri giriş alanını tanımlayacak program kısmı şöyie olabilir:

100 PRİNT “İSMİNİZİ YAZIN”; 110 LNG —20:TYP -0:GOSUB 10000

Program 10000 numaralı satırdaki rutinden döndüğünde T$ değişkeninde kullanıcı tarafından girilmiş ver: r. Bu rutini tekrar kullanmadan evvel T$ değişki nindeki veriyi başka bir değişkene aktarmanız gerekir. en veri kaybolur. Numerik veri girişiörnek olarak 0.00 TL. ile 99.99 TL. arasında değer labilecek program şöyle olabilir:

alabi