Platforms to show: All Mac Windows Linux Cross-Platform

/ChartDirector/threedbubble3


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/threedbubble3

This example is the version from Sun, 17th Mar 2012.

Project "threedbubble3.xojo_binary_project"
Class App Inherits Application
Const kEditClear = "&Löschen"
Const kFileQuit = "Beenden"
Const kFileQuitShortcut = ""
End Class
Class Window1 Inherits Window
EventHandler Sub Open() // The XYZ points for the bubble chart dim dataX0(-1) as double = array(170.0, 300, 1000, 1700) dim dataY0(-1) as double = array(16.0, 69, 16, 75) dim dataZ0(-1) as double = array(52.0, 105, 88, 140) dim dataX1(-1) as double = array(500.0, 1000, 1300) dim dataY1(-1) as double = array(40.0, 58, 85) dim dataZ1(-1) as double = array(140.0, 202, 84) // Create a XYChart object of size 540 x 480 pixels dim c as new CDXYChartMBS(540, 480) // Set the plotarea at (70, 65) and of size 400 x 350 pixels. Turn on both // horizontal and vertical grid lines with light grey color (0xc0c0c0) call c.setPlotArea(70, 65, 400, 350, -1, -1, c.kTransparent, &hc0c0c0, -1) // Add a legend box at (70, 30) (top of the chart) with horizontal layout. Use 12 // pts Times Bold Italic font. Set the background and border color to // Transparent. call c.addLegend(70, 30, false, "timesbi.ttf", 12).setBackground(c.kTransparent) // Add a title to the chart using 18 pts Times Bold Itatic font. call c.addTitle("Product Comparison Chart", "timesbi.ttf", 18) // Add titles to the axes using 12 pts Arial Bold Italic font call c.yAxis.setTitle("Capacity (tons)", "arialbi.ttf", 12) call c.xAxis.setTitle("Range (miles)", "arialbi.ttf", 12) // Set the axes line width to 3 pixels c.xAxis.setWidth(3) c.yAxis.setWidth(3) // Add (dataX0, dataY0) as a scatter layer with red (ff3333) spheres, where the // sphere size is modulated by dataZ0. This creates a bubble effect. c.addScatterLayer(dataX0, dataY0, "Technology AAA", c.kSolidSphereShape, 15, &hff3333).setSymbolScale(dataZ0) // Add (dataX1, dataY1) as a scatter layer with blue (0000ff) spheres, where the // sphere size is modulated by dataZ1. This creates a bubble effect. c.addScatterLayer(dataX1, dataY1, "Technology BBB", c.kSolidSphereShape, 15, &h0000ff).setSymbolScale(dataZ1) // 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

The items on this page are in the following plugins: MBS ChartDirector Plugin.


The biggest plugin in space...