Announcement

**NoeticCC** · June 18, 2009, 03:13 AM

Re: Xbasic and HTML

Try the desktop forum, this is the app server forum!

**Jay Talbott** · June 18, 2009, 09:18 AM

Re: Xbasic and HTML

Thanks.
I was thinking the Javascript and HTML issues would make this the logical place to get an answer, but I will post it on the desktop side.

Jay

**NoeticCC** · June 18, 2009, 09:46 AM

Re: Xbasic and HTML

Originally posted by Jay Talbott View Post

Thanks.
I was thinking the Javascript and HTML issues would make this the logical place to get an answer, but I will post it on the desktop side.

Jay

Xdialogs are desktop-only so people experienced in Web/WAS development won't necessarily be familiar with what you were trying to do.

**Jay Talbott** · June 18, 2009, 10:57 AM

Re: Xbasic and HTML

Not to be obstinate, but the real question is a Javascript question. I can handle all of the Xdialog issues.
The real question here is:
How can I get the data dynamically loaded into the Javascript from the table?

Thanks.
Jay

**Tom Cone Jr** · June 18, 2009, 11:14 AM

Re: Xbasic and HTML

Jay, what happens if you store the string

Code:

[210,'1/14/09']

in a variable, and then pass that variable to

Code:

bg.xValues[0]

**Jay Talbott** · June 18, 2009, 11:25 AM

Re: Xbasic and HTML

Tom,
Thanks for the idea. What I am having a problem with is trying to populate the variable from Alpha (outside the javascript) and then getting the javascript to read that variable.
I have tried the following:

dim vc_test as c
vc_test = "[213,'01/17/09']"
.
.
.
<script language="JavaScript">
var bg = new Graph(9);
var name = "Andre the Giant";

bg.parent = document.getElementById('here');
bg.title = name;
bg.xCaption = 'dates';
bg.yCaption = 'Weight<br>(lbs.)';

bg.xValues[0] = vc_test;

I get the message: vc_test is undefined.
If I add var vc_test within the javascript, I get the error: vc_test is null
Jay

**Tom Cone Jr** · June 18, 2009, 11:39 AM

Re: Xbasic and HTML

I feared as much. Sorry it wasn't that easy. -- tom

**CALocklin** · June 18, 2009, 11:50 AM

Re: Xbasic and HTML

Since there isn't enough there to run your xdialog on my machine, can you clarify what you mean by "dynamically"? Does that mean "each time I start the xdialog" or does it mean "once I've started the xdialog I want to be able to select a different name and then automatically rebuild the chart without restarting the xdialog"?

**Jay Talbott** · June 18, 2009, 12:51 PM

Re: Xbasic and HTML

Cal,
What I initially wanted to do was to be able to put a button to run this xdialog box on each patient record, and have the graph be created (dynamically) for each customer.
I am finally successful.
I used the file.append() command to add the var to the end of the graph.js file (which is what you are missing to run this xdialog box on your computer).

Here is the command line I have used to add the line to the graph.js file:

file.append("c:\alpha_data\graph.js", crlf()+"var data_1 = [234, 'Jan 17, 1958']" )

I then changed the line:
bg.xValues[0] = [210,'1/14/09'];

to
bg.xValues[0] = data_1;

This was just a test. Now I will have to add all of the lines, but that can easily be done with string (text) commands using variables that pick up the values for each patient.
If you want the graph.js file, it is attached as graph.txt.
Just rename the file to graph.js when you download it.
Jay

**Jay Talbott** · June 19, 2009, 04:11 PM

Re: Xbasic and HTML

One last issue (hopefully the last one):

in the array of bg.xValues[0] - bg.xValues[9] in the example above, the assumption is that there are 10 records for the graph. In some cases, the new patients won't have 10 months of data.

If I make some of the elements empty, like this:
var data_9 = []
var data_10 = []
var data_11 = []
var data_12 = []

the graph looks terrible (see attached image below).
How can I dynamically resize that array?
Thanks.
Jay

**Tim Kiebert** · June 19, 2009, 10:05 PM

Re: Xbasic and HTML

Here is a slightly different approach.
The variable vc_graph.html is just made up of text. So you can pre process/create the section that contains the bg.xValues section and then concatenate that into the rest of the variable's text. This will eliminate the need for writing to the graph.js file.

