function Pergunta (qname,
type,
qstring,
response,
comment,
corrects,
explan,
score,
ifcorrect,ifwrong,ifnull,
img)
{this.qname=qname;
this.type=type;
this.qstring=qstring;
this.response=response;
this.comment=comment;
this.corrects=corrects;
this.explan=explan;
this.score=score;
this.ifcorrect=ifcorrect;
this.ifwrong=ifwrong;
this.ifnull=ifnull;
this.img=img;
}

var zin=1,top=0, mycount=0, waitTime=0, qright=0, mycomment;
var global=new Array(3);
var recent, recent2, recdone=false, opera7, opera=CheckOpera56();
function cachewrite(s,idx){global[idx]+=s;}
function CheckOpera56()
{
var version;
if (navigator.userAgent.toLowerCase().indexOf('opera') == -1) return false;
version=parseInt(navigator.appVersion.toLowerCase());
if (version>6) {opera7=true; return false;}
if (version<5) return false;
return true;
}
resp=new Array("<font face=\"Verdana\" size=1>Raramente</font>","<font face=\"Verdana\" size=1>&Agrave;s vezes</font>","<font face=\"Verdana\" size=1>Freq&uuml;entemente</font>","<font face=\"Verdana\" size=1>Geralmente</font>","<font face=\"Verdana\" size=1>Sempre</font>","<font face=\"Verdana\" size=1>N&atilde;o se aplica</font>")
corr=""
comm=""
valu=new Array(1,2,3,4,5,0)
quest001 = new Pergunta(
"Pergunta 1",
0,
"<font face=\"Verdana\" size=1 style=\"text-align: justify\"><b>Com que freq&uuml;&ecirc;ncia voc&ecirc; acha que passa mais tempo on-line do que pretendia?</b> </font>",
resp,
comm,
corr,
"",
valu,
1,
0,
0,
"");

resp=new Array("<font face=\"Verdana\" size=1>Raramente</font>","Sempre","Às vezes","Freqüentemente","Geralmente","Não se aplica")
corr=""
comm=""
valu=new Array(1,2,3,4,5,0)
quest002 = new Pergunta(
"Pergunta 2",
0,
"<font face=\"Verdana\" size=1><b>Com que freq&uuml;&ecirc;ncia voc&ecirc; negligencia as tarefas dom&eacute;sticas para passar mais tempo on-line?</b> </font>",
resp,
comm,
corr,
"",
valu,
1,
0,
0,
"");

resp=new Array("Raramente&nbsp;&nbsp;&nbsp;","Às vezes","Freqüentemente","Geralmente","Sempre","Não se aplica")
corr=""
comm=""
valu=new Array(1,2,3,4,5,0)
quest003 = new Pergunta(
"Pergunta 3",
0,
"<font face=\"Verdana\" size=1 style='text-align:justify'><b>Com que freq&uuml;&ecirc;ncia voc&ecirc; prefere a emo&ccedil;&atilde;o da Internet &agrave; intimidade com seu/sua parceiro(a)? </b></font>",
resp,
comm,
corr,
"",
valu,
1,
0,
0,
"");

resp=new Array("Raramente","Às vezes","Freqüentemente","Geralmente","Sempre","Não se aplica")
corr=""
comm=""
valu=new Array(1,2,3,4,5,0)
quest004 = new Pergunta(
"Pergunta 4",
0,
"<font face=\"Verdana\" size=1><b>Com que freq&uuml;&ecirc;ncia voc&ecirc; constr&oacute;i novos relacionamentos com amigos usu&aacute;rios on-line? </b></font>",
resp,
comm,
corr,
"",
valu,
1,
0,
0,
"");

resp=new Array("Raramente","Às vezes","Freqüentemente","Geralmente","Sempre","Não se aplica")
corr=""
comm=""
valu=new Array(1,2,3,4,5,0)
quest005 = new Pergunta(
"Pergunta 5",
0,
"<font face=\"Verdana\" size=1><b>Com que freq&uuml;&ecirc;ncia outras pessoas em sua vida se queixam a voc&ecirc; sobre a quantidade de tempo que voc&ecirc; passa on-line?</b> </font>",
resp,
comm,
corr,
"",
valu,
1,
0,
0,
"");

resp=new Array("Raramente","Às vezes","Freqüentemente","Geralmente","Sempre","Não se aplica")
corr=""
comm=""
valu=new Array(1,2,3,4,5,0)
quest006 = new Pergunta(
"Pergunta 6",
0,
"<font face=\"Verdana\" size=1><b>Com que freq&uuml;&ecirc;ncia suas notas ou tarefas da escola sofrem por causa da quantidade de tempo que voc&ecirc; passa on-line?</b></font>",
resp,
comm,
corr,
"",
valu,
1,
0,
0,
"");

