Clipper On Line • Ver Tópico - RMChart

RMChart

Projeto Harbour - Compilador de código aberto compatível com o Clipper.

Moderador: Moderadores

 

RMChart

Mensagempor asimoes » 30 Abr 2016 19:44

Pessoal,

Estou precisando do usar o RmChart onde posso baixar o instalador?
â–ºHarbour 3.x | Minigui xx-x | HwGuiâ—„
Pense nas possibilidades abstraia as dificuldades.
Não corrigir nossas falhas é o mesmo que cometer novos erros.
A imaginação é mais importante que o conhecimento. (Albert Einstein)
Avatar de usuário

asimoes
Colaborador

Colaborador
 
Mensagens: 4919
Data de registro: 26 Abr 2007 16:48
Cidade/Estado: RIO DE JANEIRO-RJ
Curtiu: 341 vezes
Mens.Curtidas: 258 vezes

RMChart

Mensagempor asimoes » 01 Mai 2016 11:19

Outra coisa, o ocx funciona no windows 7 e 8.1 ?
Eu queria fazer testes com o activex
â–ºHarbour 3.x | Minigui xx-x | HwGuiâ—„
Pense nas possibilidades abstraia as dificuldades.
Não corrigir nossas falhas é o mesmo que cometer novos erros.
A imaginação é mais importante que o conhecimento. (Albert Einstein)
Avatar de usuário

asimoes
Colaborador

Colaborador
 
Mensagens: 4919
Data de registro: 26 Abr 2007 16:48
Cidade/Estado: RIO DE JANEIRO-RJ
Curtiu: 341 vezes
Mens.Curtidas: 258 vezes

RMChart

Mensagempor JoséQuintas » 01 Mai 2016 20:20

Se for gráfico de barras, este post tem um que até ficou com visual legal.

http://www.pctoledo.com.br/forum/viewtopic.php?f=4&t=15247

Também dá pra fazer com pushbutton, progressbar, ou até janelas Windows... rs

Ao mesmo tempo que daria pra fazer um controle fácil pra isso, precisaria conhecimentos em C.

Parece até brincadeira falar isso, mas o pior é que isso é serio.
Já vimos que dá pra criar janelas fácil no Windows.
Também dá pra desenhar fácil, até dá pra se ver isso nas funções da WVT.
Juntando tudo, faz-se qualquer coisa.

Gráfico de pizza, já não faço idéia, porque envolve outros cálculos.
José M. C. Quintas
Harbour 3.2, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"

https://github.com/JoseQuintas/
Avatar de usuário

JoséQuintas
Membro Master

Membro Master
 
Mensagens: 18014
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 15 vezes
Mens.Curtidas: 1206 vezes

RMChart

Mensagempor asimoes » 01 Mai 2016 20:46

Quintas,

O exemplo é legal pode ser usado, agora o exemplo tá com
REQUEST HB_CODEPAGE_UTF8EX e
HB_CDPSELECT( "UTF8EX" )

Você tentou converter para PTISO OU PT850 ?
â–ºHarbour 3.x | Minigui xx-x | HwGuiâ—„
Pense nas possibilidades abstraia as dificuldades.
Não corrigir nossas falhas é o mesmo que cometer novos erros.
A imaginação é mais importante que o conhecimento. (Albert Einstein)
Avatar de usuário

asimoes
Colaborador

Colaborador
 
Mensagens: 4919
Data de registro: 26 Abr 2007 16:48
Cidade/Estado: RIO DE JANEIRO-RJ
Curtiu: 341 vezes
Mens.Curtidas: 258 vezes

RMChart

Mensagempor JoséQuintas » 01 Mai 2016 22:46

Eu apenas vi o post.
Tenho rotina de gráfico, mas não me preocupei em mexer, ainda usa a letra "O", só pra dar uma idéia.... rs
Fiz num controle meu, que só eu uso. (não confundir com controle Windows, neste caso controle=rotina).
Quando for mexer, vou pensar em usar alguma coisa.
José M. C. Quintas
Harbour 3.2, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"

https://github.com/JoseQuintas/
Avatar de usuário

JoséQuintas
Membro Master

Membro Master
 
Mensagens: 18014
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 15 vezes
Mens.Curtidas: 1206 vezes

RMChart

Mensagempor JoséQuintas » 01 Mai 2016 23:25

Um teste rápido, como rascunho inicial:

