Jump to content
Sign in to follow this  
Chamuanza

Ajuda com Grafico

Recommended Posts

Chamuanza

Olá Pessoal

Agradecia um ajuda em relação ao problema que apresento

Tenho um grafico onde  não consigo colocar os valores no eixo do X a iniciar com 1, como podem ver na imagem.

Tentei varios codigos e nada

graficoc.gif

O codigo que estou a utilizar e este:

Private Sub butGrafico_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles butGrafico.Click

        Dim xNumerosEuro(50) As Byte


        For T = 1 To 50
            xNumerosEuro(T) = T
        Next


        'Conta os numeros do Euromilhoes
        Dim yContagem(50) As Integer

        For i As Integer = 1 To 50
            For Linhas = 0 To DataGridView1.RowCount - 1
                For Colunas = 0 To 4
                    If DataGridView1.Item(Colunas, Linhas).Value = i Then
                        yContagem(i) += 1
                    End If
                Next Colunas
            Next Linhas
        Next i
        '**************************************************************************************************
        'Conta as estrelas do euromilhoes
        Dim yContaEstrelas(11) As Byte
        Dim xEstrelasEuro(11) As Byte


        For T = 1 To 11
            xEstrelasEuro(T) = T
        Next


        For V As Integer = 1 To 11
            For Linhas = 0 To DataGridView1.RowCount - 1
                For Colunas = 5 To 6
                    If DataGridView1.Item(Colunas, Linhas).Value = V Then
                        yContaEstrelas(V) += 1
                    End If
                Next Colunas
            Next Linhas
        Next V

        Dim series As Series = Chart1.Series.Add("Series 1")

        With Chart1
            'define o tipo de gráfico
            '.Series(0).ChartType = DataVisualization.Charting.SeriesChartType.Column
            '.Series(1).ChartType = DataVisualization.Charting.SeriesChartType.Column

            ' Set Cylinder drawing style
            Chart1.Series(0)("DrawingStyle") = "Cylinder"
            Chart1.Series(1)("DrawingStyle") = "Cylinder"


            'define o texto da legenda 
            .Series(0).LegendText = "Nºs  Euromilhões"

            .Series(1).LegendText = "Nºs Estrelas"

            'define o titulo do eixo y , sua fonte e a cor
            .ChartAreas(0).AxisY.Title = "Nº Vezes Saidos"
            .ChartAreas(0).AxisY.TitleFont = New Font("Times New Roman", 12, FontStyle.Bold)
            .ChartAreas(0).AxisY.TitleForeColor = Color.Blue

            'define o titulo do eixo x , sua fonte e a cor
            .ChartAreas(0).AxisX.Title = "Nºs Euromilhões (1 a 50)"
            .ChartAreas(0).AxisX.TitleFont = New Font("Times New Roman", 10, FontStyle.Bold)
            .ChartAreas(0).AxisX.TitleForeColor = Color.Blue

            'define a paleta de cores usada
            .Palette = ChartColorPalette.Fire

            'vincula os dados ao gráfico
            .Series(0).Points.DataBindXY(xNumerosEuro, yContagem)
            .Series(1).Points.DataBindXY(xEstrelasEuro, yContaEstrelas)

            'exibe os valores nos eixos
            '.Series(0).IsValueShownAsLabel = True
            '.Series(1).IsValueShownAsLabel = True

            'habilita a exibição 3D
            .ChartAreas(0).Area3DStyle.Enable3D = True
            .ChartAreas(0).Area3DStyle.Rotation = 30


            ' Set interval of X axis to 1 week, with an offset of 1 day
            Chart1.ChartAreas(0).AxisX.IntervalAutoMode = IntervalAutoMode.VariableCount
            'Chart1.ChartAreas(0).AxisX.IntervalAutoMode = IntervalAutoMode.FixedCount
            'Chart1.ChartAreas(0).AxisX.Interval = 25

            Chart1.ChartAreas(0).AxisX.IntervalType = DateTimeIntervalType.Number
            Chart1.ChartAreas(0).AxisX.IntervalType = DateTimeIntervalType.NotSet
            Chart1.ChartAreas(0).AxisX.IntervalOffset = 1
            'Chart1.ChartAreas(0).AxisX.Interval = 50

            ' Equally sized auto-fit font for all axes
            Chart1.ChartAreas(0).IsSameFontSizeForAllAxes = True

            ' Set series points width to 20 pixels
            Chart1.Series(0)("PixelPointWidth") = "5"
            Chart1.Series(1)("PixelPointWidth") = "5"


            ' Enable X axis labels automatic fitting
            Chart1.ChartAreas(0).AxisX.IsLabelAutoFit = True

            ' Set docking of the legend title
            Chart1.Legends(0).Docking = Docking.Bottom

            ' Set chart title
            Chart1.Titles(0).Text = "EUROMILHÕES" & ControlChars.Lf & "Nºs Sorteados"
            ' Set chart title font
            Chart1.Titles(0).Font = New Font("Times New Roman", 14, FontStyle.Bold)
            ' A cor foi activada nas propriedades


            ' Set X axis automatic fitting style
            ' Chart1.ChartAreas(0).AxisX.LabelAutoFitStyle = LabelAutoFitStyles.DecreaseFont 'Or LabelAutoFitStyles.IncreaseFont Or LabelAutoFitStyles.WordWrap

        End With

        Chart1.Visible = True

    End Sub

Obrigado desde já pela atenção

Share this post


Link to post
Share on other sites
Caça

Tens de ir às propriedades da legenda dessa série na respectiva área do gráfico e alterar.

Já existe aqui um tópico sobre isso, faz uma pesquisa ;)


Pedro Martins

Não respondo a duvidas por PM

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this  

×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.