Banner Ejercicio VB.Net - Curso de Programación Visual Basic




 Ejercicio

Banner

Objetivo

Cree un programa de Visual Basic para imitar la utilidad básica de "banner" de Unix SysV, capaz de mostrar textos grandes.

Código

Imports System
Public Class exercise87
    Private Shared Sub Main(ByVal args As String())
        Dim esqueleto As String() = {"         ###  ### ###  # #   ##### ###   #  ##     ###  ", "         ###  ### ###  # #  #  #  ## #  #  #  #    ###  ", "         ###   #   # ########  #   ### #    ##      #   ", "          #            # #   #####    #    ###     #    ", "                     #######   #  #  # ####   # #       ", "         ###           # #  #  #  # #  # ##    #        ", "         ###           # #   ##### #   ### #### #       ", "   ##    ##                                            #", "  #        #   #   #    #                             # ", " #          #   # #     #                            #  ", " #          # ####### #####   ###   #####           #   ", " #          #   # #     #     ###           ###    #    ", "  #        #   #   #    #      #            ###   #     ", "   ##    ##                   #             ###  #      ", "  ###     #    #####  ##### #      ####### ##### #######", " #   #   ##   #     ##     ##    # #      #     ##    # ", "#     # # #         #      ##    # #      #          #  ", "#     #   #    #####  ##### #    # ###### ######    #   ", "#     #   #   #            ########      ##     #  #    ", " #   #    #   #      #     #     # #     ##     #  #    ", "  ###   ##### ####### #####      #  #####  #####   #    ", " #####  #####    #     ###      #           #     ##### ", "#     ##     #  ###    ###     #             #   #     #", "#     ##     #   #            #     #####     #        #", " #####  ######         ###   #                 #     ## ", "#     #      #   #     ###    #     #####     #     #   ", "#     ##     #  ###     #      #             #          ", " #####  #####    #     #        #           #       #   ", " #####    #   ######  ##### ###### ############## ##### ", "#     #  # #  #     ##     ##     ##      #      #     #", "# ### # #   # #     ##      #     ##      #      #      ", "# # # ##     ####### #      #     ######  #####  #  ####", "# #### ########     ##      #     ##      #      #     #", "#      #     ##     ##     ##     ##      #      #     #", " ##### #     #######  ##### ###### ########       ##### ", "#     #  ###        ##    # #      #     ##     ########", "#     #   #         ##   #  #      ##   ####    ##     #", "#     #   #         ##  #   #      # # # ## #   ##     #", "#######   #         ####    #      #  #  ##  #  ##     #", "#     #   #   #     ##  #   #      #     ##   # ##     #", "#     #   #   #     ##   #  #      #     ##    ###     #", "#     #  ###   ##### #    # ########     ##     ########", "######  ##### ######  ##### ########     ##     ##     #", "#     ##     ##     ##     #   #   #     ##     ##  #  #", "#     ##     ##     ##         #   #     ##     ##  #  #", "###### #     #######  #####    #   #     ##     ##  #  #", "#      #   # ##   #        #   #   #     # #   # #  #  #", "#      #    # #    # #     #   #   #     #  # #  #  #  #", "#       #### ##     # #####    #    #####    #    ## ## ", "#     ##     ######## ##### #       #####    #          ", " #   #  #   #      #  #      #          #   # #         ", "  # #    # #      #   #       #         #  #   #        ", "   #      #      #    #        #        #               ", "  # #     #     #     #         #       #               ", " #   #    #    #      #          #      #               ", "#     #   #   ####### #####       # #####        #######", "  ###                                                   ", "  ###     ##   #####   ####  #####  ###### ######  #### ", "   #     #  #  #    # #    # #    # #      #      #    #", "        ###### #    # #      #    # #      #      #  ###", "    #   #    # #####  #      #    # #####  #####  #     ", "        #    # #    # #    # #    # #      #      #    #", "        #    # #####   ####  #####  ###### #       #### ", "                                                        ", " #    #    #        # #    # #      #    # #    #  #### ", " #    #    #        # #   #  #      ##  ## ##   # #    #", " ######    #        # ####   #      # ## # # #  # #    #", " #    #    #        # #  #   #      #    # #  # # #    #", " #    #    #   #    # #   #  #      #    # #   ## #    #", " #    #    #    ####  #    # ###### #    # #    #  #### ", "                                                        ", " #####   ####  #####   ####   ##### #    # #    # #    #", " #    # #    # #    # #         #   #    # #    # #    #", " #    # #    # #    #  ####     #   #    # #    # #    #", " #####  #  # # #####       #    #   #    # #    # # ## #", " #      #   #  #   #  #    #    #   #    #  #  #  ##  ##", " #       ### # #    #  ####     #    ####    ##   #    #", "                       ###     #     ###   ##    # # # #", " #    #  #   # ###### #        #        # #  #  # # # # ", "  #  #    # #      #  #        #        #     ## # # # #", "   ##      #      #  ##                 ##        # # # ", "   ##      #     #    #        #        #        # # # #", "  #  #     #    #     #        #        #         # # # ", " #    #    #   ######  ###     #     ###         # # # #"}
        Console.Write("Tell a string:")
        Dim Entry As String = Console.ReadLine()
        Dim j As Byte = 1
        Dim Letra As Char
        Dim CodigoAscii As Integer() = New Integer(Entry.Length - 1) {}

        For i As Integer = 0 To Entry.Length - 1
            Letra = Convert.ToChar(Entry.Substring(i, j))
            CodigoAscii(i) = Convert.ToInt32(Letra)
        Next

        Dim AnchoLetras As Integer = 7, AltoLetra As Integer = 7
        Dim numeroAscii As Integer = 32
        Dim countLineas As Integer = 0, countLetras As Integer = 0, countPosiciones As Integer = 0
        Dim LetraEncontrada As Boolean = False
        Dim cadena As String() = New String(AltoLetra - 1) {}

        For i As Integer = 0 To CodigoAscii.Length - 1

            For row As Integer = 0 To esqueleto.Length - 1

                If countLetras = 8 Then
                    row += AltoLetra - 1
                    countLetras = 0
                    countPosiciones = 0
                End If

                While (Not LetraEncontrada) AndAlso (countLetras < 8)

                    If CodigoAscii(i) = numeroAscii Then
                        LetraEncontrada = True
                    Else
                        numeroAscii += 1
                        countPosiciones += AnchoLetras
                        countLetras += 1
                    End If
                End While

                If (LetraEncontrada) AndAlso (countLineas < 7) Then

                    If i > 0 Then
                        cadena(countLineas) = cadena(countLineas) & esqueleto(row).Substring(countPosiciones, AnchoLetras)
                    Else
                        cadena(countLineas) = esqueleto(row).Substring(countPosiciones, AnchoLetras)
                    End If

                    countLineas += 1
                End If
            Next

            countLineas = 0
            numeroAscii = 32
            LetraEncontrada = False
            countPosiciones = 0
            countLetras = 0
        Next

        For i As Integer = 0 To cadena.Length - 1
            Console.WriteLine(cadena(i))
        Next
    End Sub
