Platforms to show: All Mac Windows Linux Cross-Platform
/ChartDirector/threedbar lines
Required plugins for this example: MBS ChartDirector Plugin
You find this example project in your Plugins Download as a Xojo project file within the examples folder: /ChartDirector/threedbar lines
This example is the version from Sun, 17th Mar 2012.
Project "threedbar lines.xojo_binary_project"
Class App Inherits Application
Const kEditClear = "&Löschen"
Const kFileQuit = "Beenden"
Const kFileQuitShortcut = ""
End Class
Class PicWindow Inherits Window
EventHandler Sub Open()
// The data for the bar chart
dim dataX(-1) as integer
dim dataY(-1) as integer
dim dataZ(-1) as integer
dim colors(-1) as color
// create 20 random dots
for i as integer = 1 to 20
dataX.Append rnd*100
dataY.Append rnd*100
dataZ.Append rnd*100
colors.Append RGB(rnd*256, rnd*256, rnd*256)
next
dataY.SortWith(dataz, colors, datax)
// Create a XYChart object of size 300 x 280 pixels
dim c as new CDXYChartMBS(500, 500)
// Set the plotarea at (45, 30) and of size 200 x 200 pixels
call c.setPlotArea(50, 150, 300, 300)
// Add a title to the chart
call c.addTitle("X/Y/Z dots in 3D")
// Add a title to the y axis
call c.yAxis.setTitle("Y")
// Add a title to the x axis
call c.xAxis.setTitle("X")
// Add a bar chart layer with green (0x00ff00) bars using the given data
dim y as integer = 0
for i as integer = 0 to UBound(datax)
dim yy as integer = datay(i)-y
y = datay(i)
dim tdata(99) as Double
for n as integer = 0 to 99
tdata(n) = c.kNoValue
next
tdata(datax(i)) = dataZ(i)
dim b as CDBarLayerMBS
b=c.addBarLayer(tdata, colors(i))
b.set3D(1,yy-1)
b.setBorderColor colors(i)
next
// output the chart
Backdrop=c.makeChartPicture
End EventHandler
End Class
MenuBar MenuBar1
MenuItem FileMenu = "&Ablage"
MenuItem FileQuit = "#App.kFileQuit"
MenuItem EditMenu = "&Bearbeiten"
MenuItem EditUndo = "&Rückgängig"
MenuItem UntitledMenu1 = "-"
MenuItem EditCut = "&Ausschneiden"
MenuItem EditCopy = "&Kopieren"
MenuItem EditPaste = "&Einfügen"
MenuItem EditClear = "#App.kEditClear"
MenuItem UntitledMenu0 = "-"
MenuItem EditSelectAll = "&Alles auswählen"
End MenuBar
End Project
See also:
The items on this page are in the following plugins: MBS ChartDirector Plugin.