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

Imágen de perfil
Val: 26
Ha disminuido 1 puesto en Visual Basic.NET (en relación al último mes)
Gráfica de Visual Basic.NET

Uso de una matriz escalonadagráfica de visualizaciones


Visual Basic.NET

Publicado el 22 de Julio del 2020 por Rafael Angel (77 códigos)
925 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 2020gráfica de visualizaciones de la versión: 1.0
926 visualizaciones desde el 22 de Julio del 2020
estrellaestrellaestrellaestrellaestrella
estrellaestrellaestrellaestrella
estrellaestrellaestrella
estrellaestrella
estrella

Tener Visual Studio 2017 o superior, ademas tener en el mismo a Visual Basic.net
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
44
45
46
47
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

Nombre
Correo (no se visualiza en la web)
Valoración
Comentarios...
CerrarCerrar
CerrarCerrar
Cerrar

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

Puedes registrarte o validarte desde aquí.

Codigo
Negrita
Subrayado
Tachado
Cursiva
Insertar enlace
Imagen externa
Emoticon
Tabular
Centrar
Titulo
Linea
Disminuir
Aumentar
Vista preliminar
sonreir
dientes
lengua
guiño
enfadado
confundido
llorar
avergonzado
sorprendido
triste
sol
estrella
jarra
camara
taza de cafe
email
beso
bombilla
amor
mal
bien
Es necesario revisar y aceptar las políticas de privacidad

http://lwp-l.com/s6367