Como trabalhar com o MSChart

[Erich VB 0]

Já tinha postado sobre gráfico neste fórum me desculpe se estou sendo chato. Mas nunca trabalhei com o MSChart antes.

Estou dando tiro no escuro, to usando o MSChart e não sei se consigo criar um gráfico.

 

Encontrei um tutorial até bonzinho, mas ele trabalha com os dados direto do banco de dados. Não sei se vai servir. Pos cada dado tem um dia mês ano que determina quando a medição aconteceu.

Exe:

cd_cliente\ Data \ bicipal \ tricipal\ etc...

 

Ai ele tem que colocar os valores de \ bicipal \ tricipal\ etc e usar o valor da Data para criar o mês seguinte. Mas se tiver muitos dados cadastrados, o gráfico ficaria enorme. Mas vou pensar na filtragem mais tarde, primeiro tenho que entender como o MSChart trabalha.

 

O tutorial tem este código. Mas não entendi para que sirva algumas linhas. Dentro do For.

reg = rs.RecordCount

graf1.chartType = 1 'barra em duas dimensões
graf1.ShowLegend = False 'não mostra legenda
graf1.Title = "Relação de Alunos por Turma" 'titulo do gráfico

graf1.ColumnCount = 1 'uma série
graf1.RowCount = reg 'número sequencia de dados
graf1.Visible = True

While Not rs.EOF()

For i = 1 To reg

graf1.Row = i	‘<-?
graf1.RowLabel = rs("SERIE") & " Série "	 ‘<-?
graf1.Data = rs("alunos")	 ‘<-?

rs.MoveNext

Next

Criei um código simples para testar o MSChart e os dados não entram no lugar certo. Então pensei o por que do For no código.

 

MSChart1.Data = Text1 ‘ Text1 com “0”

 

Mas ele coloca o valor na primeira barra, até ai tudo bem, mas! Como eu coloco o valor na segunda barra?

 

Sei que o For faz repetições. Mas não entendi o graf1.Row = i

Como o MSChart cria um gráfico? Saber como ele trabalha me ajudaria a criar o gráfico.

Pensei assim. Será que os gráficos são criados um mês de cada vez? Não tenho a mínima idéia.

Exe:

Primeiro o mês de junho com os dados de \ bicipal \ tricipal, etc. e só então vai para o segundo mês, criando uma barra de cada vez, com os valores de \ bicipal \ tricipal é assim?

 

Como ele reconhece a barra 1 com o valor de bicipal para a segunda barra tricipal e no fim como ele passa para o segundo mês?

 

Dês de já obrigado.

[scorpio 7]

Você quer colocar os calores BICIPAL e TRICIPAL em um mes, depois repetir para oturo mes que nem aqui em baixo ?

 

Row é como se fosse um grupo. Cada grupo tem seus elementos (columns)

Data o valor, quantidade.

RowLabel, titulo do grupo

[Erich VB 0]

Sim é como o gráfico que postou.

Então o MSChart cria um grupo de cada vez? É assim? Ou o meu raciocínio esta errado?

Primeiro é criado o primeiro grupo com graf1.Row = i e dentro dele é criado as barras, primeiro a azul com graf1.Data, mas como é criada a segunda vermelha dentro do primeiro grupo?

[scorpio 7]

Selecione a coluna graf.COlumn = X

 

graf.ColumnCount para definir o tamanho da coluna e dos "grupos"

[Erich VB 0]

Estou começando a entender. Obrigado scorpio.

 

Exe:

MSChart1.Row = Text1 ‘ este seleciona o mês.
MSChart1.Column = Text2 ‘este seleciona a barra que será trabalhada.
MSChart1.Data = Text3 ‘este introduz os dados na barra.

Vlw. Qualquer coisa eu posto aqui.

:)

[scorpio 7]

OK.

 

Vou colocar como resolvido. Se voltar eu mudo http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

[Erich VB 0]

Ola scorpio se puder me ajudar eu agradeço.

No gráfico que tenho em lugar de meses tenho R1, R2, R3.

Como posso colocar os meses usando código?

Agosto, Setembro, Outubro.

 

Obrigado.

[scorpio 7]

.Row = "X"

.RowLabel = "Mes X"

 

tenta assim.

[Erich VB 0]

Entendi a idéia de usar o Row para selecionar e usar o RowLabel para inserir o texto, mas aqui não deu certo.

 

Ele para aqui.

MSChart1.RowLabel = "mes"

Tbm tentei assim e noda.

MSChart1.RowLabel = ("mes")

 

MSChart1.Row = Text3
MSChart1.RowLabel = "mês"

Não consigo inserir o texto.

 

Tbm tentei alterar o RowLabel no properties do MDChart mas quando eu insiro um valor ele da esta mensagem.

Bad function argument

 

Segui os passos do tutorial.

• Agora faça Column igual a 1 e Row igual a 1 . Isto define que iremos tratar a primeira sequência de dados e a primeira série que será a receita:

• Defina RowLabel como Agosto

• Informe na propriedade ColumnLabel - Receita

• Informe na propriedade Data o valor de 40

Não tenho idéia do que possa ser.

Talvez seja uma coisa simples como habilitar algo.

[Erich VB 0]

Agora tenho certeza é algo que tem de ser ativado, mas não sei o que.

Segui o tutorial e agora consigo inserir texto com o RowLabel.

O gráfico está ficando legal.

 

Gostaria de saber se têm como colocar números encima das barras.