Tortendiagramm (pie chart) malen

RodFromGermany · 27. September 2018, 08:11

Peter329 schrieb:

Aber warum ist es denn wichtig bei der BRUSH ein Using zu verwenden ?

Nur dann, wenn Du Deinen Brush baust.
Wenn Du einen Default-Brush verwendest z.B. Brushes.Green, dann ~~musst~~ darfst Du kein Using verwenden.
Mach Dir ein kleines Testprogramm und probier das mal aus:

VB.NET-Quellcode

Using br = Brushes.Green
End Using

ErfinderDesRades · 27. September 2018, 09:04

und genauso verhält es sich auch mit Pens - also ein Pen ist auch zu disposen, wenn man ihn selbst gebaut hat, und nun nicht mehr braucht.

FormFollowsFunction · 28. September 2018, 17:38

Ich habe mir die Klasse mal etwas getuned.
1. Mehr Kapsellung, um vorallem globale Variablen zu vermeiden.
2. Die Benamungen so gestalltet, daß sie möglichst selbsterklärend und damit Kommentare überflüssig sind.
3. Es werden jetzt zwei Listen an die Klasse übergeben, die eine enthällt die Values, die andere die entsprechenden Colors.
4. Die Variable rect in pieSizeRectangle umbenannt und so gestalltet, das keine Beulen am Rand entstehen.

VB.NET-Quellcode

Imports System.Drawing.Drawing2D
Public Class PieChart
Public Sub Paint(ByVal size As Size,
ByVal values As List(Of Double),
ByVal colors As List(Of Color),
ByVal borderColor As Color,
ByVal borderWidth As Integer,
ByVal rotationAngle As Single,
ByVal e As PaintEventArgs)
Dim pieSizeRectangle As New Rectangle(CInt(borderWidth / 2) + 1,
CInt(borderWidth / 2) + 1,
size.Width - borderWidth - 1,
size.Height - borderWidth - 1)
With e.Graphics
.SmoothingMode = SmoothingMode.AntiAlias
.CompositingQuality = CompositingQuality.HighQuality
.PixelOffsetMode = PixelOffsetMode.HighQuality
.InterpolationMode = InterpolationMode.HighQualityBilinear
End With
Using borderPen As New Pen(borderColor, borderWidth)
Using solidBrush As SolidBrush = New SolidBrush(Nothing)
Dim valuesSum As Double = values.Sum
Dim usedValuesSum, startAngle, sweepAngle As Single
For i As Integer = 0 To values.Count - 1
startAngle = rotationAngle +
CSng(360 / valuesSum * values(i)) +
CSng(360 / valuesSum * usedValuesSum)
sweepAngle = -CSng(360 / valuesSum * values(i))
e.Graphics.DrawPie(borderPen,
pieSizeRectangle,
startAngle,
sweepAngle)
solidBrush.Color = colors(i)
e.Graphics.FillPie(solidBrush,
pieSizeRectangle,
startAngle,
sweepAngle)
usedValuesSum = CSng(usedValuesSum + values(i))
Next
End Using
End Using
End Sub
End Class

VB.NET-Quellcode

