Visual Basic Foro
Programación => Visual Basic 6 => Mensaje iniciado por: Bazooka en Noviembre 01, 2012, 05:51:47 pm
-
Hola amigos necesitaría crear un soft que genere códigos QR de forma dinámica desde un archivo de texto, sería algo asi!
contenido de los códigos
http://miweb/codigo/yui123
http://miweb/codigo/jka247
http://miweb/codigo/wra893
http://miweb/codigo/abv523
.....
....
etc etc
La idea es que se pueda imprimir esto y que no dependa de una API como el ejemplo de Leandro que esta muy bueno pero te condiciona a estar siempre conectado con lo que esto implica.
Gracias
y estoy averiguando como lo puedo realizar
-
la verdad hay varias librerias pero ninguna gratuita, ojala haya algo por ahi para VB6, algun modulo que lo dibuje, todo lo que veo es VB.NET y C#
saludos.
-
A ver que onda estoy provando una dll y pongo esto :
Private Sub Command1_Click()
Dim cruflBCSObj As Object
Set cruflBCSObj = CreateObject("cruflBCS.QRCode.1")
cruflBCSObj.SetCRLF (1)
cruflBCSObj.ECLevel = 2
Dim retval As String
retval = cruflBCSObj.Encode("14159444")
End Sub
y retval me devuelve esto :
FE1BF8
828208
BAAAE8
BA42E8
BA32E8
823 A08
FEABF8
3000
764030
450768
AFC698
E5C6D0
5 A8D10
0 C6A8
FE34C0
829370
BA1E78
BAC1F0
BAEB40
82 F248
FE04A0
parece un codigo pero como lo llevo a imagen??
-
en la documentacion dice que tenes que aplicarle la fuente llamada typeface , o sea ese codigo ponelo en algun label con esa fuente y te dibuja el codigo.
-
en la documentacion dice que tenes que aplicarle la fuente llamada typeface , o sea ese codigo ponelo en algun label con esa fuente y te dibuja el codigo.
Pero no tengo esa fuente en mi sistema!
voy a buscarla!
-
perdon la fuente se llama BCSQRCode.ttf la podes bajar de la misma pagina y viene con un ejemplo de descarga y la fuente misma :P
Print QR Code In Visual Basic (http://www.barcode-soft.com/es-mx/qrcodevb.aspx)
-
ok!! la encontre a la fuente y efectivemente anduvo!! Solo que claro la dll tiene una proteccion y le pone la palabra demo delante!!
Gracias amigo seba
-
Instale un soft DEMO que trae este modulo para desarrollo pero la verdad no puedo hacer nada todabia:
Public Function qrcode(ByVal strToEncode As String) As String
Dim retval
On Error GoTo clearmem
Dim strTemp
strTemp = ascii2Char(strToEncode)
cruflBCSObj = CreateObject("cruflBCS.QRCode.1")
cruflBCSObj.SetCRLF (1)
cruflBCSObj.ECLevel = 1
retval = cruflBCSObj.EncodeCR(strTemp, "0")
qrcode = retval
clearmem:
cruflBCSObj = Nothing
End Function
Public Function ascii2Char(strInput As String) As String
Dim i As Integer
Dim strTemp As String
Dim nPos As Integer
Dim nValue As Integer
i = 1
nPos = InStr(i, strInput, "&#", vbTextCompare)
While (nPos > 0)
ascii2Char = ascii2Char + Left(strInput, nPos - 1)
strInput = Right(strInput, Len(strInput) - nPos + 1)
i = 3
strTemp = ""
While (i <= Len(strInput) And IsNumeric(Mid(strInput, i, 1)) And Len(strTemp) < 3)
strTemp = strTemp + Mid(strInput, i, 1)
i = i + 1
Wend
nValue = 0
If (strTemp <> "") Then nValue = Val(strTemp)
If (nValue >= 0 And nValue < 128) Then
ascii2Char = ascii2Char + Chr(nValue)
ElseIf (nValue > 127 And nValue < 256) Then
ascii2Char = ascii2Char + ChrW(nValue)
Else
ascii2Char = ascii2Char + Left(strInput, i - 1)
End If
If (i <= Len(strInput) And Mid(strInput, i, 1) = ";") Then
i = i + 1
End If
strInput = Right(strInput, Len(strInput) - i + 1)
nPos = InStr(1, strInput, "&#", vbTextCompare)
Wend
If (Len(strInput) > 0) Then
ascii2Char = ascii2Char + strInput
End If
End Function
Pruebenlo y me dicen si sirva para algo
-
Hola, hay una librería que estoy casi seguro que funcionaria, pero el problema es que es CDECL lo que en visual basic hay que utlizar un modulo clase, yo intente, pero no me salio o almenos me trabe en una parte, seguramente si lo ve Cobein, Coco o alguno entendido mas en el tema, lo puede llegar a poner en marcha. la dll se llama qrcodelib.dll ojo no confundir con una que es un demo esta es GNU License esta la encontre en un foro de PowerBasic.
http://www.jose.it-berater.org/smfforum/index.php?PHPSESSID=6a543939c20def99c5db68a73314875c&topic=4444.0
el lenguaje es muy parecido a vb6, pero hay una función que no pude deducir ya que usa punteros y bueno no se bien por donde ir
-
Que es CDCEL? LEANDRO nunca escuche sobre eso...
-
Hola !! perdon pero que es eso Leandro CDECL ??
Veo que no es para Visual Basic esto... Purebasic??? no sabia que existia ese lenguaje (si es que lo es)
-
Hola Bazooka, la verdad no soy la persona indicada para definirte CDECL , solo se que es otro tipo de dll, diferentes o creo que diferentes a la stdcall, yo solo se que hay un modulo para poder leerlas desde VB6.
Ojala lean este post coco (http://leandroascierto.com/foro/index.php?action=profile;u=4) o Cobein (http://leandroascierto.com/foro/index.php?action=profile;u=5), cualquier cosa mandales un msg, aver si ellos pueden hacer algo o explicarte mejor.
en cuanto a PowerBasic la sintaxis es muy parecida pero al parecer es mas potente parece que utliza punteros y otras mejoras.
apropósito recomiendo ese foro Jose Roca (http://www.jose.it-berater.org/smfforum/index.php), tiene muy buenos tutos y ejemplos, que no son muy difíciles de pasarlos a vb
Saludos.
-
Gracias Leandro no los quiero molestar con mensajes privados pero esperare a ver si ello leen para ver si me dan una mano!! Creo que esto del QR es muy importante de aprender por que se viene con todo!!
-
Bazooka, CDECL es el tipo de convencion utilizada en la funcion, VB utiliza stdcall, cuando vos llamas una api desde VB la funcion es responsable de arreglar el stack antes de retornar, este es el comportamiento esperado por VB, cuando vos llamas una funcion que usa otro tipo de convencion ej: CDECL esta no limpia el stack y VB lo detecta y arroja el error.
Para poder llamar ese tipo de funciones te recomiendo utilizar el codigo de Paul Caton que esta en PSC.
Saludos
-
Hola,Me puedes dar una manito en pasar el codigo que esta en este foro a VB6
http://www.jose.it-berater.org/smfforum/index.php?PHPSESSID=6a543939c20def99c5db68a73314875c&topic=4444.0 (http://www.jose.it-berater.org/smfforum/index.php?PHPSESSID=6a543939c20def99c5db68a73314875c&topic=4444.0)
(http://www.inisoft.mo/realbasic/qrcodextra.jpg)
-
Del post que mencionas descargue http://code.google.com/p/qrencode-win32/downloads/detail?name=qrcode-win32-3.1.1.zip, el instlador tiene un exe (qrencode.exe) que podes invocar usando la linea de comandos para que genere el QR. En el mismo paquete esta el BAT con el ejemplo. Me parece la opcion mas simple.
-
LO HICE COBEIN A ESO!! PERO NO SE PAA QUE SON LOS PARAMETROS QUE UTILIZA COMO UNAS LETRAS H . ademas quiero manipular yo la impresión e imprimir varios distintos en una misma hoja. Pero ya estoy por comprar un control ocx por que me acobardo un poco la busqueda infructuosa!!!
Gracias amigo!
-
Aqui les paso un ejemplo para generar un codigo QR desarrollada en vb6
(http://imageshack.us/a/img803/7471/62298840.jpg)
descarga http://www.4shared.com/rar/Z7MlimOv/QR_CODE.html (http://www.4shared.com/rar/Z7MlimOv/QR_CODE.html)
contraseña para descargas: 123456
También he visto una aplicación hecha en vb.net 2010 que utiliza una librería DLL que se llama ThoughtWorks.QRCode.dll que es libre
fácil que lo puedes migrar a vb 6
Te dejo los datos
Imagen
(https://lh5.googleusercontent.com/-xayw54xldwo/TwGqBUGqHsI/AAAAAAAAE_I/IxOkg-dKyv0/s400/AjpdSoft_gylcqr_022.jpg)
Descarga el codigo fuente del aplicativo mas no de la libreria http://www.ajpdsoft.com/modules.php?name=Downloads&d_op=getit&lid=298 (http://www.ajpdsoft.com/modules.php?name=Downloads&d_op=getit&lid=298)
chekea mas sobre el tema aqui http://www.ajpdsoft.com/modules.php?name=News&file=article&sid=582#.UK_u5ZjQfZ0 (http://www.ajpdsoft.com/modules.php?name=News&file=article&sid=582#.UK_u5ZjQfZ0)
mas info
http://www.codeproject.com/Articles/20574/Open-Source-QRCode-Library (http://www.codeproject.com/Articles/20574/Open-Source-QRCode-Library)
http://marovi-articulostecnicos.blogspot.com/2012/04/generar-qrbarcode.html (http://marovi-articulostecnicos.blogspot.com/2012/04/generar-qrbarcode.html)
-
NO SE PUEDE DESCARGAR SIN REGISTRARSE ?
GRACIAS Cristian pero ni idea de NET y la dll no la puedo cargar desde VB6 !!
Alguna otra idea?
-
no te puedes registrar? tio es algo sencillo.
el primer ejemplo esta echo en vb6 y genera el codigo QR sin nececidad estar conectado a internet y sin la necidad de alguna DLL.
me dices alguna otra idea?
si la idea es que lo descargues y lo adaptes a tus necesidades.
bueno mañana lo subo a otro servidor sin necesidad que te registres
o otro usuario por favor puede bajar de 4shared y subirlo a otro servidor de descarga. ya que estoy fuera de trabajo y en esta cabina no tengo acceso a otras paginas de descarga.
Gracias
-
Buenísimo Cristian, anda muy bien, de donde sacaste ese código? mira que busque y no vi nada
@Bazooka no necesitas registrarte fijate que puso cristian en el primer link (http://www.4shared.com/rar/Z7MlimOv/QR_CODE.html) la contraseña es 123456
Saludos.
-
Felicitaciones Cristian por que tal cual como dijo Leandro anduve muchisimo tiempo buscando asi que muero por verlo!!
El tema del registro siempre que puedo lo evito y aca en este foro me tienen mal acostumbrado. Pero todo bien!
Me Canse de buscar y tenia que dar una solucion a un cliente asi que compre una licencia de un ocx y una dll pero igual quiero meterle mano a esto a ver que podemos hacer y para tener contro labsoluto de lo que sucede.
Bien echo y gracias por compartir!!
-
Buenisimooooo Cristian, implementare esto en el programa de Entradas de Fiesta.
Gracias por compartir mano.
-
Perdón si es una burrada lo que voy a preguntar. Este código lo vengo viendo en varios lugares ya y me surge una duda: ¿qué diferencia tiene con el código de barras? Es decir, ¿por qué sería mejor implementar este tipo de código en lugar del de barras?
Muchas gracias.
-
La señora Wiki te pueda dar una introduccion de lo que es el QR
mira!
http://es.wikipedia.org/wiki/C%C3%B3digo_QR (http://es.wikipedia.org/wiki/C%C3%B3digo_QR)
-
¡Excelente! Muchas gracias.
Ya lo leí y ahora estoy leyendo aquí (tal vez a alguien más también le sirva): http://www.qrcode.com/en/
-
Hola gente
Aquí les traigo la actualización de esa aplicación en la cual fueron corregidos algunos bug's
(http://imageshack.us/a/img846/6049/qrv2.jpg)
Descarga http://www.4shared.com/rar/Oy7VIn6R/BarCode_v2.html (http://www.4shared.com/rar/Oy7VIn6R/BarCode_v2.html)
contraseña de la descarga es 123456
Aqui les dejo otra aplicación, pero para generar hace uso de un OCX
(http://imageshack.us/a/img835/8967/qrocx.jpg)
Descarga http://www.4shared.com/rar/kX7lHnHR/QR-CODE.html (http://www.4shared.com/rar/kX7lHnHR/QR-CODE.html)
contraseña de la descarga es 123456
mas info http://www.tec-it.com/es/download/tbarcode/windows/Download.aspx (http://www.tec-it.com/es/download/tbarcode/windows/Download.aspx)
Gracias
-
Perdón por revivir este hilo, pero me pareció mejor escribir acá y no empezar uno nuevo.
¿Alguien conoce algún código para interpretar los QR?
Vi lo que sugería Leandro, pero me gustaría poder trabajar sin conexión a internet.
¡Muchas gracias!
Jerónimo
-
HOLA AMIGO cristian_19a Tienes idea de como incorporar un logo dentro del código.!!
Gracias
-
O el Sr Youtube
http://www.youtube.com/results?q=que%20es%20cdigo%20qr&um=1&ie=UTF-8&gl=PE&sa=N&tab=w1
Sorry, no me pude aguantar.
-
O el Sr Youtube
http://www.youtube.com/results?q=que%20es%20cdigo%20qr&um=1&ie=UTF-8&gl=PE&sa=N&tab=w1
Sorry, no me pude aguantar.
PERO LA PREGUNTA ES ADMINISTRANDOLO DESDE EL VB6 E INSERTANDO EL MISMO DESDE UN PICTURE O IMAGEN
-
O el Sr Youtube
http://www.youtube.com/results?q=que%20es%20cdigo%20qr&um=1&ie=UTF-8&gl=PE&sa=N&tab=w1
Sorry, no me pude aguantar.
PERO LA PREGUNTA ES ADMINISTRANDOLO DESDE EL VB6 E INSERTANDO EL MISMO DESDE UN PICTURE O IMAGEN
Cometí un error en mi respuesta, lo malo del SMF es que cuando entras a un post no te lleva a la ultima publicación como si lo hace el Vanilla que es el que uso en mi foro y yo habia respondido la ultima publicación de la pagina 1 de este hilo donde te recomendaban sobre "la Sra wiki" sin percatarme que ya se habia generado la pagina 2. Estando en la pag 1 y leyendo la ultima publicación le di al boton Responder. A eso se le suma que cuando respondes no ves tu respuesta porque el SMF te saca del hilo a la pantalla de todas las publicaciones.
Descuido mio. Sorry
EDITO: Cuando uno publica un post este se graba y te saca del hilo, cuando uno edita un post y grabas alli si te deja en el hilo. Detalles.
-
¿Alguien tiene algo hecho en VB6 para leer los códigos QR sin intervención de internet?
Por otro lado, leí que había un programa hecho en VB.NET para generar y leer estos códigos y que se podía usar invocándolo desde VB6. ¿Alguien lo tiene? Descargué el código fuente, pero está hecho en VB.NET 10 y la versión que tengo es la 2008 y me da un montón de errores al abrir (además, no entiendo ni jota de .NET).
Muchas gracias.
Jerónimo
-
Che muy bueno el code de Cristian. Como les paso a todos, nunca habia encontrado nada.
Menos mal que no me puse a tocar el cdecl si ya estaba hecho eso! jajaj
Saludos
-
Hola a todos espero se encuentren bien
Tengo un problema con la dll que se encuentra como descarga en la liga http://leandroascierto.com/blog/qr-code/
Actualmente la estoy intentando invocar en un proyecto de visual basic 6.0 para generar el lector qr, estoy utilizando la clase ClsQrCode, cuando ejecuto la aplicación desde una pc con Windows xp funciona sin problemas, pero al ejecutarla desde una pc con Windows 7 profesional me marca el error: "Run-time Error 380: Invalid property value".
Existe alguna característica especial que me este faltando para ejecutarlo correctamente? O existe alguna versión diferente del qrcode?
Muchas gracias de antemano por su atención, que tengan una buena tarde.
-
Hola a todos espero se encuentren bien
Tengo un problema con la dll que se encuentra como descarga en la liga http://leandroascierto.com/blog/qr-code/
Actualmente la estoy intentando invocar en un proyecto de visual basic 6.0 para generar el lector qr, estoy utilizando la clase ClsQrCode, cuando ejecuto la aplicación desde una pc con Windows xp funciona sin problemas, pero al ejecutarla desde una pc con Windows 7 profesional me marca el error: "Run-time Error 380: Invalid property value".
Existe alguna característica especial que me este faltando para ejecutarlo correctamente? O existe alguna versión diferente del qrcode?
Muchas gracias de antemano por su atención, que tengan una buena tarde.
hola neox10000 primero que nada vuelve a descargar el código tuve que corregir un parámetro nuevo que implementaron.
Por el error que indicas, "Run-time Error 380: Invalid property value", me resulta raro, al parecer no es un problema de dll, seria bueno si lo puedes depurar y decirme en que linea te da ese error para ver puntualmente cual puede ser la falla.
Saludos