End Class


Más ejercicios Visual Basic (VB.Net) de Matrices, Estructuras y Cadenas

 Matriz inversa
Cree un programa en Visual Basic para pedir al usuario 5 números, guárdelos en una matriz y muéstrelos en orden inverso....
 Buscar en matriz
Cree un programa en Visual Basic que diga si un dato pertenece a una lista que se creó anteriormente.Los pasos a seguir son: - Preguntar al usuario...
 Matriz de números pares
Escriba un programa de Visual Basic para pedir al usuario 10 números enteros y mostrar los pares....
 Matriz de números positivos y negativos
Cree un programa de Visual Basic para pedir al usuario 10 números reales y mostrar el promedio de los positivos y el promedio de los negativos....
 Muchos números y suma
Cree un programa en Visual Basic que le pida al usuario varios números (hasta que ingrese "fin" y muestre su suma). Cuando la ejecución va a terminar,...
 Matriz bidimensional
Escriba un programa de Visual Basic para pedir al usuario las calificaciones de 20 alumnos (2 grupos de 10, utilizando una matriz bidimensional) y mue...
 Estadísticas V2
Crear un programa en Visual Basic estadístico que permita al usuario: - Añadir nuevos datos - Ver todos los datos introducidos - Buscar un artícu...
 Estructura
