Baixe o Calendário Compacto para 2014 em Excel
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...
O 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.
O 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.
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...
O 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.
O 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:
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.
Numéricos: 7.089
Alfa-numérico: 4.296
Binário (8 bits): 2.953Kanji/Kana (alfabeto japonês): 1.817
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 StringDim size As StringDim text As StringDim windowSize As LongLet size = Me.SizeText.ValueLettext = Me.TextValue.ValueIf LenB(text) <> 0 ThenLet url = Replace(url, "Example", URLEncode(text))Else ' no text, exitGoTo ProgramExitEnd If' default window size and urlLet windowSize = 210Let url = BASE_URLIf LenB(size) <> 0 ThenIf IsNumeric(size) ThenIf CLng(size) <= 200 ThenLet url = Replace(BASE_URL, "200", size)Let windowSize = CLng(size) + 10End IfEnd IfEnd IfWith Me.WebBrowserCtlLet .Height = windowSizeLet .Width = windowSize.Navigate urlEnd WithProgramExit:Exit SubErrorHandler:MsgBox Err.Number & " - " & Err.DescriptionResume ProgramExitEnd Sub
