FormularioDisplayAzul

' Gambas class file

Public valortemperatura As Single
Public valorpresion As Single
Public valorhumedad As Single
Public iconoEstadoTiempo As String

Public Sub Form_show()

  actualizarValores()

End

Public Sub actualizarValores()

  LCDLabelHumedad.Text = Str$(valorhumedad)
  LCDLabelPresion.Text = Str$(valorpresion)
  LCDLabelTemperatura.Text = Str$(valortemperatura)
  PictureBoxTiempo.Picture = Picture.Load("tiempo/icon2/" & iconoEstadoTiempo & ".png")

End

Public Sub Form_Open()

  Me.Title = "Display Azul"
  Me.x = 50
  Me.y = 300

End