EXAMEN PRINCIPAL VB6

Ejercicio:

Escriba en un programa que reciba del usuario un valor que representa el peso de un producto en kilos. El programa debe calcular y escribir en la pantalla el valor cobrado por el transporte de 10 productos. El cálculo del valor obedece las siguientes reglas:

•   Para encomiendas con menos de 10kg la cobranza es fijada en 12 dólares.
• Para encomiendas con 10kg o más, y menos de 30kg es cobrado valor fijo en 12 dólares más 0.75 dólares para cada kilo excedida a 10kg.
•  Para encomiendas con 30kg o más, y menos de 50kg es cobrado valor fijo en 34 dólares más 0.80 dólares para cada kilo excedente a 30kg.
•  Para encomiendas con 50kg o más es cobrado un valor fijo en 60 dólares más 0.85 dólares para cada kilo excedente a 50kg.
•     No se aceptan encomiendas con peso menores a 1Kg

SERVICIO DE ENCOMIENDAS

DISEÑO FINALIZADO

VISTA DEL DISEÑO

PROGRAMACION
Dim A, B, C, D As Double

Private Sub CommandButton1_Click()
A = Val(Me.txtKG.Text)

If A < 1 Then
Me.txtVALOR.Text = "No se aceptan encomiendas con peso menores a 1Kg"
Else
If A < 10 Then
Me.txtVALOR.Text = "12"
Else
If A >= 10 And A < 30 Then
B = 0.75 * (A - 10)
Me.txtVALOR.Text = 12 + B
Else
If A >= 30 And A < 50 Then
C = 0.8 * (A - 30)
Me.txtVALOR.Text = 34 + C
Else
If A >= 50 Then
D = 0.85 * (A - 50)
Me.txtVALOR.Text = 60 + D
End If
End If
End If
End If
End If
End Sub

Private Sub CommandButton2_Click()
Me.txtKG.Text = ""
Me.txtVALOR.Text = ""

End Sub

GRADOS CENTIGRADOS A FAHRENHEIT

VISTA TERMINADA

 

 VISTA DEL DISEÑO

PROGRAMACIÓN

Option Explicit

Dim centigrade, fara As Double

Private Sub btnCalcular_Click()

centigrade = Val(Me.txtCentigrade.Text)

fara = 32 + (9 * centigrade / 5)

Me.txtFara.Text = fara

End Sub

Private Sub btnSalir_Click()

End

End Sub

TORNILLOS DEFECTUOSOS

DISEÑO FINALIZADO

VISTA DEL DISEÑO

PROGRAMACIÓN

Option Explicit
Dim Td, Tp As Integer


Private Sub btnCalcular_Click()
Td = Val(Me.txttd.Text)
Tp = Val(Me.txttp.Text)
If Td < 200 Then
Me.txtgrad.Text = "grado 6"
End If
If Tp > 10000 Then
Me.txtgrad.Text = "grado 7"
End If
If Td < 200 And Tp > 10000 Then
Me.txtgrad.Text = "grado 8"
Else
Me.txtgrad.Text = "grado 5"
End If
End Sub

EJERCICIO DE POTENCIA

DISEÑO FINALIZADO

VISTA DEL DISEÑO

PROGRAMACIÓN

Option Explicit
Dim base, exponente, potencia, i As Integer


Private Sub cmdConsultar_Click()
base = Val(Me.txtBase.Text)
exponente = Val(Me.txtExponente.Text)
If exponente = 0 Then
 potencia = 1
 Me.txtPotencia.Text = potencia
 Else

potencia = 1
For i = 1 To exponente
potencia = potencia * base
Next

 Me.txtPotencia.Text = potencia
End If
End Sub

EL MAYOR DE TRES NUMEROS

DISEÑO FINALIZADO

VISTA DEL DISEÑO

PROGRAMACIÓN