I have not tested this as I am writing this from a none Alphafive enabled computer, (I know who ever heard of such a thing :)), but I am pretty sure I have the syntax correct.

Code:

                             'Create an XDialog dialog box to prompt for parameters.
DIM SHARED varC_result as C
DIM vc_graph as p
DIM vc_graph.html as c
DIM vc_graph.css as c
DIM vc_graph.linkedFiles as c
DIM vc_graph.events as c

[COLOR=DarkGreen] Dim graph_xdata as C[/COLOR]
[COLOR=RoyalBlue]'Use what ever you currently do to get the data values into a variable as a crlf delimited list. 
'Below the values are hard coded for this example[/COLOR]
[COLOR=DarkGreen] graph_xdata = <<%txt%
[210,'1/14/09']
[195,'1/28/09']
[170,'2/4/09']
[175,'2/11/09']
[182,'2/18/09']
[186,'2/25/09']
[189,'3/4/09']
[195,'3/11/09']
[193,'3/18/09']
[193,'3/25/09']
%txt%[/COLOR]
[COLOR=RoyalBlue]'The *for_each() function acts on each line in the variable.
[/COLOR][COLOR=RoyalBlue] 'The number of array elements are limited to the number of data values present in the variable[/COLOR]
[COLOR=RoyalBlue]'the *Counter() function below provides the numeric value for the array.
'We subtract 1 to make the array start with zero. 
[/COLOR]
[COLOR=DarkGreen] graph_xdata = *for_each(ln,"bg.xValues["+*Counter()-1+"] = " + ln + ";",graph_xdata)[/COLOR]


vc_name = "Andre the Giant"
vc_graph.html = <<%html%
<a5:bindings>
</a5:bindings>

<a5:propertyExpressions>
</a5:propertyExpressions>

<html>
<head>
<script language="JavaScript" src="c:\alpha_data\Graph.js"></script>
</head>
<body style="font-family: Arial;">
<table align="center">
<tr>
  <td width="5%"></td>
  <td id="here" align="center"></td>
  <td valign="top" width="5%"></td>
 </tr> 
</table>
</body>
</html>
<script language="JavaScript">
var bg = new Graph(9);
var name = "Andre the Giant";

bg.parent = document.getElementById('here');
bg.title = name;
bg.xCaption = 'dates';
bg.yCaption = 'Weight<br>(lbs.)';
[COLOR=RoyalBlue]'Here we stop the html string definition. Concatenate the data variable.
'Then concatenate the remainder of the html string by restarting with <<%html%[/COLOR]
[COLOR=DarkGreen]%html%[/COLOR] [COLOR=DarkGreen]+ graph_xdata + <<%html%[/COLOR]

bg.showLine = true;
bg.showBar = false;
bg.draw();
</script>
%html%
vc_graph.css = <<%css%

%css%
vc_graph.linkedFiles = <<%str%

%str%
vc_graph.events = <<%code%

%code%
ok_button_label = "&OK"
cancel_button_label = "&Cancel"
varC_result = ui_dlg_box("Alpha Five",<<%dlg%
{region}
| {HTMLForm=150,40vc_graph};
{endregion};
{line=1,0};
{region}
<*15=ok_button_label!OK> <15=cancel_button_label!CANCEL>
{endregion};
%dlg%)

**Tim Kiebert** · June 19, 2009, 10:28 PM

Re: Xbasic and HTML

I found a mistake in the *for_each syntax. The *Counter()-1 needs to be in parenthesis.

Code:

[COLOR=DarkGreen] graph_xdata = *for_each(ln,"bg.xValues[" +[B][COLOR=Red] ([/COLOR][/B]*Counter()-1[B][COLOR=Red])[/COLOR][/B] + "] = " + ln + ";",graph_xdata)[/COLOR]

**Jay Talbott** · June 19, 2009, 10:43 PM

Re: Xbasic and HTML

Thanks a million Tim. I want to be just like you when I grow up. OK, maybe it's too late for that. But anyway, thanks again. I'll let you know how I make out.
Jay

**Peter.Wayne** · June 20, 2009, 03:37 PM

Re: Xbasic and HTML

Jay,
You can also directly write to the HTML window using the (admittedly confusing) techniques outlined in "Xdialog, Javascript and HTML".
I don't have your css files, so my graph doesn't look pretty. Here's code, though, for changing the graph:

