Ahora, inicializamos una nueva variable, a la que llamaremos CadSalida, que contendrá la cadena a imprimir, ya formateada con los caracteres necesarios para que el scanner lea nuestro código de barras. Esta variable, inicialmente, contendrá el valor "Ë", que es el caracter "Start", que indicará que lo que está a continuación, es un código de barras Interleaved.
Ahora, para formatear la cadena de salida, tendremos que ir tomando los caracteres que queremos imprimir, de dos en dos. Una vez que los tengamos, nos fijaremos en la variable Caracteres cuál es el caracter que debemos imprimir para obtener ese número que queremos imprimir. (Me quedó algo confuso, me parece)
Vayamos al ejemplo. Recordemos que la cadena que queremos convertir en CdB es: "01234567"
Tomamos los dos primeros caracteres de la cadena a imprimir. Son "01".
Tenemos que convertir esa cadena a valor decimal. Nos queda 1 (uno)
Nos fijamos en la variable Caracteres, cuál es el caracter que debemos imprimir para obtener ese 1. Y acá va una aclaración: el primer caracter de la variable Caracteres corresponde al 0 (cero) por lo que tendremos que fijarnos en la segunda posición. El caracter correspondiente es una comilla doble ("). Agregamos ese caracter a la cadena de salida (CadSalida). En este momento, CadSalida es igual a Ë".
Hacemos lo mismo con el resto de la cadena.
Tomamos los siguientes dos caracteres: "23" --> nos fijamos en la posición 24 (23+1) de Caracteres. El caracter correspondiente es "8". Lo agregamos a la cadena de salida (CadSalida). En este momento, CadSalida = Ë"8.
Y así, hasta agotar la cadena.
Para esto, necesitaremos un bucle:
Código:
For Bucle = 1 to Len(CadAImprimir) Step 2
Num = Val(Mid$(CadAImprimir, Bucle, 2)) + 1
NuevoCar = Mid$(Caracteres, Num, 1)
CadSalida = CadSalida + NuevoCar
Next
Cuando hayamos terminado, CadSalida será igual a: Ë"8Nd
Pero, tenemos que decir de alguna manera, que el CdB ya terminó. Para esto, a CadSalida le agregamos el caracter Stop: "Ì"
Código:
CadSalida = CadSalida + "Ì"
Entonces, luego de este paso, CadSalida valdrá: Ë"8NdÌ
Lo único que nos queda hacer ahora, es imprimir CadSalida con la fuente apropiada. Para esto, bastará con un Label, cuya propiedad Font sea la fuente que instalamos en el primer paso.
Espero que les sea útil. Cualquier problema, pregunten ...
Saludos!!!
Marcadores