Public Class Form1
Private Values As New List(Of Double)
Private Colors As New List(Of Color)
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim driveInfoC As New IO.DriveInfo("C:\")
Values.AddRange({driveInfoC.TotalSize - driveInfoC.AvailableFreeSpace,
driveInfoC.AvailableFreeSpace})
Colors.AddRange({Color.Blue,
Color.Magenta})
End Sub
Private Sub PictureBoxPieChart_Paint(sender As Object, e As PaintEventArgs) Handles PictureBoxPieChart.Paint
Dim pieChart As New PieChart
pieChart.Paint(DirectCast(sender, PictureBox).Size, Values, Colors, Color.Black, 1, 180, e)
End Sub
End Class

NoIde · 28. September 2018, 18:29

Warum nicht anstatt der Size(Argmument) ein Rectangle nehmen? So lässt sich die Postion dann auch bestimmen, wenn man das Graphisics Object eines Forms nutzt. So ist die Klasse nicht universell einsetzbar. So wie du es gemacht hast, da würde ich dann ein Control machen, da kannst du dir dann auch das erste und letzte Argument sparen, da im Designer Position und Grösse festgelegt wird und das Control ein eigenes Paint-Event hat.

Ach wo hab ich heute meinem kopf

Paar Properties, beim setzen dann invalidaieren.

ErfinderDesRades · 28. September 2018, 18:31

ich habs noch weiter gepimpt, weil eine Klasse mit nur einer Methode, und die mit so viele Parameter - unschick.

Ich hab jetzt ein richtiges Objekt von gemacht, also ein Dingens mit einem eigenen Zustand - und den malt es halt.
Und das Malen auch ganz autonom - "Behavior" nennt man diesen Pattern:
Die Klasse:

VB.NET-Quellcode

Imports System.Drawing
Imports System.Windows.Forms
Imports System.Drawing.Drawing2D
Public Class PieChart
Public WithEvents Control As Control
Public ReadOnly Values As New List(Of Single)
Public ReadOnly Colors As New List(Of Color)
Public BorderColor As Color = Color.Black, BorderWidth As Integer = 1, RotationAngle As Single = 180.0F
Private _Pen As New Pen(BorderColor, BorderWidth)
Private _Brush As New SolidBrush(Nothing)
Private Sub Control_Paint(sender As Object, e As PaintEventArgs) Handles Control.Paint
Dim size = Control.Size
Dim bw = BorderWidth
Dim rct As New Rectangle(bw \ 2 + 1, bw \ 2 + 1, size.Width - bw - 1, size.Height - bw - 1)
With e.Graphics
.SmoothingMode = SmoothingMode.AntiAlias
.CompositingQuality = CompositingQuality.HighQuality
.PixelOffsetMode = PixelOffsetMode.HighQuality
.InterpolationMode = InterpolationMode.HighQualityBilinear
End With
Dim valuesSum = Values.Sum
Dim usedValuesSum, startAngle, sweepAngle As Single
For i = 0 To Values.Count - 1
startAngle = RotationAngle + 360.0F / valuesSum * Values(i) + 360.0F / valuesSum * usedValuesSum
sweepAngle = -360.0F / valuesSum * Values(i)
_Pen.Width = BorderWidth
e.Graphics.DrawPie(_Pen, rct, startAngle, sweepAngle)
_Brush.Color = Colors(i)
e.Graphics.FillPie(_Brush, rct, startAngle, sweepAngle)
usedValuesSum = usedValuesSum + Values(i)
Next
End Sub
End Class

Benutzung:

VB.NET-Quellcode

Public Class frmPieChart_OwnerD
Private _PieChart As PieChart
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim driveInfoC As New IO.DriveInfo("C:\")
_PieChart = New PieChart With {.Control = PictureBoxPieChart}
_PieChart.Values.AddRange({driveInfoC.TotalSize - driveInfoC.AvailableFreeSpace, driveInfoC.AvailableFreeSpace})
_PieChart.Colors.AddRange({Color.Blue, Color.Magenta})
End Sub
End Class

Beachte auch, dass ich keinerlei Typumwandlung benötige - die Typen passen alle zusammen (naja, fast, aber die Ausnahme musste mitte Lupe suchen)

FormFollowsFunction · 28. September 2018, 20:24

NoIde schrieb:

So lässt sich die Postion dann auch bestimmen, wenn man das Graphisics Object eines Forms nutzt.

Ich habe keine Ahnung was ich mir dabei gedacht habe.

NoIde schrieb:

da würde ich dann ein Control machen

Das hatte ich eh vor, kann dann ja jeder so machen, wie es beliebt.

ErfinderDesRades schrieb:

weil eine Klasse mit nur einer Methode, und die mit so viele Parameter - unschick.

Sah wirklich etwas einsam aus.
Parameter sparen kann wirklich nicht schaden.

ErfinderDesRades schrieb:

Ich hab jetzt ein richtiges Objekt von gemacht,

Das ist natürlich OOP, konsequent umgesetzt, da werde ich wohl mal gucken was ich so rumfliegen habe und meinen Kram eventuell weiterentwickeln.

Schöhne code Evolution !

Facebamm · 29. September 2018, 13:32

Es ist jetzt nicht Perfekt aber ich mag es

C#

Spoiler anzeigen

C#-Quellcode

using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Drawing;
using System.Drawing.Drawing2D;
using System.Linq;
using System.Threading;
using System.Windows.Forms;
namespace PaperWordLib.UI {
public class MultiCircleBar : Control {
#region private
private GraphicsPath _pathOuterPi;
private SolidBrush _brushOuterPi = new SolidBrush(Color.FromArgb(64, 64, 64));
private SolidBrush _brushValuePi = new SolidBrush(Color.DodgerBlue);
//later
private Point _textLocation;
private string _percentText;
private GraphicsPath[] _grapicPathOfPies;
#endregion
#region Properties
#region Settings
private Color _foreColor = Color.White;
private Color _barValueColor = Color.DodgerBlue;
#endregion
private double _minValue = 0;
public double MinValue {
get => _minValue;
set {
if (_minValue != value) {
if (_maxValue < _minValue) {
throw new Exception("MinValue must be smaller then MaxValue");
}
_maxValue = value;
Invalidate();
}
}
}
private double _maxValue = 100;
public double MaxValue {
get => _maxValue;
set {
if (_maxValue != value) {
if (_maxValue < MinValue) {
throw new Exception("MaxValue must be bigger then MinValue");
}
_maxValue = value;
Invalidate();
}
}
}
private bool _autoMaxValue;
public bool AutoMaxValue {
get => _autoMaxValue;
set {
if (_autoMaxValue != value) {
_autoMaxValue = value;
_minValue = 0;
_maxValue = Items.Sum(item => item.Value);
UpdatePiesPathes();
Invalidate();
}
}
}
private List<MultiCircleBarItem> _items;
[DesignerSerializationVisibility(DesignerSerializationVisibility.Content)]
public List<MultiCircleBarItem> Items {
get => _items;
set {
if (_items != value) {
_items = value;
if (_autoMaxValue) {
_maxValue = _items.Sum(item => item.Value);
}
_grapicPathOfPies = new GraphicsPath[_items.Count];
UpdatePiesPathes();
Invalidate();
}
}
}
private double _openPiValueDeg = 0;
public double OpenPiValueDeg {
get => _openPiValueDeg;
set {
if (_openPiValueDeg != value) {
if (value > 360) {
throw new Exception("Value must be smaler then 360");
} else if (value < 0) {
throw new Exception("Value must be bigger then 0");
}
_openPiValueDeg = value;
Invalidate();
}
}
}
private Direction _OpenPiDirection = Direction.Top;
public Direction OpenPiDirection {
get => _OpenPiDirection;
set {
if (_OpenPiDirection != value) {
_OpenPiDirection = value;
UpdatePiesPathes();
Invalidate();
}
}
}
private Color _barBackColor = Color.FromArgb(36, 36, 36);
public Color BarBackColor {
get => _barBackColor;
set {
if (_barBackColor != value) {
_barBackColor = value;
Interlocked.Exchange(ref _brushOuterPi, new SolidBrush(value));
Invalidate();
}
}
}
#endregion
public MultiCircleBar() {
ControlStyles styles = ControlStyles.OptimizedDoubleBuffer
| ControlStyles.SupportsTransparentBackColor
| ControlStyles.UserPaint
| ControlStyles.ResizeRedraw;
SetStyle(styles, true);
_items = new List<MultiCircleBarItem>();
_autoMaxValue = true;
}
protected override void OnSizeChanged(EventArgs e) {
UpdatePiesPathes();
Invalidate();
}
protected override void OnPaint(PaintEventArgs e) {
Graphics graphics = e.Graphics;
graphics.SmoothingMode = SmoothingMode.AntiAlias;
graphics.CompositingQuality = CompositingQuality.HighQuality;
graphics.PixelOffsetMode = PixelOffsetMode.HighQuality;
graphics.InterpolationMode = InterpolationMode.HighQualityBilinear;
if (_pathOuterPi != null) {
graphics.FillPath(_brushOuterPi, _pathOuterPi);
}
if (_items.Count != 0) {
for (int i = 0, n = _grapicPathOfPies.Length; i < n; i += 1) {
using (SolidBrush barBrush = new SolidBrush(_items[i].BarColor)) {
graphics.FillPath(barBrush, _grapicPathOfPies[i]);
}
}
}
}
private void UpdatePiesPathes() {
if (ClientRectangle != Rectangle.Empty) {
Rectangle rect = ClientRectangle;
#region Settings
double startValue = (int)OpenPiDirection - (OpenPiValueDeg / 2);
double movedValue = 0;
double deltaValue = MaxValue - MinValue;
_items.Select(item => deltaValue / item.Value);
double[] pieValues = (from item in
(from element in _items
select element.Value / MaxValue)
orderby item
select item).ToArray();
double real360 = 360 - OpenPiValueDeg;
double endValue = -(real360) + movedValue;
#endregion
if (_grapicPathOfPies == null || _grapicPathOfPies.Length != _items.Count) {
_grapicPathOfPies = new GraphicsPath[_items.Count];
if (_autoMaxValue) {
_maxValue = _items.Sum(item => item.Value);
}
}
for (int i = 0, n = pieValues.Length; i < n; i += 1) {
double pixy = (pieValues[i] * real360);
GraphicsPath path = new GraphicsPath();
path.StartFigure();
path.AddPie(rect, (float)(startValue + movedValue), (float)pixy);
path.CloseFigure();
Interlocked.Exchange(ref _grapicPathOfPies[i], path)?.Dispose();
movedValue += pixy;
}
#region OuterPi
GraphicsPath outerPiPath = new GraphicsPath();
outerPiPath.StartFigure();
outerPiPath.AddPie(rect, (int)startValue, (int)endValue);
outerPiPath.CloseFigure();
Interlocked.Exchange(ref _pathOuterPi, outerPiPath)?.Dispose();
#endregion
#region InnaPi
#endregion
}
}
[Serializable]
public class MultiCircleBarItem {
public event Action<double?> ValueChanged;
public event Action<Color> BarColorChanged;
private double _value;
public double Value {
get => _value;
set {
if (Value != value) {
_value = value;
ValueChanged?.Invoke(_value);
}
}
}
private Color _barColor;
public Color BarColor {
get => _barColor;
set {
if (BarColor == value)
return;
_barColor = value;
BarColorChanged?.Invoke(value);
}
}
public MultiCircleBarItem() {
_value = 0;
_barColor = Color.Firebrick;
}
public MultiCircleBarItem(double value, Color barcolor) {
_value = value;
_barColor = barcolor;
}
}
public enum Direction {
Top = -90,
Right = 0,
Bottom = 90,
Left = 180,
None = -1
}
}
}

ErfinderDesRades · 29. September 2018, 14:48

hmm - zumindest in 2013 geht folgendes nicht in vb:

VB.NET-Quellcode

ValueChanged?.Invoke(_value)

Ist der Code getestet, oder nur gschwind aus c# übersetzt?

Facebamm · 29. September 2018, 15:25

geschwind übersetzt von C# zu VB.Net @ErfinderDesRades

VaporiZed · 29. September 2018, 15:25

In VS2017 auch nicht.
Zeile#89 geht (bei mir) auch nicht, weil der <>-Operand nicht für den Typ definiert ist
Z#119 wird angemeckert wegen Rekursion (Property-Setter)

Facebamm · 29. September 2018, 16:43

@ErfinderDesRades und @VaporiZed, schön und gut das ihr Fehler findet, aber mal gleich eine Lösung mit raus zugeben ging nicht :thumbup:

Tortendiagramm (pie chart) malen ist jetzt überarbeitet

Tortendiagramm (pie chart) malen

Peter329 schrieb:

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

NoIde schrieb:

NoIde schrieb:

ErfinderDesRades schrieb:

ErfinderDesRades schrieb:

C#-Quellcode

VB.NET-Quellcode

Benutzer online 1

Ähnliche Themen

9 Benutzer haben hier geschrieben