TAB fonksiyonu
tab
TAB fonksiyonu n inci pozisyona atlanaasını sağlıyordu, SPACEf n boşluktan oluşan bir değişken tanıalıyordu, SPC ise değişken aralarına n bosluk yerlestirilaesini sağlaaaktadır.
STR* Fonksiyonu Aaac
Sayısal bir değeri karakter katan olarak kullanabilmeyi sağlar. VAL fonksiyonunun tersi gibidir.
Dizili»
karakter defti»kani»STR$(X>
X sayısal değer veya değişken isai olabilir.
Dizil» Orneâi 10 A * 449 20 Kİ * STRİ(A)
30 PRINT Kİ, LEN(Kt)
RUH
449 4
Sayılarda + veya – için bir karakter bosluk bulunuyordu.
TIME# Deyi mi /Fonksi yonu
ÛÜSL
Zaaanın tanıalanaası ve bir değişkene atanaası için kullanılır.
Dizili»
(Deyi»)
TIME*«X*
(Fonksiyon)
karakter değişkeni=TIME*
it karakter değişkeni S5:dd:ss {saat,dakika,saniye) seklinde 8 karakterden oluşur.
id Tin£f*’iQiZ5iQ3′ üiyla olarak kulUnılaıştır.
20 PRINT TINEt ‘Fonkatyan olarak kullııuİliıtır.
RUH
I0ı25ı0î
l»hceler
Bazı lehçelerde işlati» »iıteai takanları kullanılır.
VAI— Fonksi yonu
ftü£
Bir karakter değişkenindeki sayısal değerleri ayırıp verir.
Dizili»
sayısal değisken=VAL<X$)
X*, karakter değişkeni veya katar olabilir. ftcıklaaalar
X$, karakter değişkeni içindeki sayısal değerleri ayırır. Başlangıçtaki boşlukla alaaz. İlk sayısal olaayan değere kadarki sayıyı verir. XI ın ilk karakter değilse sonuç 0 olur.
Dizili» Orneâi
PRINT VAK” -5AL’) ‘Boşlukları dikkate alaaz.
-5
PRINT VALCABC25″) ‘tik karakter sayısal olaadığı idn 0 var
0
STRING* Fonksiyonu
A»aç
ASCII kodu verilen karakterin istendiği kadar tekrar edilaesini sağlar.
Dizili»
karakter değişkeniaSTRING*<n,m) veya
karakter de§iskeni»STRING$(n,X$)
n ve a, 0 ile 255 arasında bir ta» sayı değer alabilir, s tekrarı istenen kartkl kodudur, n ise tekrar sayısıdır. X$, karakter değişkenidir, tik karakteri, takraı karakterdir.
Acıklaaalar
Birinci dizili», ASCII kodu a olan karakteri n kadar tekrar ederek bir katar oluşl karakter değişkenine atanabilir, ikinci diziliade ise tekrar edilen karakter XI : karakteridir.
İO Cl > STRINfll<15,45)
20 PRINT Clj’TABLO-l’jCI RUN
————–mo-ı—————
ok
10 Al = *XYZ”
20 XI * STRIH6IU5,AI)
30 PRINT Xlj’TA8LQ-l’}XI RUN
XXXXXXXXXXXXXXXTABUMXXXXXXXXXXXXXXX Ornak Problea» 2.10
A disket sürücüsündeki diskette STOK.BAS isiali bir Basic veri prograaı yüklüdür. Prograaın listesi aşağıda verilaiştir. Prograa yalnız DATA deyiaierinden olujaaktadır. Her deyiade stok kontrolü yapılacak aalzeaelerle ilgili veriler vardır. DATA deyialeri farklı uzunluktadır. Tüa veriler iki çift tırnak arasındadır yani bir karakter değişkeni gibi islea göraektedir. Gerçekte bir DATA deyisinin içinde altı adet stok kontrol verisi vardır. Özel işaretlerle birbirinden ayrılıktır. Stok kontrol verilerinin tanıaları sıra ile «öyledir jkod-no, aalzeae isai, en az stok seviyesi, en fazla stok seviyesi, stok duruau ve biria fiatıdır.
Bu verilerden aalzeae kataloğu listesi veren bir prograa yazınız. Listede kod-no, aalzeae isai ve biria fiatı bulunsun.
Prograa Listesi ı
400 REH Stok Kontrol Verileri
401 DATA’25*BÜRQ MASASI/5 20 10*250000*
402 DATA’217*D0LAP/4 12 6*190000′
403 DATA’500*ÇÖP KUTUSU/20 45 22*25000′
«
ı
499 DATA*6710*KURS11N KALAEH/100 200 152*250′
Cözöa Tekniği t
Her DATA deyiainde Bira ile su işişelerin yapılaası gerekir.
1.Karakter değişkeninin boyu saptanır.
2.Kod nuaarası bir sayısal değişkene atanır.
3.Halzeae isainin başlangıcı ve sonu belirlenir ve bir karakter değişkenine
Hts‘! .
4.Biri» iövnür başlangıcı belirlenir ve bir sayısal değişkene atanır.
5.Yeni değişkenlerden bir aalzeae katalog listesi oluşturulur.
DATA diyiaindiki bilgi alanlarının bıılangıt vt biti» dağlfkanlari aıığıdı gti«tırii»i»tirı
DATA
[71
Nl
I _
♦ büro
N2
i
MASASI / 5
2 0
N3 <
I
10*2500
Prograa ve Çıktısı i
Prograa A sürücüsündeki disketten LOAS’AsSTOK.BAS1
koautu iie ana belleğe alınır. LIST koautu ile listelenebilir. Prograa 4( ile baslaaaktadır. 10-400 satır-no arasında istediğiaiz ilaveleri yapabilir
10 REN Bu bir aalzeae kataloğu düzenleae prograaıdır.
20 REH Prograaın isai STOK.BAS.
30 0PTI0M BASE 1 40 8EFINT L,K,N,H
50 DIH VI(100),KN(100),HIf(100),BF(100)
60 FOR 1=1 TO 10 70 READ VI(I)
80 L=IEN(VI<!>)
90 KN(l)aVAL(VI(I))
100 Nl’INSTRÜ.VKIl,*»*}
110 N2sItlSTR(Nl’*’i,V4(I)»”/■>
120 L1>N2-(N1+1)
130 NII(I)»NIDI<VI(I),N1*1,L1)
140 N3*INSTRİfU*l,Vİ<I),”**)
150 L2-L-N3
160 BFI*RI6HTI(VI{I),L2)
170 BF(I)bVAL(BFI)
200 NEXT 1
210 CI«STRIN6H 10,45)
220 LPRINT SPC(2Î|CI;’HALZEHE KATAL06U‘;CI 230 BI*SPACEI<2)
240 LPRINT 8I$*K0D “HALZEHE îSHl-;TftB(29);”B.FIATI<TL>■
250 LPRINT 260 FOR 1*1 TO 10
270 LPRINT BI;KN(I);TAB(U);HII(I);TAB(29);
280 LPRINT USIK6 ’»«*«(«*,’;BF(I)
300 NEXT I 310 STOP
v
400 REH Stok Kontrol Veri İtri
401 DATA*25*8ûR0 HASA1/3 20 10*250000*
402 DATA*217*D0LAP/4 12 6*150000*
405 DATA’500*CÖP KUTUSU/20 45 22*250^0*
404 DATA*t25*ETEJER/10 15 9*120000*
405 DATA”901»DEFTER/100 200 110*550*
406 DATA * 1010*KALEH/i 50 250 160*200*
407 DATA”666«StL61/300 500 350*50*
408 DATA*505*KARBGN KA6IDI/500 1000 600*5*
409 DATA”3256*D0SYA KA6IDI/İ000 2000 1100*5*
410 DATA*6710*KUR§UN KALEH/IOO 200 152*250* RUN
———HALZEHE KATALOGU———
KOD NO «ALZEHE İSHİ B.FİATUTL)
25 BÜRO HASAS1 250,000
217 DOLAP 150,000
500 COP KUTUSU 25,000
125 ETEJER 120,000
901 DEFTER 550
1010 KALEN 200
666 S1L61 50
505 KARBON KA6IDI 5
3256 DOSYA KAŞIDI 5
6710 KURSUN KALEN 250
Break in 31
Örnekte heaen tâ» katar fonksiyonları kullanılmıştır.Prograacıya her fonksiyonun kullanı» alanları hakkında bilgi verecektir.
Bu probleadeki DATA deyişlerinin olduğu bölûaün, ayrı bir veri kütüğü olaası halinde bu problea daha kuilanıslı duruaa gelecektir. 2.5 teki Kütük Düzenleae bölüşünde uygulatası anlatılacaktır. Aynı örnek orada DATA Kütüğü kullanılarak çözülecektir.