document.write('
Data hosted with ♥ by Pastebin.com - Download Raw - See Original
  1. \' Gambas class file
  2.  
  3. Public valortemperatura As Single
  4. Public valorpresion As Single
  5. Public valorhumedad As Single
  6. Public iconoEstadoTiempo As String
  7.  
  8. Public Sub Form_show()
  9.  
  10.   actualizarValores()
  11.  
  12. End
  13.  
  14. Public Sub actualizarValores()
  15.  
  16.   LCDLabelHumedad.Text = Str$(valorhumedad)
  17.   LCDLabelPresion.Text = Str$(valorpresion)
  18.   LCDLabelTemperatura.Text = Str$(valortemperatura)
  19.   PictureBoxTiempo.Picture = Picture.Load("tiempo/icon2/" & iconoEstadoTiempo & ".png")
  20.  
  21. End
  22.  
  23. Public Sub Form_Open()
  24.  
  25.   Me.Title = "Display Azul"
  26.   Me.x = 50
  27.   Me.y = 300
  28.  
  29. End
');