Public Class Kanal
    Private _Channel As Integer
 
    Public Sub New(ByVal Kanal As Integer)
        _Channel = Kanal
    End Sub
 
    Public ReadOnly Property Kanal As Integer
        Get
            Return _Channel
        End Get
    End Property
 
    Public Property MinValue As Double
 
    Public Property MaxValue As Double
 
    Public Property Einheit As String
 
End Class
 
Public Class ModulAD
 
    Private _modulName As String
    Private c1 As Kanal
    Private c2 As Kanal
 
    Public Sub New(ByVal ModulName As String)
        _ModulName = ModulName
        C1 = New Kanal(1)
        C2 = New Kanal(2)
    ...
    End Sub
 
End Class

Ahnungsloser ahnungsloser...

Beitrag wurde zuletzt am 27.07.12 um 22:14:30 editiert.