Option Explicit
Dim a, b, c  As Integer
Private Sub cmdConsultar_Click()
a = Val(Me.txtNumero1.Text)
b = Val(Me.txtNumero2.Text)
c = Val(Me.txtNumero3.Text)
If a > b And a > c Then
Me.txtResultado.Text = "a es mayor"
Else
If b > c And b > a Then
Me.txtResultado.Text = "b es mayor"
Else
If c > a And c > b Then
Me.txtResultado.Text = "c es mayor"
If a = 0 And b = 0 And c = 0 Then
Me.txtResultado.Text = "ninguno es mayor"
End If
End If
End If

End If
End Sub

SELECCION

VISTA TERMINADA Y FUNCIONANDO

VISTA DEL DISEÑO

PROGRAMACION

Option Explicit

Private Sub cmbMes_Click()
Select Case cmbMes.Text

Case "Enero"
        Me.pctColor.BackColor = vbYellow
        MsgBox "Usted ha elegido Enero"
Case "Febrero"
        Me.pctColor.BackColor = vbBlue
        MsgBox "Usted ha elegido Febrero"
Case "Marzo"
        Me.pctColor.BackColor = vbCyan
        MsgBox "Usted ha elegido Marzo"
Case "Abril"
        Me.pctColor.BackColor = vbGreen
        MsgBox "Usted ha elegido Abril"
Case "Mayo"
        Me.pctColor.BackColor = vbWhite
        MsgBox "Usted ha elegido Mayo"
Case "Junio"
        Me.pctColor.BackColor = vbBlack
        MsgBox "Usted ha elegido Junio"
Case "Julio"
        Me.pctColor.BackColor = vbMagenta
        MsgBox "Usted ha elegido Julio"
Case "Agosto"
        Me.pctColor.BackColor = vbGreen
        MsgBox "Usted ha elegido Agosto"
Case "Septiembre"
        Me.pctColor.BackColor = &H40&
        MsgBox "Usted ha elegido Septiembre"
       
Case Else
        Me.pctColor.BackColor = vbRed
        MsgBox "Usted no ha elegido un mes"

End Select
End Sub

Private Sub Form_Load()
    cmbMes.AddItem "Enero"
    cmbMes.AddItem "Febrero"
    cmbMes.AddItem "Marzo"
    cmbMes.AddItem "Abril"
    cmbMes.AddItem "Mayo"
    cmbMes.AddItem "Junio"
    cmbMes.AddItem "Julio"
    cmbMes.AddItem "Agosto"
    cmbMes.AddItem "Septiembre"
    cmbMes.AddItem "Octubre"
    cmbMes.AddItem "Noviembre"
    cmbMes.AddItem "Diciembre"
    cmbMes.AddItem "ninguno"

End Sub

Private Sub pctColor_Click()

End Sub

ÁREA DE UN TRIANGULO

DISEÑO FINALIZADO

VISTA DEL DISEÑO

PROGRAMACION

Dim base, altura As Integer
Dim Area As Single



Private Sub btnCalcular_Click()

base = Val(Me.txtBase.Text)
altura = Val(Me.txtAltura.Text)
txtArea = (base * altura / 2)

End Sub

Private Sub btnSalir_Click()
End
End Sub

SERIE DE NUMEROS MEJORADO

DISEÑO FINALIZADO

VISTA  DEL DISEÑO

PROGRAMACION

Option Explicit
Dim num, cant, i, gen, suma, promedio As Double


Private Sub cmdGenerar_Click()

num = Val(Me.txtNumero.Text)
cant = Val(Me.txtCantidad.Text)
suma = Val(Me.txtSuma.Text)
promedio = Val(Me.txtPromedio.Text)

For i = 1 To cant
gen = gen + num
Me.lstSerie.AddItem (gen)
suma = suma + gen
promedio = suma / cant
Me.txtSuma.Text = suma
Me.txtPromedio.Text = promedio

Next

End Sub

ÁREA DE UNA FIGURA

