GRAFICO
Senhores,
Tenho um Form com 3 text cada um com um valor. Exemplo:
Text1.text tem em seu conteudo o valor 35
Text2.text tem em seu conteudo o valor 65
Text3.text tem em seu conteudo soma dos texts (text1 + text2) = 100
Onde 35 representa 35% do somatório
E 65 representa 65% do somatório
Só que eu queria mostrar isso em forma gráfica. Eu teria dois gráficos na horizontal mostrando cada representação.
+----------+--------------------------+
| | |
+----------+--------------------------+
35%
+------------------------+------------+
| | |
+------------------------+------------+
65%
Vejam que no 1o. gráfico tem uma linha que preenhe até um certo ponto (35). Esse preenchimento seria por cor. neste caso preencheria de vermelho até a linha onde está o 35.
Já no segundo gráfico preencheria uma cor azul até a linha onde fica o 65.
Alguém tem algo assim?
Tenho um Form com 3 text cada um com um valor. Exemplo:
Text1.text tem em seu conteudo o valor 35
Text2.text tem em seu conteudo o valor 65
Text3.text tem em seu conteudo soma dos texts (text1 + text2) = 100
Onde 35 representa 35% do somatório
E 65 representa 65% do somatório
Só que eu queria mostrar isso em forma gráfica. Eu teria dois gráficos na horizontal mostrando cada representação.
+----------+--------------------------+
| | |
+----------+--------------------------+
35%
+------------------------+------------+
| | |
+------------------------+------------+
65%
Vejam que no 1o. gráfico tem uma linha que preenhe até um certo ponto (35). Esse preenchimento seria por cor. neste caso preencheria de vermelho até a linha onde está o 35.
Já no segundo gráfico preencheria uma cor azul até a linha onde fica o 65.
Alguém tem algo assim?
Cara, existem várias maneiras, uma é vc usar um componente de gráfico, como o TeeChart5, outra é vc usar PictureBoxes (já que quer algo simples), sendo que a Pic1 é a vermelha e a Pic2 é azul, alinhe-as no canto do form, com o mesmo tamanho e nas cores que quer, e use o código:
Mas ainda recomendo que user um componente para gráfico, que fica mais profissional...
Qualquer dúvida poste...flw
Dim TamanhoFinal As Double
TamanhoFinal = Me.Width 'Coloque aqui o maior tamanho que pode receber (100%)
Pic1.Width = (TamanhoFinal * CDbl(Text1.Text)) / 100
Pic2.Width = (TamanhoFinal * CDbl(Text2.Text)) / 100Mas ainda recomendo que user um componente para gráfico, que fica mais profissional...
Qualquer dúvida poste...flw
Valeu, bem simples, atendeu, muito obrigado
Tópico encerrado , respostas não são mais permitidas