Codejock Forums Homepage
Forum Home Forum Home > Codejock Products > ActiveX COM > Chart Control
  New Posts New Posts RSS Feed - It's possible make a graph like this?
  FAQ FAQ  Forum Search   Events   Register Register  Login Login

It's possible make a graph like this?

 Post Reply Post Reply
Author
Message
zabogar View Drop Down
Newbie
Newbie


Joined: 15 February 2011
Status: Offline
Points: 6
Post Options Post Options   Thanks (0) Thanks(0)   Quote zabogar Quote  Post ReplyReply Direct Link To This Post Topic: It's possible make a graph like this?
    Posted: 15 February 2011 at 6:32am
Hello everyone, I'm a codejock user from some years ...

Now, i'm very interest to buy chart control ..

I tried the evaluation version but in the end also looking closely at the examples i'm not able to do what I need.

It's a little bit hard to me explain the problem (i don't speak and write well in English Embarrassed)

It's possible make a chart like this??




many many thanks for the help.

Back to Top
Oleg View Drop Down
Admin Group
Admin Group


Joined: 21 May 2003
Location: United States
Status: Offline
Points: 11234
Post Options Post Options   Thanks (0) Thanks(0)   Quote Oleg Quote  Post ReplyReply Direct Link To This Post Posted: 15 February 2011 at 8:42am
Hi,

Here some code for your start


Private Sub Form_Load()
    Dim Series As ChartSeries
    Dim Style As ChartStackedSplineAreaSeriesStyle
    
    ' 0
    Set Series = ChartControl1.Content.Series.Add("0")
    
    Set Style = New ChartStackedSplineAreaSeriesStyle
    
    Set Series.Style = Style
    Series.ArgumentScaleType = xtpChartScaleNumerical
    Style.Label.Visible = False
    
    Style.Transparency = 1
    
    
    
    Series.Points.Add 0, 2
    Series.Points.Add 1, 8
    Series.Points.Add 2, 10
    Series.Points.Add 3, 12
    Series.Points.Add 6, 14
    Series.Points.Add 10, 20
    
    ' 1
    Set Series = ChartControl1.Content.Series.Add("1")
  
    Set Style = New ChartStackedSplineAreaSeriesStyle
    Set Series.Style = Style
    Series.ArgumentScaleType = xtpChartScaleNumerical
    Style.Label.Visible = False
   
    
    
    Series.Points.Add 0, 2
    Series.Points.Add 1, 10
    Series.Points.Add 2, 14
    Series.Points.Add 3, 15.6
    Series.Points.Add 6, 20
    Series.Points.Add 10, 25
    
    
     ' 2
    Set Series = ChartControl1.Content.Series.Add("2")
  
    Set Style = New ChartStackedSplineAreaSeriesStyle
    Set Series.Style = Style
    Series.ArgumentScaleType = xtpChartScaleNumerical
    Style.Label.Visible = False
   
    
    
    Series.Points.Add 0, 2
    Series.Points.Add 1, 12
    Series.Points.Add 2, 15
    Series.Points.Add 3, 18
    Series.Points.Add 6, 26
    Series.Points.Add 10, 40
    
    

     ' 3
    Set Series = ChartControl1.Content.Series.Add("2")
  
    Dim LineStyle As ChartLineSeriesStyle
    Set LineStyle = New ChartLineSeriesStyle
    Set Series.Style = LineStyle
    Series.ArgumentScaleType = xtpChartScaleNumerical
    LineStyle.Color = vbRed
    
    
    Series.Points.Add 0, 2
    Series.Points.Add 0.4, 5
    Series.Points.Add 1, 12
    Series.Points.Add 3, 15

End Sub

Oleg, Support Team
CODEJOCK SOFTWARE SOLUTIONS
Back to Top
zabogar View Drop Down
Newbie
Newbie


Joined: 15 February 2011
Status: Offline
Points: 6
Post Options Post Options   Thanks (0) Thanks(0)   Quote zabogar Quote  Post ReplyReply Direct Link To This Post Posted: 16 February 2011 at 4:11am
Hello Oleg, many many thanks for your valuable aid Smile

This morning I purchased the control chart !! Big smile

Can you help me with something else? How can I display a label for each series until the end of each (or / and in the middle) as shown in my example?

The numbers are virtually the title of each series



Thanks for all.


Back to Top
Oleg View Drop Down
Admin Group
Admin Group


Joined: 21 May 2003
Location: United States
Status: Offline
Points: 11234
Post Options Post Options   Thanks (0) Thanks(0)   Quote Oleg Quote  Post ReplyReply Direct Link To This Post Posted: 16 February 2011 at 7:43am
Sorry you can only show all or none of labels. 

remove 
Style.Label.Visible = False
from my lines and you will see all labels.


