Copie d'ecran GLCD vers SDcard station easypic 3

[invite3d33f9e2]

Voila presque tous est dans le titre.
Je bosse sur un 16f876 avec une station easypic3 et un compilateur microbasic.
Mon programme donne ceci sur un ecran graphique lcd:

Date :15:06:2006
Heure:18H35M25S
Accés:245896

Je voudrais savoir s'il existe un moyen de copier simplement le contenu de mon ecran vers une SDcard au format texte.

Merci d'avance pour votre aide.
-----

[umfred]

Il suffit d'aller lire dans les adresses de l'affichage (la DDRAM normalement), tu récupèrera les caractère ascii affichés, ensuite il faut créer une structure de fichier texte sur la SDcard, qu'il faudra remplir avec les caractères récupérés sur l'affichage.

[umfred]

Pour l'interfacage avec la SD card tu peux peut-être t'inspirer cette note d'application, les sources (sdcard.c et sdcard.h)
sont installés dans 'C:\MCHPMSD\MSD\system\sdcard' après avoir lancé le fichier contenu dans le zip.

[invite3d33f9e2]

Salut Umfred et merci pour ton aide.
Je vais tester tous ça j'ai aussi ce code mais il est pour un 18f452 et je bosse sur un 16f876
mais je pense qu'il doit etre assez facilement adptable.

program SD_test

dim data                 as  byte[512]
    serial_buffer        as  byte[2]
    data_for_registers   as  byte[16]
    received_character, serial_pointer                as  byte
    first_byte, second_byte, third_byte, fourth_byte  as  byte
    i, px, k        as  word
    sector_address  as  longint
    we  as  byte

sub procedure printhex(dim ix  as  byte)
dim hix, lox  as  byte
  hix = ix and 0xF0               ' High nibble
  hix = hix >> 4
  hix = hix + $30
  if hix > $39  then
  hix= hix + 7
  end if
  lox = (ix and 0x0F) + $30       ' Low nibble
  if lox > $39  then
  lox= lox + 7
  end if
  USART_Write(hix)
  USART_Write(lox)
end sub

sub procedure USART_Out(dim byref text as char[40])
dim im, jm as byte
  im = 0
  jm = text[0]
  while jm <> 0
       USART_Write(jm)
       inc(im)
       jm = text[im]
  wend
end sub

sub procedure USART_Out_Ln(dim byref text as char[40])
dim im, jm as  byte

  im = 0
  jm = text[0]
  while jm <> 0
       USART_Write(jm)
       inc(im)
       jm = text[im]
  wend
  USART_Write(13)  ' LF
  USART_Write(10)  ' CR
end sub

