Public Class Heizung
    Implements IGeraet
 
    Private AktuelleTemperatur As Double = 20.0
    Protected meinName As String
    Public Sub New(ByVal _name As String)
        meinName = _name
    End Sub
 
    Public Sub Action(ByVal Command As String) Implements IGeraet.Action
        Select Case Command.ToLower()
            Case "tempup"
                AktuelleTemperatur += 0.10000000000000001
            Case "tempdown"
                AktuelleTemperatur -= 0.10000000000000001
 
        End Select
    End Sub
 
    Public ReadOnly Property TypName() As String Implements IGeraet.TypName
        Get
            Return "Heizung"
        End Get
    End Property
    Public ReadOnly Property Name() As String Implements IGeraet.Name
        Get
            Return meinName
        End Get
    End Property
 
    Public ReadOnly Property Status() As String Implements IGeraet.Status
        Get
            Return AktuelleTemperatur.ToString()
        End Get
    End Property