Ejercicios resueltos de ejemplo en Visual Basic. Arrays estáticos, vbYes, vbNo y MsgBox. If Then (CU00334A-1)

Resumen: Entrega nº33-1 del curso Aprender a programar en Visual Basic desde cero.
Codificación aprenderaprogramar.com: CU00334A-1

 

 

EJERCICIOS RESUELTOS VISUAL BASIC

El objetivo de estos ejercicios es aplicar conocimientos sobre "Herramientas básicas para la programación" a un lenguaje como es Visual Basic. Para su realización debemos tener conocimientos básicos sobre algoritmia, uso de bucles o estructuras iterativas y apertura y cierre de archivos.

 

Visual Basic
 

 

EJERCICIO RESUELTO Nº 1 EJEMPLO DE USO DE ARRAYS ESTÁTICOS, DO WHILE … LOOP, IF … THEN, LECTURA DE FICHEROS...

Generar el código que permita solucionar el siguiente problema:

Un fabricante de maquinaria envía un archivo a un almacén donde se encuentran los números de serie (5 dígitos) de una partida de maquinaria enviada, organizados en Dato(1), Dato(2), ..., Dato(n). Informa de lo siguiente: el archivo empieza con palas cargadoras siendo la correspondiente al número de serie 78345 la última, sigue con retroexcavadoras siendo el número de serie 33287 el último, y termina con dumpers siendo el número de serie 63287 el último.

Se quiere desarrollar un programa que muestre el tipo de máquina y todos los números de serie correspondientes.

 

Nota: considerar que la cantidad de datos es igual o inferior a 50, y que se encuentran en el fichero maquinaria.dat, que deberá haber sido creado previamente. Probar un caso supuesto con estos datos:

Dato Nº de inventario
1 11252
2 22541
3 78345
4 47854
5 33287
6 25478
7 63287

 

 

SOLUCIÓN

Cuando no conocemos a priori el número de datos de un array, como es la situación de que tenemos una lista de números de serie delimitados por señaleros (centinelas), sin saber un número exacto, lo más habitual será declarar arrays dinámicos y redimensionarlos a medida que vamos extrayendo paquetes de datos. Esto lo veremos más adelante. En este caso usaremos otra opción: crear un array de rango 50 en el cual usaremos una cantidad de elementos del array igual o inferior al rango. Puede ocurrir que la mayor parte de los elementos del array queden sin ser ocupados. Consideremos un fichero que contiene los siete datos indicados en el enunciado, creado previamente.

Necesitaremos un label para mostrar los resultados, al que denominaremos Labelfinal. Consideraremos que el código se ejecuta nada más abrir el programa, sin necesidad de pulsar un botón. También debemos conocer la ruta en que se ubica el archivo de datos y escribirla correctamente.

Código (versionesVB menos recientes) Código (versiones VB más recientes)

'Curso Visual Basic aprenderaprogramar.com
'[Maquinaria]

Option Explicit
Dim Canal As Integer
Dim i As Integer
Dim Dato(50) As Single

Private Sub Form_Load()
Show
Form1.Caption = "Maquinaria"
Labelfinal.Alignment = 2
Labelfinal.FontBold = True
i = 1
Canal = FreeFile
Open "C:\maquinaria.dat" For Input As Canal
Input #Canal, Dato(i)
Labelfinal = "Números de serie de palas cargadoras" & vbCrLf & vbCrLf
Do While Dato(i) <> 63287
    Labelfinal = Labelfinal & Dato(i) & vbCrLf
    If Dato(i) = 78345 Then
        Labelfinal = Labelfinal & vbCrLf & "Números de serie de retroexcavadoras" & vbCrLf & vbCrLf
    End If
    If Dato(i) = 33287 Then
        Labelfinal = Labelfinal & vbCrLf & "Números de serie de dumpers" & vbCrLf & vbCrLf
    End If
    i = i + 1
    Input #Canal, Dato(i)
Loop
Close
Labelfinal = Labelfinal & Dato(i) & vbCrLf
Labelfinal = Labelfinal & vbCrLf & "Finalizada la extracción el total de máquinas es" & i
End Sub
REM Curso Visual Basic aprenderaprogramar.com
Option Explicit On

Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim i As Integer
        Dim Dato(50) As Single
        Me.Text = "Maquinaria"
