Platforms to show: All Mac Windows Linux Cross-Platform

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/threedbubble2
This example is the version from Sun, 17th Mar 2012.
Project "threedbubble2.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) glass spheres, where // the sphere size is modulated by dataZ0. This creates a bubble effect. c.addScatterLayer(dataX0, dataY0, "Technology AAA", c.kGlassSphere2Shape, 15, &hff3333).setSymbolScale(dataZ0) // Add (dataX1, dataY1) as a scatter layer with blue (0000ff) glass spheres, // where the sphere size is modulated by dataZ1. This creates a bubble effect. c.addScatterLayer(dataX1, dataY1, "Technology BBB", c.kGlassSphere2Shape, 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

Feedback, Comments & Corrections

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

The biggest plugin in space...

MBS FileMaker blog

Start Chat