Problemita con TGraph ya somos dos con problemitas :P Help!!

Post Reply
User avatar
AIDA
Posts: 782
Joined: Fri Jan 12, 2007 8:35 pm

Problemita con TGraph ya somos dos con problemitas :P Help!!

Post by AIDA »

Hola

Tengo un problemita con TGraph baje la actualización que publico amablemente el señor Alfredo Arteaga
http://fivetechsoft.com/forums/viewtopic.php?t=10374

Donde explica que ya se puede usar fondos de colores degradados, pues se compila y enlaza muy bien pero cuando se ejecuta mi programita si sale el fondo degradado :D pero después de eso sale un error :shock: que les pongo aquí abajo y con un pedazo de mi programa donde uso el Tgraph que son una poquitas líneas espero me den una ayudadita

---------------------- Mi codigo --------------------
A9 :=10
A14 :=20
A16 :=30
A20 :=40
AMBU21 :=0
A24 :=60
A25 :=70
A26 :=80

dbselectarea("BITACORA")

COUNT TO AMBU21 FOR BITACORA->UNIDAD ="A-21"




@00,24.61 GRAPH oGraph OF oWnd ;
SIZE 1085, 335 TYPE 1;
YVALUES 3D XGRID YGRID LEGENDS



oGraph:aSeries = { { "A-09", CLR_CYAN },;
{ "A-14", CLR_YELLOW },;
{ "A-16", CLR_HRED },; { "A-20", CLR_BLUE },;
{ "A-21", CLR_HCYAN },;
{ "A-24", CLR_GREEN },;
{ "A-25", CLR_RED },;
{ "A-26", CLR_HBLUE } }



oGraph:aData = { {A9},{A14},{A16},{A20},{AMBU21},{A24},{A25},{A26} }






oGraph:l3D := .T.
oGraph:lPopUp := .T.
oGraph:lLegends:= .T.
oGraph:lSelView:= .T.
oGraph:cPicture:="9999999999"
oGraph:nBarSep:=05
oGraph:cTitle:= "SERVICIOS POR UNIDAD"
oGraph:lcTitle:= .T.
oGraph:lViewVal:= .T.
oGraph:cBitmap := "brush.bmp"
oGraph:nClrX = CLR_GREEN
oGraph:nClrY = CLR_RED



-----------------------El error-----------------------

Application
===========
Path and name: C:\FWH\BITACORA\BITACORA.Exe (32 bits)
Size: 540,672 bytes
Time from start: 0 hours 0 mins 4 secs
Error occurred at: 04/15/08, 01:02:55
Error description: Error BASE/1132 Bound error: array access
Args:
[ 1] = A { ... }
[ 2] = N 3

Stack Calls
===========
Called from: TGRAPH.PRG => TGRAPH:PAINT(764)
Called from: TGRAPH.PRG => (b)TGRAPH:TGRAPH(109)
Called from: => TGRAPH:DISPLAY(0)
Called from: CONTROL.PRG => TGRAPH:HANDLEEVENT(0)
Called from: WINDOW.PRG => _FWH(0)
Called from: => UPDATEWINDOW(0)
Called from: WINDOW.PRG => TMDIFRAME:ACTIVATE(0)
Called from: TEST2003.PRG => MAIN(347)

System
======
CPU type: Intel(R) Pentium(R) 4 CPU 2.80GHz 2883 Mhz
Hardware memory: 2048 megs

Free System resources: 90 %
GDI resources: 90 %
User resources: 90 %

Compiler version: xHarbour build 1.1.0 Intl. (SimpLex)
Windows version: 5.1, Build 2600 Service Pack 2


MUCHAS GRACIAS POR ADELANTADO

SOY MUY LATOSA ??

SALUDITOS :wink:
Last edited by AIDA on Fri Apr 18, 2008 4:04 pm, edited 1 time in total.
Que es mejor que programar? creo que nada :)
Atropellada pero aqui ando :P

I love Fivewin

séʌǝɹ ןɐ ɐʇsǝ opunɯ ǝʇsǝ
User avatar
cuatecatl82
Posts: 614
Joined: Wed Mar 14, 2007 6:49 pm
Location: San Cristobal de las Casas, Chiapas México
Contact:

Post by cuatecatl82 »

Hola y Saludos al foro:

:? A mi tambien me pasa algo similar, además de que los valores en las columnas de los graficos los muestra muy distanciados. :cry:

Image

Anteriormente no pasaba esto, ya que trabajo con una serie para representar un valor en los 31 dias que trae el mes a la vez que vizualizo el valor de cada una.. :roll:

Image

Ojala y se puedan solucionar estos penqueños detallitos.

Gracias anticipadas..
Soluciones y Diseño de Software
Damos Soluciones...

I.S.C. Victor Daniel Cuatecatl Leon
Director y Diseñador de Proyectos

http://www.soldisoft.unlugar.com
http://www.sisa.unlugar.com
danyleon82@hotmail.com
www.facebook.com/victordaniel.cuatecatlleon
User avatar
cuatecatl82
Posts: 614
Joined: Wed Mar 14, 2007 6:49 pm
Location: San Cristobal de las Casas, Chiapas México
Contact:

Post by cuatecatl82 »

Para mi estimado: Alfredo Arteaga

Respetuosamente.. Porfa si nos pudieras decir como corregir este pequeño detalle de los datos de las series muy distanciandas :cry: , para poder implementar la ultima version de tu clase TGraph a mi sistema.. :D

Te lo voy agradecer muchisimo.. :lol: :lol:

Saludos desde Chiapas
Soluciones y Diseño de Software
Damos Soluciones...

