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