"ESERCIZIO TEXT MINING" di Vano Simone & Venturini Fulvio

'######################################

'######## ESERCIO TEXT MINING #########

'### Vano Simone & Venturini Fulvio ###

'######################################

 

Imports System.Drawing.Drawing2D

Public Class Form1

    Public b As Bitmap

    Public g As Graphics

    Public ParoleDaIgnorare As Dictionary(Of String, Boolean)

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        ParoleDaIgnorare = New Dictionary(Of String, Boolean)(StringComparer.InvariantCultureIgnoreCase)

                Me.ParoleDaIgnorare.Add(" ALLE ", Nothing)

        Me.ParoleDaIgnorare.Add(" ALLA ", Nothing)

        Me.ParoleDaIgnorare.Add(" AL ", Nothing)

        Me.ParoleDaIgnorare.Add(" IL ", Nothing)

        Me.ParoleDaIgnorare.Add(" LA ", Nothing)

        Me.ParoleDaIgnorare.Add(" LE ", Nothing)

        Me.ParoleDaIgnorare.Add(" GLI ", Nothing)

        Me.ParoleDaIgnorare.Add(" TRA ", Nothing)

        Me.ParoleDaIgnorare.Add(" FRA ", Nothing)

        Me.ParoleDaIgnorare.Add(" UN ", Nothing)

        Me.ParoleDaIgnorare.Add(" IN ", Nothing)

        Me.ParoleDaIgnorare.Add(" CON ", Nothing)

        Me.ParoleDaIgnorare.Add(" SU ", Nothing)

        Me.ParoleDaIgnorare.Add(" PER ", Nothing)

        Me.ParoleDaIgnorare.Add(" DI ", Nothing)        

        Me.ParoleDaIgnorare.Add(" UNO ", Nothing)

        Me.ParoleDaIgnorare.Add(" UNA ", Nothing)

        Me.ParoleDaIgnorare.Add(" O ", Nothing)

        Me.ParoleDaIgnorare.Add(" A ", Nothing)

        Me.ParoleDaIgnorare.Add(" I ", Nothing)

        Me.ParoleDaIgnorare.Add(" CHE ", Nothing)

        Me.ParoleDaIgnorare.Add("PER ", Nothing)

        Me.ParoleDaIgnorare.Add(" SIA ", Nothing)

       

        Dim Testoo As String = Me.RichTextBox1.Text

        Dim Testo_Normalizzato As String = Testoo.ToUpper.Replace(",", " ").Replace(vbCrLf, " ").Replace("!", " ").Replace("  ", " ").Replace("(", " ").Replace(")", " ")

        For Each ParolaDaRimuovere As String In Me.ParoleDaIgnorare.Keys

            Testo_Normalizzato = Testo_Normalizzato.Replace(ParolaDaRimuovere, " ")

        Next ParolaDaRimuovere

        Testo_Normalizzato.Replace("  ", " ")

        Me.RichTextBox2.Text = Testo_Normalizzato

        Dim MinimaDimensioneFont As Integer = 10

        Dim MassimaDimensioneFont As Integer = 50

        Dim MinFrequenza = 1

        Dim MaxFrequenza = 0

        Dim temp = 0

        Dim RND As New Random

        Dim colorNames As String() = System.Enum.GetNames(GetType(KnownColor))

        Dim lstColors As New List(Of String)(colorNames)

        Dim Testo As String = Me.RichTextBox1.Text

        Testo.ToUpper()

        Dim Parole() As String = Testo_Normalizzato.Split((vbCrLf & " ").ToCharArray, StringSplitOptions.RemoveEmptyEntries)

        Dim ListaParoleDiverse As New SortedList(Of String, InfoParola)

        For Each parola As String In Parole

            If Not ListaParoleDiverse.ContainsKey(parola) Then

                Dim infoP As New InfoParola

                infoP.numeroOccorrenze = 1

                infoP.PAROLA = parola

                ListaParoleDiverse.Add(parola, infoP)

            Else

                ListaParoleDiverse.Item(parola).numeroOccorrenze += 1

                temp = ListaParoleDiverse.Item(parola).numeroOccorrenze

                If MaxFrequenza < temp Then MaxFrequenza = temp

            End If

        Next

        b = New Bitmap(Me.PictureBox1.Width, Me.PictureBox1.Height)

        g = Graphics.FromImage(b)

        g.SmoothingMode = SmoothingMode.HighQuality

        g.TextRenderingHint = Drawing.Text.TextRenderingHint.AntiAlias

        Dim Raggio As Double = b.Width / 3

        '#########################################################

        '### Dimensione del font corrispondente alla frequenza ###

        '#########################################################

        For Each InfoParola As InfoParola In ListaParoleDiverse.Values

            With InfoParola

                Dim NumeroCasuale0_1 As Double = RND.NextDouble

                Dim PathRettangoli As New GraphicsPath

                '################################

                '### Rettangolo della stringa ###

                '################################

                Dim IndiceCasuale As Integer = RND.Next(0, lstColors.Count - 1)

                .Colore = System.Drawing.Color.FromName(lstColors(IndiceCasuale))

                Dim ANgoloCasuale As Double = RND.NextDouble * 2 * Math.PI

                Dim DIstanzaCasuale As Double = RND.NextDouble * Raggio

                .x = b.Width / 2 + Math.Cos(ANgoloCasuale) * DIstanzaCasuale

                .y = b.Height / 2 + Math.Sin(ANgoloCasuale) * DIstanzaCasuale

                .DimensioneDelFontCorrispondenteAllaFrequenza = CSng(MinimaDimensioneFont + (.numeroOccorrenze - MinFrequenza) * (MassimaDimensioneFont - MinimaDimensioneFont) / (MaxFrequenza - MinFrequenza))

                Dim FontProporzionato As New Font("Arial", .DimensioneDelFontCorrispondenteAllaFrequenza, FontStyle.Regular, GraphicsUnit.Pixel)

                Dim Size As SizeF = g.MeasureString(.PAROLA, FontProporzionato, Point.Empty, StringFormat.GenericDefault)

                Dim LarghezzaParola = Size.Width

                Dim AltezzaParola = Size.Height

                .SIzeFString = g.MeasureString(.PAROLA, FontProporzionato)

                Dim RettangoloStringa As New Rectangle(New Point(.x, .y), .SIzeFString.ToSize)

                Dim R As New Region(PathRettangoli)

                If Not R.IsVisible(RettangoloStringa) Then

                    g.DrawString(.PAROLA, FontProporzionato, New SolidBrush(.Colore), .x, .y)

                    PathRettangoli.AddRectangle(RettangoloStringa)

                End If

            End With

        Next InfoParola

        Me.PictureBox1.Image = b

        Application.DoEvents()

        Me.PictureBox1.Image = b

    End Sub

End Class

Public Class InfoParola

    Public x As Double

    Public y As Double

    Public PAROLA As String

    Public numeroOccorrenze As Integer

    Public DimensioneDelFontCorrispondenteAllaFrequenza As Single

    Public Colore As Color

    Public SIzeFString As SizeF

End Class