Foros del Web » Programación para mayores de 30 ;) » Programación General » Visual Basic clásico »

Cómo generar códigos de barras EAN-128

Estas en el tema de Cómo generar códigos de barras EAN-128 en el foro de Visual Basic clásico en Foros del Web. Hola amigos: Estoy haciendo un programa que genera e imprime etiquetas, pero me falta por incluir el código de barras. Me gustaría saber qué posibilidades ...
  #1 (permalink)  
Antiguo 12/07/2006, 08:42
 
Fecha de Ingreso: julio-2006
Mensajes: 1
Antigüedad: 16 años
Puntos: 0
Cómo generar códigos de barras EAN-128

Hola amigos:
Estoy haciendo un programa que genera e imprime etiquetas, pero me falta por incluir el código de barras.
Me gustaría saber qué posibilidades hay para generar códigos de barras (ean128) y pasarlos a un archivo excel (la etiqueta).
Necesito solucionarlo cuanto antes.
Gracias por leer esto.
Adios
  #2 (permalink)  
Antiguo 13/07/2006, 20:11
 
Fecha de Ingreso: febrero-2006
Mensajes: 37
Antigüedad: 16 años, 5 meses
Puntos: 0
Codigo De Barras

Necesitas un Picturebox y Textbox


Private Sub Txtcode_LostFocus(Index As Integer)
Call DrawBarcode(Txtcode, Picture2)
End Sub


Sub DrawBarcode(ByVal bc_string As String, obj As Control)
Dim xpos!, y1!, y2!, dw%, th!, tw, new_string$
'define barcode patterns
Dim bc(90) As String
bc(1) = "1 1221" 'pre-amble
bc(2) = "1 1221" 'post-amble
bc(48) = "11 221" 'digits
bc(49) = "21 112"
bc(50) = "12 112"
bc(51) = "22 111"
bc(52) = "11 212"
bc(53) = "21 211"
bc(54) = "12 211"
bc(55) = "11 122"
bc(56) = "21 121"
bc(57) = "12 121"
'capital letters
bc(65) = "211 12" 'A
bc(66) = "121 12" 'B
bc(67) = "221 11" 'C
bc(68) = "112 12" 'D
bc(69) = "212 11" 'E
bc(70) = "122 11" 'F
bc(71) = "111 22" 'G
bc(72) = "211 21" 'H
bc(73) = "121 21" 'I
bc(74) = "112 21" 'J
bc(75) = "2111 2" 'K
bc(76) = "1211 2" 'L
bc(77) = "2211 1" 'M
bc(78) = "1121 2" 'N
bc(79) = "2121 1" 'O
bc(80) = "1221 1" 'P
bc(81) = "1112 2" 'Q
bc(82) = "2112 1" 'R
bc(83) = "1212 1" 'S
bc(84) = "1122 1" 'T
bc(85) = "2 1112" 'U
bc(86) = "1 2112" 'V
bc(87) = "2 2111" 'W
bc(88) = "1 1212" 'X
bc(89) = "2 1211" 'Y
bc(90) = "1 2211" 'Z
'Misc
bc(32) = "1 2121" 'space
bc(35) = "" '# cannot do!
bc(36) = "1 1 1 11" '$
bc(37) = "11 1 1 1" '%
bc(43) = "1 11 1 1" '+
bc(45) = "1 1122" '-
bc(47) = "1 1 11 1" '/
bc(46) = "2 1121" '.
bc(64) = "" '@ cannot do!
bc(65) = "1 1221" '*

bc_string = UCase(bc_string)

'dimensions
obj.ScaleMode = 3 'pixels
obj.Cls
obj.Picture = Nothing
dw = CInt(obj.ScaleHeight / 40) 'space between bars
If dw < 1 Then dw = 1
'Debug.Print dw
th = obj.TextHeight(bc_string) 'text height
tw = obj.TextWidth(bc_string) 'text width
new_string = Chr$(1) & bc_string & Chr$(2) 'add pre-amble, post-amble

y1 = obj.ScaleTop
y2 = obj.ScaleTop + obj.ScaleHeight - 1.5 * th
obj.Width = 1.1 * Len(new_string) * (15 * dw) * obj.Width / obj.ScaleWidth


'draw each character in barcode string
xpos = obj.ScaleLeft
For n = 1 To Len(new_string)
c = Asc(Mid$(new_string, n, 1))
If c > 90 Then c = 0
bc_pattern$ = bc(c)

'draw each bar
For i = 1 To Len(bc_pattern$)
Select Case Mid$(bc_pattern$, i, 1)
Case " "
'space
obj.Line (xpos, y1)-(xpos + 1 * dw, y2), &HFFFFFF, BF
xpos = xpos + dw

Case "1"
'space
obj.Line (xpos, y1)-(xpos + 1 * dw, y2), &HFFFFFF, BF
xpos = xpos + dw
'line
obj.Line (xpos, y1)-(xpos + 1 * dw, y2), &H0&, BF
xpos = xpos + dw

