  Ŀ
  Ŀ
                                                                          
                           Yakala.Com hakknda                            
                                                                          
  ٳ
   Utility  Dos                                             Grol Demir    
  
        
        Yakala.Com program 645 byte uzunlukta bir resim yakalaycdr.

        alt zaman TSR olarak bellee yerleecek ve Alt+R tuuna baslp
  baslmadn kontrol edecektir.Eer Alt+R tuuna basld ise ekranda resim
  olup olmadn kontrol edecektir.Eer ekranda resim varsa bu resimleri
  A0.RSM, A1.RSM... isimleriyle kaydedecektir.

         Yakala.Com ile ekrandaki her formatdaki ve her moddaki sabit ve 
  hareketli resimleri yakalanabilir. 

         Yakala.Com ile yakalanan resimler u formattadr; 
         
         Balang      Boy          Aklama
                 
           1 nci byte     3 byte     "G&D" iareti
           4 nc byte     1 byte     Video modu
           5 nci byte     1 byte     Renk says
           6 nc byte     2 byte     Resim genilii
           8 nci byte     2 byte     Resim ykseklii
          10 ncu byte    17 byte     Palet ve kenar renk bilgileri
          27 nci byte   768 byte     Renk yazma bilgileri
         801 nci byte   end byte     Resim piksel deerleri (datalar)
                 
        Resim piksel deerleri her bir piksele bir byte ayrarak oluur.
                 
         Rsm formatndaki bir resmin basic'de gsterilmesine bir rnek;

  '----------------Program Balang----------------
  'Balarken disketle bulunan QuickLibrary yklenmelidir.
  'QBX /L GOSTER veya 
  'QB /L GOSTER45

  DECLARE SUB Goster (BYVAL A%, BYVAL B%)

  'Gsterilecek resim adn girin.
  '(Yakala.COM ile yakalanm bir resim olmaldr)
  Resim$ = "A2RECEP.RSM"

  Resim$ = Resim$ + CHR$(0)
      DIM A%(1200)
      DEF SEG = VARSEG(A%(0))
      FOR I% = 0 TO LEN(Resim$) - 1
         POKE VARPTR(A%(0)) + I%, ASC(MID$(Resim$, I% + 1, 1))
      NEXT I%
  A% = VARSEG(A%(0))
  B% = VARPTR(A%(0))
  Goster A%, B%
  '----------------Program Sonu----------------
        
         Rsm formatndaki bir resmin Bload formatna cevrilerek basic'de 
  gsterilmesine bir rnek;

  '-------------------Program Balangc--------------------
  '********* Versiyon 7.1 iin QBX /L QBX eklinde yklenmeli
  '********* RSM formatnda resim gsterimi
  '********* Hz=Sper Hzl


  '$INCLUDE: 'QBX.BI'
  DIM SHARED RegsX AS RegTypeX
 
  'Okunacak Dosyay a
  Dosya$ = "A2RECEP.RSM"
  OPEN Dosya$ FOR BINARY AS #1
 
  'Bload yaplacak Dosyay a
  Dos$ = "A0.DAT"
  OPEN Dos$ FOR BINARY AS #2

  'Headeri koy
  FOR I = 1 TO 7: Y$ = Y$ + CHR$(0): NEXT
  MID$(Y$, 1, 1) = CHR$(&HFD)
  MID$(Y$, 3, 1) = CHR$(&HA0)
  MID$(Y$, 7, 1) = CHR$(&HFA)
  PUT #2, , Y$

  'Video modunu ayarla
  A$ = " ": GET #1, 4, A$
  RegsX.Ax = ASC(A$)
  CALL InterruptX(&H10, RegsX, RegsX)

  'Palet ve renk deerlerini yerine koy
  Renkler$ = SPACE$(800)
  GET #1, 10, Renkler$
  RegsX.Dx = SADD(Renkler$)
  RegsX.Es = SSEG(Renkler$)
  RegsX.Ax = &H1002
  CALL InterruptX(&H10, RegsX, RegsX)

  'Renk Yazmalarn bilgilendir
  RegsX.Dx = SADD(Renkler$) + 17
  RegsX.Es = SSEG(Renkler$)
  RegsX.Ax = &H1012
  RegsX.Bx = 0
  RegsX.Cx = &H100
  CALL InterruptX(&H10, RegsX, RegsX)

  'Bload yaplacak dosyaya yaz
  A$ = SPACE$(32000): GET #1, 801, A$: PUT #2, 8, A$
  A$ = SPACE$(32000): GET #1, 32801, A$: PUT #2, 32008, A$

  'Resmi gster
  CLOSE #1
  CLOSE #2
  DEF SEG = &HA000
  BLOAD Dos$, 0   :'Bload kullanld iin son derece hzldr

  'Resmin gsterimi bitti
  KILL Dos$
  PLAY "O2L8DP64"
  DO: LOOP UNTIL INKEY$ <> ""

  'Video modunu text yap
  RegsX.Ax = 3
  CALL InterruptX(&H10, RegsX, RegsX)
  '-------------------------Program Sonu---------------------        

         Rsm Formatndaki bir resim Gwbasic ve Qbasic'de de gsterilebilir.
          
          Hocakaln....