resp=new Array("Raramente","Às vezes","Freqüentemente","Geralmente","Sempre","Não se aplica")
corr=""
comm=""
valu=new Array(1,2,3,4,5,0)
quest007 = new Pergunta(
"Pergunta 7",
0,
"<font face=\"Verdana\" size=1><b>Com que freq&uuml;&ecirc;ncia voc&ecirc; checa seu e-mail antes de qualquer outra coisa que voc&ecirc; precise fazer? </b></font><br>",
resp,
comm,
corr,
"",
valu,
1,
0,
0,
"");

resp=new Array("Raramente","Às vezes","Freqüentemente&nbsp;","Geralmente","Sempre","Não se aplica")
corr=""
comm=""
valu=new Array(1,2,3,4,5,0)
quest008 = new Pergunta(
"Pergunta 8",
0,
"<font face=\"Verdana\" size=1><b>Com que freq&uuml;&ecirc;ncia seu desempenho ou produtividade no trabalho sofre por causa da Internet?</b> </font>",
resp,
comm,
corr,
"",
valu,
1,
0,
0,
"");

resp=new Array("Raramente","Às vezes","Freqüentemente","Geralmente","Sempre","Não se aplica")
corr=""
comm=""
valu=new Array(1,2,3,4,5,0)
quest009 = new Pergunta(
"Pergunta 9",
0,
"<font face=\"Verdana\" size=1><b>Com que freq&uuml;&ecirc;ncia voc&ecirc; fica na defensiva ou guarda segredo quando algu&eacute;m lhe pergunta o que voc&ecirc; faz on-line? </b></font>",
resp,
comm,
corr,
"",
valu,
1,
0,
0,
"");

resp=new Array("Raramente","Às vezes","Freqüentemente","Geralmente","Sempre","Não se aplica")
corr=""
comm=""
valu=new Array(1,2,3,4,5,0)
quest010 = new Pergunta(
"Pergunta 10",
0,
"<font face=\"Verdana\" size=1><b>Com que freq&uuml;&ecirc;ncia voc&ecirc; bloqueia pensamentos perturbadores sobre sua vida com pensamentos leves da Internet? </b></font>",
resp,
comm,
corr,
"",
valu,
1,
0,
0,
"");

resp=new Array("Raramente","Às vezes","Freqüentemente","Geralmente","Sempre","Não se aplica")
corr=""
comm=""
valu=new Array(1,2,3,4,5,0)
quest011 = new Pergunta(
"Pergunta 11",
0,
"<font face=\"Verdana\" size=1><b>Com que freq&uuml;&ecirc;ncia voc&ecirc; se pega pensando em quando voc&ecirc; vai entrar on-line novamente? </b></font>",
resp,
comm,
corr,
"",
valu,
1,
0,
0,
"");

resp=new Array("Raramente","Às vezes","Freqüentemente&nbsp;&nbsp;","Geralmente","Sempre","Não se aplica")
corr=""
comm=""
valu=new Array(1,2,3,4,5,0)
quest012 = new Pergunta(
"Pergunta 12",
0,
"<font face=\"Verdana\" size=1><b>Com que freq&uuml;&ecirc;ncia voc&ecirc; teme que a vida sem a Internet seria chata, vazia e sem gra&ccedil;a? </b></font>",
resp,
comm,
corr,
"",
valu,
1,
0,
0,
"");

resp=new Array("Raramente","Às vezes","Freqüentemente","Geralmente&nbsp;","Sempre","Não se aplica")
corr=""
comm=""
valu=new Array(1,2,3,4,5,0)
quest013 = new Pergunta(
"Pergunta 13",
0,
"<font face=\"Verdana\" size=1><b>Com que freq&uuml;&ecirc;ncia voc&ecirc; estoura, grita ou se mostra irritado(a) se algu&eacute;m lhe incomoda enquanto voc&ecirc; est&aacute; on-line? </b></font>",
resp,
comm,
corr,
"",
valu,
1,
0,
0,
"");

resp=new Array("Raramente","Às vezes","Freqüentemente","Geralmente","Sempre","Não se aplica")
corr=""
comm=""
valu=new Array(1,2,3,4,5,0)
quest014 = new Pergunta(
"Pergunta 14",
0,
"<font face=\"Verdana\" size=1><b>Com que freq&uuml;&ecirc;ncia voc&ecirc; dorme pouco por ficar logado(a) at&eacute; tarde da noite? </b></font>",
resp,
comm,
corr,
"",
valu,
1,
0,
0,
"");

