• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

ber0x88

[vb 6.0] intervalos com select case

3 mensagens neste tópico

Boas, alguém sabe como definir intervalos com a select case?!?!

estou como seguinte código:

 Select Case dblTotal
    
    Case Is < 18, 5
        lbl2.Visible = True
    Case Is > 18, 5, Is < 24, 9
        lbl3.Visible = True
    Case Is > 25, Is < 29, 9
        lbl4.Visible = True
    Case Is > 30, Is < 34, 9
        lbl5.Visible = True
    Case Is > 35, Is < 39, 9
        lbl6.Visible = True
    Case Is > 40
        lbl7.Visible = True

End Select 

mas não funciona... se a variável dblTotal for maior que 18,5 seja ela qual for, nem que seja 50 ele para sempre no segundo case:

    Case Is > 18, 5, Is < 24, 9
        lbl3.Visible = True

Cumps...

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

é um tiro no escuro, mas tira os espaços nos números (18, 5 -> 18,5)

se não funcionar então substitui pelo seguinte código:

Select Case dblTotal
    
    Case Is < 18, 5
        lbl2.Visible = True
    Case 18,5 to 24, 9
        lbl3.Visible = True

     ........     

    Case Is > 40
        lbl7.Visible = True
End Select

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Tens razão Kyu!!!  :)

Estive a ver e não tinha tirado o "Is" a seguir ao case... quando inseri o "to"...

Select Case dblTotal
    
    Case Is < 18, 5
        lbl2.Visible = True
    Case 18, 5 To 24, 9
        lbl3.Visible = True
    Case 25 To 29, 9
        lbl4.Visible = True
    Case 30 To 34, 9
        lbl5.Visible = True
    Case 35 To 39, 9
        lbl6.Visible = True
    Case Is > 40
        lbl7.Visible = True

End Select

Obrigado!!!  :P

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!


Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.


Entrar Agora