ayudaCómo obtener el Dígito de Control de un código de barra ia tengo el codigo pero no entiendo ahura k tengo k hacer miren las funciones las tengo toos pero miren k no se k ponerle en el evento button px aver si em ayudan Y_Y les pongo el codigo aver si ustedes hacen uno y me lo pasan hecho o si me pueden dar explicacione de mi caso gracias.

pd. trabajo con el visual studio 2005



mia mi pregunta es k pongo en el boton px k programacion ia se k ta too pero k programacion pongo en el boton ia se k ban don textbox pèro en el botton k hago ayuda por fis Y_Y gracias de ante mano es k no se k hacer cn esta funcion GetDCBarCodEAN13

y aver si me puedes mandar unos tutos de ocx es k soy principiante en esto Y_Y. gracias de ante mano.

Public Function GetDCBarCodEAN13(ByRef number As String) As Integer

'************************************************* ******************
' Nombre: GetDCBarCodEAN13
' por Enrique Martínez Montejo - 07/05/2006
'
' Versión: 1.0
'
' Finalidad: Calcular el dígito de control de un código de
' barras en formato EAN13.
'
' Entradas:
' number: String. El número cuyo digíto de control se desea
' obtener.
' Resultados:
' Integer: El dígito de control del número. En el parámetro de
' la función se devolverá el número completo.
'************************************************* ******************

' Si el número no cumple con el formato EAN13, la función
' devolverá una excepción de argumentos no válidos.
' Para ello, la cadena deberá tener 12 caracteres de
' longitud, y contener sólo números.
'
If number.Length <> 12 Then
number = ""
Throw New System.ArgumentException
Else
Dim ch As Char
For Each ch In number
If Not Char.IsNumber(ch) Then
number = ""
Throw New System.ArgumentException
End If
Next
End If


Dim x, digito, sumaCod As Integer

' Extraigo el valor del dígito, y voy
' sumando los valores resultantes.
'
For x = 11 To 0 Step -1

digito = CInt(number.Substring(x, 1))

Select Case x
Case 1, 3, 5, 7, 9, 11
' Las posiciones impares se multiplican por 3
sumaCod += (digito * 3)

Case Else
' Las posiciones pares se multiplican por 1
sumaCod += (digito * 1)
End Select

Next

' Calculo la decena superior
'
digito = (sumaCod Mod 10)

' Calculo el dígito de control
'
digito = 10 - digito

' Código de barras completo
'
number &= CStr(digito)

' Devuelvo el dígito de control
'
Return digito

End Function





mia mi pregunta es k pongo en el boton px k programacion ia se k ta too pero k programacion pongo en el boton ia se k ban don textbox pèro en el botton k hago ayuda por fis Y_Y gracias de ante mano

Hola, que tal.

Ya lo tienes todo hecho. Has de concatenar number & digito y esto es el código que has de enviar donde lo necesites. A imprimir o a visualizar. Te recomiendo que utilices alguna OCX tipo Barcodex ya que te ahorra infinitamente la programación así como que te aseguras no tener errores.
Ya nos contarás.

__________________
Un saludo.

Alfredo
Barcelona-España
_________________
Visual Basic
Videos Programacion
Foro Programacion
Tutoriales Programacion

mia mi pregunta es k pongo en el boton px k programacion ia se k ta too pero k programacion pongo en el boton ia se k ban don textbox pèro en el botton k hago ayuda por fis Y_Y gracias de ante mano es k no se k hacer cn esta funcion GetDCBarCodEAN13

y aver si me puedes mandar unos tutos de ocx es k soy principiante en esto Y_Y. gracias de ante mano.