Visual Basic.NET - Generar codigo de barra

   
Vista:

Generar codigo de barra

Publicado por Cristian cristian_fg@hotmail.com (37 intervenciones) el 17/11/2012 23:26:55
hola gente...

Necesito generar codigo de barra para un sistema de pago facil.
Me dice que la impresion debe ser : "Interleaved 2 of 5" o "Code 128c"

Alguien me puede decir como es ???

Gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Generar codigo de barra

Publicado por gerardo (10 intervenciones) el 19/11/2012 17:29:04
No se si es lo q necesitas, yo lo hago de la siguiente manera.

Genero el código y le envio a la funcion "codificar odigo de barras"

CODIGOL = codificarCodigoBarras("xxxxxxxx" & Format(Now.Day, "00") & Format(Now.Month, "00") & Mid(Now.Year, 4, 1) & Mid(Trim(Dgseleccionados.Item(i, 3)), 1, 8), 1)

Public Function codificarCodigoBarras(ByVal BarTextIn As String, ByVal Subset As Integer) As String
' Initialize input and output strings
' la funcion se llama con lo siguiente codificarCodigoBarras([refcorreos];1)
Dim BarTextOut, StartChar, BarCodeOut, CheckSum As String
Dim Sum, II, ThisChar, CharValue, CheckSumValue As Long
BarTextOut = ""
BarTextIn = Trim(BarTextIn)
' Set up for the subset we are in
If Subset = 0 Then
Sum = 103
StartChar = "{"
Else
Sum = 104
StartChar = "|"
End If
' Calculate the checksum, mod 103 and build output string
For II = 1 To Len(BarTextIn)
'Find the ASCII value of the current character
ThisChar = (Asc(Mid(BarTextIn, II, 1)))
'Calculate the bar code 128 value
If ThisChar < 123 Then
CharValue = ThisChar - 32
Else
CharValue = ThisChar - 70
End If
'add this value to sum for checksum work
Sum = Sum + (CharValue * II)
'Now work on output string, no spaces in TrueType fonts
If Mid(BarTextIn, II, 1) = " " Then
BarTextOut = BarTextOut & Chr(174)
Else
BarTextOut = BarTextOut & Mid(BarTextIn, II, 1)
End If
Next II
' Find the remainder when Sum is divided by 103
CheckSumValue = (Sum Mod 103)
' Translate that value to an ASCII character
If CheckSumValue > 90 Then
CheckSum = Chr(CheckSumValue + 70)
ElseIf CheckSumValue > 0 Then
CheckSum = Chr(CheckSumValue + 32)
Else
CheckSum = Chr(174)
End If
'Build ouput string, trailing space is for Windows rasterization bug
BarCodeOut = StartChar & BarTextOut & CheckSum & "~ "
'Return the string
codificarCodigoBarras = BarCodeOut
End Function
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Generar codigo de barra

Publicado por Cristian (37 intervenciones) el 19/11/2012 18:13:48
Hola Gerardo....

Muchas gracias por contestar...

Lo voy a probar...

Saludos
Cristian
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Generar codigo de barra

Publicado por david (1 intervención) el 11/12/2013 12:57:10
muchas gracias, funciona correctamente.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar