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

Join the conversation

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

Visitante
Responder

×   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.

Processando...

×
×
  • Criar Novo...