Labelfinal.TextAlign = ContentAlignment.MiddleCenter
Labelfinal.Font = New Font("Arial", 10, FontStyle.Bold)
Labelfinal.Text = ""
i = 1
Dim myFileToRead As New System.IO.StreamReader("C:\Users\Toshiba\Desktop\maquinaria.dat", False)
Dato(i) = myFileToRead.ReadLine()
Labelfinal.Text = "Números de serie de palas cargadoras" & vbCrLf & vbCrLf
Do While Dato(i) <> 63287
Labelfinal.Text = Labelfinal.Text & Dato(i) & vbCrLf
If Dato(i) = 78345 Then
Labelfinal.Text = Labelfinal.Text & vbCrLf & "Números de serie de retroexcavadoras" & vbCrLf & vbCrLf
End If
If Dato(i) = 33287 Then
Labelfinal.Text = Labelfinal.Text & vbCrLf & "Números de serie de dumpers" & vbCrLf & vbCrLf
End If
i = i + 1
Dato(i) = myFileToRead.ReadLine()
Loop
Labelfinal.Text = Labelfinal.Text & Dato(i) & vbCrLf
Labelfinal.Text = Labelfinal.Text & vbCrLf & "Finalizada la extracción el total de máquinas es" & i
myFileToRead.Close()
End Sub
End Class

 


El resultado gráfico con los datos de prueba indicados será este:

ejemplo programa visual basic

 

 

 

EJERCICIO RESUELTO Nº 2 EJEMPLO DE USO DE FOR … NEXT, CONSTANTES vbYes Y vbNo, MSGBOX, Y DO WHILE … LOOP

Generar un programa que resuelva el siguiente problema: calcular el sumatorio de los 10 primeros números enteros positivos y según decida el usuario calcular o no la suma de los 20, 30, 40..., n – 10, n enteros positivos.

 

 

SOLUCIÓN

Código (versionesVB menos recientes) Código (versiones VB más recientes)

‘Curso Visual Basic aprenderaprogramar.com
Option Explicit
Dim i%, j As Integer
Dim Respuesta As Integer
Dim Suma As Integer
Private Sub Form_Load()
Show
j = 1
Respuesta = vbYes
Do While Respuesta = vbYes
    For i = j To j + 9
        Suma = Suma + i
    Next i
    j = j + 10
    Respuesta = MsgBox("La suma de los " & j - 1 & " primeros números da " & Suma & vbCrLf & _
    "¿Quiere continuar?", vbYesNo, "¿Continuar?")
Loop
End Sub
REM Curso Visual Basic aprenderaprogramar.com
Option Explicit On
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim i, j As Integer
        Dim Respuesta As Integer
        Dim Suma As Integer
        j = 1
        Respuesta = vbYes
Do While Respuesta = vbYes
For i = j To j + 9
         Suma = Suma + i
Next i
j = j + 10
Respuesta = MsgBox("La suma de los " & j - 1 & " primeros números da " & Suma & vbCrLf & _
"¿Quiere continuar?", vbYesNo, "¿Continuar?")
        Loop
    End Sub
End Class

 

En vez de usar una variable string para almacenar la respuesta, usamos los botones predeterminados de Visual Basic y las constantes vbYes (sí) y vbNo (no).

Gráficamente el resultado será similar a este:

msgbox visual basic

 

 

 

 

 

 

Para acceder a la información general sobre este curso y al listado completo de entregas pulsa en este link:  Ver curso completo.
 
Para  hacer un comentario o consulta utiliza los foros aprenderaprogramar.com, abiertos a cualquier persona independientemente de su nivel de conocimiento.

Donar o colaborar

Este sitio se mantiene abierto gracias al apoyo de muchas personas. Si crees que merece la pena apoyar económicamente este sitio web puedes realizar una donación o colaborar. Contacta con nosotros.

¿Puedo yo aprender?

Seas o no del área informática, si quieres aprender a programar te ofrecemos una solución guiada y personalizada: realizar un curso tutorizado on-line. Con este tipo de curso, podrás aprender a programar de forma ágil y amena.

Acceder a detalles y precios de los cursos tutorizados on-line

Política sobre cookies

Utilizamos cookies propias y de terceros para ofrecerte una mejor experiencia y servicio, de acuerdo a tus hábitos de navegación.

Si continúas navegando, consideramos que aceptas su uso. Puedes obtener más información en nuestra Política de Cookies.

En Facebook!

Ahora puedes seguirnos en Facebook. Noticias, novedades y mucho más ¡Te esperamos!

RANKING APR2+

Ranking de lenguajes y entornos de programación aprenderaprogramar.com
 

SEPTIEMBRE - OCTUBRE 2017

1. Java / J2EE
2. Entornos Oracle
3. Entornos SQL Server
4. .NET, C#
5. JavaScript, jQuery
6. HTML, CSS
7. Php, MySql
8. Android, iOS


Acceder a detalles sobre el ranking de programación aprenderaprogramar.com

FOROS APR2+

Pregunta, responde, consulta, lee, intercambia...

Participa!!! Entra en los foros aprenderaprogramar.com.

             Copyright 2006-2017 aprenderaprogramar.com                La web abierta a cualquier persona interesada en la programación