Case "2"
'space
obj.Line (xpos, y1)-(xpos + 1 * dw, y2), &HFFFFFF, BF
xpos = xpos + dw
'wide line
obj.Line (xpos, y1)-(xpos + 2 * dw, y2), &H0&, BF
xpos = xpos + 2 * dw
End Select
Next
Next

'1 more space
obj.Line (xpos, y1)-(xpos + 1 * dw, y2), &HFFFFFF, BF
xpos = xpos + dw

'final size and text
obj.Width = (xpos + dw) * obj.Width / obj.ScaleWidth
obj.CurrentX = (obj.ScaleWidth - tw) / 2
obj.CurrentY = y2 + 0.25 * th
obj.Print bc_string

'copy to clipboard
obj.Picture = obj.Image
Clipboard.Clear
Clipboard.SetData obj.Image, 2

End Sub
__________________
Jerico
  #3 (permalink)  
Antiguo 13/07/2006, 20:18
 
Fecha de Ingreso: febrero-2006
Mensajes: 37
Antigüedad: 16 años, 5 meses
Puntos: 0
Codigo De Barras

Hola

El codigo te funciona en Excel si lo Creas como una funcion en el editor de VBA

Tambien puedes usar Fonts especiales que te hacen la conversion automaticamente si es que no quieres escribir codigo , las encuentras en internet como : Barcode128interal ó bcode128.ttf

Si las quieres dime a que correo te las mando

Saludos
__________________
Jerico
  #4 (permalink)  
Antiguo 16/01/2009, 09:15
 
Fecha de Ingreso: mayo-2007
Mensajes: 23
Antigüedad: 15 años, 1 mes
Puntos: 0
Respuesta: Cómo generar códigos de barras EAN-128

Hola Jericosoft

Necesito, si es posible, me colabores con las fuentes para generar código de barras EAN 128 ya q las he buscado x Internet y aún no las encuentro.

Por otro lado, estuve probando el código q colocas aca en .net y encuentro errores con los metodos de la clase control. Me dice x ejemplo q el Error 'SizeMode' is not a member of 'System.Windows.Forms.Control'. y asi con casi todos los metodos asociados al objeto obj q entra por parametros.

De antemano le agradezco su colaboración.
  #5 (permalink)  
Antiguo 26/11/2009, 17:33
 
Fecha de Ingreso: noviembre-2009
Ubicación: Cancun
Mensajes: 3
Antigüedad: 12 años, 7 meses
Puntos: 0
Respuesta: Cómo generar códigos de barras EAN-128

HOLA ALGUIEN PODRIA ENVIARME LAS FONTS PORFAVOR POR MAIL !!!! a [email protected] (infomfARROBAgmail.com)
  #6 (permalink)  
Antiguo 27/11/2009, 01:01
Avatar de erbuson  
Fecha de Ingreso: noviembre-2009
Mensajes: 701
Antigüedad: 12 años, 7 meses
Puntos: 53
Respuesta: Cómo generar códigos de barras EAN-128

Cita:
Iniciado por martinfrank Ver Mensaje
HOLA ALGUIEN PODRIA ENVIARME LAS FONTS PORFAVOR POR MAIL !!!! a [email protected] (infomfARROBAgmail.com)
Te he enviado un mail, porque no pude poner el enlace como mensaje por limitaciones del foro.

Saludos
  #7 (permalink)  
Antiguo 27/11/2009, 06:14
 
Fecha de Ingreso: junio-2008
Ubicación: Madrid
Mensajes: 2
Antigüedad: 14 años
Puntos: 0
Respuesta: Cómo generar códigos de barras EAN-128

Hola,
Necesito código VBA para generar códigos de barras desde una textbox en MS_Access. He encontrado algo pero me dicen que tengo que añadir un Picturebox y ese control no existe, con lo que el código que tengo no funciona.
Alguna solución??
Muchas gracias
  #8 (permalink)  
Antiguo 27/11/2009, 06:30
Avatar de erbuson  
Fecha de Ingreso: noviembre-2009
Mensajes: 701
Antigüedad: 12 años, 7 meses
Puntos: 53
Respuesta: Cómo generar códigos de barras EAN-128

Hola:

Es de suponer, aunque no lo se por propia experiencia, que utilizando un Label con el tipo de fuente adecuado puede visualizarse la secuencia deseada.

Saludos
  #9 (permalink)  
Antiguo 08/09/2010, 05:27
 
Fecha de Ingreso: septiembre-2010
Mensajes: 1
Antigüedad: 11 años, 9 meses
Puntos: 0
Respuesta: Cómo generar códigos de barras EAN-128

Por favor podeis enviarme esas fuentes. No las encuentro en ningun sitio:

[email protected]

Gracias
  #10 (permalink)  
Antiguo 09/09/2010, 12:01
Avatar de culd  
Fecha de Ingreso: noviembre-2003
Mensajes: 959
Antigüedad: 18 años, 8 meses
Puntos: 19
Respuesta: Cómo generar códigos de barras EAN-128

Comprate una impresora EPL como ser una zebra... Esas impresoras son para codigo de barras :)
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 23:16.