VB.Net动态图表创建。 需要布局帮助

Question

首先，英语不是！ 我的母语

对于我在这家公司的实习，我正在尝试收集一些数据。 网络中大约有200台PC。 所有HP SFF PC。 所有电脑将被包含软件和策略的公司磁盘映像覆盖。 他们还获得了BIOS更新。 但是随着时间的流逝，这些版本已经过时了。 并非要求更新BIOS，我们现在想在哪种型号的哪个PC上使用哪个版本。

有几种PC型号。 例如HP DC7600，HP 7700。

有几种BIOS版本。 例如786G1 v01.10、786G1 v01.16

我正在使用以下方法收集此数据。 每个人都有一个共享到特定磁盘的网络。（公司文件）。

对于客户端，我正在使用WMI（Windows管理规范）来收集所需的信息。

Sub RetrieveInfo()
    Dim _PCName As String = My.Computer.Name
    Dim _Info As String = vbNullString
    Dim _FileName As String = "G:\BiosVersion\" & _PCName & ".txt"
    Dim _ManagmentC As New ManagementClass("Win32_ComputerSystem")
    Dim _Moc As ManagementObjectCollection = _ManagmentC.GetInstances

    For Each _Mo As ManagementObject In _Moc
        Dim Model() As String = Split(_Mo.Properties("Model").Value.ToString, " ")
        For i = 0 To Model.Length - 1
            If Model(i).ToLower.Contains("dc") Then _Info &= Model(i)
        Next
    Next

    _ManagmentC = New ManagementClass("win32_bios")
    _Moc = _ManagmentC.GetInstances
    For Each _Mo As ManagementObject In _Moc
        _Info &= "|" & _Mo.Properties("SMBIOSBIOSVersion").Value.ToString
    Next

    Try
        If IO.File.Exists(_FileName) Then
            IO.File.Delete(_FileName)
        End If
    Catch ex As IO.IOException
        _FileName = _FileName.Replace(_PCName, _PCName & "-" & New Random().Next(10, 10000))
    End Try

    IO.File.WriteAllText(_FileName, _Info)

End Sub

如您所见，此文件将在与字符串PCName（例如PC1001）共享的文件中创建为文本文件。 它将PC型号和Bios版本都写入文本文件。 （例如dc7900 | 786G1 v01.16）

---

对于服务器端，图表构建部分，我正在做以下事情。

Dim Path As String = "G:\BiosVersion\"
Sub UpdateChart()
    Dim PCModels As New List(Of String)
    Dim BiosVersions As New List(Of String)
    Dim Files As IO.FileInfo() = New IO.DirectoryInfo(Path).GetFiles

    For Each File As IO.FileInfo In Files
        If File.Extension = ".txt" Then
            PCModels.Add(IO.File.ReadAllText(File.FullName).Split("|")(0))
            BiosVersions.Add(IO.File.ReadAllText(File.FullName).Split("|")(1))
        End If
    Next
    PCModels = RemoveDuplicates(PCModels)
    BiosVersions = RemoveDuplicates(BiosVersions)

    For i = 0 To chartBios.Series.Count - 1
        chartBios.Series.Remove(chartBios.Series.Item(i))
    Next

    Dim Dictionary As New Dictionary(Of String, Integer)
    For Each Version As String In BiosVersions
        chartBios.Series.Add(Version)
        Dim Count As Integer = 0
        For Each File As IO.FileInfo In Files
            If IO.File.ReadAllText(File.FullName).Split("|")(1).ToLower.Trim = Version.ToLower.Trim Then
                Count += 1
            End If
        Next
        Dictionary.Add(Version, Count)
    Next

    For Each Entry As KeyValuePair(Of String, Integer) In Dictionary
        chartBios.Series(Entry.Key).Points.AddY(Entry.Value)
    Next
End Sub

Function RemoveDuplicates(ByVal inputList As List(Of String)) As List(Of String)
    Dim uniqueStore As New Dictionary(Of String, Integer)()
    Dim finalList As New List(Of String)()
    For Each currValue As String In inputList
        If Not uniqueStore.ContainsKey(currValue) Then
            uniqueStore.Add(currValue, 0)
            finalList.Add(currValue)
        End If
    Next
    Return finalList
End Function

chartBios =图表控件。

结果如下：我还不能发布任何图像（垃圾邮件阻止） http://i.imgur.com/bGpyH.jpg

我想要做的是以下内容。 我有3个Vars，Bios版本，每个版本安装了几次以及型号名称。

这是我想要的图表布局的示例。 任何人都对如何创建此布局有任何想法吗？ 在运行时还是静态，我不在乎，只要可以在运行时将其填充即可。

对于每个BIOS版本号，每个PC型号必须有一个带有标签的栏，该标签代表BIOS版本的安装次数。

示例：我还不能发布任何图像（防止垃圾邮件） http://i.imgur.com/tP0Sf.jpg

Answer 1

使用MS Chart Controls，您可以在一个图表中添加多个系列，每个系列将代表您的PC类型，其中每种类型都有BIOS版本号和出现次数。

http://msdn.microsoft.com/en-us/library/dd456769.aspx