это быстро и бесплатно
Оформите заказ сейчас и получите скидку 100 руб.!
Ознакомительный фрагмент работы:
ASP.NET: пример построения круговой диаграммы
Христофоров Юрий
Ниже будет показано, как можно в ASP.NET приложении, используя графические методы GDI+, нарисовать круговую диаграмму. Это может быть полезно, например, для наглядного представления данных.
Файл pie.aspx (написан на VB.NET):
<%@ Page Language="VB" ContentType="image/jpeg" %> <%@ Import Namespace="System.Drawing" %> <%@ Import Namespace="System.Drawing.Imaging" %> <%@ Import Namespace="System.Drawing.Drawing2D" %> <% Response.Clear() Dim height As Integer = 200 Dim width As Integer = 320 Dim x As Integer Dim i As Integer Dim start_angle As Integer Dim pie_size As Integer Dim sub_total As Integer Dim offset As Integer Dim diameter As Integer Dim arrData() As Integer = {75, 45, 19, 10, 55} ' значения Dim arrProcent(4) As Integer Dim total As Integer Dim arrColor() As Object = {Color.Salmon, Color.SeaGreen, Color.Gold, Color.Maroon, Color.Orchid} Dim arrTitle() As String = {"Пункт1", "Пункт2", "Пункт3", "Пункт4", "Пункт5"} Dim rect As Object sub_total = 0 start_angle = 0 offset = 20 diameter = 170 total = 0 Dim bmp As New Bitmap(width, height, PixelFormat.Format32bppArgb) Dim g as Graphics = Graphics.FromImage(bmp) Dim fnt As New Font("Arial", 8) Dim sb As New SolidBrush(Color.Blue) g.Clear(Color.White) g.SmoothingMode = SmoothingMode.HighQuality ' суммазначенийвмассиве For i = 0 To arrData.GetUpperBound(0) total = total + arrData(i) Next ' проценты For i = 0 To arrData.GetUpperBound(0) arrProcent(i) = Math.Round((arrData(i)/total)*100) Next For i = 0 To arrProcent.GetUpperBound(0) sub_total = sub_total + arrProcent(i) pie_size = sub_total*360 / 100 - start_angle g.FillPie(New SolidBrush(arrColor(i)), offset, offset, diameter, diameter, start_angle, pie_size) start_angle = start_angle + pie_size rect = New Rectangle(offset + diameter + 10, offset + i*20, 15, 15) g.FillRectangle(New SolidBrush(arrColor(i)), rect) g.DrawString(arrTitle(i) & " - [" & arrProcent(i) & "%]", fnt, sb, offset + diameter + 10 + 20, offset + i*20) Next bmp.Save(Response.OutputStream, ImageFormat.Jpeg) g.Dispose() bmp.Dispose() Response.End() %> |
Результат работы скрипта:
Сделайте индивидуальный заказ на нашем сервисе. Там эксперты помогают с учебой без посредников
Разместите задание – сайт бесплатно отправит его исполнителя, и они предложат цены.
Цены ниже, чем в агентствах и у конкурентов
Вы работаете с экспертами напрямую. Поэтому стоимость работ приятно вас удивит
Бесплатные доработки и консультации
Исполнитель внесет нужные правки в работу по вашему требованию без доплат. Корректировки в максимально короткие сроки
Гарантируем возврат
Если работа вас не устроит – мы вернем 100% суммы заказа
Техподдержка 7 дней в неделю
Наши менеджеры всегда на связи и оперативно решат любую проблему
Строгий отбор экспертов
К работе допускаются только проверенные специалисты с высшим образованием. Проверяем диплом на оценки «хорошо» и «отлично»
Работы выполняют эксперты в своём деле. Они ценят свою репутацию, поэтому результат выполненной работы гарантирован
Ежедневно эксперты готовы работать над 1000 заданиями. Контролируйте процесс написания работы в режиме онлайн
Презентация и короткое выступление к этой презентации
Презентация, Исследовательская работа моделирование и сравнение характеристик каналов райса
Срок сдачи к 21 сент.
Отчет по практике, технологическая (проектно-технологическая) практика | п. в | производственная практика/менеджмент управление проектами
Отчет по практике, Управление проектами
Срок сдачи к 14 сент.
отчет по практике/кадровый менеджмент/управление персоналом
Отчет по практике, кадровый менеджмент
Срок сдачи к 15 сент.
"Универсальное СТО легковых автомобилей для района с населением 42000 жителей с разработкой агрегатного участка."
ВКР, Автомобили и Автомобильный сервис
Срок сдачи к 11 янв.
Решить 1 лабораторную работу и 2 практические работы
Лабораторная, Особености разработки газонефтяных и нефтегазовых месторождений
Срок сдачи к 13 сент.
Выполнить задание в файле ecxel
Лабораторная, Формирование единой информационной среды предприятия на основе концепции «Качество 4.0»
Срок сдачи к 13 сент.
Тема выпускной квалификационной работы «Индивидуальный имидж как...
ВКР, Организационная психология
Срок сдачи к 31 окт.
Наступление танкового батальона по овладению населённого пункта
Реферат, Тактика
Срок сдачи к 11 сент.
Технология обучения учащихся основной школы устно-речевому иноязычному общению в условиях коллективно-группового взаимодействия
ВКР, Методика преподавания иностранных языков
Срок сдачи к 12 мар.
Написать курсовую работу
Курсовая, Курсовая работа. теоретические и прикладные аспекты методической работы учителя начальных классов
Срок сдачи к 15 сент.
Заполните форму и узнайте цену на индивидуальную работу!