Duda con if anidados

[Shizuka]

Hola! tengo una duda con lo siguiente: tengo un combo1. el cual puede tener maternal, preescolar o primaria, un combo3. el cual puede ser quincenal o mensual y un combo5. el cual puede tener 25% o 50% de descuento y trato de hacerlo asì:

Código:

Private Sub Text7_Click()
Dim num1 As Double
Dim porcentaje As Double
If Combo1.Text = "Maternal" Then
    num1 = "1250"
    If Combo3.Text = "Quincenal" Then
            num1 = num1 / 2
            Text7 = num1
                If Combo5.Text = "25%" Then
                porcentaje = num1 * 0.25
                num1 = num1 - porcentaje
                Text7 = num1
                Else: Combo5.Text = "50%"
                porcentaje = num1 * 0.5
                num1 = num1 - porcentaje
                Text7 = num1
                End If
    Else: Combo3.Text = "Mensual"
            num1 = num1
            Text7 = num1
                If Combo5.Text = "25%" Then
                porcentaje = num1 * 0.25
                num1 = num1 - porcentaje
                Text7 = num1
                Else: Combo5.Text = "50%"
                porcentaje = num1 * 0.5
                num1 = num1 - porcentaje
                Text7 = num1
                End If
End If
End If
End Sub

Hasta ahi me evalua lo de maternal, y todo bien, hace los descuentos y todo, pero cuando quiero agregar el if para evaluar lo de primaria uso esto:

Código:

Private Sub Text7_Click()
Dim num1 As Double
Dim porcentaje As Double
If Combo1.Text = "Maternal" Then
    num1 = "1250"
    If Combo3.Text = "Quincenal" Then
            num1 = num1 / 2
            Text7 = num1
                If Combo5.Text = "25%" Then
                porcentaje = num1 * 0.25
                num1 = num1 - porcentaje
                Text7 = num1
                Else: Combo5.Text = "50%"
                porcentaje = num1 * 0.5
                num1 = num1 - porcentaje
                Text7 = num1
                End If
    Else: Combo3.Text = "Mensual"
            num1 = num1
            Text7 = num1
                If Combo5.Text = "25%" Then
                porcentaje = num1 * 0.25
                num1 = num1 - porcentaje
                Text7 = num1
                Else: Combo5.Text = "50%"
                porcentaje = num1 * 0.5
                num1 = num1 - porcentaje
                Text7 = num1
                End If
Else: Combo1.Text = "Preescolar"
    num1 = "1350"
    If Combo3.Text = "Quincenal" Then
            num1 = num1 / 2
            Text7 = num1
                If Combo5.Text = "25%" Then
                porcentaje = num1 * 0.25
                num1 = num1 - porcentaje
                Text7 = num1
                Else: Combo5.Text = "50%"
                porcentaje = num1 * 0.5
                num1 = num1 - porcentaje
                Text7 = num1
                End If
    Else: Combo3.Text = "Mensual"
            num1 = num1
            Text7 = num1
                If Combo5.Text = "25%" Then
                porcentaje = num1 * 0.25
                num1 = num1 - porcentaje
                Text7 = num1
                Else: Combo5.Text = "50%"
                porcentaje = num1 * 0.5
                num1 = num1 - porcentaje
                Text7 = num1
                End If
End If
End If
End If
End Sub

y ahì me sale un error de end sin if , me podrian revisar el còdigo por favor? gracias de antemano.

[goffys1]

Estimado :

Segun veo, todo depende del valor de combo3.text. Por lo que te recomiendo dejarlo todo dentro de un select case:

ej:

select case combo3.text
case "Quincenal"
case "Preescolar"
end select

[Shizuka]

Muchas gracias por la respuesta, si habìa pensado en eso, pero es posible agregar estructuras if dentro de un select case?

es que lo hago asì: y me sale error de que case sin select case

Código vb:

Private Sub Text7_Click()
Dim num1 As Double
Dim porcentaje As Double
Select Case Combo3.Text
Case "Quincenal"
  
    If Combo3.Text = "Quincenal" Then
            num1 = "1250"
            num1 = num1 / 2
            Text7 = num1
                If Combo5.Text = "25%" Then
                porcentaje = num1 * 0.25
                num1 = num1 - porcentaje
                Text7 = num1
                Else: Combo5.Text = "50%"
                porcentaje = num1 * 0.5
                num1 = num1 - porcentaje
                Text7 = num1
                End If
    Else: Combo3.Text = "Mensual"
            num1 = "1250"
            num1 = num1
            Text7 = num1
                If Combo5.Text = "25%" Then
                porcentaje = num1 * 0.25
                num1 = num1 - porcentaje
                Text7 = num1
                Else: Combo5.Text = "50%"
                porcentaje = num1 * 0.5
                num1 = num1 - porcentaje
                Text7 = num1
                End If
