• Lenguaje

    Visual Basic .Net

  • Descripción

    El código de barras de un producto consta de 9 dígitos, donde los tres primeros dígitos representan el código del país productor del mismo, los siguientes tres dígitos corresponden al código asignado a la empresa que fabrica el producto, los siguientes dos dígitos corresponden al código del producto concreto y el último dígito es una clave de control, que resulta de aplicar un algoritmo matemático a los otros 8 dígitos.
    Se pide desarrollar un programa que permita ingresar por teclado los 9 dígitos del código de barra de un producto, como un sólo número y por lo tanto almacenado en una sola variable, y luego realice las siguientes tareas:
    1) Descomponga el código de barras en: código de país, código del fabricante, código del producto y clave de control. Informar por pantalla la información obtenida.
    2) Indicar a que país del Mercosur pertenece el producto, sabiendo que el prefijo de cada uno de ellos, según el GTIN (Global Trade Item Number = número mundial de un artículo comercial), es:
    Argentina 779
    Bolivia 777
    Brasil 789 – 790
    Paraguay 784
    Uruguay 773
    Venezuela 759
    Si no corresponde a ninguno de estos países de origen informar que el producto no pertenece al Mercosur. Si el prefijo pertenece a Argentina verificar si el código del fabricante es menor a 65 en cuyo caso indicar mediante un mensaje que el código pertenece a un producto químico.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
Module CodigoDeBarras

    Sub Main()
        Dim clave_de_control, codigo_de_empresa, codigo_del_pais, codigo_del_producto, cpu As Integer
        Console.Write("Ingresa el valor de cpu: ")
        cpu = Integer.Parse(Console.ReadLine())
        codigo_del_pais=(cpu Mod 1000000000-cpu Mod 1000000)/1000000
        codigo_de_empresa=(cpu Mod 1000000-cpu Mod 1000)/1000
        codigo_del_producto=(cpu Mod 1000-cpu Mod 10)/10
        clave_de_control=cpu Mod 10
        If codigo_del_pais = 779 Then
            Console.WriteLine("Argentina")
        End If
        If codigo_del_pais = 777 Then
            Console.WriteLine("Bolivia")
        End If
        If codigo_del_pais = 789 Or codigo_del_pais = 790 Then
            Console.WriteLine("Brasil")
        End If
        If codigo_del_pais = 784 Then
            Console.WriteLine("Paraguay")
        End If
        If codigo_del_pais = 773 Then
            Console.WriteLine("Uruguay")
        End If
        If codigo_del_pais = 759 Then
            Console.WriteLine("Venezuela")
        End If
        If codigo_del_pais <> 779 And codigo_del_pais <> 777 And codigo_del_pais <> 789 And codigo_del_pais <> 790 And codigo_del_pais <> 784 And codigo_del_pais <> 773 And codigo_del_pais <> 759 Then
            Console.WriteLine("El producto no pertenece al Mercosur.")
        End If
        If codigo_del_pais = 779 And codigo_de_empresa<65 Then
            Console.WriteLine("El c" & ChrW(&HF3) & "digo pertenece a un producto qu" & ChrW(&HED) & "mico.")
        End If
        Console.WriteLine("Valor de clave de control: " & clave_de_control)
        Console.WriteLine("Valor de codigo de empresa: " & codigo_de_empresa)
        Console.WriteLine("Valor de codigo del pais: " & codigo_del_pais)
        Console.WriteLine("Valor de codigo del producto: " & codigo_del_producto)
        Console.WriteLine()
        Shell ("cmd /c pause", AppWinStyle.NormalFocus, True)
    End Sub

End Module