Public Property OvenStatus() As Integer
  ' Cel: uzyskać bieżący stan piekarnika 
  '      0 = piekarnik wyłączony, nie zero = piekarnik włączony
  Get
    Return mOvenStatus
  End Get
  ' Cel: zmienić stan piekarnika. Zakładamy, że  
  '      Value jest żądaną temperaturą.
  '      Value = 0 oznacza, że piekarnik jest 
  '      wyłączony. Każda inna wartość wskazuje 
  '      pożądaną wartość temperatury
  Set(ByVal Value As Integer) ' Włącz lub wyłącz piekarnik 
    Dim Flag As Integer

    If Value <> OVENOFF Then
      mOvenStatus = OVENON    ' Piekarnik jest teraz włączony 
    Else
      mOvenStatus = OVENOFF   ' Piekarnik jest teraz wyłączony
    End If
    Flag = Bake(Value)

  End Set
End Property