PROCEDURE Modulo2

   LOCAL nCont, oControl

   SetMode( 25, 80 )
   SetColor("W/B")
   CLS

   FOR nCont = 1 TO 10
      oControl := TstRetangle():New()
      oControl:Create( , , { -nCont, -nCont * 5 }, { -23 + nCont, -3 } )
      oControl:SetColorFG( WIN_RGB( nCont * 10, nCont * 10, nCont * 10 ) )
      oControl:SetColorBG( WIN_RGB( nCont * 10, nCont * 10, nCont * 10 ) )
   NEXT
   Inkey(0)


barras.png


Vale a pena brincar com API do Windows.
Começa por deixar 65 milhões de cores disponíveis.
José M. C. Quintas
Harbour 3.2, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"

https://github.com/JoseQuintas/
Avatar de usuário

JoséQuintas
Membro Master

Membro Master
 
Mensagens: 18014
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 15 vezes
Mens.Curtidas: 1206 vezes

RMChart

Mensagempor JoséQuintas » 01 Mai 2016 23:40

Um segundo teste, não tão rápido, pegando as cores do outro post.

PROCEDURE Modulo2

   LOCAL nCont, oControl, nNumCor := 1, aCores := { { 204, 0, 0 }, { 196, 160, 0 }, { 78, 154, 6 }, { 211, 215, 207 }, { 52, 101, 164 }, { 117, 80, 123 } }

   SetMode( 25, 80 )
   SetColor("W/B")
   CLS

   FOR nCont = 1 TO 10
      oControl := TstRetangle():New()
      oControl:Create( , , { -nCont, -nCont * 5 }, { -23 + nCont, -3 } )
      oControl:SendMessage( HB_GTE_CTLCOLOR, 0, 0, 0 )
      oControl:SetColorFG( WIN_RGB( aCores[  nNumCor, 1 ], aCores[ nNumCor, 2 ], aCores[ nNumCor, 3 ] ) )
      oControl:SetColorBG( WIN_RGB( aCores[  nNumCor, 1 ], aCores[ nNumCor, 2 ], aCores[ nNumCor, 3 ] ) )
      nNumCor += 1
      IF nNumCor > Len( aCores )
         nNumCor := 1
      ENDIF
   NEXT
   Inkey(0)


barras2.png


Parece brincadeira, mas acabei de criar esse controle tstRetangle pra este teste.

CREATE CLASS TstRetangle INHERIT TstAny
   VAR ClassName INIT "STATIC"
   VAR Style     INIT WIN_WS_CHILD + WIN_WS_GROUP
   ENDCLASS
José M. C. Quintas
Harbour 3.2, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"

https://github.com/JoseQuintas/
Avatar de usuário

JoséQuintas
Membro Master

Membro Master
 
Mensagens: 18014
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 15 vezes
Mens.Curtidas: 1206 vezes

RMChart

Mensagempor JoséQuintas » 01 Mai 2016 23:56

Por último, sem cara do DOS, nem sei se sairam as 500 colunas.

PROCEDURE Modulo2

   LOCAL nCont, oControl, nNumCor := 1, aCores := { { 204, 0, 0 }, { 196, 160, 0 }, { 78, 154, 6 }, { 211, 215, 207 }, { 52, 101, 164 }, { 117, 80, 123 } }

   SetMode( 25, 80 )
   SetColor("W/B")
   CLS

   FOR nCont = 1 TO 500
      oControl := TstRetangle():New()
      oControl:Create( , , { -nCont/20, nCont * 5 }, { -23+(nCont/20), 4 } )
      oControl:SendMessage( HB_GTE_CTLCOLOR, 0, 0, 0 )
      oControl:SetColorFG( WIN_RGB( aCores[  nNumCor, 1 ], aCores[ nNumCor, 2 ], aCores[ nNumCor, 3 ] ) )
      oControl:SetColorBG( WIN_RGB( aCores[  nNumCor, 1 ], aCores[ nNumCor, 2 ], aCores[ nNumCor, 3 ] ) )
      nNumCor += 1
      IF nNumCor > Len( aCores )
         nNumCor := 1
      ENDIF
   NEXT
   Inkey(0)


barras3.png
José M. C. Quintas
Harbour 3.2, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"

https://github.com/JoseQuintas/
Avatar de usuário

JoséQuintas
Membro Master

Membro Master
 
Mensagens: 18014
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 15 vezes
Mens.Curtidas: 1206 vezes

RMChart

Mensagempor JoséQuintas » 02 Mai 2016 00:00

E errando os cálculos.

erro.png


Como eu disse, abre muitas possibilidades, mesmo sendo usado para o que não deveria... rs
José M. C. Quintas
Harbour 3.2, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"

https://github.com/JoseQuintas/
Avatar de usuário

JoséQuintas
Membro Master

Membro Master
 
Mensagens: 18014
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 15 vezes
Mens.Curtidas: 1206 vezes

RMChart

