¿Problemas con visual basic 6.0?

es un ejercicio que dice así:

1.Utiliza un List box, que presentara los 4 posibles modelos de auto:

compacto, familiar, de lujo o deportivo. Nombralo como listModelo.

2. utiliza dos OptionButton para que se pueda seleccionar si el auto sera estándar o automatico. combralos como optEstandar y OptAutomatico, respectivamente.

3. utiliza 5 chekBox para que el usuario pueda elegir los complementos: aire acondicionado, accesorios, accesorios electricos, sistema de sonido, vestiduras de piel, quemacocos, Renombra los controles como ChkAire, ChkElec, ChkSonido,ChkPiel, ChkCocos.

4.Se considera la siguiente lista de precios en dolares:

Auto compacto estándar : $7,000.00

Auto compacto automático: $9,000.00

Auto familiar estándar: $9,600.00

Auto familiar automático: $11,100.00

Auto de lujo estándar: $16,800.00

Auto de lujo automático: $19,500.00

Auto deportivo estándar: $22,800.00

Auto deportivo automático: $25,000.00

5. Los precios de cada compelemento son:

aire acondicionado: $900.00

accesorios eléctricos: $1,400.00

ayuda no se nada ....!!!!!

plis les doy 5 estrellas

si pudiera dar mas lo daría me urge....!

1 respuesta

Calificación
  • hace 8 años
    Respuesta preferida

    ok amiga ya lo termine me faltaron los datos del quemacocos sonido y vestiduras pero eso tu lo puedes cambiar yo invente ahi unos precios

    como no pedias un boton o en vb 6 es command te lo hice directo checalo y sigue en pie mi oferta de enviarte todo el rollo por imagenes a tu correo aqui el codigo

    Public Class Form1

    Dim total, contador, valor As Integer

    Private Sub Form1_Load

    listModelo.Items.Add("Compacto")

    listModelo.Items.Add("Deportivo")

    listModelo.Items.Add("Familiar")

    listModelo.Items.Add("Lujo")

    opStandart.Checked = True

    listModelo.SelectedItem = "Compacto"

    End Sub

    Private Sub listModelo_SelectedIndexChanged

    If listModelo.SelectedItem = "Compacto" And opStandart.Checked = True Then

    valor = 7000

    ElseIf listModelo.SelectedItem = "Deportivo" And opStandart.Checked = True Then

    valor = 22800

    ElseIf listModelo.SelectedItem = "Familiar" And opStandart.Checked = True Then

    valor = 9600

    ElseIf listModelo.SelectedItem = "Lujo" And opStandart.Checked = True Then

    valor = 16800

    End If

    If listModelo.SelectedItem = "Compacto" And opAutomatico.Checked = True Then

    valor = 9000

    ElseIf listModelo.SelectedItem = "Deportivo" And opAutomatico.Checked = True Then

    valor = 25000

    ElseIf listModelo.SelectedItem = "Familiar" And opAutomatico.Checked = True Then

    valor = 11000

    ElseIf listModelo.SelectedItem = "Lujo" And opAutomatico.Checked = True Then

    valor = 19500

    End If

    total = valor + contador

    precio.Text = Val(total)

    End Sub

    Private Sub opStandart_CheckedChanged

    If listModelo.SelectedItem = "Compacto" Then

    valor = 7000

    ElseIf listModelo.SelectedItem = "Deportivo" Then

    valor = 22800

    ElseIf listModelo.SelectedItem = "Familiar" Then

    valor = 9600

    ElseIf listModelo.SelectedItem = "Lujo" Then

    valor = 16800

    End If

    total = valor + contador

    precio.Text = Val(total)

    End Sub

    Private Sub opAutomatico_CheckedChanged

    If listModelo.SelectedItem = "Compacto" Then

    valor = 9000

    ElseIf listModelo.SelectedItem = "Deportivo" Then

    valor = 25000

    ElseIf listModelo.SelectedItem = "Familiar" Then

    valor = 11000

    ElseIf listModelo.SelectedItem = "Lujo" Then

    valor = 19500

    End If

    total = valor + contador

    precio.Text = Val(total)

    End Sub

    Private Sub ChkAire_CheckedChanged

    If ChkAire.Checked = True Then

    contador = contador + 900

    Else

    contador = contador - 900

    End If

    total = valor + contador

    precio.Text = Val(total)

    End Sub

    Private Sub ChkElec_CheckedChanged

    If ChkElec.Checked = True Then

    contador = contador + 1400

    Else

    contador = contador - 1400

    End If

    total = valor + contador

    precio.Text = Val(total)

    End Sub

    Private Sub ChkSonido_CheckedChanged

    If ChkSonido.Checked = True Then

    contador = contador + 1600

    Else

    contador = contador - 1600

    End If

    total = valor + contador

    precio.Text = Val(total)

    End Sub

    Private Sub ChkPiel_CheckedChanged

    If ChkPiel.Checked = True Then

    contador = contador + 3800

    Else

    contador = contador - 3800

    End If

    total = valor + contador

    precio.Text = Val(total)

    End Sub

    Private Sub ChkCocos_CheckedChanged

    If ChkCocos.Checked = True Then

    contador = contador + 5900

    Else

    contador = contador - 5900

    End If

    total = valor + contador

    precio.Text = Val(total)

    End Sub

    End Class

    recuerda que el nombre de los objetos lo cambias en sus propiedades tampoco mencionabas donde mostrar el precio a si que use un label pero puedes usar una caja de texto creo que en vb 6 seria text1=val(total)

    si deseas que te envie la interfaz del form las propiedades de los objetos los eventos de cada objeto y el codigo en imagenes me das tu correo y con gusto te lo envio

    suerte

¿Aún tienes preguntas? Pregunta ahora para obtener respuestas.