Carrieri Alessandra - Esercizio 1

Public Class Form1
    Private b As Bitmap
    Private g As Graphics

    Private MargineSinistro As Integer = 10
    Private MargineDestro As Integer = 10

    Private MargineAlto As Integer = 10
    Private MargineBasso As Integer = 10

    Private MinimoPrezzo As Decimal
    Private MassimoPrezzo As Decimal

    Private MinimoTempo As Double
    Private MassimoTempo As Double

    Private Y_MM As New List(Of Integer)
    Private X_MM As New List(Of Integer)

    Dim FontPrezzi As New Font("Arial", 10, FontStyle.Bold)

    Dim ListaOsservazioni_BID As List(Of Osservazione)
    Dim ListaOsservazioni_ASK As List(Of Osservazione)
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim o As New OpenFileDialog
        Dim FileDeiPrezzi As String
        With o
            .ShowDialog()
            If .FileName = String.Empty Then Exit Sub
            FileDeiPrezzi = .FileName
        End With
        Dim DatiTxtContenutiInFile As String = My.Computer.FileSystem.ReadAllText(FileDeiPrezzi)
        Dim RigheDelFile As String() = DatiTxtContenutiInFile.Split(vbCrLf.ToCharArray, StringSplitOptions.RemoveEmptyEntries)
        '----------------------------------
        'Ogni riga diventa una osservazione
        '----------------------------------
        Dim CulturaUSA As System.Globalization.CultureInfo = System.Globalization.CultureInfo.GetCultureInfo("en-US")
        ListaOsservazioni_BID = New List(Of Osservazione)
        ListaOsservazioni_ASK = New List(Of Osservazione)
        For Each Riga As String In RigheDelFile

            Dim ValoriInUnaRiga As String() = Riga.Split(" ".ToCharArray, StringSplitOptions.RemoveEmptyEntries)
            Dim Osservazione As New Osservazione
            With Osservazione
                Dim Ora As Integer = CInt(ValoriInUnaRiga(0))
                Dim Minuti As Integer = CInt(ValoriInUnaRiga(1))
                Dim Secondi As Integer = CInt(ValoriInUnaRiga(2))
                Dim Millisecs As Integer = CInt(ValoriInUnaRiga(3))

                .Istante = New Date(Now.Year, Now.Month, Now.Day, Ora, Minuti, Secondi, Millisecs)
                .TipoPrezzo = CInt(ValoriInUnaRiga(4))
                .Prezzo = Decimal.Parse(ValoriInUnaRiga(5), CulturaUSA)

                If .TipoPrezzo = 1 Then
                    ListaOsservazioni_BID.Add(Osservazione)
                ElseIf .TipoPrezzo = 2 Then
                    ListaOsservazioni_ASK.Add(Osservazione)
                Else
                    'Throw New Exception("inatteso")
                End If
            End With

        Next Riga

        Me.DisegnaGRafico()
    End Sub

    Sub DisegnaGRafico()
        If Me.ListaOsservazioni_ASK Is Nothing Then Exit Sub

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

        '---------------------------------------------------------------
        ' Adesso le 2 liste osservazioni diventano delle liste di punti da rappresentare su un bitmap
        '---------------------------------------------------------------
        Dim ListaDiPunti_BID As List(Of Point) = Me.CreaListaPuntiDaListaOsservazioni(ListaOsservazioni_BID)
        Dim ListaDiPunti_ASK As List(Of Point) = Me.CreaListaPuntiDaListaOsservazioni(ListaOsservazioni_ASK)


        'Visualizzo margini
        g.DrawRectangle(Pens.Black, New Rectangle(Me.MargineSinistro, Me.MargineAlto, _
                                                      b.Width - Me.MargineSinistro - Me.MargineDestro, b.Height - Me.MargineAlto - Me.MargineBasso))

        'Usare drawlines per il plot delle 2 curve
        'Curve dei prezzi
        'BID
        Dim p_BID As New Pen(Color.Red, 1)
        g.DrawLines(p_BID, ListaDiPunti_BID.ToArray)
        'ASK
        Dim p_ASK As New Pen(Color.Blue, 0.5)
        g.DrawLines(p_ASK, ListaDiPunti_ASK.ToArray)
        'Medie mobili
        g.DrawLines(New Pen(Color.Yellow, 3), Me.MediaMobile(ListaOsservazioni_ASK, NumeroTerminiMediaMobile).ToArray)
        g.DrawLines(New Pen(Color.Chocolate, 1), Me.MediaMobile(ListaOsservazioni_BID, NumeroTerminiMediaMobile).ToArray)
        'Disegno asse dei prezzi
        Me.DrawPriceRuler()
        Me.PictureBox1.Image = b

    End Sub

    Function CreaListaPuntiDaListaOsservazioni(ByVal ListaOsservazioni As List(Of Osservazione)) As List(Of Point)

        'Determinazione del minimo e massimo prezzo
        Dim TempoOrigine As Date = New Date(Now.Year, Now.Month, Now.Day, 0, 0, 0)

        Me.MinimoPrezzo = Decimal.MaxValue
        Me.MassimoPrezzo = Decimal.MinValue

        Me.MinimoTempo = Double.MaxValue
        Me.MassimoTempo = Double.MinValue

        For Each Osservazione As Osservazione In ListaOsservazioni
            With Osservazione
                'prezzo
                If MinimoPrezzo > .Prezzo Then MinimoPrezzo = .Prezzo
                If MassimoPrezzo < .Prezzo Then MassimoPrezzo = .Prezzo
                'tempo
                Dim Tempo As Double = .Istante.Subtract(TempoOrigine).TotalMilliseconds
                If MinimoTempo > Tempo Then MinimoTempo = Tempo
                If MassimoTempo < Tempo Then MassimoTempo = Tempo
            End With
        Next Osservazione
        Dim ListaPunti As New List(Of Point)
        For Each Osservazione As Osservazione In ListaOsservazioni

            With Osservazione
                'Determinare il punto!
                Dim x As Double = .Istante.Subtract(TempoOrigine).TotalMilliseconds
                Dim y As Decimal = .Prezzo
                'Trasformare il punto per rappresentarlo sul bitmap!
                Dim X_Sul_Bitmap As Integer = Me.Trasforma_X(x, MinimoTempo, MassimoTempo, MargineSinistro, MargineDestro)

                X_MM.Add(X_Sul_Bitmap)

                Dim Y_Sul_Bitmap As Integer = Me.Trasforma_Y(y, MinimoPrezzo, MassimoPrezzo, MargineAlto, MargineBasso)

                Y_MM.Add(Y_Sul_Bitmap)

                Dim p As New Point(X_Sul_Bitmap, Y_Sul_Bitmap)
                ListaPunti.Add(p)
            End With

        Next Osservazione

        Return ListaPunti
    End Function



    Function Trasforma_X(ByVal x As Double, ByVal MinX As Double, ByVal MaxX As Double, _
                         ByVal MarginLeft As Integer, ByVal MarginRight As Integer) As Integer
        Dim X_Trasformata As Integer = MarginLeft + CInt((Me.b.Width - MarginLeft - MarginRight) * (x - MinX) / (MaxX - MinX))
        Return X_Trasformata

    End Function

    Function Trasforma_Y(ByVal y As Double, ByVal MinY As Double, ByVal MaxY As Double, _
                         ByVal MarginTop As Integer, ByVal MarginBottom As Integer) As Integer
        Dim Y_Trasformata As Integer = Me.b.Height - MarginTop - CInt((Me.b.Height - MarginTop - MarginBottom) * (y - MinY) / (MaxY - MinY))
        Return Y_Trasformata

    End Function

  

    Sub DrawPriceRuler()
        Dim NumeroSuddivisioni As Integer = 10
        Dim Passo As Double = (Me.MassimoPrezzo - Me.MinimoPrezzo) / NumeroSuddivisioni
        Dim Prezzo As Double = Me.MinimoPrezzo
        Do
            Prezzo += Passo
            If Prezzo > Me.MassimoPrezzo Then Exit Do
            'Disegno della tacca e del prezzo

            Dim Y_Bitmap = Me.Trasforma_Y(Prezzo, Me.MinimoPrezzo, Me.MassimoPrezzo, Me.MargineAlto, Me.MargineBasso)
            Me.g.DrawString(Prezzo.ToString, Me.FontPrezzi, Brushes.Black, Me.MargineSinistro + 5, Y_Bitmap)
        Loop

    End Sub

    Private Sub Form1_SizeChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.SizeChanged
        Me.DisegnaGRafico()
    End Sub

    Private NumeroTerminiMediaMobile As Integer

    Private Sub NumericUpDown1_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NumericUpDown1.ValueChanged
        Me.NumeroTerminiMediaMobile = CInt(Me.NumericUpDown1.Value)
        Me.DisegnaGRafico()
    End Sub
    'Funzione per il calcolo della Media Mobile
    Function MediaMobile(ByVal ListaTermini As List(Of Osservazione), ByVal NumTermMM As Integer) As List(Of Point)

        Dim MMobili As New List(Of Integer)
        Dim sum As Double = 0
        Dim i As Integer = 0
        Dim j As Integer = 0

        For i = 0 To ListaTermini.Count
            If (i = NumTermMM) Then
                For j = i - NumeroTerminiMediaMobile To i
                    sum += Y_MM.Item(j)
                Next j
                MMobili.Add(CInt(sum / NumeroTerminiMediaMobile))
                sum = 0
                NumTermMM += 1
            End If
        Next i

        Dim PuntiMediaMobile As New List(Of Point)

        For i = 0 To (MMobili.Count - 1)
            Dim InserisciPunto As New Point(X_MM.Item(i), MMobili.Item(i))
            PuntiMediaMobile.Add(InserisciPunto)
        Next

        Return PuntiMediaMobile


    End Function


End Class

Public Class Osservazione
    Public Istante As Date
    Public TipoPrezzo As Integer
    Public Prezzo As Decimal
End Class