cur

Imports System.Xml
Imports System.Xml.Linq
Imports System.IO
Public Class Form1
    Public FILENAME As String = String.Empty
    Public models As Model
    Public productionBlocks As New Panel
    Public pictureBlocks As New List(Of PictureBox)
    Public gridsinfo As CubeGrid

    Public dictCount As New Dictionary(Of String, Integer)
    Public dictionay As New Dictionary(Of String, String)
    Public fileloader As New OpenFileDialog

    Dim NUMBER_OF_PANELS = 0

    Const MAIN_PANEL_WIDTH As Integer = 1000
    Const MAIN_PANEL_HEIGHT As Integer = 1000
    Const MAIN_PANEL_TOP As Integer = 50
    Const MAIN_PANEL_LEFT As Integer = 50

    Const PANEL_COLUMNS As Integer = 5
    Const PANEL_WIDTH_MARGIN As Integer = 10
    Const PANEL_HEIGHT_MARGIN As Integer = 10

    Const PANEL_WIDTH As Integer = (MAIN_PANEL_WIDTH / PANEL_COLUMNS) - PANEL_WIDTH_MARGIN

    Dim PANEL_ROWS As Integer = 0
    Dim PANEL_HEIGHT As Integer = 0

    Dim PICTURE_BOX_MARGIN As Integer = 0

    Dim PICTURE_BOX_WIDTH As Integer = PANEL_WIDTH
    Dim PICTURE_BOX_HEIGHT As Integer = 0
    Const PICTURE_BOX_TOP As Integer = 0
    Const PICTURE_BOX_LEFT As Integer = 0

    Dim LABEL_WIDTH As Integer = PANEL_WIDTH
    Dim LABEL_HEIGHT As Integer = 0
    Dim LABEL_TOP As Integer = 0
    Dim LABEL_LEFT As Int16 = 0

    Dim IMAGE_PATH As String = "E:\VS Projects\Resources\SE\Cubes\ArmorCenter.jpg"

    Public _model As Model
    Public mainPanel As New CubeGrid
    Public subPanels As New List(Of CubeBlock)


    Sub New()
        ' This call is required by the designer.
        InitializeComponent()
    End Sub

    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles Me.Load
    End Sub

    Sub CalulateControlSizes(numberOfPanels As Integer)
        PANEL_ROWS = Math.Ceiling(NUMBER_OF_PANELS / PANEL_COLUMNS)
        'PANEL_HEIGHT = (MAIN_PANEL_HEIGHT / PANEL_ROWS) - PANEL_HEIGHT_MARGIN
        PANEL_HEIGHT = 200

        PICTURE_BOX_MARGIN = 0.1 * PANEL_HEIGHT

        PICTURE_BOX_HEIGHT = 0.8 * PANEL_HEIGHT

        LABEL_HEIGHT = 0.1 * PANEL_HEIGHT
        LABEL_TOP = PICTURE_BOX_HEIGHT + PANEL_HEIGHT_MARGIN

    End Sub




    'FindWords Function to get count of items
    Private Function FindWords(ByVal TextSearched As String, ByVal Paragraph As String) As Integer
        Dim location As Integer = 0
        Dim occurances As Integer = 0

        Do
            location = TextSearched.IndexOf(Paragraph, location)
            If location <> -1 Then
                occurances += 1
                location += Paragraph.Length
            End If
        Loop Until location = -1
        Return occurances
    End Function


    'Open Button
    Private Sub PictureBox1_MouseEnter(sender As System.Object, e As EventArgs) Handles PictureBox1.MouseEnter
        PictureBox1.BorderStyle = BorderStyle.Fixed3D
    End Sub

    Private Sub PictureBox1_MouseLeave(sender As Object, e As EventArgs) Handles PictureBox1.MouseLeave
        PictureBox1.BorderStyle = BorderStyle.FixedSingle
    End Sub

    Private Sub PictureBox1_Click(sender As Object, e As EventArgs) Handles PictureBox1.Click
        'Resetting the list box when new file is loaded
        Try
            For Each item In ListBox1.Items
                ListBox1.Items.Remove(item)
            Next
        Catch ex As Exception
        End Try

        'pre-load initialization
        fileloader.ShowDialog()
        FILENAME = fileloader.FileName
        models = New Model
        models.Load(FILENAME)

        'Grabbing information from XML file
        Dim blockNames As List(Of String) = models.print.cubes.cubeBlocks.Select(Function(x) x.SubtypeName).ToList()
        dictCount = blockNames.GroupBy(Function(x) x).ToDictionary(Function(x) x.Key, Function(y) y.Count)
        Dim display As String = models.print2.cubes.displayname
        Dim gridsizeenum As String = models.print3.cubes.enumerator
        'Dim ownername As String = models.print4.Select(Function(x) x.cubes.Select(Function(y) y.ownername)).SelectMany(Function(y) y).FirstOrDefault.ToString

        'Load items into the listbox
        For Each item In blockNames
            ListBox1.Items.Add(item.ToString)
        Next item

        For Each Item As Object In ListBox1.Items
            TextBox1.Text += (Item & ",")
        Next

        'Load Text from XML to the read only boxes
        InfluenceTextBox2.Text = "Grid Name: " + display.ToString
        InfluenceTextBox3.Text = "Grid Type: " + gridsizeenum.ToString + " Ship"
        'InfluenceTextBox1.Text = "Owner Name: " + ownername.ToString



        'Gui Displaying
        Dim reader As New StreamReader(FILENAME)
        Dim doc As XDocument = XDocument.Load(reader)
        Dim xmlstring As String = doc.ToString
        'Function to calculate oxygentanks and hydrogen tanks
        Dim tanks As Integer = FindWords(xmlstring, "MyObjectBuilder_OxygenTank").ToString
        Dim oxygentanks As Integer = tanks - FindWords(xmlstring, "LargeHydrogenTank").ToString
        dictionay = blockNames.GroupBy(Function(x) x).ToDictionary(Function(x) x.Key, Function(y) y.Key)







        'Procedural Control Generation
        _model = New Model()
        _model.Load(FILENAME)

        NUMBER_OF_PANELS = _model.print.cubes.cubeBlocks.Count
        CalulateControlSizes(NUMBER_OF_PANELS)

        mainPanel = _model.print.cubes
        mainPanel.Height = MAIN_PANEL_HEIGHT
        mainPanel.Width = MAIN_PANEL_WIDTH
        mainPanel.Top = MAIN_PANEL_TOP
        mainPanel.Left = MAIN_PANEL_LEFT
        mainPanel.BackColor = Color.FromArgb(24, 24, 24)
        mainPanel.ForeColor = Color.White

        mainPanel.AutoScroll = True
        mainPanel.VerticalScroll.Visible = True
        mainPanel.HorizontalScroll.Visible = True
        Me.Controls.Add(mainPanel)
        'mainPanel.BringToFront()

        For panelNumber As Integer = 0 To (NUMBER_OF_PANELS - 1)
            Dim row As Integer = Math.Floor(panelNumber / PANEL_COLUMNS)
            Dim col As Integer = panelNumber Mod PANEL_COLUMNS

            Dim newPanel As CubeBlock = _model.print.cubes.cubeBlocks(panelNumber)
            newPanel.Top = row * (PANEL_HEIGHT + PANEL_HEIGHT_MARGIN)
            newPanel.Left = col * (PANEL_WIDTH + PANEL_WIDTH_MARGIN)
            newPanel.Width = PANEL_WIDTH
            newPanel.Height = PANEL_HEIGHT
            newPanel.BackColor = Color.FromArgb(24, 24, 24)
            newPanel.ForeColor = Color.White
            mainPanel.Controls.Add(newPanel)

            subPanels.Add(newPanel)

            Dim blockname As String = newPanel.SubtypeName

            Dim newPicture As New PictureBox()
            newPicture.Height = 64
            newPicture.Width = 64
            newPicture.Top = PICTURE_BOX_TOP
            newPicture.Left = PICTURE_BOX_LEFT
            newPicture.BackgroundImageLayout = ImageLayout.Stretch
            newPicture.BackgroundImage = DirectCast(My.Resources.ResourceManager.GetObject(blockname), Bitmap)
            newPicture.BackColor = Color.FromArgb(24, 24, 24)
            newPanel.Controls.Add(newPicture)
            FlowLayoutPanel1.Controls.Add(newPicture)

            Dim newLabel As New Label
            newLabel.Height = LABEL_HEIGHT
            newLabel.Width = LABEL_WIDTH
            newLabel.Top = LABEL_TOP
            newLabel.Left = LABEL_LEFT
            newLabel.BackColor = Color.Transparent
            newLabel.ForeColor = Color.White
            newLabel.Text = newPanel.SubtypeName & "(" & newPanel.count & ")"

            newPanel.Controls.Add(newLabel)
            'FlowLayoutPanel1.Controls.Add(newLabel)
        Next panelNumber
    End Sub
    'END OPEN BUTTON


    'Contributors Section
    Private Sub InfluenceTopButton1_Click(sender As Object, e As EventArgs) Handles InfluenceTopButton1.Click
        'Form2.Show()
    End Sub


    'XML INPUT LOADING FUNCTION
