...

Ejercicios resueltos

by noecito3

on

Report

Category:

Documents

Download: 0

Comment: 0

32

views

Comentarios

Descripción

Download Ejercicios resueltos

Transcript

Ejercicios con visual basic 6.0 diciembre del 2012 Lic. Noé Trinidad Machuca Ejercicios resueltos con su código fuente para analizarlo y revisarlo. 1. Programa operaciones básicas Código fuente de cada botón de comando y un ejemplo de declaración de variables de declaración pública. Public primero, segundo, resultado As Single 'public indica que las variables declaradas se pueden utilizar ' en cualquier parte del programa sin tener que volver a declararlas Private Sub CMDDIVIDIR_Click() primero = Text1.Text segundo = Text2.Text 'procedimiento de división Text3.Text = Format(CSng(primero) / CSng(segundo), "#0.00") End Sub Private Sub CMDLIMPIAR_Click() Text1.Text Text2.Text Text3.Text End Sub 'procedimiento de limpiar que borra el contenido de las cajas de texto Ejercicios con visual basic 6.0 Private Sub CMDMULTIPLICAR_Click() primero = Text1.Text segundo = Text2.Text diciembre del 2012 Lic. Noé Trinidad Machuca 'procedimiento de multiplicación Text3.Text = Format(CSng(primero) * CSng(segundo), "#0.00") End Sub Private Sub CMDPOTENCIA_Click() primero = Text1.Text segundo = Text2.Text Text3.Text = Format(CSng(primero) ^ CSng(segundo), "#0.00") End Sub Private Sub CMDRESTAR_Click() primero = Text1.Text segundo = Text2.Text Text3.Text = Format(CSng(primero) - CSng(segundo), "#0.00") End Sub Private Sub CMDSALIR_Click() End End Sub Private Sub CMDSUMAR_Click() primero = Text1.Text segundo = Text2.Text Text3.Text = Format(CSng(primero) + CSng(segundo), "#0.00") ' format formatea la parte decimal a dos decimales ' csng convierte la cadena de números a un número de tipo single (csng) End Sub ' procedimiento de la suma ' finaliza la ejecución del programa 'procedimiento de la resta 'procedimiento de potencias Ejercicios con visual basic 6.0 diciembre del 2012 Lic. Noé Trinidad Machuca 2. Programa que calcula el área de un triángulo Private Sub CMDCALCULAR_Click() Dim area, base, altura As Single base = Text1.Text altura = Text2.Text text3.Text = Format(base * altura / 2, "#0.00") MsgBox (" el área es : " & text3.Text) End Sub Private Sub CMDLIMPIAR_Click() Text1.Text = "" Text2.Text = "" text3.Text = "" End Sub Private Sub CMDSALIR_Click() End End Sub ' finaliza la ejecución del programa Ejercicios con visual basic 6.0 diciembre del 2012 Lic. Noé Trinidad Machuca 3. Programa que calcula el área de un círculo. Private Sub CMDAREAVOLUMEN_Click() Dim radio, altura, AREA, VOLUMEN As Single Const pi = 3.141592 radio = Text1.Text altura = Text2.Text Text3.Text = Format(2 * pi * radio * altura, "0.00") ' area= 2*pi*radio*altura AREA = Text3.Text Text4.Text = Format(pi * radio ^ 2 * altura, "0.00") ' volumen= pi*radio^2*altura VOLUMEN = Text4.Text End Sub Private Sub CMDLIMPIAR_Click() Text1.Text = "" Text2.Text = "" Text3.Text = "" Text4.Text = "" End Sub 'declaración de Variables 'declaración de constante Ejercicios con visual basic 6.0 Private Sub CMDSALIR_Click() End End Sub diciembre del 2012 Lic. Noé Trinidad Machuca 4. Programa que determina si la calificación ingresada es mayor o igual a 6 muestra un mensaje con la palabra aprobado, en caso contrario reprobado. Private Sub cmdok_Click() Dim calificacion as integer calificacion = Text1.Text If calificacion >= 6 Then MsgBox " usted ha aprobado" Text1.Text = "" Text1.SetFocus Else MsgBox "lo sentimos ha reprobado" Text1.Text = "" Text1.SetFocus 'setfocus indica que colocará el cursor en el text1.text Ejercicios con visual basic 6.0 End If End Sub Private Sub cmdsalir_Click() End End Sub diciembre del 2012 Lic. Noé Trinidad Machuca 5. Programa que determina si la edad ingresada es mayor o igual a 18 muestra un mensaje con la palabra es mayor de edad, en caso contrario es menor de edad. Private Sub Resultado_Click() Dim edad as integer edad = Text1.Text If edad >= 18 Then MsgBox "es mayor de edad" Text1.Text = "" Text1.SetFocus Else MsgBox "es menor de edad" Text1.Text = "" Text1.SetFocus Ejercicios con visual basic 6.0 End If End Sub Private Sub salir_Click() End End Sub diciembre del 2012 Lic. Noé Trinidad Machuca 6. Programa que convierte de pesos a dólares, donde el usuario introduce la cantidad en pesos en la caja de texto pesos.text y al pulsar sobre el botón convertir, se mostrará una ventanita solicitando el valor del dólar y al dar aceptar, tendrás el equivalente en dólares de la cantidad ingresada en pesos. Private Sub CMDCONVERTIR_Click() Dim resultado As Single Entrada = InputBox("Ingrese el valor del dólar", "Ingreso de datos") dolares.Text = Format(CSng(pesos.Text / Entrada), "#0.00") End Sub Private Sub cmdlimpiar_Click() pesos.Text = "" dolares.Text = "" pesos.SetFocus End Sub Ejercicios con visual basic 6.0 Private Sub cmdsalir_Click() end End Sub diciembre del 2012 Lic. Noé Trinidad Machuca 7. Programa con uso de la sentencia múltiple selec case (si múltiple) para calcular el precio final que el cliente deberá pagar al comprar un auto, teniendo en cuenta la información de la siguiente tabla: Ejercicios con visual basic 6.0 Private Sub CMDCALCULOS_Click() diciembre del 2012 Lic. Noé Trinidad Machuca Dim MODELO As Integer, PRECIO, TOTAL, DESCUENTO As Single PRECIO = Text1.Text MODELO = Text2.Text Select Case MODELO Case 1 'si elige 1 MODELO CUTTLAS DESCUENTO = PRECIO * 0.08 Text3.Text = Format(PRECIO - DESCUENTO, "0.00") Case 2 'si elige 2 MODELO CAVALIER DESCUENTO = PRECIO * 0.08 Text3.Text = Format(PRECIO - DESCUENTO), "0.00") Case 3 'si elige 3 MODELO CHEVY DESCUENTO = PRECIO * 0.08 Text3.Text = Format(PRECIO - (DESCUENTO), "0.00") Case 4 'si elige 4 MODELO NISSAN DESCUENTO = PRECIO * 0.08 Text3.Text = Format(PRECIO - (DESCUENTO), "0.00") Case Else MsgBox "ERROR, POR FAVOR SELECCIONE SOLO LAS OPCIONES EXISTENTES" End Select End Sub Private Sub CMDEXIT_Click() End End Sub Ejercicios con visual basic 6.0 diciembre del 2012 Lic. Noé Trinidad Machuca Private Sub CMDLIMPIAR_Click() Text1.Text = "" Text2.Text = "" Text3.Text = "" Text1.SetFocus End Sub 8. Programa que calcula el nuevo salario de un trabajador teniendo en cuenta que si su salario es menor a $1, 000., incremente un 15% y sino aumente un 12%. Private Sub CMDCALCULAR_Click() Dim SALARIO, NSALARIO As Single SALARIO = Text1.Text If SALARIO < 1000 Then Text2.Text = Format(SALARIO * 1.15, "0.00") Else Text2.Text = Format(SALARIO * 1.12, "0.00") End If End Sub Ejercicios con visual basic 6.0 diciembre del 2012 Lic. Noé Trinidad Machuca Private Sub CMDLIMPIAR_Click() Text1.Text = "" Text2.Text = "" Text1.SetFocus End Sub Private Sub CMDSALIR_Click() End End Sub
Volar