|     Inicio    |   |         |  |   FOROS      |  |      |      
   Elastix - VoIP B4A (Basic4Android) App inventor 2 PHP - MySQL
  Estación meteorológica B4J (Basic4Java) ADB Shell - Android Arduino
   AutoIt (Programación) Visual Basic Script (VBS) FireBase (BD autoactualizable) NodeMCU como Arduino
  Teleco - Emisora de A.M. Visual Basic Cosas de Windows Webs interesantes
Translate:
Búsqueda en este sitio:


Nuevo concurso para España, Argentina, Brasil, Chile, Colombia, Ecuador, México, Perú y Portugal.

B4A en español - Juan Antonio Villalpando
(BASIC4Android)

-- Tutorial de B4A --

Volver al índice del tutorial

____________________________

101.- Código QR.

A estas alturas todos conocemos los códigos de barras y los QR, vamos a trabajar con ellos.

Los tres cuadrados de las esquinas permiten detectar al lector la posición del código QR.
Un detalle importante sobre el código QR es que, a diferencia de otros formatos de códigos de barras bidimensionales como el BIDI , su código es abierto y sus derechos de patente (propiedad de Denso Wave) no son ejercidos.

Los códigos QR (Quick Response, Respuesta Rápida) pueden contener información de texto. Pueden contener hasta 4296 caracteres.

Podemos encontrar conversores a/de QR en distintas aplicaciones para el Android y online, es muchas páginas web, como esta...

http://goqr.me/

____________________________________________

1.- ¿Puedo hacer una página web que me convierta textos a QR?

Pues sí, lo puedes hacer mediante un módulo QR para PHP.

Supogamos que tienes un servidor web, remoto o local.

Vas a... https://github.com/t0k4rt/phpqrcode

Te bajas phpqrcode_xx_xx.zip de aquí por ejemplo: http://sourceforge.net/projects/phpqrcode/

https://github.com/t0k4rt/phpqrcode/archive/master.zip

Lo descomprimes y copias la carpeta phpqrcode con su contenido en un directorio de tu sitio web, yo lo he copiado en un directorio llamado androi que tengo en mi sitio web.

Ahora en esa misma carpeta androi, subimos este archivo, lo llamamos codigoqr.php

Archivo llamado codigoqr.php
<?php
include "phpqrcode/qrlib.php";

QRcode::png("Hola, me llamo Juan Antonio.");

?>t

Ahora vamos a esta dirección para comprobar su funcionamiento...

http://kio4.com/androi/codigoqr.php

Nos saldrá el código QR de la frase del archivo.

- Bien, pero más sencillo esto... ve a...

http://kio4.com/androi/phpqrcode/

El archivo index.php que está en la carpeta phpqrcode, tiene el código del interface.

Mediante formularios con casilleros podemos mejorar el código para que el usuario pueda escribir cualquier texto.

Se pueden realizar el QR con colores y otros atributos...

Added support for eps export
Usage : QRcode::eps('arguments');

Added support for SVG export
Usage : QRcode::svg('arguments');

Added support for color export :
example :
$back_color = 0xFFFF00;
$fore_color = 0xFF00FF;

QRcode::png('some othertext 1234', false, 'h', 20, 1, false, $back_color, $fore_color);

____________________________________________

2.- Lectura de código QR con Basic4Android.

En los foros podemos encontrar la librería ABZxing y un sencillo y claro ejemplo.

- Pruébalo, posiblemente en tu Android ya tendrás instalada herramientas necesarias para realizar el escaneo, en el caso de que no funcione, ve a la Play de Google y te bajas Zxing o bien QuickMark, con cualquiera de estas dos herramientas completará el funcionamiento del código QR para B4A.

Creamos un Layout llamado "ABBarcodeTest" e insertamos un Button1 y un Label1

Código del programa en B4A obtenido de los foros.

Sub Process_Globals
    Dim mResult As String
End Sub
 
Sub Globals
    Dim Button1 As Button
    Dim myABBarcode As ABZxing
    Dim Label1 As Label
End Sub
 
Sub Activity_Create(FirstTime As Boolean)
    Activity.LoadLayout("ABBarcodeTest")        
    Label1.Text = mResult
End Sub
 
Sub Activity_Resume
 
End Sub
 
Sub Activity_Pause (UserClosed As Boolean)
    
End Sub
 
Sub Button1_Click
    myABBarcode.ABGetBarcode("myabbarcode", "")
End Sub
 
Sub myABBarcode_BarcodeFound (barCode As String, formatName As String)
    Label1.Text = barCode
    mResult = barCode
End Sub
 
Sub myABBarcode_Canceled()
    Label1.Text = "Canceled"
    mResult = "Canceled"    
End Sub

________________________________

- Mi correo:
juana1991@yahoo.com
- KIO4.COM - Política de cookies. Textos e imágenes propiedad del autor:
© Juan A. Villalpando
No se permite la copia de información ni imágenes.
Usamos cookies propias y de terceros que entre otras cosas recogen datos sobre sus hábitos de navegación y realizan análisis de uso de nuestro sitio.
Si continúa navegando consideramos que acepta su uso. Acepto    Más información