Also please check ChartStackedAreaSeriesStyle style. Spline one not always draw as you need :(
Oleg, Support Team
CODEJOCK SOFTWARE SOLUTIONS
Back to Top
zabogar View Drop Down
Newbie
Newbie


Joined: 15 February 2011
Status: Offline
Points: 6
Post Options Post Options   Thanks (0) Thanks(0)   Quote zabogar Quote  Post ReplyReply Direct Link To This Post Posted: 16 February 2011 at 8:05am
Thanks for the fast reply ..

.. this is a big problem for me ... Cry

my goal it's show a text label at the end of each line .. not the last value of the series.

for you this it's possible??

thanks.

Back to Top
Oleg View Drop Down
Admin Group
Admin Group


Joined: 21 May 2003
Location: United States
Status: Offline
Points: 11234
Post Options Post Options   Thanks (0) Thanks(0)   Quote Oleg Quote  Post ReplyReply Direct Link To This Post Posted: 16 February 2011 at 1:42pm
Hi,

Checking what can be changed for 15.0.2 quickfix release.

what big differece beween "end of each line" and "the last value of the series" on screenshot its almost same ?
Oleg, Support Team
CODEJOCK SOFTWARE SOLUTIONS
Back to Top
Simon HB9DRV View Drop Down
Senior Member
Senior Member
Avatar

Joined: 07 July 2005
Location: Switzerland
Status: Offline
Points: 458
Post Options Post Options   Thanks (0) Thanks(0)   Quote Simon HB9DRV Quote  Post ReplyReply Direct Link To This Post Posted: 16 February 2011 at 2:28pm
I would also like to be able to display the label for a specific point.
Simon HB9DRV
Back to Top
Oleg View Drop Down
Admin Group
Admin Group


Joined: 21 May 2003
Location: United States
Status: Offline
Points: 11234
Post Options Post Options   Thanks (0) Thanks(0)   Quote Oleg Quote  Post ReplyReply Direct Link To This Post Posted: 16 February 2011 at 2:29pm
Added solution for 15.0.2 release to Hide and Show only some of Labels. Pelase wait a little will be published very soon.
Oleg, Support Team
CODEJOCK SOFTWARE SOLUTIONS
Back to Top
zabogar View Drop Down
Newbie
Newbie


Joined: 15 February 2011
Status: Offline
Points: 6
Post Options Post Options   Thanks (0) Thanks(0)   Quote zabogar Quote  Post ReplyReply Direct Link To This Post Posted: 17 February 2011 at 2:59am
Hello everyone and thanks to Oleg for your big big aid!

Just to be clear: in my example picture the 97, 90, 75, 50, 25, 10, 5 it's not the last value of the series it's the label of each series.

For now I solved my problem by creating another set with only one point in the same position of last point of each set and then writing the name in the .Format = "97" .Format = "90"

Sorry again, I do a little hard to explain clearly. Embarrassed

Thanks!
Back to Top
jpbro View Drop Down
Senior Member
Senior Member
Avatar

Joined: 12 January 2007
Status: Offline
Points: 1354
Post Options Post Options   Thanks (0) Thanks(0)   Quote jpbro Quote  Post ReplyReply Direct Link To This Post Posted: 17 February 2011 at 7:56am
That's a nice chart Oleg, and the Label visibility feature will be useful.

Would it also be possible to set the Label alpha/transparency? I ask because sometimes labels overlap on some charts, and it would be nice if we could change the transparency of labels on mouse-over (so that the one the mouse is over is fully opaque, and the others could be 25% alpha or something).

Again, nice work.
Product: Xtreme SuitePro (ActiveX) version 16.2.6
Platform: Windows XP - SP3

Language: Visual Basic 6.0 SP6

Back to Top
Simon HB9DRV View Drop Down
Senior Member
Senior Member
Avatar

Joined: 07 July 2005
Location: Switzerland
Status: Offline
Points: 458
Post Options Post Options   Thanks (0) Thanks(0)   Quote Simon HB9DRV Quote  Post ReplyReply Direct Link To This Post Posted: 17 February 2011 at 8:12am
Originally posted by jpbro jpbro wrote:

That's a nice chart Oleg, and the Label visibility feature will be useful.

Would it also be possible to set the Label alpha/transparency? I ask because sometimes labels overlap on some charts, and it would be nice if we could change the transparency of labels on mouse-over (so that the one the mouse is over is fully opaque, and the others could be 25% alpha or something).

Again, nice work.
 
Agreed, I would like a solution like this, maybe a mangifying option ?
 
Or show labels only if close t mouse or on current mouse posn or ...
 
But for a first release - outstanding.
 
Simon HB9DRV
Back to Top
Oleg View Drop Down
Admin Group
Admin Group


Joined: 21 May 2003
Location: United States
Status: Offline
Points: 11234
Post Options Post Options   Thanks (0) Thanks(0)   Quote Oleg Quote  Post ReplyReply Direct Link To This Post Posted: 18 February 2011 at 7:18am
Transparency added for SeriesLabel.
Oleg, Support Team
CODEJOCK SOFTWARE SOLUTIONS
Back to Top
jpbro View Drop Down
Senior Member
Senior Member
Avatar

Joined: 12 January 2007
Status: Offline
Points: 1354
Post Options Post Options   Thanks (0) Thanks(0)   Quote jpbro Quote  Post ReplyReply Direct Link To This Post Posted: 18 February 2011 at 8:19am
Fantastic, thanks a lot Oleg!
Product: Xtreme SuitePro (ActiveX) version 16.2.6
Platform: Windows XP - SP3

Language: Visual Basic 6.0 SP6

Back to Top
 Post Reply Post Reply
  Share Topic   

Forum Jump Forum Permissions View Drop Down

Forum Software by Web Wiz Forums® version 12.04
Copyright ©2001-2021 Web Wiz Ltd.

This page was generated in 0.145 seconds.