Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Matheus Brito

Simulador de bolsas de estudos

Recommended Posts

E ai pessoal , eh o seguinte to me aventurado aqui na linguagem asp, e tava fazenso um simulador de bolsas de estudos eh so pra treinar mesmo. Só que nao ta aparecendo nada no localhost ai vou colocar o codigo aqui pra vcs me ajudarem. Ta ai em 3 partes uma com o formulario, outra com a validação do mesmo e outra com a resposta. Agradeço desde já flws.

<%Sub formulario()%><p align="center"><i><b><font size="+4" color="#800000">Simulador de bolsa de Estudos</font></b></i><br><div align="center"><center><form name="bolsa" method="post"><table border="0" width="400" bgcolor="#ced299"><tr><td width="100%" align="left"> <strong><font size="2" face="arial" color="red"><%=session("erro")%></font></strong><font face="arial"><b>Nome:</b></font><input type="text" name="nome" size="44" value="<%=request.form("nome")%>" maxlenght="50"><font face="arial"><b><br>Data de Nascimento:</b></font><input type="text" name="dia" size="2" value="<%request.form("dia")%>" maxlenght="2">/<input type="text" name="mes" size="2" value="<%request.form("mes")%>" maxlenght="2">19<input type="text" name="ano" size="2" value="<%request.form("ano")%>" maxlenght="2"><br><font face="arial"><b><br>Média do último ano:</font></b><input type="text" name="media" size="2" value="<%request.form("media")%>" maxlenght="2">valores<b><font face="arial"><br>Rendimento mensal dos pais:</font></b><input type="text" name="rendimento" size="7" value="<%request.form("rendimento")%>" maxlength="7">"$00<p align="center"> <input type="submit" value="Simular" name="submeter"><br></p></td></tr></table></form></center></div><%End Sub%>

<%Sub dados_validar()%><%session("erro")=""if not(IsDate(data)) thensession("erro")="A data está inválida...<br>"elseif not(IsNumeric(media))OR((media<0)OR(media>20)) thensession("erro")="A media é inválida...<br>"elseif not(IsNumeric(rendimento)) thensession("erro")="O rendimento esta inválido... <br>"end ifend ifend ifif(session("erro"))<>"" thenformulario()else respostaend if%><%End Sub%>

<%sub resposta()%><%session("erro")=""%><div align="center"><center><table border="0" width="400" bgcolor="#CED299"><tr><td width="100%" align="left"><%idade=DateDiff("yyyy",data,Now)if(idade>10 and idade<28)then%><p align="center"><b><font color="#800000" face="arial" size="3"><br>O Aluno</font><font color="#FF0000" face="arial" size="4"><%=nome%></font><font color="#800000" face="arial" size="3">, <br>com a media de</font><font face="arial" size="4" color="FF0000"><%=media%></font><font color="#800000" face="arial" size="3">valores<br>nascido em </font><font face="arial" size="4" color="FF0000"><%=data%></font><font color="#800000" face="arial" size="3"><br></font><font face="arial" size="4" color="FF0000"><% if((rendimento<=80000)AND(media>11)) thenmensagem="tem"elseif((rendimento>80000 AND rendimento<100000)AND (media>13)) thenmensagem="tem"elseif(rendimento>=100000 AND rendimento<160000 AND(media>16))thenmensagem="tem"elseif(media>18) thenmensagem="tem"else mensagem="não tem"end ifend ifend ifend ifResponse.Write mensagem%></font><font color="#800000" face="arial" color="red" size="3">direito<br>à bolsa de estudos.<br></font></b></p><br><%else%><br><center><strong><font face="arial" color="red" size="3">não é possível concorrer a bolsa de estudos<br> com <%=idade%>anos.</font></strong></center><br><%end if%></td></tr></table><br><br><a href="simulador_online.asp">Repetir simulação</a></center></div><%End Sub%>

Compartilhar este post


Link para o post
Compartilhar em outros sites

×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.