Contact Sales

Call center available M-F 9:00 - 4:00 US Eastern Time.

Case Studies

Kinook

Kinook selected Xtreme Toolkit Professional with Visual C++ over many other...

Gantt Chart

A Gantt chart is a type of range bar chart commonly used for task\schedule planning. Typically a Gantt chart is used for displaying the progression of a project and will display the length each individual task will take versus the progression of time.

// Sample Code
'Gantt series sample

Private Function GetDate(nMonth As Long, nDay As Long) As Double
    GetDate = (nMonth - 1) * 31 + (nDay - 1)
End Function

 

    ChartControl.Content.Titles.Add "Project Development Schedule"
   
    ChartControl.Content.Legend.Visible = True
    ChartControl.Content.Legend.HorizontalAlignment = xtpChartLegendFar
    ChartControl.Content.Legend.Direction = xtpChartLegendLeftToRight
 
    Dim Series As ChartSeries
    Set Series = ChartControl.Content.Series.Add("Planned")
        
    Series.Points.Add2 "Explore Market Need", GetDate(1, 1), GetDate(3, 4)
    Series.Points.Add2 "Develop Concept for Product", GetDate(2, 1), GetDate(3, 10)
    Series.Points.Add2 "Begin Development Cycle", GetDate(3, 10), GetDate(10, 20)
    Series.Points.Add2 "Develop GUI", GetDate(5, 1), GetDate(8, 15)
    Series.Points.Add2 "User Interface Test Evaluation", GetDate(7, 1), GetDate(8, 25)
    Series.Points.Add2 "Alpha Version Release", GetDate(7, 13), GetDate(7, 24)
    Series.Points.Add2 "Beta Version Release", GetDate(10, 13), GetDate(10, 24)
    Series.Points.Add2 "Design Box and CD Labels", GetDate(10, 1), GetDate(11, 1)
    Series.Points.Add2 "Final Quality Testing", GetDate(10, 1), GetDate(11, 25)
    Series.Points.Add2 "FCS Release", GetDate(11, 12), GetDate(11, 23)
    Series.Points.Add2 "Production and Packaging", GetDate(11, 12), GetDate(11, 25)
       
    Set Series = ChartControl.Content.Series.Add("Completed")
    Series.Points.Add2 "Explore Market Need", GetDate(1, 1), GetDate(3, 4)
    Series.Points.Add2 "Develop Concept for Product", GetDate(2, 1), GetDate(3, 10)
    Series.Points.Add2 "Begin Development Cycle", GetDate(3, 10), GetDate(7, 7)
    Series.Points.Add2 "Develop GUI", GetDate(5, 1), GetDate(7, 7)
    Series.Points.Add2 "User Interface Test Evaluation", GetDate(7, 1), GetDate(7, 7)
    
    Set ChartControl.Content.Series(0).Style = New ChartGanttSeriesStyle
    Set ChartControl.Content.Series(1).Style = New ChartGanttSeriesStyle
    
    ChartControl.Content.Series(0).Style.Label.Visible = False
    ChartControl.Content.Series(1).Style.Label.Visible = False
    
    ChartControl.Content.Series(1).Style.BarWidth = 0.3
    
    Dim Diagram As ChartDiagram2D
    Set Diagram = ChartControl.Content.Series(0).Diagram
    
    Diagram.AxisX.Title.Visible = True
    Diagram.AxisX.Title.Text = "Tasks"
    Diagram.AxisX.Reversed = True
    
    Diagram.AxisY.Title.Visible = False
    Diagram.AxisY.Range.ShowZeroLevel = False
    Diagram.AxisY.Range.SideMargins = False
    
    Dim ConstantLine As ChartAxisConstantLine
    Set ConstantLine = Diagram.AxisY.ConstantLines.Add("Progress Line")
    ConstantLine.LegendVisible = False
    ConstantLine.AxisValue = GetDate(7, 7)
    
    Diagram.Rotated = True
// Sample C# Code