document.write('
Data hosted with ♥ by Pastebin.com - Download Raw - See Original
  1. \' Gambas class file
  2.  
  3. \' WeatherDato: Datos Meteorológicos
  4. Inherits Subject
  5.  
  6. Private ListaObservadores As Variant[] \' variant[] tiene metodos especiales de busqueda, añadir, etc ya programados
  7. Private tem As Single
  8. Private hum As Single
  9. Private pre As Single
  10. Private EstTiempo As String \'estaod del tiempo
  11.  
  12. Public Sub _new()
  13.  
  14.   ListaObservadores = New Variant[]
  15.  
  16. End
  17.  
  18. Public Sub RegistrarObservador(o As Observador)
  19.  
  20.   ListaObservadores.Add(o)
  21.  
  22. End
  23.  
  24. Public Sub BorrarObservador(o As Observador)
  25.  
  26.   Dim i As Integer
  27.  
  28.   i = ListaObservadores.Find(o)
  29.   If i >= 0 Then ListaObservadores.Delete(i)
  30.  
  31. End
  32.  
  33. Public Sub NotificarObservadores()
  34.  
  35.   Dim i As Integer
  36.   Dim obs As Observador
  37.  
  38.   For i = 0 To ListaObservadores.Count - 1
  39.     obs = New Observador
  40.     obs = ListaObservadores[i]
  41.     obs.update(tem, hum, pre, EstTiempo)
  42.   Next
  43.  
  44. End
  45.  
  46. Public Sub cambioDeMediciones()
  47.  
  48.   NotificarObservadores()
  49.  
  50. End
  51.  
  52. Public Sub setMediciones(temperatura As Single, humedad As Single, presion As Single, EstadoTiempo As String)
  53.  
  54.   tem = temperatura
  55.   hum = humedad
  56.   pre = presion
  57.   EstTiempo = EstadoTiempo
  58.   cambioDeMediciones() \'notificar a todos los observadores el cambio...
  59.  
  60. End
');