Software FX Posted December 22, 2000 Report Share Posted December 22, 2000 Sorry, wrong newsgroups.This belong to ChartFX Client Server. Thanks. "Jon Olson" <Jon_N_Olson@yahoo.com> wrote in message news:j7mtrv4aAHA.2444@sfxserver.softwarefx.com... > I am tring to create a graph on a web page. I have downloaded the demo of > ChartFX 2000. I have a chart working with the following code, but it uses > the date/time values I have as a legend and NOT as data points. I need them > as data points because the times are not the same for all of the different > series. This is written in VB Script. (code at the bottom) > > Any Ideas? > > Thanks, > > Jon > > ****************************** > Jon Olson jon_n_olson@yahoo.com > > > sub btnShowValues_OnClick() > > 'IMASreturn2 is a ActiveX DLL that I wrote > set IMASreturn2 = Server.CreateObject("vbIMAS.vbIMASClass") > > Const nMax = 10 > > Dim Values() 'Returns Data Values > Dim tStamp() 'Returns Time Stamp for value > > StartTime = "2/1/1999 12:00:00 PM" > StopTime = "1/1/2000 12:00:00 PM" > > 'lstSelectedTags is a listbox on a web page > listcount = lstSelectedTags.getCount() -1 > > Set ChartFX1 = Server.CreateObject("ChartFX.WebServer") > > 'Use the CreateObject function to reference the Chart FX Data Provider > Set CfxArray = Server.CreateObject("CfxData.Array") > > 'Preform this loop on all labels in a list box > For i = 0 to listcount > 'Set TAGName = to what is in the list > TAGName = lstSelectedTags.getText(i) > nResult = IMASreturn2.GetTagData(TAGName, StartTime, StopTime, nMax, > Values, tStamp) > > 'Add the Values and tStamp arrays to the data provider > CfxArray.AddArray Values > CfxArray.AddArray tStamp > next > > 'Let Chart FX take the information from the data provider > ChartFX1.GetExternalData CfxArray > > 'Make all of the series a LINE graph > for c = 0 to ChartFX1.Series.Count - 1 > ChartFX1.Series©.Gallery = 1 > next > > 'Display the Series Count > Response.write "SERIES COUNT: " & ChartFX1.Series.Count & "<BR>" > > 'Set Chart as 2D > ChartFX1.Chart3D = false > > 'Create the Chart > Response.Write ChartFX1.GetHtmlTag("100%","50%") > > End sub > > Link to comment Share on other sites More sharing options...
Recommended Posts
Archived
This topic is now archived and is closed to further replies.