electronica

Resumen: Entrega nº21 del curso Programación en Visual Basic Nivel I.
Codificación aprenderaprogramar.com: CU00322A
 
 
EJERCICIOS CON LABELS, TEXTBOXES Y BOTONES EN VISUAL BASIC
Vamos a plantear el enunciado para una serie de ejercicios y posteriormente mostraremos la solución a los mismos.
 
EJERCICIO EJEMPLO RESUELTO Nº1
Transformar el algoritmo que se indica a continuación, relativoa calculo de necesidades de combustible, en un programa de Visual Basic.

 
 
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 = 40
8.  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 Nº 1
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.
 
Código(versionesVB menos recientes)
Código (versiones VB más recientes)
Rem Curso Visual Basic aprenderaprogramar.com
Option Explicit
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 Form_Load()
Form1.Caption = "Cálculo de necesidades combustible"
Label1(0) = "Porfavor 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"
End Sub

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 Sub
REM Curso Visual Basic aprenderaprogramar.com
Option Explicit On
Public Class Form1
    REM Declaración de variables
    Dim Turismos, Todoterrenos As Integer
    DimCapturismos, 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.Load
   Me.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 handeclarado 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 ejemplo) al crearlos, o los establecemos en la ventana Propiedades nosotros mismos si...