Portal    Foro    Buscar    FAQ    Registrarse    Conectarse

Programa Que Me Busca La Meteorologia Para Mi Ciudad.

Programa Que Me Busca La Meteorologia Para Mi Ciudad.
Artículo
Responder citando    Descargar mensaje  
Mensaje 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.



 
portaro - Ver perfil del usuario Enviar mensaje privado  
portaro [ Miercoles, 14 Marzo 2018, 00:21 ]
 


Programa Que Me Busca La Meteorologia Para Mi Ciudad.
Comentarios
Responder citando    Descargar mensaje  
Mensaje 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




 
jsbsan - Ver perfil del usuario Enviar mensaje privado  
jsbsan [ Miercoles, 14 Marzo 2018, 08:42 ]
Responder citando    Descargar mensaje  
Mensaje 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



 
tincho - Ver perfil del usuario Enviar mensaje privado  
tincho [ Miercoles, 14 Marzo 2018, 13:59 ]
Responder citando    Descargar mensaje  
Mensaje 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 
vuott - Ver perfil del usuario Enviar mensaje privado  
vuott [ Miercoles, 14 Marzo 2018, 22:35 ]
Responder citando    Descargar mensaje  
Mensaje 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 
portaro - Ver perfil del usuario Enviar mensaje privado  
portaro [ Jueves, 15 Marzo 2018, 02:28 ]
Responder citando    Descargar mensaje  
Mensaje 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.



 
tincho - Ver perfil del usuario Enviar mensaje privado  
tincho [ Jueves, 15 Marzo 2018, 10:07 ]
Responder citando    Descargar mensaje  
Mensaje 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 
vuott - Ver perfil del usuario Enviar mensaje privado  
vuott [ Sabado, 17 Marzo 2018, 02:32 ]
Responder citando    Descargar mensaje  
Mensaje 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 
vuott - Ver perfil del usuario Enviar mensaje privado  
vuott [ Sabado, 17 Marzo 2018, 03:43 ]
Responder citando    Descargar mensaje  
Mensaje Re: Programa Que Me Busca La Meteorologia Para Mi Ciudad. 
 
excelente



 
tercoIDE - Ver perfil del usuario Enviar mensaje privado  
tercoIDE [ Sabado, 17 Marzo 2018, 13:27 ]
Responder citando    Descargar mensaje  
Mensaje Re: Programa Que Me Busca La Meteorologia Para Mi Ciudad. 
 
Buenisimo Vuott.

 pantallazo_2018_03_19_16_04_38

Saludos.



 
tincho - Ver perfil del usuario Enviar mensaje privado  
tincho [ Lunes, 19 Marzo 2018, 16:07 ]
Mostrar mensajes anteriores:    
 
Publicar nuevo tema  Responder al tema  Página 1 de 1
 
 

Usuarios navegando en este tema: 0 registrados, 0 ocultos y 1 invitado
Usuarios registrados conectados: Ninguno


 



 

cron