Views

Histats

Vitrine

VBA Tips: Gerando o código QR na sua aplicação - Generate QR code




O que é o fenômeno chamado BIG DATA?



Sim, a sua aplicação também tem direito a um QR code nela. Você pode colocá-lo no seu Formulário, Dashboard, Planilha, Relatório, Scorecard, etc...

QR code, ou código QR  é a sigla de "Quick Response" que significa resposta rápida. QR code é um código de barras, que foi criado em 1994, e possui esse nome pois dá a capacidade de ser interpretado rapidamente pelas pessoas.

QR code é utilizado por várias indústrias, como revistas e propagandas, e esse código é utilizado para armazenar URLS que depois são direcionadas para um site, hotsite, vídeo, etc. O QR code também pode ser facilmente escaneado por qualquer celular moderno, onde existem aplicativos específicos que tem a capacidade de ler o link e levar o cliente em potencial para o site que a empresa quer.

Existem diversos aplicativos disponíveis na internet específicos para a leitura do QR code, quase todos os celulares modernos podem fazer o download. A utilização do QR code tornou-se popular juntamente com o uso da internet em celulares, assim as empresas visaram uma boa estratégia de marketing para esse tipo de público, geralmente jovens. A idéia do QR code é levar o cliente para um site, ou então trazer textos com informações do produto, curiosidades, e etc.


Resumindo, o que é o QR code?

É uma espécie de código de barras que possibilita fácil acesso a um site.

Tudo que você precisa é de um smartphone ou um tablet com câmera e acesso à internet.


Esse tipo de codificação permite que possam ser armazenada uma quantidade significativa de caracteres:

Numéricos: 7.089
Alfa-numérico: 4.296
Binário (8 bits): 2.953
Kanji/Kana (alfabeto japonês): 1.817

Inicialmente criado pela empresa japonesa Denso-Wave em 1994 para identificar peças na indústria automobilística, desde 2003 é usado para adicionar dados a telefones celulares através da câmera fotográfica.Embora pareça ter sido "desvirtuado" de sua concepção inicial, o QR code também pode ser usado como uma maneira eficiente de adicionar dados num formato de cartão de visita em aparelhos celulares.

Pra que possamos gerar um QR code na nossa aplicação é preciso que tenhamos acesso a uma API de um servidor gerador de QR codes  Existem inúmeros geradores por aí, mas poderá utilizar este:


Dois parâmetros serão requeridos, o tamanho e o endereço do site:


Use o código abaixo para visualizar a geração do código em um formulário:

Private Sub GetQR_Click()
 
  On Error GoTo ErrorHandler
 
  Dim url As String
  Dim size As String
  Dim text As String
  Dim windowSize As Long
 
  Let size = Me.SizeText.Value
  Lettext = Me.TextValue.Value
 
  If LenB(text) <> 0 Then
    Let url = Replace(url, "Example", URLEncode(text))
  Else  ' no text, exit
    GoTo ProgramExit
  End If
 
  ' default window size and url
  Let windowSize = 210
  Let url = BASE_URL
   
  If LenB(size) <> 0 Then
    If IsNumeric(size) Then
      If CLng(size) <= 200 Then
        Let url = Replace(BASE_URL, "200", size)
        Let windowSize = CLng(size) + 10
      End If
    End If
  End If
 
  With Me.WebBrowserCtl
    Let .Height = windowSize
    Let .Width = windowSize
    .Navigate url
  End With
 
ProgramExit:
  Exit Sub
ErrorHandler:
  MsgBox Err.Number & " - " & Err.Description
  Resume ProgramExit
End Sub


 

Tags: VBA, QR, QR Code, Código QR, URL, site, hotsite, Denso-Wave,




LinkWithinBrazilVBAExcelSpecialist

Related Posts Plugin for WordPress, Blogger...