Kreisdiagramm Problem

  • VB6

Es gibt 7 Antworten in diesem Thema. Der letzte Beitrag () ist von Alex2000.

    Kreisdiagramm Problem

    Ich möchte ein Kreisdiagram erstellen. Ich habe den Operator Circle benutzt. Doch am Ende ist einfach ein Kreis rausgekommen. Ist auch logisch: Circle zeichnet eine Kreis oder ein Teil des Kreisbogens, Doch die Linien, die von den zwei Enden des Kreisbogens in seine Mitte gehen, zeichnet er nicht.
    Wie kann ich jetzt diese Linien zeichnen? Vieleicht gibt es einen Operator, der den Punkt wiedergibt, auf dem sich der "Stift" des Rechners beim Zeichnen gerade ist?

    Hi,
    Schau dir ma gdi graphicspath an. Da gibs addArc (Kreisbogen) und dann brauste nur die beiden Linien hintendrann"Adden". Der Graphicspath verbindet die Elemente einer Figur übrigens auch automatisch.
    :thumbsup: Seit 26.Mai 2012 Oppa! :thumbsup:

    Hallo alexnikolsky,
    die Winkelangaben müssen negativ sein. Probier' mal dieses:

    Visual Basic-Quellcode

    1. Private Sub Form_Load()
    3. Dim i%, Wnk1!, Wnk2!
    5. Me.ScaleMode = vbPixels
    6. Me.AutoRedraw = True
    7. Me.FillStyle = vbFSSolid
    8. For i = 1 To 3
    9. Wnk1 = Choose(i, 0.1, 2.4, 3.9)
    10. Wnk2 = Choose(i, 2.4, 3.9, 0.1)
    11. If Wnk1 = 0 Then Wnk1 = 0.001
    12. If Wnk2 = 0 Then Wnk2 = 0.001
    13. Me.FillColor = Choose(i, vbYellow, vbCyan, vbMagenta)
    14. Me.Circle (Me.ScaleWidth / 2, Me.ScaleHeight / 2), 170, vbBlack, -Wnk1, -Wnk2
    15. Next i
    17. End Sub


    @Vatter: Die Frage bezog sich auf VB6.
    Gruss,

    Neptun

    Ich hab noch eine Möglichkeit gefunden (glaube ich), aber da kommt wieder ein Problemm

    Dim sum As Double, perc(2) As Double, nr(2) As Double, i As Byte, a As Single, b As Byte
    Private Sub Command1_Click()
    nr(0) = Text1.Text
    nr(1) = Text2.Text
    nr(2) = Text3.Text

    sum = nr(0) + nr(1) + nr(2)
    For i = 0 To 2
    perc(i) = Round(nr(i) / (sum / 100))
    Next
    Picture1.Scale (-50, 50)-(50, -50)

    Picture1.FillStyle = 2

    Picture1.ForeColor = vbBlack
    Picture1.Circle (0, 0), 20, vbBlack, a, a + Round((3.141592654 / 180) * (360 / 100) * perc(0))
    a = a + Round((3.141592654 / 180) * (360 / 100) * perc(0))

    Picture1.FillColor = vbWhite
    Picture1.Circle (0, 0), 20, vbWhite, a, a + Round((3.141592654 / 180) * (360 / 100) * perc(1))
    a = a + Round((3.141592654 / 180) * (360 / 100) * perc(1))

    Picture1.FillColor = vbYellow
    Picture1.Circle (0, 0), 20, vbYellow, a, a + Round((3.141592654 / 180) * (360 / 100) * perc(2))
    a = a + Round((3.141592654 / 180) * (360 / 100) * perc(2))

    'Next

    End Sub

    Meine Idee war, dass der Computer, wenn er einen Teil des Kreisdiagrammes zeichnet, ihn dann färbt. Doch er färbt nur die Linien, und ´das Innere des Diagramms nicht... :cursing:

    Hi,
    Probiers mal mit der Klasse:

    Visual Basic-Quellcode

    1. Imports System.Drawing
    2. Imports System.Drawing.Drawing2D
    3. Public Class Kreisdiagramm
    4. Public Paths As New List(Of Arc)
    5. Dim g As Graphics = Nothing
    6. Private loaded As Boolean = False
    7. Private IMG As Image
    8. Private Color As Color = Color.Transparent
    9. Public Event ImageChanged(ByVal img As Image)
    11. Public Property BackColor() As Color
    12. Get
    13. Return Color
    14. End Get
    15. Set(ByVal value As Color)
    16. Color = value
    17. End Set
    18. End Property
    20. Public Sub New(ByVal Width As Integer, ByVal Height As Integer)
    21. IMG = CType(New Bitmap(Width, Height), Image)
    22. g = Graphics.FromImage(Me.IMG)
    23. Draw()
    24. End Sub
    26. Public Structure Arc
    27. Dim startangle As Integer
    28. Dim sweepangle As Integer
    29. Dim Brush As Brush
    30. Dim Rect As Rectangle
    31. End Structure
    33. Public Sub AddPath(ByVal Brushes As Brush, ByVal startangle As Integer, ByVal sweepangle As Integer)
    34. Dim x As New Arc
    35. x.Brush = Brushes
    36. x.Rect = New Rectangle(1, 1, IMG.Width, IMG.Height)
    37. x.startangle = startangle
    38. x.sweepangle = sweepangle
    39. Paths.Add(x)
    40. Draw()
    41. End Sub
    43. Public Sub Refresh()
    44. Draw()
    45. End Sub
    47. Private Sub Draw()
    48. If Not Paths.Count = 0 Then
    49. g.Clear(Me.BackColor)
    50. For Each Paths As Arc In Me.Paths
    51. g.FillPie(Paths.Brush, Paths.Rect, Paths.startangle, Paths.sweepangle)
    52. Next
    53. RaiseEvent ImageChanged(IMG)
    54. End If
    55. End Sub
    56. End Class

    Verwendung ca. so:

    Visual Basic-Quellcode

    1. Public Class Form1
    2. Dim WithEvents Kreis As New Kreisdiagramm(100, 100)
    4. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    5. Dim x As New ColorDialog
    6. If x.ShowDialog = Windows.Forms.DialogResult.OK Then
    7. Button1.BackColor = x.Color
    8. End If
    9. End Sub
    11. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    12. Kreis.AddPath(New SolidBrush(Button1.BackColor), CInt(TextBox1.Text), CInt(TextBox2.Text))
    13. End Sub
    15. Private Sub ImageChanged(ByVal img As Image) Handles Kreis.ImageChanged
    16. PictureBox1.Image = img
    17. End Sub
    18. End Class

    Da hab ich folgende Controls verwendet: 1Picturebox(Picturebox1), 2 Buttons(Button1, Button2), 2 Textboxen(Textbox1, Textbox2)
    Textbox1 ist für startangle und Textbox2 für Sweepangle.


    Startangle = Wo fängt der Kreis an (in °).
    Sweepangle = Wieviel ° geht er weiter.

    Hoffe konnte dir helfen!
    Mfg
    Loadsoft

Facebook
Telefonspende