Crea una "estructura" para almacenar datos de puntos 2D. Los campos para cada punto serán: coordenada x (corta) y coordenada (corta) r (color roj...
 Matriz de estructura
Expanda el ejercicio anterior (punto de estructura), de modo que se puedan almacenar hasta 1.000 puntos, utilizando una "matriz de estructura". Pida a...
 Matriz de estructura y menú
Expanda el ejercicio anterior (matriz de puntos), de modo que muestre un menú, en el que el usuario puede elegir: - Añadir datos para un punto - M...
 Base de datos de libros
Cree una pequeña base de datos, que se utilizará para almacenar datos sobre libros. Para un determinado libro, queremos conservar la siguiente informa...
 Triángulo V2
Escriba un programa de Visual Basic para pedirle al usuario su nombre y muestre un triángulo con él, comenzando con 1 letra y creciendo hasta que teng...
 Rectángulo V3
Escriba un programa de Visual Basic para pedir al usuario su nombre y un tamaño, y muestre un rectángulo hueco con él: Introduce tu nombre: Yo Tam...
 Triángulo centrado
Mostrar un triángulo centrado a partir de una cadena introducida por el usuario: __a__ _uan_ Juan...
 Base de datos de ciudades
Cree una base de datos para almacenar información sobre las ciudades. En un primer acercamiento, almacenaremos solo el nombre de cada ciudad y el n...
 Triángulo lado derecho
Cree un programa en Visual Basic que solicite al usuario una cadena y muestre un triángulo alineado a la derecha: ____n ___an __uan Juan...
 Manipulación de cadenas
Cree un programa en Visual Basic que solicite al usuario una cadena y: - Sustituir todas las minúsculas A por mayúsculas A, excepto si van precedid...
 Estructuras anidadas
Cree una estructura para almacenar dos datos para una persona: nombre y fecha de nacimiento. La fecha de nacimiento debe ser otra estructura q...
 Ordenar datos
Cree un programa de Visual Basic para pedir al usuario 10 números enteros (de -1000 a 1000), ordenarlos y mostrarlos ordenados....
 Matriz bidimensional como búfer para pantalla
Cree un programa de Visual Basic que declare una matriz bidimensional de caracteres de 70x20, "dibuje" 80 letras (X, por ejemplo) en posiciones aleato...
 Matriz bidimensional 2: circunferencia en pantalla
Cree un programa de Visual Basic que declare que crea una matriz bidimensional de caracteres de 70x20, "dibuja" una circunferencia o radio 8 dentro de...
 Programas informáticos
Cree un programa de Visual Basic que pueda almacenar hasta 1000 registros de programas informáticos. Para cada programa, debe conservar los siguientes...
 Tareas de ejercicio
Crea un programa en Visual Basic que puede almacenar hasta 2000 "tareas pendientes". Para cada tarea, debe conservar los siguientes datos: • Fecha ...
 Cuentas del hogar
Cree un programa en Visual Basic que pueda almacenar hasta 10000 costos e ingresos, para crear un pequeño sistema de contabilidad nacional. Para cada ...




Juan A. Ripoll - Tutoriales de Sistemas y Cursos de Programación© 2024 Todos los derechos reservados.  Condiciones legales.