DISEÑO FINALIZADO

VISTA DISEÑO

PROGRAMACION

Option Explicit
Dim numero, Area As Double



Private Sub cmdCalcular_Click()

numero = Val(Me.txtLonguitud.Text)

Area = ((numero * numero) / 2) + ((3.14 * numero * numero) / 32)


Me.txtArea.Text = Area



End Sub

POTENCIA DE UN NUMERO

DISEÑO FINAL

VISTA DEL DISEÑO

PROGRAMACION

Option Explicit

Dim num, pot, result, i As Double

Private Sub cmdCalcular_Click()
num = Val(Me.txtNumero.Text)
pot = Val(Me.txtPotencia.Text)
result = 1

For i = 1 To pot
result = result * num
Next
Me.txtRespuesta.Text = result

End Sub

OPERACIONES BASICAS

DISEÑO FINALIZADO

VISTA DEL DISEÑO

PROGRAMACIÓN

Option Explicit
Dim y1, x2, y2, x1, resultado As Double


Private Sub cmdCalcular_Click()
x1 = Val(Me.txtX1.Text)
y1 = Val(Me.txtY1.Text)
x2 = Val(Me.txtX2.Text)
y2 = Val(Me.txtY2.Text)

resultado = Sqr((x2 - x1) * (x2 - x1)) + ((y2 - y1) * (y2 - y1))
Me.txtResultado.Text = resultado





End Sub

INGRESO DE DATOS PREDICTIVO

DISEÑO FINALIZADO

VISTA DEL DISEÑO

PROGRAMACION..

Option Explicit
Dim a  As Integer



Private Sub cmdConsultar_Click()
a = Val(Me.txtEdad.Text)

If a <= 5 And a >= 3 Then
Me.txtRespuesta.Text = "periodo de la niñez temprana o preescolar"
Else
If a <= 10 And a >= 6 Then
Me.txtRespuesta.Text = "periodo de la niñez intermedia o escolar"
Else
If a <= 17 And a >= 11 Then
Me.txtRespuesta.Text = "periodo de la adolescencia"
Else
If a <= 34 And a >= 18 Then
Me.txtRespuesta.Text = "periodo de la juventud"
Else
If a <= 35 And a >= 49 Then
Me.txtRespuesta.Text = "periodo de la madurez"
Else
If a >= 50 Then
Me.txtRespuesta.Text = "periodo de la adultez"
End If
End If
End If
End If
End If
End If
End Sub

AGREGAR DATOS

VISTA FINALIZADA

VISTA DEL DISEÑO

PROGRAMACIÓN..

Option Explicit
Dim amigos(0 To 4) As String
Dim i As Integer


Private Sub cmdAmigos_Click()

lstAmigos.Clear
For i = 0 To 4
amigos(i) = InputBox("ingrese el nombre de un amigo:" & i)
lstAmigos.AddItem amigos(i)
Next


End Sub

SERIE DE NÚMEROS

PROGRAMACION...

Option Explicit
Dim num, cant, I, gen, suma  As Integer
Dim promedio As Double


Private Sub cmdGenerar_Click()
I = 1
Do
gen = gen + num
suma = suma + gen
promedio = suma / I
Me.lstSerie.AddItem (gen)
I = I + 1
Loop Until (I > cant)
Me.txtSuma.Text = suma
Me.txtPromedio.Text = promedio

End Sub

Private Sub cmdLimpiar_Click()
Me.txtCantidad = ""
Me.txtNumero = ""
Me.lstSerie.Clear
gen = 0
suma = 0
promedio = 0

End Sub

Private Sub Form_Load()

Me.txtCantidad = ""
Me.txtNumero = ""


End Sub

Private Sub txtCantidad_Change()
cant = Val(Me.txtCantidad.Text)

End Sub

Private Sub txtNumero_Change()
num = Val(Me.txtNumero.Text)
End Sub