CONFIGURAR GR?FICO

MORCELI 03/09/2015 22:34:35
#450984
Boa noite pessoal, estou tentando criar um gráfico, só que cheguei num ponto que não estou conseguindo resolver, é só falta isso pra acabar meu projeto.
Eu tenho esse código abaixo que cria meu gráfico, agora eu queria traçar uma linha no gráfico igual a figura em anexo, a linha fixada no 100% sempre
Alguém pode dar uma luz de como posso fazer isso, fazendo um favor..




   Dim DtChart As New DataTable
        DtChart.Columns.Add([Ô]Máquinas[Ô], GetType(String))
        DtChart.Columns.Add([Ô]Ocupação[Ô], GetType(Double))
        DtChart.Columns.Add([Ô]Meta[Ô], GetType(Double))
     



        For row As Integer = 0 To FormConsultaProducao.DataGridView3.Rows.Count - 1


            DtChart.Rows.Add(FormConsultaProducao.DataGridView3.Item(0, row).Value, _
                             Replace(FormConsultaProducao.DataGridView3.Item(4, row).Value, [Ô]%[Ô], [Ô][Ô]) / 100, 100)

        Next
        Chart1.Series.Clear()



        [ô]Dim series1 As Series = Chart1.Series.Add([Ô]Series 1[Ô])
        Chart1.Series.Add([Ô]Serie 1[Ô])
        Chart1.Series(0).IsVisibleInLegend = False

        Dim ChartTipo As String = [Ô][Ô]
        ChartTipo = DataVisualization.Charting.SeriesChartType.Column

        With Chart1
            .Titles.Clear()

            .Series(0).LegendText = [Ô][Ô]


            .Titles.Clear()
            .Titles.Add([Ô]-----[Ô])
            Chart1.Titles(0).Font = New Font([Ô]Times New Roman[Ô], 14, FontStyle.Bold)
            .Titles(0).ForeColor = Color.Blue


            .ChartAreas(0).AxisY.Title = [Ô]%[Ô]
            .ChartAreas(0).AxisY.TitleFont = New Font([Ô]Times New Roman[Ô], 14, FontStyle.Bold)
            .ChartAreas(0).AxisY.TitleForeColor = Color.Blue
            .ChartAreas(0).AxisX.Title = [Ô][Ô]
            .ChartAreas(0).AxisX.TitleFont = New Font([Ô]Times New Roman[Ô], 12, FontStyle.Bold)
            .ChartAreas(0).AxisX.TitleForeColor = Color.Brown
            .Palette = ChartColorPalette.BrightPastel
            

            Chart1.Series(0).Points.DataBind(DtChart.DefaultView, [Ô]Máquinas[Ô], [Ô]Ocupação[Ô], Nothing)

            Chart1.ChartAreas(0).AxisX.ScrollBar.Enabled = True
            Chart1.ChartAreas(0).AxisX.ScrollBar.ButtonStyle = ScrollBarButtonStyles.SmallScroll
            Chart1.ChartAreas(0).AxisX.ScrollBar.BackColor = Color.LightGray
            Chart1.ChartAreas(0).AxisX.ScrollBar.ButtonColor = Color.DarkGray
            Chart1.ChartAreas(0).AxisX.ScrollBar.IsPositionedInside = True
            Chart1.ChartAreas(0).AxisX.IsLabelAutoFit = True
            Chart1.ChartAreas(0).AxisX.ScaleView.Size = 14

            .ChartAreas(0).AxisY.LabelStyle.Format = [Ô]0.00%[Ô]
            .Series(0).LabelFormat = [Ô]0.00%[Ô]

            .ChartAreas(0).AxisX.Interval = 1
            .ChartAreas(0).AxisX.LabelStyle.Angle = -25
            .Series(0).IsValueShownAsLabel = True

            Chart1.Series(0).Font = New System.Drawing.Font([Ô]Times New Roman[Ô], 8.0F, System.Drawing.FontStyle.Bold)

            .ChartAreas(0).AxisX.LabelStyle.Font = New System.Drawing.Font([Ô]Times New Roman[Ô], 11.0F, System.Drawing.FontStyle.Bold)
            .ChartAreas(0).AxisY.LabelStyle.Font = New System.Drawing.Font([Ô]Times New Roman[Ô], 11.0F, System.Drawing.FontStyle.Bold)

            Chart1.ChartAreas([Ô]ChartArea1[Ô]).AxisX.MajorGrid.Enabled = False
            Chart1.Series(0).IsVisibleInLegend = False
          
        End With

DS2T 03/09/2015 23:03:10
#450985 Resposta escolhida
Apesar de ter criado 3 colunas no datasource, você só adicionou duas Series no objeto. Adicione mais uma série à coleção, mudo o tipo (SeriesChartType) dela para Line e pronto. Lembrando que os valores da coluna Meta ficarão sempre como 1 (100%) ... (na hora que você adiciona para o datatable).

Sem querer me meter no método de desenvolvimento do colega, mas eu sugiro tentar deixar o código um pouco mais organizado. Um bom começo seria separando Informaçao de Aparência.

Abraços!
MORCELI 04/09/2015 19:11:43
#451031
Valeu pela dica DS2T, com sua dica eu consegui resolver....
O código ta bagunçado mesmo srsrs, é que nunca tinha montado gráfico, ai eu sai pegando na internet um pedaço aqui outro ali e fui fazendo esse rascunho ai srsrs, mas já organizei o código, agora ta beleza srsrsr

Obrigado pela força!!
Tópico encerrado , respostas não são mais permitidas
Voltar