resp=new Array("Raramente","Às vezes","Freqüentemente","Geralmente","Sempre","Não se aplica")
corr=""
comm=""
valu=new Array(1,2,3,4,5,0)
quest015 = new Pergunta(
"Pergunta 15",
0,
"<font face=\"Verdana\" size=1><b>Com que freq&uuml;&ecirc;ncia voc&ecirc; se sente preocupado(a) com a Internet quando est&aacute; off-line ou fantasia que est&aacute; on-line?</b> </font>",
resp,
comm,
corr,
"",
valu,
1,
0,
0,
"");

resp=new Array("Raramente","Às vezes","Freqüentemente","Geralmente","Sempre","Não se aplica")
corr=""
comm=""
valu=new Array(1,2,3,4,5,0)
quest016 = new Pergunta(
"Pergunta 16",
0,
"<font face=\"Verdana\" size=1><b>Com que freq&uuml;&ecirc;ncia voc&ecirc; se pega dizendo &quot;s&oacute; mais alguns minutos&quot; quando est&aacute; on-line? </b></font>",
resp,
comm,
corr,
"",
valu,
1,
0,
0,
"");

resp=new Array("Raramente","Às vezes","Freqüentemente","Geralmente","Sempre","Não se aplica")
corr=""
comm=""
valu=new Array(1,2,3,4,5,0)
quest017 = new Pergunta(
"Pergunta 17",
0,
"<font face=\"Verdana\" size=1><b>Com que freq&uuml;&ecirc;ncia voc&ecirc; tenta diminuir a quantidade de tempo que fica on-line e n&atilde;o consegue? </b></font>",
resp,
comm,
corr,
"",
valu,
1,
0,
0,
"");

resp=new Array("Raramente","Às vezes","Freqüentemente","Geralmente","Sempre","Não se aplica")
corr=""
comm=""
valu=new Array(1,2,3,4,5,0)
quest018 = new Pergunta(
"Pergunta 18",
0,
"<font face=\"Verdana\" size=1><b>Com que freq&uuml;&ecirc;ncia voc&ecirc; tenta esconder quanto tempo voc&ecirc; est&aacute; on-line? </b></font>",
resp,
comm,
corr,
"",
valu,
1,
0,
0,
"");

resp=new Array("Raramente","Às vezes","Freqüentemente","Geralmente","Sempre","Não se aplica")
corr=""
comm=""
valu=new Array(1,2,3,4,5,0)
quest019 = new Pergunta(
"Pergunta 19",
0,
"<font face=\"Verdana\" size=1><b>Com que freq&uuml;&ecirc;ncia voc&ecirc; opta por passar mais tempo on-line em vez de sair com outras pessoas? </b></font>",
resp,
comm,
corr,
"",
valu,
1,
0,
0,
"");

resp=new Array("Raramente","Às vezes","Freqüentemente","Geralmente","Sempre","Não se aplica")
corr=""
comm=""
valu=new Array(1,2,3,4,5,0)
quest020 = new Pergunta(
"Pergunta 20",
0,
"<font face=\"Verdana\" size=1><b>Com que freq&uuml;&ecirc;ncia voc&ecirc; se sente deprimido(a), mal-humorado(a) ou nervoso(a) quando est&aacute; off-line e esse sentimento vai embora assim que voc&ecirc; volta a estar on-line? </b></font>",
resp,
comm,
corr,
"",
valu,
1,
0,
0,
"");

Question = new Array (
quest001,quest002,quest003,quest004,quest005,quest006,quest007,quest008,quest009,quest010,quest011,quest012,quest013,quest014,quest015,quest016,quest017,quest018,quest019,quest020)

