Skip to main content

vb to acucobol

  • July 6, 2011
  • 2 replies
  • 0 views
D

[Migrated content. Thread originally posted on 05 July 2011]

I am trying to use a active-x control I purchased from CodeJock. The following example is in VB, Can anyone help me convert this to acucobol?

Dim Series As ChartSeries
Set Series = ChartControl.Content.Series.Add("Quoted")

Series.Points.Add "Sam", 11
Series.Points.Add "Jesse", 12
Series.Points.Add "Dave", 4.5
Series.Points.Add "Max", 6
Series.Points.Add "Brian", 5

So far I have:

Modify ChartControl Content::Series::Add ("Quoted")

Which the compiler seems to like, but I can't come up with the syntax to add the points, I guess I don't understand what the VB Dim and Set verbs are doing,



















Series.Points.Add "Max", 12
Series.Points.Add "Brian", 11

Set Series = ChartControl.Content.Series.Add("Unbillable")
Series.Points.Add "Sam", 7
Series.Points.Add "Jesse", 2
Series.Points.Add "Dave", 5
Series.Points.Add "Max", 1
Series.Points.Add "Brian", 4

Set ChartControl.Content.Series(0).Style = New ChartBarSeriesStyle

    2 replies

    Abdullah Yapıcı
    • Abdullah Yapıcı
    • Participating Frequently
    • 6 replies
    • July 6, 2011

    [Migrated content. Thread originally posted on 05 July 2011]

    I am trying to use a active-x control I purchased from CodeJock. The following example is in VB, Can anyone help me convert this to acucobol?

    Dim Series As ChartSeries
    Set Series = ChartControl.Content.Series.Add("Quoted")

    Series.Points.Add "Sam", 11
    Series.Points.Add "Jesse", 12
    Series.Points.Add "Dave", 4.5
    Series.Points.Add "Max", 6
    Series.Points.Add "Brian", 5

    So far I have:

    Modify ChartControl Content::Series::Add ("Quoted")

    Which the compiler seems to like, but I can't come up with the syntax to add the points, I guess I don't understand what the VB Dim and Set verbs are doing,



















    Series.Points.Add "Max", 12
    Series.Points.Add "Brian", 11

    Set Series = ChartControl.Content.Series.Add("Unbillable")
    Series.Points.Add "Sam", 7
    Series.Points.Add "Jesse", 2
    Series.Points.Add "Dave", 5
    Series.Points.Add "Max", 1
    Series.Points.Add "Brian", 4

    Set ChartControl.Content.Series(0).Style = New ChartBarSeriesStyle

    working-storage section
    77 Series handle of ChartSeries.
    procedure ...

    modify chartControl,
    @content::@series::@add("Quoted")
    returning Series
    modify series,
    @Points::@Add("Sam",11)
    @Points::@Add("Jesse",12) ....

    D
    • Dominique SacreRocketeer
    • Author
    • Rocketeer
    • 19312 replies
    • July 7, 2011

    [Migrated content. Thread originally posted on 05 July 2011]

    I am trying to use a active-x control I purchased from CodeJock. The following example is in VB, Can anyone help me convert this to acucobol?

    Dim Series As ChartSeries
    Set Series = ChartControl.Content.Series.Add("Quoted")

    Series.Points.Add "Sam", 11
    Series.Points.Add "Jesse", 12
    Series.Points.Add "Dave", 4.5
    Series.Points.Add "Max", 6
    Series.Points.Add "Brian", 5

    So far I have:

    Modify ChartControl Content::Series::Add ("Quoted")

    Which the compiler seems to like, but I can't come up with the syntax to add the points, I guess I don't understand what the VB Dim and Set verbs are doing,



















    Series.Points.Add "Max", 12
    Series.Points.Add "Brian", 11

    Set Series = ChartControl.Content.Series.Add("Unbillable")
    Series.Points.Add "Sam", 7
    Series.Points.Add "Jesse", 2
    Series.Points.Add "Dave", 5
    Series.Points.Add "Max", 1
    Series.Points.Add "Brian", 4

    Set ChartControl.Content.Series(0).Style = New ChartBarSeriesStyle

    thanks that works so far, but what about
    Set ChartControl.content.series(0).Style= New ChartBarSeriesStyle

    then how to I make the graph visible,
    Will this work?

    Modify ChartControl visible = 1


    Terms & ConditionsAccessibility statement