<%
'**************************************************************************************************************************
'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
%>
Pergunta
samislobato
<% '************************************************************************************************************************** '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 %>Link para o comentário
Compartilhar em outros sites
2 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.