el gato

aprenderaprogramar.com

Ejercicios ejemplos resueltos
Visual Basic con Labels, Textbox, y
Buttons (Command Buttons)
(CU00322A)
Sección: Cursos
Categoría: Curso Visual Basic Nivel I
Fecha revisión: 2029
Autor: Mario R. Rancel
Resumen: Entrega nº21 del Curso Visual Basic Nivel I

29

© 2006-2029 aprenderaprogramar.com

Ejercicios resueltos en Visual Basic.

EJERCICIOS CONMOSTRAR, PEDIR Y BOTONES EN VISUAL BASIC

EJERCICIO EJEMPLO PRIMERO
Transformar el algoritmo que se indica a continuación, relativo a calculo de necesidades de
combustible, en un programa de Visual Basic.

ALGORITMO

1. Inicio
2. [Definición de vehículos]
3. Turismos = 32
4. Todoterrenos = 11
5. [Fin de definición de vehículos]
6. [Definición de capacidad de depósitos]
7. Capturismos = 408. Captodot = 65
9. [Fin de definición de capacidad de depósitos]
10. [Cálculo de necesidades de combustible]
11. Necesidadescom = Turismos * Capturismos + Todoterrenos * Captodot
12. [Fin de cálculo de necesidades de combustible]
13. Fin

SOLUCIÓN EJERCICIO EJEMPLO PRIMERO
El código será algo como lo que se muestra a continuación. Antes de escribir el código tenemos que
crear los objetos(controles) a que vamos a hacer referencia en el código, en concreto crearemos 6
labels, 4 TextBox y un botón.

© 2006-2029 aprenderaprogramar.com

Ejercicios resueltos en Visual Basic.

Código (versionesVB menos recientes):

Rem Curso Visual Basic aprenderaprogramar.com
Option Explicit
Rem Declaración de variables
Dim Turismos%, Todoterrenos As Integer
Dim Capturismos!, Captodot AsSingle
Dim Necesidadescom As Single
Rem Contenido del formulario
Private Sub Form_Load()
Form1.Caption = "Cálculo de necesidades
combustible"
Label1(0) = "Por favor introduzca estos datos"
Label1(1) = "Número de turismos"
Label1(2) = "Número de todoterrenos"
Label1(3) = "Capacidad de turismos (litros)"
Label1(4) = "Capacidad de todoterrenos (litros)"
Command1.Caption = "Aceptar"
EndSub
Rem Cálculo y muestra resultados
Private Sub Command1_Click()
Label2.ForeColor = vbBlack
Label2.FontBold = True
Turismos = Val(Text1(0))
Todoterrenos = Val(Text1(1))
Capturismos = Val(Text1(2))
Captodot = Val(Text1(3))
Necesidadescom = Turismos * Capturismos +
Todoterrenos * Captodot
Label2 = "Las necesidades totales de combustible
son de " & Necesidadescom & " litros"
End SubCódigo (versiones VB más recientes):
REM Curso Visual Basic aprenderaprogramar.com
Option Explicit On
Public Class Form1
REM Declaración de variables
Dim Turismos, Todoterrenos As Integer
Dim Capturismos, Captodot As Single
Dim Necesidadescom As Single
REM Contenido del formulario
Private Sub Form1_Load(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles
MyBase.LoadMe.Text = "Cálculo de necesidades combustible"
Label1.Text = "Por favor introduzca estos datos"
Label2.Text = "Número de turismos"
Label3.Text = "Número de todoterrenos"
Label4.Text = "Capacidad de turismos (litros)"
Label5.Text = "Capacidad de todoterrenos (litros)"
Button1.Text = "Aceptar"
End Sub
REM Cálculo y muestra resultados
Private Sub Button1_Click(ByVal sender As
System.Object,ByVal e As System.EventArgs) Handles
Button1.Click
Label6.ForeColor = Color.Black
Label6.Font = New Font("Arial", 10,
FontStyle.Bold)
Turismos = Val(TextBox1.Text)
Todoterrenos = Val(TextBox2.Text)
Capturismos = Val(TextBox3.Text)
Captodot = Val(TextBox4.Text)
Necesidadescom = Turismos * Capturismos +
Todoterrenos * Captodot
Label6.Text = "Las necesidades totales de
combustible son de " &Necesidadescom & " litros"
End Sub
End Class

Téngase en cuenta que se han declarado como código diversas órdenes que podrían haberse
introducido desde el diseño de objetos previo. Ten en cuenta también que todos los objetos que
invocamos en el código los hemos creado previamente sobre el formulario (menú Ver – Objeto); los
nombres de los objetos los pone Visual Basic (como en este...