Вывести на диаграмму Chart данные из DataGridView - Visual Basic .NET

Узнай цену своей работы

Формулировка задачи:

Здравствуйте! Может кто подскажет, не как не могу понять как сделать. В общем в таблице есть столбец в котором можно писать только да, нет, не знаю, в общем ограниченное количество слов ,нужно сделать чтобы программа подсчитывала количество каждого слова и выводила на диаграмму в Chart в процентном выражении (пример: диаграмма выводит слово "да" 20%, слово "нет" 30%, слово "не знаю" 50%)

Решение задачи: «Вывести на диаграмму Chart данные из DataGridView»

textual
Листинг программы
  1. 'DataSet к этому моменту должна существовать (и иметь таблицу Clients)
  2. Dim tb As DataTable = ds.Tables("Clients")
  3. Dim n As Integer = tb.Rows.Count
  4. Dim ss() As String = {"Реклама в средствах массовой информации", "Наружная реклама", _
  5.                       "Реклама на транспорте", "Реклама на местах продаж", _
  6.                       "Сувенирная реклама", "Печатная реклама", "Прямая реклама", _
  7.                       "Реклама в интернете", "Другой"}
  8. Dim dd(ss.Length - 1) As Double
  9. For i = 0 To ss.Length - 1
  10.     'интересуемые данные в поле с индексом 7 таблицы Clients
  11.     dd(i) = (From s As DataRow In tb.Rows Where s(7).ToString = ss(i)).ToArray.Count / n * 100
  12. Next
  13. Dim dp(ss.Length - 1) As DataPoint
  14. With Chart1
  15.     .Width = 500
  16.     .Height = 300
  17.     .Titles.Add("в процентах")
  18.     .ChartAreas.Clear()
  19.     .ChartAreas.Add("ppp")
  20.     .Series.Clear()
  21.     .Series.Add("Реклама")
  22.     .Series(0).IsVisibleInLegend = False
  23.     .Series(0).Color = Color.Red
  24.     For i = 0 To ss.Length - 1
  25.         dp(i) = New DataPoint(i, dd(i))
  26.         dp(i).AxisLabel = ss(i)
  27.         .Series(0).Points.Add(dp(i))
  28.     Next
  29. End With

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

7   голосов , оценка 3.857 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут