3 replies to this topic

[Nogueira86]

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


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

[siola]

response.write matriz(x, 2) & "<br>"
response.write matrix(x,3)

isso?

PS: lembrando que matriz começã no registro 0, então ficaria

Dim matriz (6,2)

matriz(0,0)="Domingo"
matriz(1,0)="Segunda"
matriz(2,0)="Terça"
matriz(3,0)="Quarta"
...

Edição feita por: siola, 01/04/2007, 11:59.

[Nogueira86]

response.write matriz(x, 2) & "<br>"
response.write matrix(x,3)

isso?

PS: lembrando que matriz começã no registro 0, então ficaria

Dim matriz (6,2)

matriz(0,0)="Domingo"
matriz(1,0)="Segunda"
matriz(2,0)="Terça"
matriz(3,0)="Quarta"
...

Bom... não é isso... seria +/- o que está alí no link abaixo, só que um pouco mais complicado.

Vou postar aqui um exercicio parecido que consegui montar...

O resultado pode ser visto no endereço http://nogueira.site.../exercicio8.asp

O código deste exercício 8 é:

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

Dim diasemana(7)
diasemana(1)="Domingo"
diasemana(2)="Segunda"
diasemana(3)="Terça"
diasemana(4)="Quarta"
diasemana(5)="Quinta"
diasemana(6)="Sexta"
diasemana(7)="Sábado"

i=Request.form("a")

If isdate(i) = true then

x=diasemana(weekday(i)) 

'Foi fácil montar este, pois se refere a um único número, ou seja, utilizei weekday para me retornar um numero de 1 a 7 e dentro da variavel diasemana que me retornaria uma opção da matriz que por sua vez ainda armazenaria dentro de X o dia da semana referente... Após, bastou-me usar o IF e pronto!'

If x = "Quarta" then
%>

A Data Digitada Equivale a: <font color="green"><% =x %></font>
<%else%>
A Data Digitada Equivale a: <% =x %>
<%end if%>
<%else%>
<%Response.write "Digite uma data Válida"%>
<%end if%>
<%End if%>

<br>
<br>
<form method="post" action="?envio=1">
Digite uma Data <input type="text" size="10" name="a">
<br>
<br>
<input type="submit" value="Verificar">

O problema todo no exercício que não consigo resolver é que não sei como vou interligar a data digitada pelo usuário com uma opção da matriz... já q desta vez não daria para utilizar weekday, já q me retornaria apenas 1 número e preciso fazer referencia a uma linha e uma coluna.

Erick Nogueira
Hiper Iniciante

Bom gente, só estou passando para dizer que com ajuda de um amigo da empresa onde estagio (HostNet), consegui montar o código certo.
Queria agradecer a tentativa de ajuda do Siola. Valeu gnt!

Quem quiser, pode conferir o resultado no endereço http://nogueira.site...exercicio10.asp

Flw!!!

Edição feita por: Nogueira86, 02/04/2007, 20:16.

[sk15]

Mas isso não seria cola ???
De qualquer forma olha outro exemplo simplificado ..

<%
Dim Valores(7)
Valores(0) = "Domingo|Arroz c/ Salada|R$ 3,00"
Valores(1) = "Segunda|Feijoada|R$ 5,00"
Valores(2) = "Terça|Lasanha c/ Arroz|R$ 4,50"
Valores(3) = "Quarta|Iscas de Bife com Batata frita|R$ 4,00"
Valores(4) = "Quinta|Arroz, Feijão, Bife de Fígado e Couve a Mineira|R$ 3,50"
Valores(5) = "Sexta|Arroz, Feijão, Salsicha e Purê de Batatas|R$ 3,50"
Valores(6) = "Sábado|Arroz, Farofa e Churrasco|R$ 5,00"

If (Not IsEmpty(Request.Form("mostra")) ) Then
 DataSplit = Split(Valores(Request.Form("day")), "|")
 Response.Write "<b>Dia:</b> " & DataSplit(0) & "<br>"
 Response.Write "<b>Prato:</b> " & DataSplit(1) & "<br>"
 Response.Write "<b>Preço:</b> " & DataSplit(2) & "<br>"
End If
%>
<form action="<%= Request.ServerVariables("SCRIPT_NAME") %>" method="post">
Escolha o Dia: <select name="day" size="1">
<option value="0">- Domingo</option>
<option value="1">- Segunda</option>
<option value="2">- Terça</option>
<option value="3">- Quarta</option>
<option value="4">- Quinta</option>
<option value="5">- Sexta</option>
<option value="5">- Sábado</option>
</select> <input type="submit" name="mostra" value=" Mostrar ">
</form>