Xojo Conferences
XDCMay2019MiamiUSA

Platforms to show: All Mac Windows Linux Cross-Platform

/ChartDirector/multiradar
Function:
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/multiradar
This example is the version from Sun, 17th Mar 2012.
Project "multiradar.rbp"
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 chart dim data0(-1) as double = array(90, 60, 85, 75, 55.0) dim data1(-1) as double = array(60, 80, 70, 80, 85.0) // The labels for the chart dim labels(-1) as string = array("Speed", "Reliability", "Comfort", "Safety", "Efficiency") // Create a PolarChart object of size 480 x 380 pixels. Set background color to // gold, with 1 pixel 3D border effect dim c as new CDPolarChartMBS(480, 380, CDPolarChartMBS.goldColor, &h000000, 1) // Add a title to the chart using 15 pts Times Bold Italic font. The title text // is white (ffffff) on a deep blue (000080) background dim t as CDTextBoxMBS=c.addTitle("Space Travel Vehicles Compared", "timesbi.ttf", 15, &hffffff) t.setBackground(&h000080) // Set plot area center at (240, 210), with 150 pixels radius, and a white // (ffffff) background. c.setPlotArea(240, 210, 150, &hffffff) // Add a legend box at top right corner (470, 35) using 10 pts Arial Bold font. // Set the background to silver, with 1 pixel 3D border effect. dim b as CDLegendBoxMBS b = c.addLegend(470, 35, true, "arialbd.ttf", 10) b.setAlignment(CDPolarChartMBS.kTopRight) b.setBackground(CDPolarChartMBS.silverColor, CDPolarChartMBS.kTransparent, 1) // Add an area layer to the chart using semi-transparent blue (&h806666cc). Add a // blue (&h6666cc) line layer using the same data with 3 pixel line width to // highlight the border of the area. call c.addAreaLayer(data0, &h806666CC,"Model Saturn") call c.addLineLayer(data0, &h6666cc).setLineWidth(3) // Add an area layer to the chart using semi-transparent red (&h80cc6666). Add a // red (&hcc6666) line layer using the same data with 3 pixel line width to // highlight the border of the area. call c.addAreaLayer(data1, &h80CC6666,"Model Jupiter") call c.addLineLayer(data1, &hcc6666).setLineWidth(3) // Set the labels to the angular axis as spokes. call c.angularAxis.setLabels(labels) // 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.




Links
MBS Xojo Plugins