[السندبااد]

أخي الحبيب الشاكي لله لاحظت بق بسيط في الأداة يحدث في الحالة التالية التي سأوضحها لك:

عندك أربعة أصناف هي:

Visits - Members - Sales - Lose

لنفرض إحدى الحالات التالية:

الحالة الأولى: إحدى الأصناف السابقة Percent كان = صفر.

Visits =40

Members =30

Sales =10

Lose = 0

الحالة الثانية: لنفرض أن هذه الأصناف مربوطة نسبها في قاعدة البيانات وفجأة صنف ما أو أكثر من صنف أصبحت نسبته صفر.

مثلاً هكذا:

Visits =40

Members =30

Sales =10

Lose = 0

أو هكذا:

Visits =40

Members =60

Sales =0

Lose = 0

أو هكذا:

Visits =100

Members =0

Sales =0

Lose = 0

في الحالتين السابقتين ستتشوه الأداة وستظهر بشكل مشوه
   

---

ما رأيك بهذا الشرط الذي أضفناه للدالة Draw ؟
بحيث يتم التنفيذ إذا كانت قيمة PercentA لا تساوي الصفر
أنا وجدت أنه يحل مشكلة البق:

   

PHP كود :

Private Sub Drow()
        currentAngle = 0
        root.Children.Cast(Of UIElement)().Where(Function(e) e.GetType() = GetType(Arc)).ToList().ForEach(Sub(e) root.Children.Remove(e))
        For i As Integer = 0 To categories.Count - 1
            Dim arc As DonutArc = New DonutArc(categories(i))
            arc.ArcElment.Stroke = arc.ArcCatogry.ColorA
            arc.ArcElment.StartAngle = currentAngle

            If arc.ArcCatogry.PercentA <> 0 Then
                arc.ArcElment.EndAngle = (arc.ArcElment.StartAngle + (arc.ArcCatogry.PercentA / 100) * 360) - 1
                root.Children.Add(arc.ArcElment)
                currentAngle = arc.ArcElment.EndAngle + 1
            End If
        Next
    End Sub