Xojo Developer Conference
25/27th April 2018 in Denver.
MBS Xojo Conference
6/7th September 2018 in Munich, Germany.

Platforms to show: All Mac Windows Linux Cross-Platform

/ChartDirector/finance animated
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/finance animated
This example is the version from Sun, 17th Mar 2012.
Project "finance animated.rbp"
Class App Inherits Application
Const kEditClear = "&Löschen"
Const kFileQuit = "Beenden"
Const kFileQuitShortcut = ""
End Class
Class PicWindow Inherits Window
Control Timer1 Inherits Timer
ControlInstance Timer1 Inherits Timer
EventHandler Sub Action() count=count+1 if count=130 then me.Mode=me.ModeOff end if redraw End EventHandler
End Control
EventHandler Sub Open() // Create a finance chart demo containing 100 days of data const noOfDays = 100 // To compute moving averages starting from the first day, we need to get extra // data points before the first day const extraDays = 30 // In this exammple, we use a random number generator utility to simulate the // data. We set up the random table to create 6 cols x (noOfDays + extraDays) // rows, using 9 as the seed. rantable = new CDRanTableMBS(9, 6, noOfDays + extraDays) // Set the 1st col to be the timeStamp, starting from Sep 4, 2002, with each row // representing one day, and counting week days only (jump over Sat and Sun) rantable.setDateCol(0, CDFinanceChartMBS.chartTime(2002, 9, 4), 86400, true) // Set the 2nd, 3rd, 4th and 5th columns to be high, low, open and close data. // The open value starts from 100, and the daily change is random from -5 to 5. rantable.setHLOCCols(1, 100, -5, 5) // Set the 6th column as the vol data from 5 to 25 million rantable.setCol(5, 50000000, 250000000) count=30 End EventHandler
EventHandler Sub Paint(g As Graphics) draw G End EventHandler
Sub draw(g as Graphics) const extraDays = 30 // Now we read the data from the table into arrays dim timeStamps(-1) as double = rantable.getCol(0).Values dim highData(-1) as double = rantable.getCol(1).Values dim lowData(-1) as double = rantable.getCol(2).Values dim openData(-1) as double = rantable.getCol(3).Values dim closeData(-1) as double = rantable.getCol(4).Values dim volData(-1) as double = rantable.getCol(5).Values // Create a FinanceChart object of width 640 pixels dim c as new CDFinanceChartMBS(640) for i as integer=count to UBound(timeStamps) highData(i)=c.kNoValue lowData(i)=c.kNoValue openData(i)=c.kNoValue closeData(i)=c.kNoValue volData(i)=c.kNoValue next // Add a title to the chart call c.addTitle("Finance Chart Demonstration") // Set the data into the finance chart object call c.setData(timeStamps, highData, lowData, openData, closeData, volData, extraDays) // Add the main chart with 240 pixels in height dim m as CDXYChartMBS = c.addMainChart(240) m.yAxis.setLinearScale 70,170 // Add a 5 period simple moving average to the main chart, using brown color call c.addSimpleMovingAvg(5, &h663300) // Add a 20 period simple moving average to the main chart, using purple color call c.addSimpleMovingAvg(20, &h9900ff) // Add an HLOC symbols to the main chart, using green/red for up/down days call c.addHLOC(&h008000, &hcc0000) // Add 20 days bollinger band to the main chart, using light blue (9999ff) as the // border and semi-transparent blue (c06666ff) as the fill color call c.addBollingerBand(20, 2, &h9999ff, &hc06666ff) // Add a 75 pixels volume bars sub-chart to the bottom of the main chart, using // green/red/grey for up/down/flat days call c.addVolBars(75, &h99ff99, &hff9999, &h808080) // Append a 14-days RSI indicator chart (75 pixels high) after the main chart. // The main RSI line is purple (800080). Set threshold region to +/- 20 (that is, // RSI = 50 +/- 25). The upper/lower threshold regions will be filled with red // (ff0000)/blue (0000ff). dim rsi as CDXYChartMBS = c.addRSI(75, 14, &h800080, 20, &hff0000, &h0000ff) rsi.yAxis.setLinearScale 0,100 // Append a 12-days momentum indicator chart (75 pixels high) using blue (0000ff) // color. dim mom as CDXYChartMBS = c.addMomentum(75, 12, &h0000ff) mom.yAxis.setLinearScale -40,40 // Output the chart g.DrawPicture c.makeChartPicture,0,0 End Sub
Sub redraw() draw Graphics End Sub
Property count As Integer
Property rantable As CDRanTableMBS
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

See also:

Feedback, Comments & Corrections

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




Links
MBS Xojo Plugins