Comparación de toda una clase

[joseibarz]

Buenas tardes,

Estoy haciendo un programa en que recojo datos de dispositivos, los comparo con los valores que se supone que deberían tener, y de no ser así los actualizo.

Para esto he creado una clase Device que a su vez contiene una clase DeviceConfig (variable configuracion), que a su vez contiene muchas variables para las posibles configuraciones.

Mi intención es la siguiente:

1. Leer el dispositivo y cargar los valores en las variables de una clase DeviceConfig A.
2. Leer la base de datos y cargar los valores en las variables de una clase DeviceConfig del dispositivo B que estoy comprobando.

3. Realizar la comprobación de todas las variables tal que (if A=B.configuracion)

Es esto posible? O estoy dando un enfoque equivocado? De ser así... Veis alguna manera mejor de hacer esta comparación, o de estructurar los datos?

Muchas gracias.
Saludos.

[alan_69niupi]

a lo que te refieres es a comparar propiedades de los objetos de las respectivas clases no?

[alan_69niupi]

si es asi se puede de muchas formas
ya sea propiedad por propiedad, con un foreach (puede ser una lista o un dataset, datatable)

[joseibarz]

Ok, entonces entiendo que no hay ninguna posibilidad que me evite comparar propiedad por propiedad toda la clase, no?

A currar toca pues!

Gracias.

[Malenko]

Lo que tienes que hacer es que la clase DeviceConfig y Device implementen el interfaz IComparable. De esta forma el código del programa donde uses las clases te quedará mucho más limpio y elegante.

[joseibarz]

Buenas tardes,

gracias por el consejo Malenko.

He comenzado a hacerlo y no sé si me estoy liando o voy en el camino correcto. A ver si me podéis echar una mano.

He creado la clase Device tal que:

Código vb:

Public Class Device
    Implements IComparable
    Private _ip As String
    Private _maquina As String
    Private _producto As String
    Private _orden As String
    Private _lote As String
    Private _config As DeviceConfig
 
    Public Overloads Function CompareTo(ByVal obj As Object) As Integer Implements IComparable.CompareTo
        If TypeOf obj Is Device Then
            Dim temp As Device = CType(obj, Device)
 
            Return Me.config.CompareTo(temp.config)
        End If
 
        Throw New ArgumentException("object is not a Device")
    End Function
 
'GETTERS Y SETTERS No los pongo por ahorrar espacio
 
End Class
 

La DeviceConfig tal que:

Código vb:

Public Class DeviceConfig
    Implements IComparable
    Private _maxNumCodesGlobal As Integer 
    Private _maxNumCodesDataMatrix As Integer 
    Private _maxNumCodesQR As Integer 
    Private _maxNumCodesBarcode As Integer 
    Private _partialResults As String 
    Private _allowIdenticalSymbols As String 
    Private _datamatrixValidation As Integer 
    Private _datamatrixValidationType 
 
    Public Overloads Function CompareTo(ByVal obj As Object) As Integer Implements IComparable.CompareTo
 
        If TypeOf obj Is DeviceConfig Then
            Dim temp As DeviceConfig = CType(obj, DeviceConfig)
 
            Return Me.CompareTo(temp)
        End If
 
        Throw New ArgumentException("object is not a DeviceConfig")
    End Function
'GETTERS Y SETTERS No los pongo por ahorrar espacio
 
End Class
 

Entonces mi intención en el programa es hacer un:

Código vb:

Dim a as new Device
'Modificar alguno de los valores de las propiedades de a.config
 
Dim b as new DeviceConfig
'Modificar alguno de los valores de las propiedades de b
 
if (a.config.compareTo(b)=0 then
'SON IGUALES
end if
 

Esto funcionaría si los valores de las propiedades de las dos clases del tipo DeviceConfig son iguales?

Muchas gracias.