main:
  PORTC =0
  USART_Init(19200)
  TRISC = $D3
  USART_Out_Ln("PIC-Started") ' see if PIC is there

  ' Beffore all, we must initialise a SD card
  i = SD_Init(PORTC,2)

  if i = 0 then
    USART_Out_Ln("SD Init-OK")     ' write if card is plug-in
  else
    USART_Out_Ln("SD Init-Error") ' there is no card
  end if

  for i = 0 to 511
   data[i] = "r" ' Fill SD buffer with same characters
  next i
  i = SD_Write_Sector(55, data)

  if i = 0 then  Usart_Out_Ln("Write-OK")
           else  Usart_Out_Ln("Write-Error")
           end if
  ' Reading of CID and CSD register on SD card.....

    i = SD_Read_CID(data_for_registers)
    if i = 0 then
              for k=0 to 15
                printhex(data_for_registers[k])
                if (k <> 15) then USART_Write("-")
                end if
              next k
              USART_Write(13)
       else
          Usart_Out_Ln("CID-Error")
       end if
    USART_Write(13)

    i = SD_Read_CSD(data_for_registers)
    if i = 0 then
          for k=0 to 15
              printhex(data_for_registers[k])
              if (k <> 15) then USART_Write("-")
              end if
          next k  
          USART_Write(13)
          USART_Write(10)

    else
      Usart_Out("CSD-Error")
    end if
  ' Variables initialisation
  serial_pointer = 0
  LCD_Cmd(LCD_SECOND_ROW)

  ' MAIN loop
  while true
    if USART_Data_Ready<>0 then
      serial_buffer[serial_pointer] = USART_Read()    ' Get the received character
      inc(serial_pointer)
      if (serial_pointer >=2) then
        serial_pointer = 0
        ' geting 4 byte to colect longint value for long address!
        if (serial_buffer[0] = "S") then first_byte  = serial_buffer[1]
        end if
        if (serial_buffer[0] = "s") then second_byte = serial_buffer[1]
        end if
        if (serial_buffer[0] = "E") then third_byte  = serial_buffer[1]
        end if
        if (serial_buffer[0] = "e") then fourth_byte = serial_buffer[1]
        end if
        if (serial_buffer[0] = "R") then
          if (serial_buffer[1] = "r") then
            sector_address = (first_byte << 24) or (second_byte << 16) or
                              (third_byte << 8)  or fourth_byte
            i = SD_Read_Sector(sector_address,data)
            if i = 0 then
              for k=0 to 511
                printhex(data[k])
                USART_Write(" ")
                if word((k+1) mod 16)=0 then
                  USART_Write(" ")
                  for px=(k-15) to k
                    we=data[px]
                    if (we > 33) and (we < 126) then
                      USART_Write(data[px])
                    else
                      USART_Write(".")
                    end if
                  next px
                  USART_Write(13)
                end if
                next k
              USART_Write(13)
              USART_Write(10)
            else
               USART_Out("Rd-Error")
            end if   
            USART_Write(13)
            USART_Write(10)
          end if
        end if
          
        if serial_buffer[0] = "W" then
          if serial_buffer[1] = "w" then
            'generate 32-bit sector address
            sector_address = (first_byte << 24) or (second_byte << 16) or
                              (third_byte << 8)  or fourth_byte
            for k=0 to 511
              data[k] = received_character  ' fill RAM buffeer with receiving characters
            next k
            i = SD_Write_Sector(sector_address, data)       ' write buffer to SD
            if (i = 0) then  USART_Out_Ln("Wr-OK")
            end if
            if (i = 1) then  USART_Out_Ln("Wr-Sending-Error")
            end if
            if (i = 2) then  USART_Out_Ln("Wr-Writing-Error")
            end if
          end if
        end if
        if serial_buffer[0] = "C" then received_character = serial_buffer[1]
        end if
        
      end if
    end if
 wend
  
  
end.

[A voir en vidéo sur Futura]

[umfred]

Je pense que oui. il n'y a qu'à s'assurer que les sous programmes soient disponible pour le 16f876, sinon il faudra juste les réécrire (en s'aidant des datasheet des 2 PICs et comparer leur instructions et registres tu devrait pouvoir t'en sortir).

[invite3d33f9e2]

J'espere le premiere prog c'est toujours un peu a taton.
Surtout que j'ai trois prog different a melanger pour arrivé au resutat voulu.
Aprés ca une fois que le prog fonctionnera (s'il fonctionne un jour ) je dois remplacer le module clavier qui me sers de testeur par le clavier de mon alarme en esparant que ca ne pose pas de probléme pour la centrale, mais bon la je pense pas.
Je posterais le code bientôt des que je l'aurais complété pour voir si je suis sur le bon chemin et si ça peu servir a quelqu'un ça serais cool.

[invite3d33f9e2]

J'ai pensé a metre une memoire 24lc256 a la place de la sdcard.
Selon vous combien d'infos type:

Date :15:06:2006
Heure:18H35M25S
Accés:245896

je pourais enregistrer dans ce genre de memoire.
http://ww1.microchip.com/downloads/e...Doc/21203M.pdf

[umfred]

Si il ny'a que les infos dates, heures et codes d'accès en 6 chiffres (ou caractères), il faudrait 12 octets pour coder un enregistrement (ou "écran").
- 1 octet pour l'heure,
- 1 octet pour les minutes,
- 1 octet pour les secondes (est-ce utile?),
- 1 octet pour la date,
- 1 octet pour le mois,
- 1 octet pour l'année (seulement le 06, le 20xx ne sert pas)
- 1 octet par caractère du code d'accès (donc a priori 6).

Donc dans la mémoire 24LC256 (qui contient 256k bits soit 32 Ko), on peut y mettre : 32*1024*12= 2730 enregistrements + 8 octets.

Si tu passe la longueur de l'enregistrement à 16 octets, tu pourra mettre 2048 enregistrements.

Attention au temps d'écriture entre 2 enregistrements ou commande 'Write', la mémoire stocke les données dans une mémoire tampon de 64 octets avant de les écrire physiquement en interne. Ce cycle d'écriture dure 5 ms maximum, donc je te conseille fortement et par expérience de mettre une temporisation de 5 ou 6 ms après un cycle d'écriture

[invite3d33f9e2]

Ok merci beaucoup pour ton aide umfred.
Il est clair que je vais suprimer les secondes et le 20 de 2006 de toutes manieres 2730 enregistrements suffises largements mais on sais jamais .