[VBNET] Interuttore e lampadina 1

Module Module1

    Delegate Sub InterruttorePremutoDelegate()

    Class Interruttore
        Public Property Nome As String
        Public Click As InterruttorePremutoDelegate

        Public Sub Premi()
            Click()
        End Sub
    End Class

    Class Lampadina
        Public Property Nome As String
        Public Property Accesa As Boolean
        Public Sub GestoreClickSuInterruttore()
            Accesa = Not Accesa
            ' If Accesa Then Write("Accesa") Else Write("SPENTA")
            Console.WriteLine("La lampadina {1} è {0}",
                              IIf(Accesa, "Accesa", "Spenta"),
                              Nome)
        End Sub
    End Class

    Sub GestoreClick()
        Console.WriteLine("La lampadina si accende e si spegne")
    End Sub

    Sub Main()
        Dim s As New Interruttore With {.Nome = "Cucina"}
        Dim l As New Lampadina With {.Nome = "Cucina"}
        's.Click = AddressOf GestoreClick
        s.Click = AddressOf l.GestoreClickSuInterruttore

        s.Premi()
        s.Premi()
        s.Premi()
        s.Premi()
        s.Premi()

        Console.ReadLine()
    End Sub

End Module