Código de Visual Basic.NET - Uso de una matriz escalonada

Pos: 101

Val: 26

Ha disminuido 1 puesto en Visual Basic.NET (en relación al último mes)

Uso de una matriz escalonada

Visual Basic.NET

Publicado el 22 de Julio del 2020 por Rafael Angel (81 códigos)

1.695 visualizaciones desde el 22 de Julio del 2020

Hola con este primer código en Visual Basic.Net 2017, quiero mostrar cómo usar una matriz escalonada.
Este ejemplo también está en MSDB online, pero tanto los códigos y los comentarios estan en ingles.
Yo con mis bases del ingles lo traduje a español.
Además tiene la referencia de donde lo tome, la misma la pondre aqui.
Obtenido de https://docs.microsoft.com/es-es/dotnet/visual-basic/programming-guide/language-features/arrays/
.
.
.
Yo también aprendí realizandolo paso a paso.
O mejor dicho me actualice, ya que vb.net no es muy diferente de vb6, solo tiene un montón de cosas nuevas, muy versátiles.
Las cuales después de usarlas algunas semanas ya no se quería regresar a vb6.
.
.
.
Así mismo, yo me vi forzado a pasarme a vb,net debido a un trabajo empresarial que me salio.
Estoy diseñando un gestor de facturas digitales en modo proyecto webform.
Yo me enfrente a esta tecnología apenas teniendo algunas nociones. En especial la tecnología del WebForm que es todo un mundo.
Pero por razones de trabajo se debe hacer.
.
.
Así que en adelante de vez en cuando publicaré códigos de VB.NET.
No obstante, en la mayoría de publicaciones vendrán comentarios demostrando el código en vb6 y luego como se ve en vb.net.

1.0

Publicado el 22 de Julio del 2020

gráfica de visualizaciones de la versión: 1.0

1.696 visualizaciones desde el 22 de Julio del 2020

Tener Visual Studio 2017 o superior, ademas tener en el mismo a Visual Basic.net

Public Module Matrices

Public Sub MatrizEscalonada()

        Const SALTO_DE_LINEA As String = Chr(13)

        'Demostracion del uso de una matriz escalonada. Basado en la version en ingles del ejemplo, en el sitio:

        'Obtenido de https://docs.microsoft.com/es-es/dotnet/visual-basic/programming-guide/language-features/arrays/

        'O sea anidar matrices dentro de otras matrices.

        'El siguiente ejemplo usa los dias, semanas y meces para representarse.

        Dim mVentas(11)() As Double

        For mes As Integer = 0 To 11

            'Obteniendo los dias de cada mes de acuerdo al tamaño...

            Dim diasDelMes As Integer = DateTime.DaysInMonth(Year(Now), mes + 1)

            mVentas(mes) = New Double(diasDelMes - 1) {}

        Next

        'Llenando la matriz con datos.

        For mes As Integer = 0 To 11

            For DiasDelMes As Integer = 0 To mVentas(mes).GetUpperBound(0)

                mVentas(mes)(DiasDelMes) = (mes * 100) + DiasDelMes

            Next

        Next

        'Obteniendo los nombres de los meces colocandolos de una ves en la matriz.

        Dim nombresDeLosMeces() As String = Globalization.DateTimeFormatInfo.CurrentInfo.AbbreviatedMonthNames

        'Variable en la que se cargaran los nombres de los meces para luego mostrarla con un msgbox.

        Dim vLista As String = "" 'Se debe inicializar la variable, porque se esta usando el operador += antes que le entre informacion.

        For contador As Integer = 0 To mVentas.GetUpperBound(0)

            vLista += nombresDeLosMeces(contador) & SALTO_DE_LINEA

        Next

        MsgBox(vLista)

        'Mostrando la informacion de cada dia de cada mes.

        'Variable para almacenar los datos de la interaccion para luego mostrar todo con un msgbox.

        Dim vDatos As String = "" 'Se debe inicializar la variable, porque se esta usando el operador += antes que le entre informacion.

        For diaDelMes As Integer = 0 To 30

            vDatos += "Numero del dia del mes " & (diaDelMes + 1)

            For numeroDelMes As Integer = 0 To mVentas.GetUpperBound(0)

                If diaDelMes > mVentas(numeroDelMes).GetUpperBound(0) Then

                    vDatos += SALTO_DE_LINEA + "Nuevo mes." + SALTO_DE_LINEA + SALTO_DE_LINEA

                Else

                    vDatos += "Datos de este dia: " + mVentas(numeroDelMes)(diaDelMes) + SALTO_DE_LINEA

                End If

            Next

            vDatos += SALTO_DE_LINEA

        Next

        MsgBox(vDatos)

    End Sub

End Module

Comentarios sobre la versión: 1.0 (0)

No hay comentarios

Comentar la versión: 1.0

http://lwp-l.com/s6367

Codificar y decodificar una cadena con VB.NET

Programa para Estetica o negocio Similar

Código de Visual Basic.NET - Uso de una matriz escalonada

1.0

Comentarios sobre la versión: 1.0 (0)

Comentar la versión: 1.0

Tienes que ser un usuario registrado para poder insertar imágenes, archivos y/o videos.