これらの結果からヒストグラムが必要です。VB.net

Question

ヒストグラムのヘルプが必要です。私のプログラムは3,4,5,6文字の単語を数えました。今度は、受け取った答えから簡単なヒストグラムを作成する必要があります。これは私のコードです：

Public Class Form1 
    Dim tekst As String 
    Dim rijec() As String 
    Dim trazena As String 
    Dim brojac1 As Integer = 1 
    Dim brojac2 As Integer = 0 
    Dim brojac3 As Integer = 0 
    Private Sub btnUcitaj_Click(sender As Object, e As EventArgs) Handles btnUcitaj.Click 
     If OpenFileDialog1.ShowDialog = DialogResult.OK Then 
      RichTextBox1.Text = My.Computer.FileSystem.ReadAllText(OpenFileDialog1.FileName) 
     End If 
    End Sub 
    Private Sub btnPrebroj1_Click(sender As Object, e As EventArgs) Handles btnPrebroj1.Click 

     tekst = RichTextBox1.Text 
     rijec = tekst.Split(CChar(" ")) 
     Dim count = From x In rijec Where x.Length = 3 
     txtTri.Text = ("Number of words: " & count.Count.ToString()) 
    End Sub 

    Private Sub btnPrebroj2_Click(sender As Object, e As EventArgs) Handles btnPrebroj2.Click 
     tekst = RichTextBox1.Text 
     rijec = tekst.Split(CChar(" ")) 
     Dim count = From x In rijec Where x.Length = 4 
     txtCetiri.Text = ("Number of words: " & count.Count.ToString()) 
    End Sub 

    Private Sub btnPrebroj3_Click(sender As Object, e As EventArgs) Handles btnPrebroj3.Click 
     tekst = RichTextBox1.Text 
     rijec = tekst.Split(CChar(" ")) 
     Dim count = From x In rijec Where x.Length = 5 
     txtPet.Text = ("Number of words: " & count.Count.ToString()) 
    End Sub 

    Private Sub btnPrebroj4_Click(sender As Object, e As EventArgs) Handles btnPrebroj4.Click 
     tekst = RichTextBox1.Text 
     rijec = tekst.Split(CChar(" ")) 
     Dim count = From x In rijec Where x.Length = 6 
     txtSest.Text = ("Number of words: " & count.Count.ToString()) 
    End Sub 

私は画像からのこれらの結果からヒストグラムが必要です。

Answer 1

Visual Basicは、実際にこのような状況のための素晴らしいですチャートと呼ばれる制御されています。私はそれをチェックアウトしたい場合はチュートリアルhereを見つけました。
あなたのコードで動作するはずのこの関数を書きましたが、データチャートを追加して Chart1と呼んでこの関数を呼び出してください。

Private Sub ShowData() 
    Chart1.Series.Clear() ' Delete the default data series. 

    Dim tekst = RichTextBox1.Text 
    Dim rijec = tekst.Split(CChar(" ")) 

    With Chart1.Series.Add("Word Lengths") ' Add a new series called Word Lengths 

     For wordLength As Integer = 3 To 6 ' Check every word length from 3 to 6 
      Dim count = From x In rijec Where x.Length = wordLength ' Count how many words there are 
      .Points.AddXY(wordLength, count.Count) ' Add a new data point 
     Next 

    End With 
End Sub

幸運にも、これは助けてくれました！

---

〜Nic