Good morning friends.
I found 2 errors in my programs when I use the TGraph class.
1 - When the values of the column x (: aSeries ) arrives to millions, there is an overflow in the picture.
2 - If you use the popup menu in the item "Values", if it is graph bar, it generates the error below.
Error description: Error BASE/1066 Argument error: conditional
Args:
[ 1] = U
Stack Calls
===========
Called from: .\source\classes\TGRAPH.PRG => TGRAPH:PAINT( 1068 )
Called from: .\source\classes\TGRAPH.PRG => (b)TGRAPH:TGRAPH( 116 )
Called from: => TGRAPH:DISPLAY( 0 )
I checked these errors in fwh1608 and fwh1701
How can I resolve this?
follows an example:
https://photos.google.com/photo/AF1QipN ... OcbovY1Jlu
https://photos.google.com/photo/AF1QipP ... 6nd_yDuruc
" alt="" loading="lazy">
I found 2 errors in my programs when I use the TGraph class.
1 - When the values of the column x (: aSeries ) arrives to millions, there is an overflow in the picture.
2 - If you use the popup menu in the item "Values", if it is graph bar, it generates the error below.
Error description: Error BASE/1066 Argument error: conditional
Args:
[ 1] = U
Stack Calls
===========
Called from: .\source\classes\TGRAPH.PRG => TGRAPH:PAINT( 1068 )
Called from: .\source\classes\TGRAPH.PRG => (b)TGRAPH:TGRAPH( 116 )
Called from: => TGRAPH:DISPLAY( 0 )
I checked these errors in fwh1608 and fwh1701
How can I resolve this?
follows an example:
// Placing a bussiness graph in a folder
#include "FiveWin.ch"
#include "Folder.ch"
#include "TGraph.ch"
//----------------------------------------------------------------------------//
function Main()
local oDlg, oFld, oCbx, cItem, oGraph
SET _3DLOOK ON
DEFINE DIALOG oDlg RESOURCE "Test"
REDEFINE FOLDER oFld ID 110 OF oDlg ;
PROMPT "Folder 1", "Graph","Graph2" ;
DIALOGS "Sub1", "Sub2" ,"Sub2"
oFld:aEnable = { .t., .t. ,.t.}
REDEFINE COMBOBOX oCbx VAR cItem ITEMS { "Apenas", "um", "a test" } ;
ID 100 OF oFld:aDialogs[ 1 ]
// REDEFINE GRAPH oGraph ID 500 TYPE 1 YVALUES 3D XGRID YGRID XVALUES LEGENDS OF oFld:aDialogs[ 2 ]
REDEFINE GRAPH oGraph ID 500 TYPE 1 YVALUES 3D XGRID YGRID POPUP XVALUES LEGENDS OF oFld:aDialogs[ 2 ]
oGraph:aSeries = { { "Series 1", CLR_CYAN , , },;
{ "Series 2", CLR_YELLOW, , .T. },;
{ "Series 3", CLR_HRED, 3, .F. } }
oGraph:aYVals = { "Jan", "Feb", "Mar", "Apr", "May" }
* alterado valores
// oGraph:aData = { { 14280, 20420, 12870, 25347, 7640 },;
// { 8350, 10315, 15870, 5347, 12340 },;
// { 12345, -8945, 10560, 15600, 17610 } }
oGraph:aData = { { 14280, 20420, 12870, 1125347, 7640 },;
{ 8350, 10315, 15870, 5347, 12340 },;
{ 12345, -8945, 10560, 15600, 17610 } }
oGraph:nClrX = CLR_GREEN
oGraph:nClrY = CLR_RED
REDEFINE GRAPH oGraph2 ID 500 TYPE 4 YVALUES XGRID YGRID XVALUES LEGENDS OF oFld:aDialogs[ 3 ]
oGraph2:aSeries = { { "Series 1", CLR_CYAN , , },;
{ "Series 2", CLR_YELLOW, , .T. },;
{ "Series 3", CLR_HRED, 3, .F. } }
oGraph2:aYVals = { "Equipamentos", "Peças", "Bombas", "Aquecedor", "Software","Equip", "Peças3", "Bombas4", "Aquecedor55" }
oGraph2:aData = { { 14280, 20420, 12870, 25347, 7640,500,1890,3500,17800 },;
{ 8350, 10315, 15870, 5347, 12340,0,0,0,0 },;
{ 12345, -8945, 10560, 15600, 17610,2,2,2,2 } }
oGraph2:nClrX = CLR_GREEN
oGraph2:nClrY = CLR_RED
REDEFINE BUTTON ID 120 OF oDlg ;
ACTION oDlg:End()
ACTIVATE DIALOG oDlg CENTERED ;
VALID MsgYesNo( "Want to end ?" )
return nil
//----------------------------------------------------------------------------//https://photos.google.com/photo/AF1QipP ... 6nd_yDuruc
" alt="" loading="lazy">
Augusto Gomes /Suprisystem Informática - Fivewin 16.08 - xharbour 123 - BCC70 - DBFNTX e PostGreSql