function doPergunta(quest)
{
var numdo;
var numord=eval(quest+1);
var i=-1, ii, type, myname, gadget;
type=Question[quest].type;
numdo=type>=3?1:Question[quest].response.length;


document.writeln ("<a name=\""+Question[quest].qname+"\"></a>")
document.write("\n")
document.write("       ")
if (Question[quest].img!="") {
document.write("\n")
document.write("          <p><img border=\"0\" src=\"")
document.write(Question[quest].img)
document.write("\"></p>\n")
document.write("       ")
}
document.write("\n")
document.write("       <p><small><font face=\"Verdana,Verdana\">")
document.write(numord)
document.write(". ")
document.writeln(Question[quest].qstring)
document.write("</font></small></p>\n")
document.write("       ")
for (i=0; i<numdo; i++) {
myname=Question[quest].qname;
gadget="radio";
if (type>=3) gadget="text";
else if (type==1) {
myname+="_"+(i<9?"0":"")+(i+1);
gadget="checkbox";}
document.write("\n")
document.write("          ")
document.write(type==7?"<textarea name=\""+myname+"\" rows=5 cols=30 class=\"input\">":" <input type="+gadget+" name=\""+myname);
if (type<3) document.write("\" value=\""+i+"\">\n")
else document.write(type==7?"</textarea>":"\" class=\"input\" value=\"\">\n")
document.write(" <small><font face=\"Verdana,Verdana\">")
if (type<3) document.write(Question[quest].response[i]);
document.write("</font></small><br>\n")
document.write("       ")
}
document.write("\n")
document.write("    ")
}
function doTest() {
var count, i;

count=Question.length;
for (i=0; i<count; i++) doPergunta(i);
}
function fill(s,l){
s=s+""
for (y=1;y<=l;y++)
if (s.length>=l) break; else s="0"+s;
return s
}
function CheckQName(wapf,ii,i,multi,selection){
var len;
if (!multi) return(wapf.elements[ii].name==Question[i].qname);
len=Question[i].qname.length;
if (wapf.elements[ii].name.substring(0,len)!=Question[i].qname) return false;
if (wapf.elements[ii].name.substring(len,len+1)!="_") return false;
if (eval(wapf.elements[ii].name.substring(len+1,len+3))==(selection+1)) return true;
return false;
}
function errore(uno,due,tre)
{
if (!errori) global[1]="<H3>Você fez os seguintes erros</H3>";
++errori;
cachewrite("<p><b>"+uno+"</b><br>"+due+"<br>"+mycomment+tre+"</p>",2);
mycomment="";
}
function testIE5plus(){
var pos=navigator.appVersion.lastIndexOf('MSIE ');
if (pos != -1) {
pos+=5;
if (eval(navigator.appVersion.charAt(pos))>4)
return true;}
return false;}
function correct(wapf)
{
var i, ii, t, re, tmp, selection, multi, multipage=0, type, isnull, iswrong, iscorrect, evaluation=0, total=0, udat;
errori=waitTime=0;
udat=new Array();
for (i=0, ii=0; i<wapf.elements.length; i++)
{tmp=wapf.elements[i];
if (tmp.name.substring(0,13)=="Quiz.UserData"){
t=tmp.name.substring(14,tmp.name.length);
re=new RegExp("_", "g");
t=t.replace(re," ");
udat[ii++]=t+": <i>"+tmp.value+"</i><br>";
if (opera) tmp.value="";}}
global[0]=global[2]="";
global[1]="<h3>Parabéns, você não teve nenhum erro!</h3>";
cachewrite("<html><head><title>Resultado</title><BASE target='_blank'></head><body bgcolor='#FFFFFF'><font face='Verdana, Verdana'><table border=0 cellpadding=0 cellspacing=0 width='100%' bgcolor='#C0C0C0'><tr><td width='100%'><font face='Verdana, Verdana' size=5 color='#FFFFFF'><b>&nbsp;Resultado</b></font></td></tr></table>",0)
now= new Date()
cachewrite("<font face=\"Verdana\" size=1><p></p>",0)
cachewrite("<b>Dependência de Internet</b><br><br>\n",0);
if (udat.length>0) {
cachewrite("<b>Informação</b><br>\n",0);
for (i=0; i<udat.length; i++) cachewrite(udat[i],0);}
if (opera7 && multipage) {
for (i=0; i<Question.length; i++) {
id=document.getElementById("q"+(i+1));
id2=document.getElementById("q"+(i+1)+"a");
id.style.display=id2.style.display="block";}}

for (i=0; i<Question.length; i++) {
if (opera && multipage) {
id=document.getElementById("q"+(i+1));
id2=document.getElementById("q"+(i+1)+"a");
id.style.visibility=id2.style.visibility="visible";}
type=Question[i].type;
if (type==1) multi=1;
else multi=0;
isnull=true;
iscorrect=false;iswrong=false;
selection=0;
evaluation=0;
mycomment="";
for (ii=0; ii<wapf.elements.length; ii++) {
if (CheckQName(wapf,ii,i,multi,selection)) {
if (type>=3 && wapf.elements[ii].value!="") {
isnull=false;
if (wapf.elements[ii].value.toLowerCase()==Question[i].corrects.toLowerCase()) iscorrect=true;
else iswrong=true;
++selection;}
else if (wapf.elements[ii].checked) {
if (Question[i].score!="") evaluation+=Question[i].score[selection];
if (isnull) isnull=false;
if (Question[i].corrects[selection]=="1") iscorrect=(iswrong==false)?true:false;
else {
iswrong=true;
if (multi && Question[i].corrects!='') errore(Question[i].qname,"A Caixa  <i>"+Question[i].response[selection]+"</i>  não deveria ter sido selecionada.",Question[i].explan)
}
if (Question[i].comment!="" && Question[i].comment[selection]!="")
mycomment+=((iscorrect || Question[i].corrects=='')?"<b>"+Question[i].qname+"</b><br>":"")+"<small>"+Question[i].comment[selection]+"</small><br>";
} else {
if (Question[i].corrects[selection]=="1") {
iswrong=true;
if (multi && Question[i].corrects!='') errore(Question[i].qname,"A caixa  <i>"+Question[i].response[selection]+"</i> deveria ter sido selecionada.",Question[i].explan);
}}
++selection;
}}
if (multi==false && (isnull || iswrong)) {
var okresp="", z;
if (type>=3) okresp=Question[i].corrects;
else {
for (z=0; z<Question[i].corrects.length; z++) {
if (Question[i].corrects[z]==1) {
okresp=Question[i].response[z];
break;
}}}
if (okresp!="") errore(Question[i].qname,"A resposta certa é <i>"+okresp+".</i>",Question[i].explan);
}
if (mycomment!="") cachewrite(mycomment,2);
if (Question[i].corrects!="") ++qright;
if (isnull) evaluation+=Question[i].ifnull;
else if (iswrong) evaluation+=Question[i].ifwrong;
else if (iscorrect) evaluation+=Question[i].ifcorrect;
total+=evaluation;}
if (qright==0) global[1]="";
if (errori) cachewrite("<script>parent.document.getElementById('meio').style.height = 200;</script><br><b>Você fez "+errori+" "+(errori==1?"erro":"erros")+".</b>",2);
cachewrite("<br><b>Total de pontos: "+total+".</b><br>",2);

cachewrite("<script>parent.document.getElementById('meio').style.height = 220;</script><br><b>Avaliação:</b><br>"+GetEval(total)+"<br>",2);
cachewrite("</small><hr noshade><center><form>",2)
printest=(((navigator.appName=="Netscape") && (navigator.appVersion.charAt(0)>="4")) || (testIE5plus() == true))? "print()": "alert('Caso esse botão não funcione, escolha a opção imprimir no menu Arquivo de seu navegador.')"
cachewrite("<b><a href=# onClick='"+printest+"'>Imprimir...</a>&nbsp;&nbsp;&nbsp;&nbsp;",2)
cachewrite("<b><a href=# onClick='javascript:history.back(-1);'>Voltar</a></form></center>",2)
cachewrite(aknw,2)
winr=window
for (i=0; i<3; i++) winr.document.write(global[i]);winr.document.close()
if ((opera || opera7) && multipage) {
document.forms[0].elements[0].value='Imprimir...';
document.forms[0].elements[1].value='Voltar';
for (i=0; i<Question.length-1; i++) {
id=document.getElementById("q"+(i+1));
id2=document.getElementById("q"+(i+1)+"a");
opera?id.style.visibility=id2.style.visibility="hidden":id.style.display=id2.style.display="none";}}
}
aknw="<br><p align='center'><small></small></p>"
function GetEval(total)
{
var minval, maxval, valstr, top, i;
minval=new Array(0,20,50,80);
maxval=new Array(19,49,79,100);
valstr=new Array("Você praticamente não usa a internet","<p><font face=\"Verdana\" size=1>Voc&ecirc; &eacute; um usu&aacute;rio m&eacute;dio da Internet. Pode ser que &agrave;s vezes voc&ecirc; surfe um pouco demais na Web, mas voc&ecirc; tem controle sobre seu uso.</font></p>","<p><font face=\"Verdana\" size=1>Voc&ecirc; tem passado por problemas ocasionais ou freq&uuml;entes por causa da Internet. Voc&ecirc; deve avaliar seu impacto total em sua vida.</font></p>","<p><font face=\"Verdana\" size=1>O uso que voc&ecirc; faz da Internet est&aacute; provocando problemas significativos em sua vida. Voc&ecirc; deve avaliar o impacto da Internet em sua vida e abordar os problemas causados diretamente por seu uso da Internet.</font></p>","non disponibile.");
top=minval.length;
for (i=0;i<top;i++) if (total>=minval[i] && total<=maxval[i]) break;
return(valstr[i]);}
