LENTRO XML PREVISAO DO TEMPO
Pessoal eu gostaria de fazer uma tela onde tivesse a previsao do tempo da cidade!
Venho tentando achar um meio para isso e o que vi que pode dar certo foi com arquivo XML. Este arquivo é disponibilizado pelo site CPTEC.
segue o link: http://servicos.cptec.inpe.br/XML/cidade/3514/previsao.xml
Entao como eu conseguiria ter acesso atraves do vb a este xml?
Venho tentando achar um meio para isso e o que vi que pode dar certo foi com arquivo XML. Este arquivo é disponibilizado pelo site CPTEC.
segue o link: http://servicos.cptec.inpe.br/XML/cidade/3514/previsao.xml
Entao como eu conseguiria ter acesso atraves do vb a este xml?
Olá, Souza
http://www.macoratti.net/xml_vb.htm
Boa sorte.
http://www.macoratti.net/xml_vb.htm
Boa sorte.
JoseGallo ob pela força mais agora complico hehehe nao consegui entender!
Souza, isso é só um exemplo.
Coloque no form 3 caixas de texto e um botão.
Coloque o inet no form e referencie o Microsoft XML.
Cole:
Private Sub Command1_Click()
Dim enderecoUrl As String
Dim arquivoXml As String
enderecoUrl = [Ô]http://servicos.cptec.inpe.br/XML/cidade/3514/previsao.xml[Ô]
With Inet1
.AccessType = icDirect
.Proxy = [Ô][Ô]
.Protocol = icHTTP
arquivoXml = .OpenURL(enderecoUrl)
End With
Dim oDom As DOMDocument
Set oDom = New DOMDocument
With oDom
.loadXML arquivoXml
Text1.Text = .childNodes(1).childNodes(0).childNodes(0).Text
Text2.Text = .childNodes(1).childNodes(1).childNodes(0).Text
Text3.Text = .childNodes(1).childNodes(2).childNodes(0).Text
End With
End Sub
Coloque no form 3 caixas de texto e um botão.
Coloque o inet no form e referencie o Microsoft XML.
Cole:
Private Sub Command1_Click()
Dim enderecoUrl As String
Dim arquivoXml As String
enderecoUrl = [Ô]http://servicos.cptec.inpe.br/XML/cidade/3514/previsao.xml[Ô]
With Inet1
.AccessType = icDirect
.Proxy = [Ô][Ô]
.Protocol = icHTTP
arquivoXml = .OpenURL(enderecoUrl)
End With
Dim oDom As DOMDocument
Set oDom = New DOMDocument
With oDom
.loadXML arquivoXml
Text1.Text = .childNodes(1).childNodes(0).childNodes(0).Text
Text2.Text = .childNodes(1).childNodes(1).childNodes(0).Text
Text3.Text = .childNodes(1).childNodes(2).childNodes(0).Text
End With
End Sub
JoseGalo valeu mesmo pela força deu certinho!
JoseGallo como seria para eu conseguir pegar a imgage que tem na xml?
Olá, Souza, que bom que funcionou.
As imagens estão no formato PNG e o vb6 não suporta esse formato.
Não sei como resolver isso.
Boa sorte.
As imagens estão no formato PNG e o vb6 não suporta esse formato.
Não sei como resolver isso.
Boa sorte.
no site http://www.planet-source-code.com/ voce encontra controles para abrir PNG .... eu só não direcionei o link certo porque site está fora do ar .... neste momento que escrevi esta resposta ...
Mesmo assim obrigado pela força!
Tópico encerrado , respostas não são mais permitidas