PC Toledo

Código: Selecionar todos

/********* * * * * *
* PrevisaoDoTempo 
*
* Parametro: string com o 'nome da cidade, estado'
*
* Retorno: hash com dados sobre o clima
*
* hash["CidadeBase"]       => Cidade localizada com este nome
* hash["CondicaoAtual"]    => Condição climatica atual na cidade
* hash["TemperaturaAtual"] => Temperatura atual na cidade
* hash["UmidadeAtual"]     => Umidade atual na cidade
* hash["VentoAtual"]       => Vento atual na cidade (direcao e velocidade)
* hash["aProximosDias"]    => Array com a previsao para os proximos dias
*  aProximosDias = { cDiaDaSemana, cTempMax, cTempMin, cCondicao }
*/

#include "hbxml.ch"

//------------------------------------------------------------------------------
FUNCTION PrevisaoDoTempo( cCidade )

	LOCAL oHttp, cXML, oXML
	LOCAL oCidade, oTemperatura, oUmidade, oVento, oCondicao
	LOCAL oPrevisao, oTagAtual, oIterator
	
	LOCAL cDia, cMax, cMin, cCond, i
	LOCAL aDias := {}
	
	LOCAL hDiasSemana      := HB_Hash()
	LOCAL hPrevisaoDoTempo := HB_Hash()
	
	IF !INetEstaConectada()
	   return
	Endif
	
	
	hDiasSemana["dom"] := "Domingo"
	hDiasSemana["seg"] := "Segunda-feira"
	hDiasSemana["ter"] := "Terçaa-feira"
	hDiasSemana["qua"] := "Quarta-feira"
	hDiasSemana["qui"] := "Quinta-feira"
	hDiasSemana["sex"] := "Sexta-feira"
	hDiasSemana["sáb"] := "Sábado"
	
	cCidade := StrTran( AllTrim( cCidade ), " ", "%20" )
	
	oHttp:= TIpClientHttp():new( "http://www.google.com/ig/api?weather="+cCidade+"&hl=pt-br" )
	IF ! oHttp:open()
	   RETURN 0
	ENDIF
	cXML := oHttp:readAll()
	oHttp:close()
	
	oXML := TXmlDocument():New( cXML )

	IF oXML:nError != HBXML_ERROR_NONE
	   RETURN 0
	ENDIF
	
	oCidade      := oXML:findfirst( "city" )
	oCondicao    := oXML:findfirst( "condition" )
	oTemperatura := oXML:findfirst( "temp_c" )
	oUmidade     := oXML:findfirst( "humidity" )
	oVento       := oXML:findfirst( "wind_condition" )
	
	oPrevisao := oXML:findfirst( "forecast_conditions" )
	IF oPrevisao == NIL
	   RETURN hPrevisaoDoTempo
	ENDIF
	
	DO WHILE .T.
	   oIterator := TXmlIterator():New( oPrevisao )
	   DO WHILE .T.
	      oTagAtual := oIterator:Next()
	      IF oTagAtual == NIL
	         aAdd( aDias, { cDia, cMin, cMax, cCond } )
	         EXIT
	      ELSE
	         IF oTagAtual:cName == "day_of_week"
	            cDia := oTagAtual:aAttributes[ "data" ]
	         ELSEIF oTagAtual:cName == "low"
	            cMin := StrZero( val( oTagAtual:aAttributes[ "data" ] ), 2 )
	         ELSEIF oTagAtual:cName == "high"
	            cMax := StrZero( val( oTagAtual:aAttributes[ "data" ] ), 2 )
	         ELSEIF oTagAtual:cName == "condition"
	            cCond := oTagAtual:aAttributes[ "data" ]
	         ENDIF
	      ENDIF
	   ENDDO
	   oPrevisao := oXML:findnext()
	   IF oPrevisao == NIL
	      EXIT
	   ENDIF
	ENDDO
	
	hPrevisaoDoTempo["CidadeBase"]       = oCidade:aAttributes[ "data" ]
	hPrevisaoDoTempo["CondicaoAtual"]    = oCondicao:aAttributes[ "data" ]
	hPrevisaoDoTempo["TemperaturaAtual"] = oTemperatura:aAttributes[ "data" ]
	hPrevisaoDoTempo["UmidadeAtual"]     = oUmidade:aAttributes[ "data" ]
	//hPrevisaoDoTempo["VentoAtual"]       = oVento:aAttributes[ "data" ]
	hPrevisaoDoTempo["aProximosDias"]    = {}
	FOR i:=1 to LEN( aDias )
	   AAdd( hPrevisaoDoTempo["aProximosDias"], { hDiasSemana[aDias[i][1]], aDias[i][3], aDias[i][2], aDias[i][4] } )
	NEXT
	
	If Len(hPrevisaodoTempo)>1
	//   @ 18,00 say 'Cidade..: ' + hPrevisaoDoTempo["CidadeBase"]         color('GR+/N')
	   @ 19,00 say 'Temperatura.....: ' + hPrevisaoDoTempo["TemperaturaAtual"] + '§' color('W*+')
	   @ 19,24 say '   '+hPrevisaoDoTempo["UmidadeAtual"]              COLOR("W*+")
	   @ 19,40 say '     Condicao: ' + hPrevisaoDoTempo["CondicaoAtual"]      color('W*+')
	   @ 19,67 say 'Fonte: Google'   color('W*+')
	//   @ 19,30 say hPrevisaoDoTempo["VentoAtual"]              COLOR("W*+")
	/*
	   x :=hPrevisaoDoTempo["aProximosDias"]
	   @ 06,0 say 'Proximos Dias'
	   @ 08,0 say 'Dia.......: ' + PADR( x[2,1], 23 , " ")   //+ 'Dia.....: ' + PADR( x[3,1], 22 , " ")
	   @ 09,0 say 'Maxima....: ' + PADR( x[2,2], 23 , " ")   //+ 'Maxima..: ' + PADR( x[3,2], 22 , " ")
	   @ 10,0 say 'Minima....: ' + PADR( x[2,3], 23 , " ")   //+ 'Minima..: ' + PADR( x[3,3], 22 , " ")
	   @ 11,0 say 'Condicao..: ' + PADR( x[2,4], 23 , " ")   //+ 'Condicao: ' + PADR( x[3,4], 22 , " ")
	*/   
	Endif
	inkey(0)
RETURN