Ver Mensaje Individual
  #4 (permalink)  
Antiguo 01/06/2009, 17:01
paulovasquez
 
Fecha de Ingreso: junio-2009
Mensajes: 1
Antigüedad: 15 años, 9 meses
Puntos: 0
Respuesta: Tengo problemas con el componente "zedgraph"

Perdon mas que una respuesta es una pregunta yo intento hacer casi lo mismo pero con unos TexBox mi problema es el siguiente que todo me grafica normal pero solo una vez ala segunda vez no imprime. quiesiera saber como puedo hacer para imprimir varias veces en el mismo ZedGraphControl

*Con respecto a lo tuyo me parece que puedes hacerlo enlasando una ListBox ó un ComboBox con el campo de tu tabla y añadiendo Item a Item a tu listP.Add(x, y)


- este es mi codigo haber si me ayudan
CreateGraph lo utilizo en un Button desde alli lo llamo primero le doy los valores a los TextBox y despues grafico pero como les digo solo me grafica a la primera lispio mis TextBox y quiero volver a graficar y se queda el grafico anterior ni siguiera lo imprime ensima no hace nada



//////////////////////////////////////////////////////////////////////////////////////////////////////
Private Sub CreateGraph(ByVal zgc As ZedGraphControl)

zg1.Update()
Dim myPane As GraphPane = zgc.GraphPane
myPane.CurveList.Clear()
myPane.Title.Text = "Grafico Centrifugacion"
myPane.XAxis.Title.Text = "Valor Z"
myPane.YAxis.Title.Text = "Valor H2O Remov "
'Hacer algunos puntos de datos a partir de la función sinusoidal
Dim list = New PointPairList()
list.clear()
list.Add(CDbl(Me.TextBox19.Text), CDbl(Me.TextBox37.Text))
list.Add(CDbl(Me.TextBox20.Text), CDbl(Me.TextBox38.Text))
list.Add(CDbl(Me.TextBox21.Text), CDbl(Me.TextBox39.Text))
list.Add(CDbl(Me.TextBox22.Text), CDbl(Me.TextBox40.Text))
list.Add(CDbl(Me.TextBox23.Text), CDbl(Me.TextBox41.Text))
list.Add(CDbl(Me.TextBox24.Text), CDbl(Me.TextBox42.Text))
MsgBox("anadido")

Dim myCurve As LineItem = myPane.AddCurve("Mi curva", list, Color.Blue, SymbolType.Diamond)
myCurve.Line.Fill = New Fill(Color.White, Color.Red, 45.0F)
'Hacer los símbolos opacos llenándolos de blanco
myCurve.Symbol.Fill = New Fill(Color.White)
' Rellene el eje de fondo con un degradado de color
myPane.Chart.Fill = New Fill(Color.White, Color.LightGoldenrodYellow, 45.0F)
'Llene el panel de fondo con un degradado de color
myPane.Fill = New Fill(Color.White, Color.FromArgb(220, 220, 255), 45.0F)
'Calcular el eje Escala Rangos
zgc.AxisChange()
End Sub
////////////////////////////////////////////////////////////////////////////////////////////////////////

Disculpandome por la molestias que pude causar pero estoy desesperado es un trabajo que lo tengo que terminar lo mas antes posible