Case "Preescolar"
 If Combo3.Text = "Quincenal" Then
            num1 = "1350"
            num1 = num1 / 2
            Text7 = num1
                If Combo5.Text = "25%" Then
                porcentaje = num1 * 0.25
                num1 = num1 - porcentaje
                Text7 = num1
                Else: Combo5.Text = "50%"
                porcentaje = num1 * 0.5
                num1 = num1 - porcentaje
                Text7 = num1
                End If
    Else: Combo3.Text = "Mensual"
            num1 = "1350"
            num1 = num1
            Text7 = num1
                If Combo5.Text = "25%" Then
                porcentaje = num1 * 0.25
                num1 = num1 - porcentaje
                Text7 = num1
                Else: Combo5.Text = "50%"
                porcentaje = num1 * 0.5
                num1 = num1 - porcentaje
                Text7 = num1
                End If
End Select
End Sub
 

[goffys1]

estimado :

¿por que los else estan con ":" al final?

Saludos.

[Shizuka]

No sè,esta raro por que le quite el

else
if

y use solo el else y el programa pone los : automaticamente

Y ahi en el ultimo mensaje tuve un errorcito en el case es

Código vb:

Select Case Combo1.Text
 

Pero lo cambio y sale el mismo error, " case sin select case" y me manda a la linea

Código vb:

Case "Preescolar"
 

gracias por las respuestas :)

[Shizuka]

Gracias por las respuestas :) ya lo pude resolver con tu ayuda y viendo otras cosas en internet y quedó así:

Código vb:

Private Sub Text7_Click()
Select Case Combo1.Text
Case "Maternal"
'MsgBox "Maternal"
            num1 = "1250"
    If Combo3.Text = "Quincenal" Then
                num1 = num1 / 2
                If Combo5.Text = "25%" Then
                    porcentaje = num1 * 0.25
                    num1 = num1 - porcentaje
                    Text7 = num1
                Else
                If Combo5.Text = "50%" Then
                    porcentaje = num1 * 0.5
                    num1 = num1 - porcentaje
                    Text7 = num1
                End If
                End If
    Else
    If Combo3.Text = "Mensual" Then
                num1 = "1250"
                num1 = num1
                Text7 = num1
                If Combo5.Text = "25%" Then
                    porcentaje = num1 * 0.25
                    num1 = num1 - porcentaje
                    Text7 = num1
                Else
                If Combo5.Text = "50%" Then
                    porcentaje = num1 * 0.5
                    num1 = num1 - porcentaje
                    Text7 = num1
                End If
                End If
    End If
    End If
Case "Preescolar"
'MsgBox "Preescolar"
    num1 = "1350"
    If Combo3.Text = "Quincenal" Then
                num1 = num1 / 2
                If Combo5.Text = "25%" Then
                    porcentaje = num1 * 0.25
                    num1 = num1 - porcentaje
                    Text7 = num1
                Else
                If Combo5.Text = "50%" Then
                    porcentaje = num1 * 0.5
                    num1 = num1 - porcentaje
                    Text7 = num1
                End If
                End If
    Else
    If Combo3.Text = "Mensual" Then
                num1 = "1350"
                num1 = num1
                Text7 = num1
                If Combo5.Text = "25%" Then
                    porcentaje = num1 * 0.25
                    num1 = num1 - porcentaje
                    Text7 = num1
                Else
                If Combo5.Text = "50%" Then
                    porcentaje = num1 * 0.5
                    num1 = num1 - porcentaje
                    Text7 = num1
                End If
                End If
    End If
    End If
Case Else
'MsgBox "Primaria"
num1 = "1350"
    If Combo3.Text = "Quincenal" Then
                num1 = num1 / 2
                If Combo5.Text = "25%" Then
                    porcentaje = num1 * 0.25
                    num1 = num1 - porcentaje
                    Text7 = num1
                Else
                If Combo5.Text = "50%" Then
                    porcentaje = num1 * 0.5
                    num1 = num1 - porcentaje
                    Text7 = num1
                End If
                End If
    Else
    If Combo3.Text = "Mensual" Then
                num1 = "1350"
                num1 = num1
                Text7 = num1
                If Combo5.Text = "25%" Then
                    porcentaje = num1 * 0.25
                    num1 = num1 - porcentaje
                    Text7 = num1
                Else
                If Combo5.Text = "50%" Then
                    porcentaje = num1 * 0.5
                    num1 = num1 - porcentaje
                    Text7 = num1
                End If
                End If
    End If
    End If
End Select
End Sub
 

muchas gracias :)

[goffys1]

de acuerdo. Agradecido por la respuesta.

Pero me permito hacerte una sugerencia.. cuidado con las sangrias, a veces se confunde donde termina el if por ejemplo.

Un codigo ordenado y simple, es muy facil de leer y entender. En cambio, si esta medio mezclado, cuesta leerlo y entender lo que estas haciendo.

Considera que no siempre seras tu quien mantenga el codigo, puede ser que venga otra persona y vea lo que has escrito..

Saludos.

[Shizuka]

Siii, fue la misma observacion que me hizò otro compañero, gracias :3