visual basic

29/11/13

Ejercicios resueltos en Visual Basic con forms, labels, textbox y command buttons. Ejemplos (CU00322A)

Inicio

Cómo empezar

Conócenos

Cursos

Libros

Cursos

Empleo

Humor!!!

Divulgación

Zona cr

Foros

Curso Programación en Visual Basic Nivel I

Ejercicios resueltos en Visual Basic con forms, labels, textbox y
command buttons. Ejemplos (CU00322A)Escrito por Mario R. Rancel

Resumen:

Entrega nº21 del curso Programación en Visual Basic Nivel I.

Codificación aprenderaprogramar.com: CU00322A

EJERCICIOS EJEMPLOS CON FORMS, LABELS, TEXTBOX, Y COMMAND BUTTONS 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.www.aprenderaprogramar.com/index.php?option=com_content&id=236:ejercicios-resueltos-en-visual-basic-con-forms-labels-textbox-y-command-buttons-ejemp…

1/9

29/11/13

Ejercicios resueltos en Visual Basic con forms, labels, textbox y command buttons. Ejemplos (CU00322A)

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 PRIMERO

El código será algo como lo que se muestra a continuación.Option Explicit
Rem Declaración de variables
Dim Turismos%, Todoterrenos As Integer
Dim Capturismos!, Captodot As Single
www.aprenderaprogramar.com/index.php?option=com_content&id=236:ejercicios-resueltos-en-visual-basic-con-forms-labels-textbox-y-command-buttons-ejemp…

2/9

29/11/13

Ejercicios resueltos en Visual Basic con forms, labels, textbox y command buttons. Ejemplos (CU00322A)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 SubRem 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

Téngaseen cuenta que se han declarado como código diversas órdenes que podrían haberse introducido desde el diseño de
previo. Ten en cuenta también que todos los objetos que invocamos en el código los hemos creado previamente sobre el fo
(menú Ver – Objeto); los nombres de los objetos los pone Visual Basic (como en este ejemplo) al crearlos, o los establecem
ventana Propiedades. Si tratas de invocarun objeto no definido o con un nombre equivocado te saldrá un mensaje de error.

El resultado gráfico después de introducir los datos y pulsar aceptar será algo así:

www.aprenderaprogramar.com/index.php?option=com_content&id=236:ejercicios-resueltos-en-visual-basic-con-forms-labels-textbox-y-command-buttons-ejemp…

3/9

29/11/13

Ejercicios resueltos en Visual Basic con forms, labels,textbox y command buttons. Ejemplos (CU00322A)

EJERCICIO EJEMPLO SEGUNDO

Transformar en código el pseudocódigo que se muestra a continuación, relativo a proporcionar el volumen de un cilindro d
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) *...