Platforms to show: All Mac Windows Linux Cross-Platform

/ChartDirector/semicirclemeter


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

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

Project "semicirclemeter.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 value to display on the meter const value = 27.48 // Create an AngularMeter object of size 200 x 115 pixels, with silver background // color, black border, 2 pixel 3D border border and rounded corners dim m as new CDAngularMeterMBS(200, 115, CDBaseChartMBS.silverColor, &h000000, 2) m.setRoundedFrame // Set the meter center at (100, 100), with radius 85 pixels, and span from -90 // to +90 degress (semi-circle) m.setMeter(100, 100, 85, -90, 90) // Meter scale is 0 - 100, with major tick every 20 units, minor tick every 10 // units, and micro tick every 5 units m.setScale(0, 100, 20, 10, 5) // Set 0 - 60 as green (66FF66) zone m.addZone(0, 60, 0, 85, &h66ff66) // Set 60 - 80 as yellow (FFFF33) zone m.addZone(60, 80, 0, 85, &hffff33) // Set 80 - 100 as red (FF6666) zone m.addZone(80, 100, 0, 85, &hff6666) // Add a text label centered at (100, 60) with 12 pts Arial Bold font call m.addText(100, 60, "PSI", "arialbd.ttf", 12, CDBaseChartMBS.kTextColor, CDBaseChartMBS.kCenter) // Add a text box at the top right corner of the meter showing the value // formatted to 2 decimal places, using white text on a black background, and // with 1 pixel 3D depressed border m.addText(156, 8, m.formatValue(value, "2"), "arial.ttf", 8, &hffffff).setBackground(&h000000, 0, -1) // Add a semi-transparent blue (40666699) pointer with black border at the // specified value call m.addPointer(value, &h40666699, &h000000) // Output the chart Backdrop=m.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...