Platforms to show: All Mac Windows Linux Cross-Platform

/ChartDirector/chart like watch


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/chart like watch

This example is the version from Wed, 19th Mar 2019.

Project "chart like watch.xojo_binary_project"
Class App Inherits Application
Const kEditClear = "&Löschen"
Const kFileQuit = "Beenden"
Const kFileQuitShortcut = ""
End Class
Class MainWindow Inherits Window
EventHandler Sub Open() ' The data for the pie chart dim angles() as double ' The sum must be 360 angles.Append 270 angles.Append 90 // our colors dim colors() as integer colors.Append &HA00060 colors.Append &H3f0025 const midRadius = 80 const halfRingWidth = 20 dim chartWidth as integer = (midRadius + halfRingWidth + 10) * 2 dim chartHeight as integer = chartWidth dim cX as integer = chartWidth / 2 dim cY as integer = chartHeight / 2 // start with a pie chart dim c as new CDPieChartMBS(chartWidth, chartHeight, &H004060) Call c.setDonutSize(cX, cY, midRadius + halfRingWidth, midRadius - halfRingWidth) ' Set the pie data and the pie labels Call c.setData(angles) Call c.setLabelFormat(" ") Call c.setColors(c.kDataColor, colors) // generate chart dim d as CDDrawAreaMBS = c.makeChart() // and draw some circles Call d.circle(cX, cY - midRadius, halfRingWidth, halfRingWidth, colors(0), colors(0)) dim endX as double = cX + midRadius * Sin(angles(0) * 3.1416 / 180) dim endY as double = cY - midRadius * Cos(angles(0) * 3.1416 / 180) Call d.circle(endX, endY, halfRingWidth, halfRingWidth, colors(0), colors(0)) Call d.circle(endX, endY, halfRingWidth - 5, halfRingWidth - 5, &HEEEEEE, &HEEEEEE) Call c.addText(endX, endY, "3", "arialbd.ttf", 20, colors(0), c.kCenter) Call d.circle(cX, cY, 40, 40, &HEEEEEE, &HEEEEEE) Call c.addText(cX, cY, "3", "arialbd.ttf", 40, colors(0), c.kCenter) 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...