azilves Posted July 26, 2007 Report Share Posted July 26, 2007 Olá Amigos do Forum Fiz o download do software, instalei, já li os tópicos do fórum sobre o assunto, e copiei as dicas. Ainda restou dúvidas. Vejo no arquivo TESTGRAF.PRG, da última dica postada a função MAIN(). 1 - O INCLUDE TENHO QUE COLOCAR NO MEU PRG PRINCIPAL ? 2 - TENHO QUE TRANSPORTAR TODAS ESTAS DECLARAÇÕES PARA A MINHA MAIN() ? 3 - GOSTARIA DE UTILIZAR GRÃFICOS DE LINHA, QUAL A MODIFICAÇÃO QUE TERIA QUE FAZER NESTE PRG DA DICA ? Segue a função main() do testgraf.prg #include "RMChartX.ch" function main() local oMenu public oWnd AtlAxWinInit() Menu oMenu MenuItem '&1-Gráficos Barras' Action TestDialog( '1' ) MenuItem '&2-Gráficos Torta' Action TestDialog( '2' ) MenuItem '&X-Sair' Action oWnd:end() EndMenu DEFINE Window oWnd oWnd:SetMenu( oMenu ) oChart := CActiveX():New( oWnd, "RMChart.RMChartX" ) oWnd:oClient := oChart Activate Window oWnd return nil Obrigado desde já ! Alexandre Zilves FWH 7.4 + xHB 0.99 + vLIB + xDEV Quote Link to comment Share on other sites More sharing options...
azilves Posted July 26, 2007 Author Report Share Posted July 26, 2007 Olá Amigos do Forum Fiz o download do software, instalei, já li os tópicos do fórum sobre o assunto, e copiei as dicas. Ainda restou dúvidas. Vejo no arquivo TESTGRAF.PRG, da última dica postada a função MAIN(). 1 - O INCLUDE TENHO QUE COLOCAR NO MEU PRG PRINCIPAL ? 2 - TENHO QUE TRANSPORTAR TODAS ESTAS DECLARAÇÕES PARA A MINHA MAIN() ? 3 - GOSTARIA DE UTILIZAR GRÃFICOS DE LINHA, QUAL A MODIFICAÇÃO QUE TERIA QUE FAZER NESTE PRG DA DICA ? Segue a função main() do testgraf.prg #include "RMChartX.ch" function main() local oMenu public oWnd AtlAxWinInit() Menu oMenu MenuItem '&1-Gráficos Barras' Action TestDialog( '1' ) MenuItem '&2-Gráficos Torta' Action TestDialog( '2' ) MenuItem '&X-Sair' Action oWnd:end() EndMenu DEFINE Window oWnd oWnd:SetMenu( oMenu ) oChart := CActiveX():New( oWnd, "RMChart.RMChartX" ) oWnd:oClient := oChart Activate Window oWnd return nil Obrigado desde já ! Alexandre Zilves FWH 7.4 + xHB 0.99 + vLIB + xDEV Quote Link to comment Share on other sites More sharing options...
azilves Posted July 26, 2007 Author Report Share Posted July 26, 2007 Por Favor, alguém pode me ajudar ? Quote Link to comment Share on other sites More sharing options...
evandro Posted July 26, 2007 Report Share Posted July 26, 2007 Olá, citação:1 - O INCLUDE TENHO QUE COLOCAR NO MEU PRG PRINCIPAL ? id=quote>id=quote>Não. Só no prg que chamar as funções do RmChart. citação:2 - TENHO QUE TRANSPORTAR TODAS ESTAS DECLARAÇÕES PARA A MINHA MAIN() ? id=quote>id=quote>Também só no prg das funções dos gráficos. citação:3 - GOSTARIA DE UTILIZAR GRÃFICOS DE LINHA, QUAL A MODIFICAÇÃO QUE TERIA QUE FAZER NESTE PRG DA DICA ? id=quote>id=quote>O RmChart tem um help. Além disto tem alguns exemplos. Em VB, mas o pricÃpio é o mesmo. É fácil localizar. []s, Evandro G. de Paula Curvelo - MG evandro@skillnet.com.br (Escr. - na Cidade) imortal@skillnet.com.br (Res. - na Roça) FWH 2.6+PellesC+MyMake+xHarbour.org 0.99.5+SqlLib V ENCONTRO FIVEWIN - NOVEMBRO/2007 - EU VOU "TRAVÊIS" Quote Link to comment Share on other sites More sharing options...
azilves Posted July 27, 2007 Author Report Share Posted July 27, 2007 Evandro, se me permite, só mais uma dúvida. Eu vou colocar todas as chamadas no meu prg que irá executar o gráfico, quanto a isso tudo bem, mas e quanto essa linha ? oWnd:oClient := oChart Como eu não vou usar no meu prg inicial, tb não vou ter um WND e sim um DLG, eu posso alterar essa linha para: oDlg:oClient := oChart Ficaria correto ? Obrigado desde já pela ajuda Alexandre Zilves Quote Link to comment Share on other sites More sharing options...
evandro Posted July 27, 2007 Report Share Posted July 27, 2007 Olá, Esta utilização é para o gráfico feito pelo Designer. Como eu não uso este tipo, não tenho condições de te responder. Mas a forma mais fácil de obter a resposta é testando. Você será o primeiro a saber a resposta. []s, Evandro G. de Paula Curvelo - MG evandro@skillnet.com.br (Escr. - na Cidade) imortal@skillnet.com.br (Res. - na Roça) FWH 2.6+PellesC+MyMake+xHarbour.org 0.99.5+SqlLib V ENCONTRO FIVEWIN - NOVEMBRO/2007 - EU VOU "TRAVÊIS" Quote Link to comment Share on other sites More sharing options...
azilves Posted July 28, 2007 Author Report Share Posted July 28, 2007 Salve Evandro, Ok, eu também não gostaria de utilizar este meio. Eu sempre prefiro a opção onde temos o total controle. Eu fiz um gráfico pelo designer e gerei o fonte mas não consigo converter para o fwh. Gostari de um exemplo de um prg que gera gráfico na munheca, via addregion(), etc... Se pro um acaso vc tiver algum exemplo que possa me enviar, ficomuito gráfico. Obrigado dese já pela ajuda, Alexandre Zilves azilves@hotmail.com Quote Link to comment Share on other sites More sharing options...
evandro Posted July 29, 2007 Report Share Posted July 29, 2007 Olá, citação:Gostaria de um exemplo de um prg que gera gráfico na munheca, via addregion(), etc...Se por um acaso vc tiver algum exemplo que possa me enviar... id=quote>id=quote>Veja este exemplo em "Dicas". É via addregion(). http://www.fivewin.com.br/exibedicas.asp?id=751 citação:fico muito gráfico. id=quote>id=quote>Hehehe. Boa! []s, Evandro G. de Paula Curvelo - MG evandro@skillnet.com.br (Escr. - na Cidade) imortal@skillnet.com.br (Res. - na Roça) FWH 2.6+PellesC+MyMake+xHarbour.org 0.99.5+SqlLib V ENCONTRO FIVEWIN - NOVEMBRO/2007 - EU VOU "TRAVÊIS" Quote Link to comment Share on other sites More sharing options...
azilves Posted July 29, 2007 Author Report Share Posted July 29, 2007 Salve Evandro, Acho que estamos falando da mesma coisa, essas declarações que te mandei são exatamente deste exemplo, isso q não entendi. estou usando exatamente esse exemplo que vc me indicou para os meus testes, e as declarações que vc me disse que seriam para gráficos feitos no rmdesigner estão neste exemplo. Estou confuso. Me diga uma coisa então que eu studo e descubro o resto. Onde neste exemplo está a definição do tipo do gráfico ? se eu quisese alterar o tipo de gráfico de barras para o de lina qual seria a mudança ? estou com esse exemplo aqui impresso e estudando linha por linha e não descubr isso. Só esta ajuda já basta. Muito obrigado pela ajuda Alexandre Zilves Quote Link to comment Share on other sites More sharing options...
evandro Posted July 30, 2007 Report Share Posted July 30, 2007 Olá, Não sei todas as mudanças seriam necessárias para melhor apresentação do gráfico de linhas, mas o principal seria nestas linhas: WITH OBJECT :BarSeries(x) :SeriesType:=RMC_BARGROUP Tem alguns exemplos em VB e o help também dá alguma luz. []s, Evandro G. de Paula Curvelo - MG evandro@skillnet.com.br (Escr. - na Cidade) imortal@skillnet.com.br (Res. - na Roça) FWH 2.6+PellesC+MyMake+xHarbour.org 0.99.5+SqlLib V ENCONTRO FIVEWIN - NOVEMBRO/2007 - EU VOU "TRAVÊIS" Quote Link to comment Share on other sites More sharing options...
azilves Posted July 31, 2007 Author Report Share Posted July 31, 2007 Salve Evandro, Já consegui fazer funcionar tudo, inclusive acrescentando o gráfico de linhas também. Para você fazer a mudança do gráfico de barras para o de linhas você precisa trocar esse bloco do prg: for x=1 to len( aDados ) :AddBarSeries() WITH OBJECT :BarSeries(x) :SeriesType := RMC_BARGROUP :SeriesStyle := RMC_COLUMN_FLAT :Lucent := .f. :Horizontal := .f. :WhichDataAxis := 1 :ValueLabelOn := .f. :PointsPerColumn := len( aDados ) :HatchMode := RMC_HATCHBRUSH_ON :DataString := acDadosGraf[x] END next Por este bloco aqui: for x=1 to len( aDados ) :AddLineSeries() WITH OBJECT :LineSeries(x) :SeriesType := RMC_LINE :SeriesStyle := RMC_LINE_CABLE_SHADOW :Lucent := .f. :ValueLabelOn := .f. :HatchMode := RMC_HATCHBRUSH_OFF :DataString := acDadosGraf[x] END next Assim você consegue transformar o gráfico de barras em linhas. Espero ter ajudado e retribuÃdo uma pequena parte da sua ajuda. Grande Abraço Alexandre Zilves Quote Link to comment Share on other sites More sharing options...
azilves Posted July 31, 2007 Author Report Share Posted July 31, 2007 Pessoal, Postei em dicas o prg e as imagens dos gráficos gerados por ele. Façam bom proveito. Quote Link to comment Share on other sites More sharing options...
kapiaba Posted April 19 Report Share Posted April 19 (edited) Galera, alguém tem um exemplo completo em XHARBOUR para me disponibilizar, pls? tks. Regards, saludos. Edited April 19 by kapiaba Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.