-
Notifications
You must be signed in to change notification settings - Fork 0
/
Program.vb
36 lines (29 loc) · 1.58 KB
/
Program.vb
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
Module Program
Sub Main()
' Se crea las instancias de los dispositivos
Dim altavozSala As New AltavozInteligente("Altavoz Sala", "Sony")
Dim luzCocina As New LuzInteligente("Luz Cocina", 75)
Dim termostatoHabitacion As New TermostatoInteligente("Termostato Habitación", 22)
Dim camaraEntrada As New CamaraSeguridad("Cámara Entrada", True) ' True indica que tiene visión nocturna
' Creamos una instancia de HogarInteligente
Dim hogar As New HogarInteligente()
' Agregamos los dispositivos al hogar inteligente
hogar.AgregarDispositivo(altavozSala)
hogar.AgregarDispositivo(luzCocina)
hogar.AgregarDispositivo(termostatoHabitacion)
hogar.AgregarDispositivo(camaraEntrada)
' Simulamos la interacción con los dispositivos
Console.WriteLine("Simulando el encendido de todos los dispositivos y mostrando su información:")
hogar.Simular()
' Interacciones individuales
Console.WriteLine(vbCrLf & "Ajustando la intensidad de la luz de la cocina a 50:")
luzCocina.Intensidad = 50
Console.WriteLine(luzCocina.ObtenerInformacion())
Console.WriteLine(vbCrLf & "Ajustando la temperatura del termostato de la habitación a 19:")
termostatoHabitacion.Temperatura = 19
Console.WriteLine(termostatoHabitacion.ObtenerInformacion())
Console.WriteLine(vbCrLf & "Verificando la información de la cámara de seguridad:")
Console.WriteLine(camaraEntrada.ObtenerInformacion())
Console.ReadLine()
End Sub
End Module