USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Somar texto de uma formala cadastrada
saliba
BRASILIA
DF - BRASIL
ENUNCIADA !
Postada em 19/07/2009 09:12 hs            
Ola amigos

tenho

LARGURA=1200
COMPRIMENTO 2000
FIXO 600

F1=LARGURA
F2=*
F3=COMPRIMENTO
F4=(
F5=LARGURA
F6= /
F7=2
F7 = )
FICANDO ASSIM A FORMULA

F1 F2 F3 F4 F5 F6 F7 F8

SERIA SIM = 1200 * 2000 (LARGURA/2)

AGUEM PODE ME AJUDAR

EM VB /VBA
   
William 
CRAVINHOS
SP - BRASIL
ENUNCIADA !
Postada em 19/07/2009 14:26 hs            
Não entendi é nada do que você quis amigo.

Mas se for trabalhar com número, é melhor declarar as váriaveis como integer e não tem a necessidade (talvez nem funcionalidade) de se usar variaveis para guardar * / ou mesmo parênteses.

Poderia definir mesmo como

dim f1, f2, f3, resultado as integer

resultado = (f1 * f2) / 2

msgbox resultado


se foi bem isso que você quis.

De qualquer forma aconselho a você estudar operadores aritméticos porque ta dureza kkkkkkkk

[]'s
   
saliba
BRASILIA
DF - BRASIL
ENUNCIADA !
Postada em 20/07/2009 13:11 hs            
Seria quase isso so que os operados esta como variavel
EX mais simples
 
LARGURA=500mm
COMPRIMENTO 1000mm

F1=LARGURA
F2=*
F3=COMPRIMENTO
FICANDO ASSIM A FORMULA
F1 F2 F3
 
f1= 500
f2 = *  ( multiplicar )
f3 = 1000
 
exemplo
formula = F1 F2 F3   --------  500 * 1000
 
TÓPICO EDITADO
 
Ash Katchup
CAXIAS DO SUL
RS - BRASIL
ENUNCIADA !
Postada em 20/07/2009 14:48 hs            
Olha, para ser sincero eu não sei se existe maneira de fazer essa operação senão usando Case ou If....
Select Case f2    
    Case "*"        
        Result = F1*F3    
    Case "-"      
        Result = F1-F3
End select

__________________

"It is the way of men to make monsters...and it is the nature of
monsters to destroy their makers."

-F.E.A.R. (First Encounter Assault Recon )
TÓPICO EDITADO
 
Página(s): 1/1    


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

[:)] = 
[:P] = 
[:(] = 
[;)] = 

HTML DESLIGADO

     
 VOLTAR

  



CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página