I.S.C. Victor Daniel Cuatecatl Leon
Director y Diseñador de Proyectos

http://www.soldisoft.unlugar.com
http://www.sisa.unlugar.com
danyleon82@hotmail.com
www.facebook.com/victordaniel.cuatecatlleon
User avatar
Alfredo Arteaga
Posts: 326
Joined: Sun Oct 09, 2005 5:22 pm
Location: Mexico
Contact:

Post by Alfredo Arteaga »

Hoy amanecí indispuesto, una infección estomacal.

Para AIDA:

Ahora cada serie tiene los siguientes parámetros ( aVals, cLegend, nColor, nType, l3D ), nType y l3D ofrecen la posibilidad de combinar diferentes tipos de graficos en una pantalla.

Para Víctor:

Lo revisaré después, tal vez mañana.
User avatar
cuatecatl82
Posts: 614
Joined: Wed Mar 14, 2007 6:49 pm
Location: San Cristobal de las Casas, Chiapas México
Contact:

Post by cuatecatl82 »

Ok mil gracias :D de nuevo. esperare, y que pronto te recuperes :cry: .

Saludos.. 8)
Soluciones y Diseño de Software
Damos Soluciones...

I.S.C. Victor Daniel Cuatecatl Leon
Director y Diseñador de Proyectos

http://www.soldisoft.unlugar.com
http://www.sisa.unlugar.com
danyleon82@hotmail.com
www.facebook.com/victordaniel.cuatecatlleon
User avatar
AIDA
Posts: 782
Joined: Fri Jan 12, 2007 8:35 pm

HOLA

Post by AIDA »

Huyyy taz malito :shock: mejor no te molesto :oops: espero te mejores pronto

checare con los datos que me diste :D

Muchas gracias y que te mejores

Saluditos

Aida :wink:
Que es mejor que programar? creo que nada :)
Atropellada pero aqui ando :P

I love Fivewin

séʌǝɹ ןɐ ɐʇsǝ opunɯ ǝʇsǝ
User avatar
Alfredo Arteaga
Posts: 326
Joined: Sun Oct 09, 2005 5:22 pm
Location: Mexico
Contact:

Post by Alfredo Arteaga »

User avatar
AIDA
Posts: 782
Joined: Fri Jan 12, 2007 8:35 pm

HOLA

Post by AIDA »

Hola Alfredo como sigues espero que ya mejor de la panzita y que sigas mejorando.

ya sanaste?

Te queria comentar que ya le entendi ya me sale todo bien :D solo quisiera saber si se puede aun poner a cada barrita un color diferente y si se puede como le hago aaaah y como dejo fijos los letreritos de cada barrita en la linea inferior.

aqui abajito te pongo como lo estoy haciendo

//----------------------------------------------------------------------------------

A09 :=0
A14 :=0
A16 :=0
A20 :=0
A21 :=0
A24 :=0
A25 :=0
A26 :=0
A27 :=0
A28 :=0
A30 :=0
P01 :=0
P05 :=0



dbselectarea("BITACORA")





COUNT TO A09 FOR BITACORA->UNIDAD ="A-09"
COUNT TO A14 FOR BITACORA->UNIDAD ="A-14"
COUNT TO A16 FOR BITACORA->UNIDAD ="A-16"
COUNT TO A20 FOR BITACORA->UNIDAD ="A-20"
COUNT TO A21 FOR BITACORA->UNIDAD ="A-21"
COUNT TO A24 FOR BITACORA->UNIDAD ="A-24"
COUNT TO A25 FOR BITACORA->UNIDAD ="A-25"
COUNT TO A26 FOR BITACORA->UNIDAD ="A-26"
COUNT TO A27 FOR BITACORA->UNIDAD ="A-27"
COUNT TO A28 FOR BITACORA->UNIDAD ="A-28"
COUNT TO A30 FOR BITACORA->UNIDAD ="A-30"
COUNT TO P01 FOR BITACORA->UNIDAD ="P-01"
COUNT TO P05 FOR BITACORA->UNIDAD ="P-05"

@00,24.61 GRAPH oGraph OF oWnd ;
SIZE 1085, 335

APERS :={"A-09","A-14","A-16","A-20","A-21","A-24","A-25","A-26","A-27","A-28","A-30","P-01","P-05"}



oGraph:lViewVal:= .T.
oGraph:lcTitle:= .T.
oGraph:lyGrid := .T.
oGraph:lxGrid := .T.
oGraph:cPicture:="9999999999"
oGraph:cTitle:= "SERVICIOS POR UNIDAD"
oGraph:l3D := .T.
oGraph:lPopUp := .T.
oGraph:lLegends:= .T.
oGraph:nClrX := CLR_GREEN
oGraph:nClrY := CLR_WHITE
oGraph:nClrV := CLR_WHITE
oGraph:nMaxVal := 50
oGraph:cBitmap := "Brush.Bmp"
oGraph:AddSerie({A09,A14,A16,A20,A21,A24,A25,A26,A27,A28,A30,P01,P05},"1",CLR_BLUE,1,.T.)
oGraph:AddSerie({A09,A14,A16,A20,A21,A24,A25,A26,A27,A28,A30,P01,P05},"2",CLR_HRED,3,.F.)
oGraph:SetYVals(aPers)



Que te sigas mejorando

Saludos

Aida :wink:
Que es mejor que programar? creo que nada :)
Atropellada pero aqui ando :P

I love Fivewin

séʌǝɹ ןɐ ɐʇsǝ opunɯ ǝʇsǝ
Post Reply