grafico

possivel fazer graficos no xojo?

Sim, com certeza.

Mas no existe um componente nativo. Voc precisa criar o seu prprio, ou ento, usar algum pronto, feito por terceiros. Eu utilizo este: http://www.jeremieleroy.com/products/chartview.php

excelente, e de fcil implementao.

Obrigada pela resposta.
Fiz o download do componente, e consegui abri-lo como exemplo no XOJO.
Existe algum comando que eu possa deix-lo fixo com um plugin, para que no cdigo eu possa utilizar o comando ChartView.Open ( ) e a partir dali configurar os dados que sero utilizados e modos de grficos que sero mostrados?

Ol Rbia,

No sei se entendi bem, mas se entendi, a resposta no. Se voc fala em usar como um plugin, ele estaria sempre disponvel em qualquer projeto, correto ? Seria apenas usar o comando diretamente…

Este componente composto de vrias classes, e portanto, voc precisa “arrastar” o mesmo para o projeto que deseja usar.

certo. eu arrastei o grafico que vou usar
mas como eu uso este grafico com as informaes de um listbox
e como seleciono as colunas que irei usar

Ol Rubia,

No pedao de cdigo abaixo, est a gerao de um grfico de barras ou colunas. Eu estou trazendo dados de uma tabela de um banco de dados MySql, e preenchendo uma listBox de duas colunas.

Eu uso praticamente toda a tela para o grfico, e logo abaixo dele, coloco uma listBox que vai receber os dados. Porm, deixo ela com uma altura mnima, apenas para que eu possa localiza-la no ambiente de desenvolvimento, e seto a propriedade “visible” para “off”, para que o usurio no veja a mesma na tela.

Aps preencher a lista com os dados que me interessam, que neste caso so a quantidade de horas e motivos de paradas de um ambiente de produo, eu gero o grfico com o seguinte cdigo:

  If lstDados.ListCount > 0 then
    
    If Chk_BarChart.Value then
      ChartView1.Type = ChartView.TypeBar
      
    else
      ChartView1.Type = ChartView.TypeColumn
      
    End If
    
    ChartView1.AnimationTime = 1600
    ChartView1.StartAnimation(True)
    
    //ChartView1.Type = ChartView.TypeColumn
    
    ChartView1.Freeze = True
    ChartView1.LoadFromListbox(lstDados, false, true)
    
    ChartView1.Axes(1).Title = "Qtd. Horas"
    ChartView1.Axes(0).Title = "Motivos"
    ChartView1.Axes(1).MajorGridLine = new ChartLine()
    ChartView1.Axes(1).MajorGridLine.FillColor = &cEAEAEA
    
    ChartView1.setTransparency(10)
    
    ChartView1.LegendPosition = ChartView.Position.Right
    
    ChartView1.Axes(1).MajorUnit = 1
    
    ChartView1.setDataLabel("", 12, &c0, False, &c0, "#0.00\\ \\Hs")
    ChartView1.DataLabel.Position = 5
    
    corAcaso = r.InRange(0, 5)
    
    ChartView1.Series(0).Title = myRecurso.nome
    
    ChartView1.setDefaultColors = corAcaso
    
    ChartView1.Freeze = False
    ChartView1.StartAnimation(True, ChartAnimate.kEaseOutBounce)
    
  else
    ChartView1.Redisplay
    MsgBox("Sem lanamentos para o perodo")
    return
    
  end if
  

A parte que efetivamente gera o grfico esta:

ChartView1.LoadFromListbox(lstDados, false, true)

adelar vc tem email?

Eu queria mandar uma parte do meu programa para mostrar o que nao estou conseguindo

Rúbia, eu enviei meu endereço de email pra você em uma mensagem privada. Você deve ter recebido a notificação.

Senão, procure no fórum, mais abaixo na lista, existe uma mensagem minha com o assunto “Contato”. Só você pode ver ela.

muito obrigada Adelar