Charts in A5?

[Ralf]

is their a possibility to produce charts in A5? Pie chart I found, but they are a lot of other charts.


Regards Ralf.

[Tom Henkel]

Re: Charts in A5?

Check out the sample folder. there is an activeXexample of charts in one of the databases.

[Ralf]

Re: Charts in A5?

ah , yes I see, a Axischart control and a piechart control and MS Office chart, now its only the question how i can data into this active x element, they are some hints in the help file.

Regards Ralf.

[Tom Henkel]

Re: Charts in A5?

Check out the on_init code for the form in the example. it seems to do the loading of the chart.

[CALocklin]

Re: Charts in A5?

Although I don't know of anyone else who is using them, there are also a number of built-in functions that can be used to build a bitmap chart directly through A5.

Here's a link to a screenshot of one I use in my Nav_Log application. See the Weight and Balance chart about 1/2 way down. The overall size is always the same but the horizontal and vertical scales are set based on the input values, the heavy black lines are based strictly on input values, and the position of the blue dot depends on the specific loading conditions - if it's outside the heavy black lines you should not be flying the plane.

Some time ago Dr. Wayne had some other examples on his LearnAlpha website. I assume they are still there.

[Ralf]

Re: Charts in A5?

Thanks, I will check it out later.

Regards Ralf.

[Peter.Greulich]

Re: Charts in A5?

Here's a link to a screenshot of one I use in my Nav_Log application.

Cal, I think you may have posted a bad link. When I click on your items, nothing happens.

[CALocklin]

Re: Charts in A5?

When I click on your items, nothing happens.

If you can see the screenshots, that's all there is. (And the link works for me.) The buttons, fields, etc. don't do anything - this is a screenshot not a website!:)

I just wanted to show what can be done. If anyone is interested in the commands to use, lookup "Bitmap and Graphic Functions" in the Help file.

Using these will seem a bit onerous at first but it really isn't that bad. It's a little like going from A4 to A5 - you have to stick with it a little before you start to "get it". Anyone used to coding in any language should be able to pick it up. I think it took me about 1/2 hour the first time through to start seeing how to use it. Then a little trial and error to get things to line up correctly. After the first hour or so I was able to get things working fairly well. The second time I decided to use this method (the Weight and Balance chart shown above) it was much easier.

It's not the "language" that's hard; it's understanding the process. You have to get beyond "draw me a graph" and think in details of "draw a line from point x1,y1 to x2,y2, etc. This is rather like my "how do you start a car" example. 99% of the population with say, "Put the key in the ignition and turn it." However, you can't put the key in until you have the key and get in the car. If you want to describe it the way you would build a database, you start with "Where are you and what position are you in?" If the person is sitting down, they first have to lean forward and put their weight over their feet then straighten their legs to stand up, then they have to turn in the direction of the room the keys are in (using the "turn_xx_degrees" routine of course!), walk to the room, find the right cabinet, open the door, find the right shelf, find the right set of keys, pick up the keys, find the right key, walk to the door that leads into the garage, open the door, and so on and so forth.

[Ralf]

Re: Charts in A5?

I take the Sourcecode from the help file, for a pie chart 1:1

'Date Created: 07-Sep-2007 06:09:26 PM
'Last Updated: 07-Sep-2007 06:11:11 PM
'Created By : Ralf
'Updated By : Ralf
dim data[5] as P
dim labels[5] as C
dim values[5] as N
dim vl as P
dim shared Chart as P
dim Graph as P
dim Graph.object as P
dim Graph.class as C
dept_value = <<%a%
Sales|123
Marketing|234
R&D|211
Shipping|12
Accounting|97
%a%
debug(1)
data.initialize_properties("Department|Value:N",dept_value)
for i = 1 to 5
labels[i] = data[i].department
values[i] = data[i].value
next i
vl = local_variables()
' The chart Graph
Graph.class="owc.chart"
dlg_title = "Pie Chart"
dlg_source = <<%dlg%
{can_exit=close}
{startup=init}
{lf};
{region001}
{stretch=height,width}
{sp}{activex=100,25Graph};
{stretch=}
{stickto=right,top}
{endregion001}
{region002}
{sp}<%i=$a5_window_close;O={J=C} {I=1} Close; %18,1.5&Close!close>{sp};
{endregion002}
%dlg%
' Dialog Event Handlers
dlg_event = <<%code%
if (a_dlg_button = "close") .or. (a_dlg_button = "") then
ui_modeless_dlg_close(dlg_title)
end if
if a_dlg_button = "init" then
a_dlg_button = ""
' Add a chart to the graph object
Chart = Graph.object.Charts.Add()
Chart.HasTitle = .t.
Chart.Title.Caption = "Pie Graph"
Chart.Type = 18
' See Complete List of Supported Chart Types for other types.
Chart.HasLegend = .t.
' Add the two series
dim series as P
Series = Chart.SeriesCollection.Add()
Series.Caption = "None"
Series.SetData(1, -1, Labels) ' Refer to XY Graph
Series.SetData(2, -1, Values)
Graph.object.Refresh()
end if
%code%
debug(0)
ui_modeless_dlg_box(dlg_title, dlg_source, dlg_event)

the result was the following failure (look at the appending screenshot)

any ideas, was is wrong?

[Marcel Kollenaar]

Re: Charts in A5?

I isolated your example and encountered the same problem. I think the main menu does some initialization, have to find out where.

[Ralf]

Re: Charts in A5?

Don't take examples from the help file! Use the examples in the examples folder.

Why? They are not proofed? I can't load the ax demo.

This message will apear_

Script:OnInit line:58
Chart = Graph.Charts.Add()
Property not found
Graph.Charts subelement not found.

Maybe this will not run on vista machines. Because I have MS Office Chart Version 11, and not the versions before.


Have someone experiance on Vista machines?

Regards Ralf,

[Marcel Kollenaar]

Re: Charts in A5?

Why? They are not proofed? I can't load the ax demo.

Change

Graph.class="owc10.chartspace"

See also: thread

The global function GetChartObjectName() does this job, it investigates which Office :D you run.

[Ralf]

Re: Charts in A5?

I tried this function in the interactive window:

? GetChartObjectName()
ERROR: Function is not recognized

[Ralf]

Re: Charts in A5?

Graph.class="owc10.chartspace"

not works on Vista,,


i change the number to


Graph.class="owc11.chartspace"


and its works, thanks a lot.:)


Regards Ralf

[Marcel Kollenaar]

Re: Charts in A5?

I change the number to


Graph.class="owc11.chartspace"


and its works, thanks a lot.


Regards Ralf

;)