He aquí la forma de como obtener el código QR en tu Form.
Los códigos QR se han vuelto muy populares y por eso es importante que sepamos como usarlos en nuestras aplicaciones, porque pueden darles un muy buen valor agregado de igual forma le da una apariencia distinta al programa.
¿Qué es un código QR?
Es un código que nos permite almacenar muchos datos y luego obtener esos datos muy rápido.
QR son las iniciales de Quick Response.
El código QR es una versión mejorada de los muy conocidos códigos de barra. Pero mientras que los
códigos de barra son uni-dimensionales, los códigos QR son bi-dimensionales, o sea que tienen dos dimensiones. Y por lo tanto, pueden guardar muchos más datos.
Que debemos hacer para que funcione el código QR?.
En la carpeta en la cual vayas a trabajar deberás colococar el fonts MW6Matrix.ttf y la dll
QRCodeFont.dll
En el evento Init coloca el siguiente procedimiento:
PUBLIC xqr,xvalor
xvalor=""
cFileName2 = "MW6Matrix.ttf"
If !File("c:\windows\fonts\MW6Matrix.ttf")
Run "C:\Users\FamVas2\Desktop\sallim_signature\&cFileName2"
ENDIF
thisform.container1.command1.SetFocus
thisform.Refresh
El programa buscará si existe el fonts MW6Matrix.ttf y verificará si existe, de lo contrario instalará el fonts en tu equipo.
Deberás crear en el formulario el evento qr y pegar la siguiente instrucción :
Declare QRCodeEncode in QRCodeFont.dll String @DataString, Short Version, Short Level, Short Mask
Declare Short QRCodeGetRows in QRCodeFont.dll
Declare Short QRCodeGetCols in QRCodeFont.dll
Declare Short QRCodeGetCharAt in QRCodeFont.dll Short RowIndex, Short ColIndex
ThisForm.container1.txtQRCode.Value = ""
ThisForm.container1.txtQRCode.FontName = "MW6 Matrix"
ThisForm.container1.txtQRCode.FontSize = 12
Mode = 0
QRCodeEncode("Your Message", 0, 2, 0)
RowCount = QRCodeGetRows()
ColCount = QRCodeGetCols()
EncodedMsg = Chr(13) + Chr(10)
For I = 1 To RowCount
For J = 1 To ColCount
EncodedMsg = EncodedMsg + Chr(QRCodeGetCharAt(I - 1, J - 1))
EndFor
EncodedMsg = EncodedMsg + Chr(13) + Chr(10)
EndFor
ThisForm.container1.txtQRCode.Value = EncodedMsg
xqr=EncodedMsg
Deberás asignarle al Text1 en la propiedades y buscar ControlSource y darle el nombre de xvalor y el txtqrcode le asignarásel nombre de xqr.
En la parte de abajo te estaré dejando el link de descarga y podrás descargar el programa de manera gratuita.
0 comentarios:
Publicar un comentario