Portal •  Foro •  FAQ •  Buscar •  Temas recientes •  Lista de usuarios •  Registrarse •  Conectarse 
Foro » Gambas » Aplicaciones/Fragmentos de Código

Programa Que Me Busca La Meteorologia Para Mi Ciudad.

Responder al tema

 

portaro
Citar
Mensajes: 215 Ubicación: Portugal
Miercoles, 14 Marzo 2018, 00:21
Objetivo: Programa Que Me Busca La Meteorologia Para Mi Ciudad.
Estoy haciendo un nuevo programa lo que pasa es que deseo saber que objecto (componente) Gmabas seria el mejor para hacer algo como un print de la recogida del comado curl.

Public Sub Button1_Click()
Dim ext As String
Exec ["curl", "https://wttr.in/Chaves"] To ext
TextBox1.text = ext
End


↓ Algo esta mal que no me lo esta poniendo pero segun yo recuerdo es asi que se hace la sintaxis.



Se puede reusar el codigo por si deseais tenero para vuestras localizaciones usa el link a wttr.in , solo le cambiais el nombre de ciudad o local /Chaves a vuestro local que sea soportado por el source del servicio.

Saludos y gracias.

Perfil MP  
jsbsan
Citar
Mensajes: 4175 Ubicación: dos hermanas, sevilla
Miercoles, 14 Marzo 2018, 08:42
Objetivo: Re: Programa Que Me Busca La Meteorologia Para Mi Ciudad.
Portaro:

Creo que el problema es el https (el certificado de seguridad de la página web donde estas intentando acceder), si le pones la dirección sin la "s" en el http, creo que te va a funcionar. (https://wttr.in/Chaves -> mejor poner -> http://wttr.in/Chaves)

Prueba esto:
Public Sub Button1_Click()
Dim ext As String
Exec ["curl", "http://wttr.in/Chaves"] To ext
TextBox1.text = ext
End

Perfil MP   Sitio web MSN
tincho
Citar
Mensajes: 2565
Miercoles, 14 Marzo 2018, 13:59
Objetivo: Re: Programa Que Me Busca La Meteorologia Para Mi Ciudad.
En el applet "Clock" de mate, puede haber algo que ayude con el tema.
https://github.com/mate-desktop/mat...lock-location.c

Saludos

Perfil MP  
vuott
Citar
Mensajes: 2086
Miercoles, 14 Marzo 2018, 22:35
Objetivo: Re: Programa Que Me Busca La Meteorologia Para Mi Ciudad.

última edición por vuott el Miercoles, 14 Marzo 2018, 23:06; editado 1 vez
Perfil MP  
portaro
Citar
Mensajes: 215 Ubicación: Portugal
Jueves, 15 Marzo 2018, 02:28
Objetivo: Re: Programa Que Me Busca La Meteorologia Para Mi Ciudad.
Si que funciona no salen los diseños (secadra es por ser ascii), pero los datos salen.

Gracias jsbsan.

tincho no uso Mate el mio es LXDE.
Pero gracias.

Saludos vuott


Gracias a todos.

última edición por portaro el Jueves, 15 Marzo 2018, 02:29; editado 3 veces
Perfil MP  
tincho
Citar
Mensajes: 2565
Jueves, 15 Marzo 2018, 10:07
Objetivo: Re: Programa Que Me Busca La Meteorologia Para Mi Ciudad.
portaro escribió: [Ver mensaje]
[b]...tincho no uso Mate el mio es LXDE...

No importa el escritorio que uses, el link apunta al codigo fuente del aplet clock de mate y echar un vistazo a como obtiene la informacion meteorologica este código es lo que te puede servir, es decir podrias reproducir lo mismo que hace dicho prgrama (el aplet) en tu programa de gambas.

Saludos.

Perfil MP  
vuott
Citar
Mensajes: 2086
Sabado, 17 Marzo 2018, 02:32
Objetivo: Re: Programa Que Me Busca La Meteorologia Para Mi Ciudad.
Para no utilizar "Shell" o "Exec", yo propondría este simple codigo (siempre si te interesa ver el resultado en console):

Private wv As New WebView(Me)


Public Sub Form_Open()

wv.Url = "http://wttr.in/Chaves"

End


Public Sub Button1_Click()

Dim te As New TextEdit(Me)

te.RichText = wv.HTML
Print te.Text

End

última edición por vuott el Sabado, 17 Marzo 2018, 02:33; editado 1 vez
Perfil MP  
vuott
Citar
Mensajes: 2086
Sabado, 17 Marzo 2018, 03:43
Objetivo: Re: Programa Que Me Busca La Meteorologia Para Mi Ciudad.
...y mejor:
(hace falta activar los Componentes " gb.net " y " gb.net.curl ")

Public Sub Main()

Dim hc As New HttpClient

Print hc.Download("http://wttr.in/Chaves", Null)

End



u otra manera:
Private hf As New HttpClient As "CLI"
Private s As String


Public Sub Main()

s = Temp

With hf
.URL = "http://wttr.in/Chaves"
.Timeout = 10
.Get(Null, s)
End With

End


Public Sub CLI_Finished()

hf.Close

Print File.Load(s)

End


...y si preferimos variables locales:
Public Sub Main()

Dim hf As New HttpClient
Dim s As String

s = Temp

With hf
.URL = "http://wttr.in/Chaves"
.Timeout = 10
.Get(Null, s)
End With

Wait 0.5 ' Si no conseguimos resultados, tenemos que aumentar el valor de la espera.

hf.Close

Print File.Load(s)

End

última edición por vuott el Sabado, 17 Marzo 2018, 14:40; editado 5 veces
Perfil MP  
tercoIDE
Citar
Mensajes: 713
Sabado, 17 Marzo 2018, 13:27
Objetivo: Re: Programa Que Me Busca La Meteorologia Para Mi Ciudad.
excelente

Perfil MP  
tincho
Citar
Mensajes: 2565
Lunes, 19 Marzo 2018, 16:07
Objetivo: Re: Programa Que Me Busca La Meteorologia Para Mi Ciudad.
Buenisimo Vuott.

pantallazo_2018_03_19_16_04_38

Saludos.

Perfil MP  
Responder al tema
 

Página 1 de 1


  
No puede crear mensajes
No puede responder temas
No puede editar sus mensajes
No puede borrar sus mensajes
No puede votar en encuestas
No puede adjuntar archivos
Puede descargar archivos
No puede publicar eventos en el calendario

   

Está utilizando la versión (Lo-Fi). Para ver la versión completa del foro, haga clic aquí.

Powered by Icy Phoenix based on phpBB
Design by DiDiDaDo

Página generada en:: 0.1215s (PHP: 10% SQL: 90%)
Consultas SQL: 33 - Debug off - GZIP Activado