Foro de elhacker.net

sub Main()
Dim Sw as boolean
Sw=ObtenerResultado()
if sw then
   label1="obtuviste un true"
else
   label1="obtuviste un false"
endif
end sub

Function ObtenerResultado()
' aquí hacer el cálculo que sea
El resultado dejarlo en ObtenerResultado
ObtenerResultado=ValorObtenido
end function

Function LogicaSI(Valor1 as Integer, Operacion as String, Valor2 as Integer, Resultado as Integer)

Function LogicaSI(Valor1 as Integer, Operacion as String, Valor2 as Integer, Resultado as Integer)

   Select Case Operacion
   
      Case ">"
            
           If Valor1 > Valor 2 Then LogicaSI = Resultado
       
      Case "<"
           
           If Valor1 < Valor 2 Then LogicaSI = Resultado

      Case "="

           If Valor1 = Valor 2 Then LogicaSI = Resultado

      Case "<>"

           If Valor1 <> Valor 2 Then LogicaSI = Resultado

     'Como ves, esto da para mucho, por ejemplo:

      Case ">="

           If Valor1 >= Valor 2 Then LogicaSI = Resultado

      Case "<="

           If Valor1 <= Valor 2 Then LogicaSI = Resultado

   End Select

End Function

Txt.Text = CStr( LogicaSI(10, ">", 9, 1) )