AJUDA COM CHART

KURTGU 29/07/2016 14:23:02
#465273
Pessoal tenho a seguinte tela...Abaixo



Preciso gerar o grafico usando o chart do visual studio mais nao estou conseguindo alguem sabe me dizer como posso pegar os dados do listview e gerar esses graficos em tipo linha....
KURTGU 29/07/2016 16:01:03
#465284
up...
NICKOSOFT 29/07/2016 22:45:06
#465296
formando array para as series
http://www.portugal-a-programar.pt/topic/37884-colocar-dados-de-uma-listview-num-chart-control/
KURTGU 29/07/2016 23:23:57
#465303
Citação:

:
formando array para as series
http://www.portugal-a-programar.pt/topic/37884-colocar-dados-de-uma-listview-num-chart-control/



Ja tinha tentado isso mais me retorna um erro na hora do preenchimento...
KURTGU 30/07/2016 20:58:06
#465322
UP....
KURTGU 31/07/2016 20:58:27
#465343
Citação:

:
formando array para as series
http://www.portugal-a-programar.pt/topic/37884-colocar-dados-de-uma-listview-num-chart-control/



Tentei dessa forma...


For i = 0 To ListView1.Items.Count - 1
Dim yValues() As Double = ListView1.Items(i).SubItems(1).Text
Dim xNames() As String = ListView1.Items(i).Text
With Chart1
.Series(0).ChartType = DataVisualization.Charting.SeriesChartType.Line
.Titles.Add([Ô]Título[Ô])
.Legends.Add([Ô]Default[Ô]).Title = [Ô]Legenda[Ô]
.ChartAreas(0).Area3DStyle.Enable3D = False
.ChartAreas(0).Area3DStyle.Inclination = 60
.ChartAreas(0).Area3DStyle.Rotation = 30
.ChartAreas(0).Area3DStyle.Perspective = 10
.Series(0).Points.DataBindXY(xNames, yValues)
End With
Next
ACCIOLLY 01/08/2016 08:17:26
#465354
Bom dia Kurtgu
To com um projeto que também tem que gerar gráfico. Mas eles devem ser imprimidos. Esse chart dá pra imprimir? Bom em todo caso a Google disponibiliza um Chart também. Provavelmente será possível visualizar no componente webbrowser e consequentemente imprimir o mesmo.
XLEGENDARY 01/08/2016 11:59:46
#465364
MESTRE 01/08/2016 14:24:41
#465369
Eu gero grafico direto dos dados do meu DataTable, acho mais fácil..

      Try
            objConexao.Open()
 
           sql = [Ô]SELECT CAST(replace(vvc,[ô],[ô],[ô].[ô]) AS decimal(15,7)) as vvc, CAST(replace(vmi,[ô],[ô],[ô].[ô]) AS decimal(15,7)) as vmi From cad_crit WHERE cod_instr = [ô][Ô] & FrmQualidadeInstrumentos.Codigo & [Ô][ô][Ô]

            Dim adp As New MySqlClient.MySqlDataAdapter(sql, objConexao)
            Dim Dt = New DataTable([Ô]cad_crit[Ô])
            adp.Fill(Dt)

            Chart1.Series([Ô]Series1[Ô]).XValueMember = [Ô]vvc[Ô]
            Chart1.Series([Ô]Series1[Ô]).YValueMembers = [Ô]vmi[Ô]
     
            Chart1.Series([Ô]Series2[Ô]).XValueMember = [Ô]vvc[Ô]
            Chart1.Series([Ô]Series2[Ô]).YValueMembers = [Ô]vvc[Ô]
      
            Chart1.Series([Ô]Series1[Ô]).IsValueShownAsLabel = True
            Chart1.Series([Ô]Series2[Ô]).IsValueShownAsLabel = True

             
            Chart1.DataSource = Dt
            Chart1.DataBind()


        Catch ex As Exception
            MsgBox(ex.ToString)
        Finally
            objConexao.Close()
        End Try
KURTGU 01/08/2016 14:26:40
#465370
Citação:

:
Eu gero grafico direto dos dados do meu DataTable, acho mais fácil..

      Try
            objConexao.Open()
 
           sql = [Ô]SELECT CAST(replace(vvc,[ô],[ô],[ô].[ô]) AS decimal(15,7)) as vvc, CAST(replace(vmi,[ô],[ô],[ô].[ô]) AS decimal(15,7)) as vmi From cad_crit WHERE cod_instr = [ô][Ô] & FrmQualidadeInstrumentos.Codigo & [Ô][ô][Ô]

            Dim adp As New MySqlClient.MySqlDataAdapter(sql, objConexao)
            Dim Dt = New DataTable([Ô]cad_crit[Ô])
            adp.Fill(Dt)

            Chart1.Series([Ô]Series1[Ô]).XValueMember = [Ô]vvc[Ô]
            Chart1.Series([Ô]Series1[Ô]).YValueMembers = [Ô]vmi[Ô]
     
            Chart1.Series([Ô]Series2[Ô]).XValueMember = [Ô]vvc[Ô]
            Chart1.Series([Ô]Series2[Ô]).YValueMembers = [Ô]vvc[Ô]
      
            Chart1.Series([Ô]Series1[Ô]).IsValueShownAsLabel = True
            Chart1.Series([Ô]Series2[Ô]).IsValueShownAsLabel = True

             
            Chart1.DataSource = Dt
            Chart1.DataBind()


        Catch ex As Exception
            MsgBox(ex.ToString)
        Finally
            objConexao.Close()
        End Try



Estou buscando os dados e listando no listview de um webservice...
MESTRE 01/08/2016 14:58:01
#465371
Citação:

:
:
Eu gero grafico direto dos dados do meu DataTable, acho mais fácil..

[c]
Estou buscando os dados e listando no listview de um webservice...


Manda ai o codigo do listbox.. eu particularmente não gosto de listbox..
Página 1 de 3 [26 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar