   Ŀ
Ŀ
  
                                                                            
                        Bugnn Tarihi                                      
                                                                            
  Ziya Bahtiyar  

   



 BASIC'le yeni tanm olanlara ynelik bu ay DATE$, MID$, VAL ve READ/DATA
  komutlarn kullanan rnek bir program veriyoruz.

  KOMUTLAR

  DATE$   Bilgisayarn takviminden gnn tarihini verir.
  MID$    Bir string iinden istenilen karakterden itibaren istenilen sayda
           karakteri alr.
  VAL     Parametre olarak verilen string iindeki rakamlar saysal hale
           getir.
  READ    DATA satrndan sral olarak okuduu bilgiyi deikene aktarr.
  DATA    READ ile okunun bilgilerin olduu yer.


  Programn almas

  Bilgisayardan alnan gnn tarihi MID$ komutuyla ayklanarak uygun
  deikenlere aktarlr:

            1 2 3 4 5 6 7 8 9 10
           ͻ
           08-01-1994
           aa-gg-yyyy
           ͼ
            AY$   GUN$    YIL$
            1-2   4-5     7-10

   Bir FOR/NEXT dngs kurulur. Dng says AY$ deikenindeki rakamlar
   VAL saysal hale getirilerek bulunur. Her dngde READ komutu DATA
   satrndaki bilgilerden birini srayla okur ve AYADI$ deikenine aktarr.

   En son dngde bulunulan ay ad okunarak AYADI$ deikenine aktarlm
   olacaktr.

   Son iki satrda deikenlere aktarlan bilgiler kullanlarak iki farkl
   ekilde tarih ekrana yazlr.


  Ŀ
                                                                         
   10 ' * TARIH                                                          
   20 GUN$=MID$(DATE$,4,2)                                               
   30 AY$=MID$(DATE$,1,2)                                                
   40 YIL$=MID$(DATE$,7,4)                                               
   50 FOR N=1 TO VAL(AY$)                                                
   60 READ AYADI$                                                        
   70 NEXT                                                               
   80 DATA "Ocak","ubat","Mart","Nisan","Mays","Haziran","Temmuz",     
      "Austos","Eyll","Ek im","Kasm","Aralk"                         
   90 PRINT "Tarih: ";GUN$;".";AY$;".";YIL$                              
   92 PRINT "Tarih: ";GUN$;" ";AYADI$;" ";YIL$                           
                                                                         
  