lunes, 24 de septiembre de 2018

Aplicacion de menu con VB Consola



Imports System.Console
Module MdoMenu
    Dim Opcion As Integer = 0
    Dim M(3, 3) As Integer
    Dim SW As Integer = 0
    Sub Main()
        Do While SW = 0
            Clear()
            WriteLine("=================================================================")
            WriteLine("=               ( MENU PRINCIPAL )                              =")
            WriteLine("=================================================================")
            WriteLine("= 1. Llenar una Matriz                                          =")
            WriteLine("= 2. Imprimir una matriz                                        =")
            WriteLine("= 3. Fin                                                        =")
            WriteLine("=================================================================")
            Opcion = ReadLine()
            Select Case Opcion
                Case 1
                    Call LLenar_Matriz()
                Case 2
                    Call Imprimir_Matriz()
                Case 3
                    SW = 1
            End Select

        Loop
    End Sub
    Private Sub LLenar_Matriz()
        Clear()
        WriteLine("=================================================================")
        WriteLine("=                ( LLENAR UNA MATRIZ DE 3x3 )                   =")
        WriteLine("=================================================================")
        Dim N As Integer
        Dim I, J As Integer
        For I = 0 To 2
            For J = 0 To 2
                Write("Digite elemento " & "( " & I & " , " & J & " ) ")
                N = ReadLine()
                M(I, J) = N
            Next J
        Next I
        WriteLine("Presione una tecla para continuar....")
        ReadKey()
    End Sub
    Private Sub Imprimir_Matriz()
        Clear()
        WriteLine("=================================================================")
        WriteLine("=              ( IMPRESION DE UNA MATRIZ DE 3x3 )               =")
        WriteLine("=================================================================")
        Dim N As Integer
        Dim I, J As Integer
        For I = 0 To 2
            For J = 0 To 2
                Write(String.Format(M(I, J), "0:###,###,###,###") & " ")

                '  String.Format("{0:###,###,###,##0.00##}", Decimal.Parse(unNumero));

            Next J
            WriteLine(" ")
            WriteLine(" ")
        Next I
        WriteLine("Presione una tecla para continuar....")
        ReadKey()

    End Sub
End Module

Trabajo final de excel intermedio

 Se recibe un archivo con la información de la estadistica de venta en formato plano Con estos datos realice lo siguiente: 1. Importe la inf...