End Class
Public Class Model
    Public print As Model
    Public print2 As Model
    Public print3 As Model
    Public print4 As Model
    Public _type As String
    Public _id As ID
    Public _display As String
    Public _display1 As String
    Public displayname As String
    Public enumerator As String
    Public cubes As New CubeGrid
    Public info As String
    Public Sub Load(filename As String)
        Dim reader As New StreamReader(filename)
        Dim doc As XDocument = XDocument.Load(reader)
        Dim firstNode As XElement = doc.FirstNode
        Dim xsiNs = firstNode.GetNamespaceOfPrefix("xsi")
        Dim drawingTypes = firstNode.Elements.FirstOrDefault()
        Dim drawingType = drawingTypes.Elements.FirstOrDefault()
        Dim drawingStr = drawingType.Name.LocalName
        print = doc.Descendants(drawingStr).Select(Function(x) New Model() With {
           ._type = x.Attribute(xsiNs + "type"), ._id = x.Elements("Id").Select(Function(y) New ID() With {
                                              .type = y.Attribute("Type"),
                                              .subtype = y.Attribute("Subtype")
                                          }).FirstOrDefault(),
           .cubes = x.Descendants("CubeGrid").Select(Function(y) New CubeGrid() With {
                                                      .id = y.Element("EntityId"),
                                                      .persistentFlags = y.Element("PersistentFlags"),
                                                      .position = y.Descendants("Position").Select(Function(z) New location() With {
                                                        .x = CType(z.Attribute("x"), Double),
                                                        .y = CType(z.Attribute("y"), Double),
                                                        .z = CType(z.Attribute("z"), Double)
                                                      }).FirstOrDefault(),
                                                      .forward = y.Descendants("Forward").Select(Function(z) New location() With {
                                                        .x = CType(z.Attribute("x"), Double),
                                                        .y = CType(z.Attribute("y"), Double),
                                                        .z = CType(z.Attribute("z"), Double)
                                                      }).FirstOrDefault(),
                                                      .up = y.Descendants("Up").Select(Function(z) New location() With {
                                                        .x = CType(z.Attribute("x"), Double),
                                                        .y = CType(z.Attribute("y"), Double),
                                                        .z = CType(z.Attribute("z"), Double)
                                                      }).FirstOrDefault(),
                                                      .orientation = y.Descendants("Orientation").Select(Function(z) New location() With {
                                                        .w = CType(z.Element("W"), Double),
                                                        .x = CType(z.Element("X"), Double),
                                                        .y = CType(z.Element("Y"), Double),
                                                        .z = CType(z.Element("Z"), Double)
                                                      }).FirstOrDefault(),
                                                      .cubeBlocks = y.Descendants("MyObjectBuilder_CubeBlock").GroupBy(Function(z) CType(z.Element("SubtypeName"), String)).Select(Function(z) New CubeBlock() With {
                                                        .SubtypeName = z.Key,
                                                        .count = z.Count
                                                      }).OrderBy(Function(z) z.SubtypeName).ToList()
                                                  }).FirstOrDefault()
        }).FirstOrDefault



        print2 = doc.Descendants(drawingStr).Select(Function(x) New Model() With {
            .cubes = x.Descendants("CubeGrid").Select(Function(y) New CubeGrid() With {
                .displayname = y.Element("DisplayName")
            }).FirstOrDefault
        }).FirstOrDefault()

        print3 = doc.Descendants(drawingStr).Select(Function(x) New Model() With {
        .cubes = x.Descendants("CubeGrid").Select(Function(y) New CubeGrid() With {
            .enumerator = y.Element("GridSizeEnum")
            }).FirstOrDefault
        }).FirstOrDefault

        'Not Working - Gets owner name
        print4 = doc.Descendants(drawingStr).Select(Function(x) New Model() With {
            .cubes = x.Descendants("MyObjectBuilder_ShipBlueprintDefinition").Select(Function(y) New CubeGrid() With {
                .ownername = y.Element("DisplayName")
            }).FirstOrDefault
        }).FirstOrDefault
    End Sub
End Class
Public Class ID
    Public type As String
    Public subtype As String
End Class
Public Class CubeGrid
    Inherits Panel

    Public id As String
    Public persistentFlags As String
    Public position As location
    Public forward As location
    Public up As location
    Public orientation As location
    Public cubeBlocks As List(Of CubeBlock)

    Public displayname As String
    Public ownername As String
    Public enumerator As String
End Class
Public Class location
    Public w As Double
    Public x As Double
    Public y As Double
    Public z As Double
End Class
Public Class CubeBlock
    Inherits Panel

    Public SubtypeName As String
    Public username As String
    Public count As Integer
End Class