none
Duvida montar logica em IF dinamicamente RRS feed

  • Pergunta

  • Olá tenho em um formulário três opções onde posso montar condições logicas, mas não estou conseguindo monta-las no código de forma dinâmica pois nem sempre serão utilizadas as três condições. Segue a imagem do meu formulário.

     

    Fernando Fernandes skype: cbdesousa



    quinta-feira, 21 de fevereiro de 2013 14:15

Todas as Respostas

  • Poste seu code.
    quinta-feira, 21 de fevereiro de 2013 17:58
  • Public Sub filtro(ByVal sensor As String, ByVal canal As Integer, ByVal condicao As String, ByVal valorFiltro As Double, ByVal acao As Integer)
            Dim indexSensor As Integer
            Select Case (sensor.ToString)
                Case "A"
                    indexSensor = 0
                Case "B"
                    indexSensor = 1
                Case "C"
                    indexSensor = 2
            End Select
            If condicao.ToString = ">=" AndAlso valoresSensores(indexSensor) >= valorFiltro Then
                CmdBotaoFiltro(canal, acao)
            End If
    
    
            If condicao.ToString = "<=" AndAlso valoresSensores(indexSensor) <= valorFiltro Then
                CmdBotaoFiltro(canal, acao)
            End If
    
            If condicao.ToString = "<" AndAlso valoresSensores(indexSensor) < valorFiltro Then
                CmdBotaoFiltro(canal, acao)
            End If
    
            If condicao.ToString = ">" AndAlso valoresSensores(indexSensor) > valorFiltro Then
                CmdBotaoFiltro(canal, acao)
            End If
    
        End Sub
     If ckA.Checked Then
                filtro(cbSensorA.Text, Convert.ToInt32(cbCanalA.Text), cbCondicaoA.Text, Convert.ToDouble(txtValorA.Text), Convert.ToInt32(cbFuncaoA.Text))
            ElseIf ckB.Checked Then
                filtro(cbSensorB.Text, Convert.ToInt32(cbCanalB.Text), cbCondicaoB.Text, Convert.ToDouble(txtValorB.Text), Convert.ToInt32(cbFuncaoB.Text))
            ElseIf ckc.Checked Then
                filtro(cbSensorC.Text, Convert.ToInt32(cbCanalC.Text), cbCondicaoC.Text, Convert.ToDouble(txtValorC.Text), Convert.ToInt32(cbFuncaoC.Text))
            End If



    Fernando Fernandes skype: cbdesousa


    quinta-feira, 21 de fevereiro de 2013 19:14