none
Função ou outra saida para fazer contas matematicas em vbs. RRS feed

  • Pergunta

  • Ba galera,

    Estou procurando uma função ou uma formula ou uma lógica pra fazer uma conta matemática de soma e multiplicação, aonde por 5 imputbox eu entraria com os valores tche, e ao clica no botão ok a soma ou a multiplicação seria executada e seu resultado seria apresentado por um wscript.echo.

    Alguem conhece uma forma de fazer uma funçao, formula ou logica em vbs para esta necessidade tche.

    obrigado.

    sábado, 7 de setembro de 2013 18:06

Respostas

  • Marcelo.

    Boa tarde.

    Veja se esta function atende de a sua demanda.


    Fator="+"
    valor1=221
    valor2=32
    valor3=10
    valor4=5
    valor5=100
    
    resultado = operar(fator,valor1,valor2,valor3,valor4,valor5)
    
    WScript.Echo resultado
    
    function operar (operador,op1,op2,op3,op4,op5)
       select case operador
          case "+":
             operar = op1 + op2 + op3 + op4 + op5
          case "-":
             operar = op1 - op2 - op3 - op4 - op5
          case "*":
             operar = op1 * op2 * op3 * op4 * op5
          case else:
             operar = op1 / op2 / op3 / op4 / op5
       end select
    end function

    Com este caso você, pode passar as chamadas que estão fixas de valores e o fator para inputbox, para que seja apresentado os valores de forma manual e o tipo de conta a ser feita.

    Espero ter ajudado.



    Your potential. Our passion - Microsoft

    • Marcado como Resposta Marcelo TI domingo, 8 de setembro de 2013 00:38
    sábado, 7 de setembro de 2013 18:41

Todas as Respostas

  • Marcelo.

    Boa tarde.

    Veja se esta function atende de a sua demanda.


    Fator="+"
    valor1=221
    valor2=32
    valor3=10
    valor4=5
    valor5=100
    
    resultado = operar(fator,valor1,valor2,valor3,valor4,valor5)
    
    WScript.Echo resultado
    
    function operar (operador,op1,op2,op3,op4,op5)
       select case operador
          case "+":
             operar = op1 + op2 + op3 + op4 + op5
          case "-":
             operar = op1 - op2 - op3 - op4 - op5
          case "*":
             operar = op1 * op2 * op3 * op4 * op5
          case else:
             operar = op1 / op2 / op3 / op4 / op5
       end select
    end function

    Com este caso você, pode passar as chamadas que estão fixas de valores e o fator para inputbox, para que seja apresentado os valores de forma manual e o tipo de conta a ser feita.

    Espero ter ajudado.



    Your potential. Our passion - Microsoft

    • Marcado como Resposta Marcelo TI domingo, 8 de setembro de 2013 00:38
    sábado, 7 de setembro de 2013 18:41
  • Ba Leandro, obrigado pela força...
    domingo, 8 de setembro de 2013 00:39