Temperatuur: code

Public Class temperatuur
    Dim temp As Single 'temperatuur in celsius
    Public Event vriest()
    Public Property celsius() As Single
        Get
            Return temp
            'alternatief: celsius=temp
        End Get
        Set(ByVal value As Single)
            temp = value
            If temp < 0 Then RaiseEvent vriest()
        End Set
    End Property
    Public Property fahrenheit() As Single
        Get
            Return temp * 1.8 + 32
        End Get
        Set(ByVal value As Single)
            temp = (value - 32) / 1.8
            If temp < 0 Then RaiseEvent vriest()
        End Set
    End Property
    Public Property kelvin() As Single
        Get
            Return temp + 273.15
        End Get
        Set(ByVal value As Single)
            temp = value - 273.15
            If temp < 0 Then RaiseEvent vriest()
        End Set
    End Property
End Class