Code:

html = <<%html%
<html>
<head>

<object classid="clsid:EE3218B4-5E36-4435-93D6-FB563D7BAD16" id="A5CONTEXT" width="0" height="0">
<param name="listen" value="{CTXEVALNAME}">
</object>
<script type="text/Javascript" for="A5CONTEXT" event="Event(event_data)" >
<!--
callFromXbasic(event_data);
-->
</script>

<script language="Javascript">
// grab the ContextEval object
oj = document.getElementById("A5CONTEXT").object
function callXbasic(codetorun){
js = oj.eval("{CTXEVALNAME}",codetorun);
if(typeof(js) == 'string' && js!=''){
eval(js);
}
}
function callFromXbasic(codetorun){
if(typeof(codetorun) == 'string' && codetorun!=''){
eval(codetorun);
}
}
 </script>

<script language="Javascript" src="c:\graph.js"></script>

</head>

<body style="font-family: Arial;">
<table align="center">
<tr>
<td width="5%"></td>
<td id="here" align="center"></td>
<td valign="top" width="5%"></td>
</tr>
</table>
</body>

<script language="javascript">
var bg = new Graph(9);
var name = "Andre the Giant";

bg.parent = document.body;
bg.title = name;
bg.xCaption = 'dates';
bg.yCaption = 'Weight<br>(lbs.)';

bg.xValues[0] = [210,'1/14/09'];
bg.xValues[1] = [195,'1/28/09'];
bg.xValues[2] = [170,'2/4/09'];
bg.xValues[3] = [175,'2/11/09'];
bg.xValues[4] = [182,'2/18/09'];
bg.xValues[5] = [186,'2/25/09'];
bg.xValues[6] = [189,'3/4/09'];
bg.xValues[7] = [195,'3/11/09'];
bg.xValues[8] = [193,'3/18/09'];

bg.showLine = true;
bg.showBar = false;
bg.draw();    
</script>
</html>
%html%

dim shared XbasicCtxName as c="JSGraph"
dim XbasicCtx as p
XbasicCtx=ole.create("a5contexteval.contexteval")
XbasicCtx.Attach(*Xbasic_eval_context_attach())
xbasic_eval_context_add(XbasicCtxName)
html=ole.HTMLobject_Remap(html)

html=stritran(html,"{CTXEVALNAME}",XbasicCtxName)
file.from_string(file.temp_path_get()+"my.html",html)

dim browser as p
dim browser.object as p
dim browser.class as c="shell.explorer.2"

ok_button_label = "&OK"
cancel_button_label = "&Cancel"
ui_dlg_box("Alpha Five",<<%dlg%
{startup=init}
{region}
{activeX=120,30browser};
{endregion};
{line=1,0};
{region}
<*15=ok_button_label!OK> <Jay!jay> <15=cancel_button_label!CANCEL>
{endregion};
%dlg%,<<%code%
if a_dlg_button="init" then
    a_dlg_button=""
	 browser.object.navigate(file.temp_path_get()+"my.html")
end if
if a_dlg_button="jay" then
	a_dlg_button=""
    jsCode=<<%js%
var bg = new Graph(6);
var name = "Jay the Great";

bg.parent = document.body;
bg.title = name;
bg.xCaption = 'dates';
bg.yCaption = 'Weight<br>(lbs.)';

bg.xValues[0] = [170,'1/5/09'];
bg.xValues[1] = [172,'1/28/09'];
bg.xValues[2] = [174,'2/5/09'];
bg.xValues[3] = [175,'2/11/09'];
bg.xValues[4] = [182,'2/18/09'];
bg.xValues[5] = [186,'2/25/09'];
bg.showLine = true;
bg.showBar = false;
bg.draw();    
%js%
xbasic_eval_context_send(XbasicCtxName,jsCode)
end if
%code%)

I also had to make one modification to the graph.js javascript. I commented out the line
bg.parent.appendChild(d.getElementById('wrapper'));
which appears right after the comment,
//Stablish parenthood

This line causes a permission violation when it's run a second time, and it doesn't seem to matter if it's commented out.

- Peter

Announcement

The Alpha Software Forum Participation Guidelines

Xbasic and HTML

Xbasic and HTML

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment