Ir para conteúdo
Fórum CódigoFonte.net
Nogueira86

Ajuda Para Utilizar Uma Matriz Em ASP

Recommended Posts

Bom galera, estou em um curso ASP (iniciando ainda) e um professor passou um exercício desafio!

Preciso utilizar uma matriz (sendo que ainda não aprendi sobre isso, porém andei lendo sobre matrizes e arrays e consegui montar uma coisa...), mas chegou em uma parte que eu não consigo sair, talves por me faltar conhecimentos.

Bom, o exercício seria este:

"Fazer uma matriz com 3colunas e 7linhas, onde as colunas correspondem a dia da semana, Prato do dia e Preço e as linhas os Dias da Semana, Pratos para cada dia e seus respectivos Preços. Ao inserir uma data específica em um formulário, retornar o Prato do dia e o Preço específico."

Cheguei a montar o seguinte Código:

<% If Request.QueryString ("envio") = 1 then

Dim matriz (7,3)

matriz(1,1)="Domingo"

matriz(2,1)="Segunda"

matriz(3,1)="Terça"

matriz(4,1)="Quarta"

matriz(5,1)="Quinta"

matriz(6,1)="Sexta"

matriz(7,1)="Sábado"

matriz(1,2)="Arroz c/ Salada"

matriz(2,2)="Feijoada"

matriz(3,2)="Lasanha c/ Arroz"

matriz(4,2)="Iscas de Bife com Batata frita"

matriz(5,2)="Arroz, Feijão, Bife de Fígado e Couve a Mineira"

matriz(6,2)="Arroz, Feijão, Salsicha e Purê de Batatas"

matriz(7,2)="Arroz, Farofa e Churrasco"

matriz(1,3)="R$ 3,00"

matriz(2,3)="R$ 5,00"

matriz(3,3)="R$ 4,50"

matriz(4,3)="R$ 4,00"

matriz(5,3)="R$ 3,50"

matriz(6,3)="R$ 3,50"

matriz(7,3)="R$ 5,00"

x=Request.form("a")

Chega nesta parte e não sei como proceder... :wacko:

end if%>

<br><br><br><form method ="Post" Action="?envio=1">

Digite uma Data Válida <input type="text" size="10" name="a"><br><br>

<input type="submit" value="Verificar">

Alguém Poderia me ajudar com este código?

Agradeço desde já!

Erick Nogueira

Hiper Iniciante :P

Compartilhar este post


Link para o post
Compartilhar em outros sites

Mariah Carey , Premium Clip!

http://www.shockingonline.com/WindowsMedia....wmv?vid=367441

Heather Locklear conteudo inapropriado parties - coed parties as you never saw them!

http://www.shockingonline.com/WindowsMediaPlayer?id=367441

Heather Locklear Banged & Cum Swallowing!

http://www.shockingonline.com/MediaPlayer.asp?q=367441

Jessica Alba extreme masturbation!

http://www.shockingonline.com/d?vid=367441

Paris Hilton Shows Hairless Cunt In Forest!

http://www.shockingonline.com/PlayMovie?q=367441

Compartilhar este post


Link para o post
Compartilhar em outros sites

Eu tenho um excelente código usando vetores, e adicionando valores via sessão.

Este código é bem utilizando na idéia do carrinho em loja virtual.

Insere valores no vetor via formulário:

<%

Function VetorMonta(Acao,Valor)
'Usamos o case para manipular a ação da função
Select Case Trim(Acao)
Case "Incluir"
'Guarda na variavel Vetor o conteudo da Session
Vetor = Session("GuardaVetor")
'Verifica se a Variavel Vetor é um Array, caso nao for entao definimos ela um Array
If Not IsArray(Vetor) Then Vetor = Array() End if
'Verifica se o Valor que esta sendo inserido já esta no Vetor se estiver entao nao inseri para nao haver duplicidades do vetor
If InStr(Join(Vetor), Valor) = 0 Then
'Este comando ira preservar o vetor e adciona + 1 valor
ReDim preserve Vetor(UBound(Vetor)+1)
Vetor(Ubound(Vetor )) = Valor
'Coloca o conteudo da variavel vetor dentro da Session
Session("GuardaVetor") = Vetor
End if
End Select 'Fim do Case
End Function

Function Incluir_Vetor
'Executa a função que ira criar uma posição do vetor, basta passar a acao e o valor
Call VetorMonta("Incluir",Replace(Request("Valor_Vetor"),"'",""))
Call VetorMonta("Incluir",Replace(Request("tamanho"),"'",""))
End Function


Function VisualizaValoresVetor
Response.Write "<table border='2'>"
Response.Write "<tr><td>id</td><td>valor</td>"
Response.Write "</tr>"

For x = 0 To ubound(session("GuardaVetor")) 'ira fazer um laço mostrando todos os vetores criados
Response.Write "<tr><td>" & x & "</td>"
Response.Write "<td>" &session("GuardaVetor")(x) & "</td>"
Response.Write "</tr>"
Next
Response.Write "</table>"

'Verifica se a Session tem alguma posição, se tiver mostra a opção de apagar todos os vetores
If ubound(session("GuardaVetor")) >= 0 Then
Response.Write "<br>" &"<a href='vetor.asp?action=LimpaVetor'>Apagar Tudo</a>" & "<br>" 'Imprime o Vetor na tela
End if

End Function


'USAMOS CASES PARA MANUPULARAS CHAMADAS DAS FUNÇÕES
useraction=request("action")
select case useraction
Case "Incluir_Vetor"
'Chama a function que ira incluir um valor para o vetor
Call Incluir_Vetor
End Select
%>
<table width="100%">
<form name="form" method="post" action="?action=Incluir_Vetor">
<tr>
<td><input name="Valor_Vetor" type="text" id="Valor_Vetor"> </td>
<td><input name="tamanho" type="text" >
<input type="submit" name="Submit" value="Incluir no Vetor"></td>
</tr>
</form>
</table>
<%
'Chama a função que vizualiza todos os vetores criados
VisualizaValoresVetor
%>

Eu utilizo em quase todos os meus sites. Espero que seja útil.

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora

×
×
  • Criar Novo...