Jump to content
Fórum Script Brasil
  • 0
Sign in to follow this  
samislobato

Fazendo um tour pelo ASP

Question

<%
'**************************************************************************************************************************
'Autor = Samis Pedro Lobato
'Data = 29/11/2009
'Fazendo um tour pelo ASP
'Trabalhando uma função no ASP
'**************************************************************************************************************************
%>

<%
FuncaoCalculadora() 'Chamo a função que foi criada abaixo, poderia instanciar e chamr ela em qualquer outra página
%>

<%
Function FuncaoCalculadora()                                                 'Nome da função

  Dim gValorx, gValory, gResultado, gOperador                                    'Declarando as variáveis    
  
      gValorx = Request.Form("VlX")                                           'Atribuo à variável o valor do textbox VLX
      
      gValory = Request.Form("VLY")                                             'Atribuo à variável o valor do textbox VLY
      
      gOperador = Request.Form("gOperador")                                     'Atribuo à variável o valor do ComboBox gOperador
      
      if gValorx = "" then                                                    'Testo se a variável esta vazia, se tiver apresento a mensagem
      
         Response.Write "Informe os devidos valores no rodapé da página."
         
      else                                                                     'Se não executo as condições abaixo      
      
           if gOperador = 1 then ' Na variável gOperador, nós pegamos o valor do combobox, se o valor do combobox for = 1 então o gOperador será "+"           
           
             gResultado = cInt(gValorx) + cInt(gValory) ' A variável gResultado recebe o calculo, gValorx + gValory             
             
           end if 'Finalizo o bloco do IF           
           
           if gOperador = 2 then ' Na variável gOperador, nós pegamos o valor do combobox, se o valor do combobox for = 2 então o gOperador será "-"           
           
             gResultado = gValorx - gValory  ' A variável gResultado recebe o calculo, gValorx - gValory             
             
           end if 'Finalizo o bloco do IF           
           
           if gOperador = 3 then ' Na variável gOperador, nós pegamos o valor do combobox, se o valor do combobox for = 3 então o gOperador será "*"           
           
             gResultado = gValorx * gValory  ' A variável gResultado recebe o calculo, gValorx * gValory             
             
           end if'Finalizo o bloco do IF            
           
           if gOperador = 4 then ' Na variável gOperador, nós pegamos o valor do combobox, se o valor do combobox for = 4 então o gOperador será "/"           
           
             gResultado = gValorx / gValory  ' A variável gResultado recebe o calculo, gValorx / gValory             
             
           end if'Finalizo o bloco do IF           
           
           end if'Finalizo o bloco do IF da mensagem
           
           
      response.Write "gResultado: " & gResultado 
      
 End function 
%>

Share this post


Link to post
Share on other sites

2 answers to this question

Recommended Posts

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Sign in to follow this  



  • Forum Statistics

    • Total Topics
      148385
    • Total Posts
      643771
×
×
  • Create New...