Sayfa 12

209-280. satırlar

Bu satırlarda sequential dosya açılmaktadır. 210. satırda daha önce dosyaya yazılan bilgiler silinmektedir. 220. satırda sequential file yazma rutini açılmaktadır. 230-250. satırlarda saklamak istediğimiz isim ve telefon numaralarını bilgisayara veri olarak vermemiz istenmektedir. 260. satırda bilgisayara verilen bilgiler diske kaydedilmektedir. 270. satırda bilgisayara bilgi verme işlemi bittiğinde sequential file kapanmaktadır. 280. satırda tekrar menüye dönmektedir.

440-455. satırlar

410. satırda sequential file okuma rutini açılmaktadır. 420. satırda sequential file'da olan bilgiler okunmaktadır. 421. satırda sequential file rutini kapanmaktadır. 422-425. satırlar ekranı düzenlemek içindir. 427. satırda okunan isimlerin harf sırasına göre konması için 700. satırdaki alt programa gitmektedir. 700-770. satırlarda harf sırasına göre isimler sıraya konmakta ve bu işlem bittikten sonra 427. satırdan program devam etmektedir. 430. satırda disketten okunan ve harf sırasına konan bilgiler ekrana yazılmaktadır. 445-455. satırlarda menüye dönüş için komutlar mevcuttur. Eğer seçeneğiniz programdan çıkmaksa, yani menüde 3. şıkkı tercih etmişseniz, program 805. satırda bitmektedir. Şu ana kadar yaptığımız işlemlere bakacak olursak, sequential file kullanarak 5 arkadaşımızın adını ve soyadını diskte veya teyp ünitesinde sakladık. Bunların telefon numarasını öğrenmek istediğinizde, programınızı çalıştırdık ve yazdığımız isimlerin harf sırasına göre bir telefon rehberi oluşturduğunu gördük. Bu 5 isim ve telefon numarası çok küçük bir rakamdır. Birçoğumuzun en aşağı 20 telefon numaralık bir telefon rehberine ihtiyacı vardır. 20 kişilik telefon rehberinin hepsini aynı anda ekranda göremeyiz. O halde 5 kişilik isim ve telefon numaraları ekrana gelmelidir. Yani sayfa sayfa, isim ve telefon numaralarını okuyan bir program oluşmalıdır. Birçok arkadaşımız bu program üzerinde değiştirmeler yapıp, kendi işlerine yarayabilecek programlar yapabilirler. Örneğin 100 kişilik adres defteri, yemek kitabı vs.

PROGRAM ADI : TAPE 5 ADRES

Çalışmalarınızda başarılar dilerim.

88468 REM kak kak ökk * <196)> 00481 REM * SEGUİNTİAL FİLE İLE 90205 REM TELETEKNİK A.S. <a217> : REM ol ole alk ol ole ole öle öle Ol ökk alk ir 80402 REM * DOSYA OKUMA <043> 9OBO7 REM * SEGĞUİNTİAL FİLE İLE * > * <185> 80483 REM Ok BA808 REM * DOSYA ACMAZOKUMA <199 > * 00410 OPEN <ı14> REM akk ok ak ole akk ok ok FOR TO Sie INPUTHE AS<L) kk > L <185> 90045 X3$-" <HOME — CLOSE & 1 — PRİNT B0051 PRİNT XE$ > 98424 "ADI SOYADI"TABC20)"TELEFON N ©8053 PRİNT "<RVYVSON>SEGUENTİAL FİLE İLE Y AZMAZOKUMA PROGRAMI<RYSOFF >" — 90985 PRİNT 60855 PRINT <asa> 00427 GOSUB 788 <165> 08860 PRINT DOSYA YAZM 80430 FOR TO A“ <141> L <218> 88865 PRINT DOSYA OKUM 98445 ETME A" <144> K ICIN D TUSUNA BASINIZ<RVSOFF >” PRİNT "<DOLİN><İBRİGHT>3/ CIKIS" <Ba7> 00450 GET THEN 450 <128> 009875 INPUT 08455 GOTO 5 <152> V <ila> BA7BB REM alel ökk ökk 88888 ON V GOT0 208,400,800 * REM * HARF SIRASINA DİZME RUTİNİ REM akk olak ok * <157)> * <258> REM akk kok 808201 REM * SEGUİNTİAL FİLE İLE * * 90710 FOR I-1 TO 4 <174> 60202 REM * DOSYA ACMA 200726 FOR J-1*i1i TO 5 * <153> IF ASLI) >SASLI) THEN 768 <a34> REM alk ok olcak ole ak olcak akacak <235> * <253> <B74> 00209 PRINT NEXT J <088> 00220 OPEN 2,1,1,"DOSYA" <as5a> 807786 NEXT I <asa> 606230 FOR Lz1 TO 907880 RETURN <a76> M 88808 REM kak ale ökk ok ökk lk ok olcak INPUT <166> * <a2a> 88250 NEXT L 0208801 REM * PROGRAMDAN CIKIS 00260 FOR TO * <ı14> L <037> REM ak alak ke ak 890270 CLOSE 28 <035> * 282880 GOTO 5 <a233)> 00805 END