Imports System

Imports System.Collections.Generic

​

Public Module Module1

​

    Public Sub Main()

        Dim bollettino1 As New BollettinoMeteo("Roma") With { .Temperatura = 9.7, .Pressione = 0.99}

        Dim bollettino2 As New BollettinoMeteo("Milano") With { .Temperatura = 11.2, .Pressione = 1.01 }

        'Creo anche un doppione (considerato tale perché ha la stessa città di bollettino1)

        Dim bollettino3 As New BollettinoMeteo("Roma") With { .Temperatura = 12.5, .Pressione = 1.00 }

        Dim lista As new HashSet(Of BollettinoMeteo)

        lista.Add(bollettino1)

        lista.Add(bollettino2)

        lista.Add(bollettino3) 'Questo, di fatto, non verrà inserito

        'E infatti il conto degli elementi della collezione sarà 2

        Console.WriteLine("La lista contiene {0} elementi", lista.Count)

    End Sub

End Module

​

Public Class BollettinoMeteo

​

    Public Sub New(città as String)

        _Città = città

    End Sub

​

    Public ReadOnly Property Città As String

​

    Public Property Temperatura As Decimal

​

    Public Property Pressione As Decimal

​

    Public Overrides Overloads Function Equals(obj As Object) As Boolean

        If obj Is Nothing OrElse Not Me.GetType() Is obj.GetType() Then

            Return False

        End If

​

        Dim altroBollettino = CType(obj, BollettinoMeteo)

        Return Me.Città = altroBollettino.Città

    End Function

​

    Public Overrides Function GetHashCode() As Integer

        Return If(Città, "").GetHashCode()

    End Function

End Class

​