Pular para o conteúdo principal

QR Code

qrcode Bom acredito que todos ao menos já o viram por ai, em blogs ou cartazes, no Brasil não é muito difundido mas em alguns países como o Japão (sua terra natal) é usado em toda parte, inclusive em cemitérios.
O QR Code (ou Código de Barras em 2D), é uma matriz ou código de barras bi-dimensional, criado pela empresa Japonesa Denso-Wave, em 1994. O QR vem de Quick Response, pois o código pode ser interpretado rapidamente, mesmo com imagens de baixa resolução, feitas por cameras digitais em formato VGA, como as de celulares. O QR Code é muito usado no Japão (Wikipédia).
Depois de uma breve descrição vamos colocar a mão na massa, criar nossos próprios códigos, instalar um programa em nosso celular e sair por ai verificando o que tem por tras dos códigos:
A Kaywa possui em sua página um gerador de código, você escolhe o tipo (URL, texto, número de telefone ou SMS), define o tamanho da imagem e gera, tudo bem simples, e eles disponibilizam ainda um programa para diversos dispositivos.
Segue agora uma pequene llista com outros locais para se gerar o código ou baixar um programa:

qrcode_mens (e ai, já leu os QR Codes desta página?)
Marcadores:

Comentários

  1. Gabriel Subtil7 de abril de 2009 às 19:07

    Agora eu "pirunduquei" na ideia, acabei de escrever um artigo sobre Qr Code, crente que tava abafando....

    de qualquer maneira é algo bem interessante, e como qualquer camera vga pode intepretar-lo fica de custo de barato.

    ResponderExcluir
  2. programero9 de abril de 2009 às 09:24

    Olá Gabriel, de fato é algo muito interessante e abrangente...

    ResponderExcluir
  3. Gabriel2 de agosto de 2009 às 00:07

    só sugiro colocar mensagens menores nos códigos, pois com as lentes de celulares nem sempre muito boas, fica mais difícil para estes aparelhos reconhecerem códigos com mensagens grandes, e consequentemente, com mais detalhaes.


    Abraços

    ResponderExcluir
  4. Eduardo5 de agosto de 2009 às 20:08

    Olá Gabriel, sugestão anotada, obrigado pelo cometário...

    ResponderExcluir

Postar um comentário

Obrigado por Participar do programero, fique a vontade para agradecer, retificar, perguntar ou sugerir.

Mais visitadas

Listar arquivos existentes em diretório (Delphi)

Mostraremos uma maneira simples e prática para listar o conteúdo de um diretório com a opção de incluir nessa listagem os arquivos de seus subdiretórios. No exemplo abaixo temos um Edit para receber o diretório a ser pesquisado um CheckBox para indicar se os subdiretórios entrarão na pesquisa um botão para efetuar a pesquisa e um Memo para listar os arquivos encontrados, no final um Edit que receberá o cálculo final (em bytes) da soma do tamanho dos arquivos. procedure TForm1.Button1Click(Sender: TObject); begin   tamanhoTotal := 0;   memLista.Lines.Clear;   ListarArquivos(edtDiretorio.Text, chkSub.Checked);   Edit1.Text := IntToStr( tamanhoTotal ); end; procedure TForm1.ListarArquivos(Diretorio: string; Sub:Boolean); var   F: TSearchRec;   Ret: Integer;   TempNome: string; begin   Ret := FindFirst(Diretorio+'\*.*', faAnyFile, F);   try     while Ret = 0 do ...
10 comentários
Leia mais

Alterar cores do PageControl (Delphi)

O padrão Windows todo cinza não é muito atraente, por isso quando nos utilizarmos do PageControl podemos alterar suas cores e fontes da seguinte maneira: Em primeiro lugar devemos alterar a propriedade OwnerDraw para TRUE ; Depois implementar seu método DrawTab da seguinte maneira: //pinta a fonte Control.Canvas.Font.Color:=clBlack; // // pinta a paleta / aba Control.Canvas.brush.Color:=clSkyBlue; PageControl1.Canvas.Rectangle(Rect); Control.Canvas.TextOut(Rect.left+5,Rect.top+3,PageControl1.Pages[tabindex].Caption); // pinta a parte interna (tabsheet) PageControl1.Pages[TabIndex].brush.Color := Control.Canvas.brush.Color; PageControl1.Pages[TabIndex].Repaint; Caso a intenção seja manter cada aba com seu próprio estilo basta adicionar um CASE filtrando o índice das abas: case TabIndex of   0: Control.Canvas.Font.Color:=clBlack;   1: Control.Canvas.Font.Color:=clWindow; ...
2 comentários
Leia mais

Como Verificar se um Objeto Existe (Delphi)

Em alguns momentos surge a necessidade de verificar se um determinado objeto existe, ou seja se já foi criado, principalmente quando se trabalha com criação dinâmica em tempo de execução, então vamos ao exemplo: - Vamos criar uma variável, um vetor do tipo caixa de texto: var Minha_caixa : array of TEdit; - Em seguida definir o tamanho desse vetor, no caso será dez: setLength(Minha_caixa, 10) - Agora iremos criar nossa caixa de texto: // lembrando que o vetor inicia em zero // logo o índice final é o tamanho total - 1 for vl_i := 0 to Length(Minha_caixa) -1 do begin Minha_caixa[vl_i] := TEdit.Create(self); with Minha_caixa[vl_i] do begin Parent := Self; Name := 'Caixa_N'+IntToStr(vl_i); Text := 'Esta é a '+IntToStr(vl_i)+' º caixa !'; ReadOnly := true; Height := 21; Width := ...
2 comentários
Leia mais