Mensagempor asimoes » 02 Mai 2016 18:00

RMChart activex só funciona com a Minigui, com a hwgui somente usando a dll rmchart.dll
â–ºHarbour 3.x | Minigui xx-x | HwGuiâ—„
Pense nas possibilidades abstraia as dificuldades.
Não corrigir nossas falhas é o mesmo que cometer novos erros.
A imaginação é mais importante que o conhecimento. (Albert Einstein)
Avatar de usuário

asimoes
Colaborador

Colaborador
 
Mensagens: 4919
Data de registro: 26 Abr 2007 16:48
Cidade/Estado: RIO DE JANEIRO-RJ
Curtiu: 341 vezes
Mens.Curtidas: 258 vezes

RMChart

Mensagempor JoséQuintas » 02 Mai 2016 18:19

Dá uma olhada melhor.
Se rmchart usa uma janela Windows, deveria funcionar em qualquer janela, até na gtwvg.
Mas no tópico da minigui menciona a DLL, e não a OCX.
José M. C. Quintas
Harbour 3.2, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"

https://github.com/JoseQuintas/
Avatar de usuário

JoséQuintas
Membro Master

Membro Master
 
Mensagens: 18014
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 15 vezes
Mens.Curtidas: 1206 vezes

RMChart

Mensagempor asimoes » 02 Mai 2016 19:27

Quintas,

Com gtwvg não testei, mas deve funcionar. O problema é com a hwgui

Estou desde ontem tentando, tentando.... e nada.

Eu baixei até a versão 2.19 mas não consegui êxito.
â–ºHarbour 3.x | Minigui xx-x | HwGuiâ—„
Pense nas possibilidades abstraia as dificuldades.
Não corrigir nossas falhas é o mesmo que cometer novos erros.
A imaginação é mais importante que o conhecimento. (Albert Einstein)
Avatar de usuário

asimoes
Colaborador

Colaborador
 
Mensagens: 4919
Data de registro: 26 Abr 2007 16:48
Cidade/Estado: RIO DE JANEIRO-RJ
Curtiu: 341 vezes
Mens.Curtidas: 258 vezes

RMChart

Mensagempor JoséQuintas » 02 Mai 2016 20:38

Comparando com os rolos que tive com aquilo de criar controles na gtwvg:

- Qualquer parâmetro que não esteja no formato necessário causa falha
- A definição do estilo da janela ( Style) também pode causar problema

Crie na minigui, e tente detectar os parâmetros usados.
Depois confirme como está na hwgui.
José M. C. Quintas
Harbour 3.2, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"

https://github.com/JoseQuintas/
Avatar de usuário

JoséQuintas
Membro Master

Membro Master
 
Mensagens: 18014
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 15 vezes
Mens.Curtidas: 1206 vezes

RMChart

Mensagempor JoséQuintas » 04 Mai 2016 18:05

Tem o mschart, mas só encontrei como usar através da IDE do VC++ ou VB.
E vai ser difícil alguém que esteja usando no Harbour.

http://www.codeproject.com/Articles/4343/Using-the-MS-Chart-control-in-VC

mschart.png
mschart.png (9.92 KiB) Visualizado 6903 vezes
José M. C. Quintas
Harbour 3.2, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"

https://github.com/JoseQuintas/
Avatar de usuário

JoséQuintas
Membro Master

Membro Master
 
Mensagens: 18014
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 15 vezes
Mens.Curtidas: 1206 vezes

RMChart

Mensagempor asimoes » 04 Mai 2016 18:40

O problema do mschart é que ele é pago $$$
â–ºHarbour 3.x | Minigui xx-x | HwGuiâ—„
Pense nas possibilidades abstraia as dificuldades.
Não corrigir nossas falhas é o mesmo que cometer novos erros.
A imaginação é mais importante que o conhecimento. (Albert Einstein)
Avatar de usuário

asimoes
Colaborador

Colaborador
 
Mensagens: 4919
Data de registro: 26 Abr 2007 16:48
Cidade/Estado: RIO DE JANEIRO-RJ
Curtiu: 341 vezes
Mens.Curtidas: 258 vezes

Próximo



Retornar para Harbour

Quem está online

Usuários vendo este fórum: Google [Bot] e 3 visitantes


Ola Amigo, espero que meu site e forum tem lhe beneficiado, com exemplos e dicas de programacao.
Entao divulgue o link da Doacao abaixo para seus amigos e redes sociais ou faça uma doacao para o site forum...
MUITO OBRIGADO PELA SUA DOACAO!
Faça uma doação para o forum
cron
v
Olá visitante, seja bem-vindo ao Fórum Clipper On Line!
Efetue o seu login ou faça o seu Registro