Visual Basic

   

aprenderaprogramar.com
 

Ejercicios ejemplos labels, textbox,  Command Buttons (CU00322A) 
Sección: Cursos                                               
Categoría: Curso Visual Basic Nivel I  Fecha última actualización: 2012  Autor: Mario R. Rancel  Resumen: Entrega nº21 del Curso Visual Basic Nivel I 

12

 

© 2006‐2012 aprenderaprogramar.com Ejercicios con Mostrar, pedir y Command Buttons.   

EJERCICIOS CON MOSTRAR, PEDIR Y COMMAND BUTTONS EN VISUAL BASIC    EJERCICIO PRIMERO  Transformar  el  algoritmo  que  se  indica  a  continuación,  relativo  a  calculo  de  necesidades  de  combustible, en un programa.   
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 = 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

© 2006‐2012 aprenderaprogramar.com Ejercicios con Mostrar, pedir y Command Buttons.   

SOLUCIÓN EJERCICIO PRIMERO  El código será algo como lo que se muestra a continuación.                                             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 ejemplo) al crearlos, o los establecemos en  la  ventana  Propiedades.  Si  tratas  de  invocar  un  objeto  no  definido  o  con  un  nombre  equivocado  te  saldrá un mensaje de error.               © 2006‐2012 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) = "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"  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 

Ejercicios con Mostrar, pedir y Command Buttons.   

El resultado gráfico después de introducir los datos y pulsar aceptar será algo así:                                EJERCICIO SEGUNDO  Transformar  en  código  el  pseudocódigo  que  se  muestra  a  continuación,  relativo  a proporcionar  el  volumen de un cilindro dados su altura y diámetro.                         
1.  Inicio  2.  Mostrar “Introduzca el diámetro, en metros” : Pedir D    3.  Mostrar “Introduzca la altura, en metros” : Pedir H    4.  R = D/2 : Pi = 3,141593   5.  V = Pi * (R ^ 2) * H   6.  Mostrar “El volumen del cilindro es de”, V, “metros cúbicos”   7.  Fin

© 2006‐2012 aprenderaprogramar.com Ejercicios con Mostrar, pedir y Command Buttons.   

SOLUCIÓN EJERCICIO SEGUNDO  Creamos  un  formulario  donde  insertamos  dos  Labels  (Label1(0)  y  Label1(1)),  dos  TextBox  (Text1  y  Text2)  y  un  Label  para  resultados  (Label2),  así  como  un  Command  Button  al  que  llamaremos  CommandCalcular.  Label1(0)  mostrará  el  mensaje  de  solicitud  del  diámetro  y ...