Pequeña pregunta acerca TGraph

Post Reply
User avatar
Raymundo Islas M.
Posts: 590
Joined: Tue Mar 14, 2006 11:34 pm
Location: Acapulco, Gro. MEXICO

Pequeña pregunta acerca TGraph

Post by Raymundo Islas M. »

Hola a todos

Estoy probando la clase TGraph de Arteaga, y todo va bien, el unico detalle que no puedo resolver, es como le hago para inicializar el arreglo de las series ??, ya le anduve buscando y nop :cry: no le encuentro.

Me explico, cuando defino la grafica le aplico una serie en cero, al procesar X funcio, y deseo actualizar la grafica, me aparece el valor de cero mas los nuevos valores, y si lo vuelvo a procesar, pues se van acumulando.


- Aqui esta en cero
Image

- Aqui con un proceso
Image

y aqui si sigo repitiendo el proceso
Image

El unico detalle es como inicializar los valores contenidos anteriormente, osease, vaciar la serie y volver a llenarla.

Muchas Gracias y Saludos
FWH 10.6 + xHarbour + Borland 582
User avatar
Raymundo Islas M.
Posts: 590
Joined: Tue Mar 14, 2006 11:34 pm
Location: Acapulco, Gro. MEXICO

Post by Raymundo Islas M. »

Corregido !!

oGraph:aData := {}
oGraph:aSeries := {}

y Listo !!!!


Saludos
FWH 10.6 + xHarbour + Borland 582
User avatar
thefull
Posts: 720
Joined: Fri Oct 07, 2005 7:42 am
Location: Barcelona
Contact:

Post by thefull »

Raymundo Islas M. wrote:Corregido !!

oGraph:aData := {}
oGraph:aSeries := {}

y Listo !!!!


Saludos
Bueno, segun que grafica este intentado poner, te va a cascar.
Mi consejo es que metas un method :

METHOD DelSerie( nSerie ) CLASS TGraph

ADEL( ::aSeries, nSerie )
ASIZE( ::aSeries, ( Len( ::aSeries ) - 1) )

ADEL( ::aData, nSerie )
ASIZE( ::aData, ( Len( ::aData ) - 1) )

ADEL( ::aSTemp, nSerie )
ASIZE( ::aSTemp, ( Len( ::aSTemp ) - 1) )

ADEL( ::aDTemp, nSerie )
ASIZE( ::aDTemp, ( Len( ::aDTemp ) - 1) )

ADEL( ::aYVals, nSerie )
ASIZE( ::aYVals, ( Len( ::aYVals ) - 1) )

ADEL( ::aYTemp, nSerie )
ASIZE( ::aYTemp, ( Len( ::aYTemp ) - 1) )

RETURN Len( ::aSeries )

De esta manera, puedes cargarte una serie sin afectar a las demas.
oGraph:DelSerie( 1 )
// Y añado otra.
oGraph:AddSerie( aSerie )

Lo que estoy viendo es que las leyendas las recorta y no sale correctamente , cuando es mayor de 7 caracteres.

Es que recien estoy luchando con esta ;-), y por eso te cuento, ejejej
Saludos
Rafa Carmona ( rafa.thefullARROBAgmail.com___quitalineas__)
Post Reply