Dobrý den, 1. Vytvořte si interface IZarovka se dvěma procedurami pro žárovku:
Public Interface IZarovka
Sub Zapnout()
Sub Vypnout()
End Interface
2. Vytvořte třídu Zarovka, která bude tento interface implementovat.
Public Class Zarovka
Implements IZarovka
Public Sub Zapnout() Implements IZarovka.Zapnout
msgbox("Žárovka svítí.")
End Sub
Public Sub Vypnout() Implements IZarovka.Vypnout
msgbox("Žárovka nesvítí.")
End Sub
End Class 3. Vytvořte třídu Spinac, která bude ovládat žárovku.
Public Class Spinac
Private _zarovka As IZarovka
Public Property Zarovka() As IZarovka
Get
Return _zarovka
End Get
Set(ByVal value As IZarovka)
_zarovka = value
End Set
End Property
Public Sub ZapnoutZarovku()
_zarovka.Zapnout()
End Sub
Public Sub VypnoutZarovku()
_zarovka.Vypnout()
End Sub
End Class
4. V kódu pak vše volejte následovně:
Dim mujSpinac = New Spinac
mujSpinac.Zarovka = New Zarovka()
mujSpinac.ZapnoutZarovku()
mujSpinac.VypnoutZarovku()
|