oanda api

      VB-Projekt "RateSample.vbproj" Part 2

      Bezieht sich auf vorhergehendes Psoting!

      Code 2:

      Quellcode

      1. #Region " Windows Form Designer generated code "
      2. Public Sub New()
      3. MyBase.New()
      5. 'This call is required by the Windows Form Designer.
      6. InitializeComponent()
      8. 'Add any initialization after the InitializeComponent() call
      10. End Sub
      12. 'Form overrides dispose to clean up the component list.
      13. Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
      14. If disposing Then
      15. If Not (components Is Nothing) Then
      16. components.Dispose()
      17. End If
      18. End If
      19. MyBase.Dispose(disposing)
      20. End Sub
      22. 'Required by the Windows Form Designer
      23. Private components As System.ComponentModel.IContainer
      25. 'NOTE: The following procedure is required by the Windows Form Designer
      26. 'It can be modified using the Windows Form Designer.
      27. 'Do not modify it using the code editor.
      28. Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
      29. Friend WithEvents tAsk As System.Windows.Forms.TextBox
      30. Friend WithEvents Label3 As System.Windows.Forms.Label
      31. Friend WithEvents tMean As System.Windows.Forms.TextBox
      32. Friend WithEvents Label5 As System.Windows.Forms.Label
      33. Friend WithEvents Label4 As System.Windows.Forms.Label
      34. Friend WithEvents Ask As System.Windows.Forms.Label
      35. Friend WithEvents tTimeStamp As System.Windows.Forms.TextBox
      36. Friend WithEvents tBid As System.Windows.Forms.TextBox
      37. Friend WithEvents Button1 As System.Windows.Forms.Button
      38. Friend WithEvents tPair As System.Windows.Forms.TextBox
      39. <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
      40. Me.components = New System.ComponentModel.Container
      41. Me.GroupBox1 = New System.Windows.Forms.GroupBox
      42. Me.tAsk = New System.Windows.Forms.TextBox
      43. Me.Label3 = New System.Windows.Forms.Label
      44. Me.tMean = New System.Windows.Forms.TextBox
      45. Me.Label5 = New System.Windows.Forms.Label
      46. Me.Label4 = New System.Windows.Forms.Label
      47. Me.Ask = New System.Windows.Forms.Label
      48. Me.tTimeStamp = New System.Windows.Forms.TextBox
      49. Me.tBid = New System.Windows.Forms.TextBox
      50. Me.Button1 = New System.Windows.Forms.Button
      51. Me.tPair = New System.Windows.Forms.TextBox
      52. Me.Label1 = New System.Windows.Forms.Label
      53. Me.Timer1 = New System.Windows.Forms.Timer(Me.components)
      54. Me.GroupBox1.SuspendLayout()
      55. Me.SuspendLayout()
      56. '
      57. 'GroupBox1
      58. '
      59. Me.GroupBox1.Controls.Add(Me.tAsk)
      60. Me.GroupBox1.Controls.Add(Me.Label3)
      61. Me.GroupBox1.Controls.Add(Me.tMean)
      62. Me.GroupBox1.Controls.Add(Me.Label5)
      63. Me.GroupBox1.Controls.Add(Me.Label4)
      64. Me.GroupBox1.Controls.Add(Me.Ask)
      65. Me.GroupBox1.Controls.Add(Me.tTimeStamp)
      66. Me.GroupBox1.Controls.Add(Me.tBid)
      67. Me.GroupBox1.Location = New System.Drawing.Point(144, 8)
      68. Me.GroupBox1.Name = "GroupBox1"
      69. Me.GroupBox1.Size = New System.Drawing.Size(272, 120)
      70. Me.GroupBox1.TabIndex = 7
      71. Me.GroupBox1.TabStop = False
      72. Me.GroupBox1.Text = "Tick"
      73. '
      74. 'tAsk
      75. '
      76. Me.tAsk.Location = New System.Drawing.Point(72, 16)
      77. Me.tAsk.Name = "tAsk"
      78. Me.tAsk.Size = New System.Drawing.Size(192, 20)
      79. Me.tAsk.TabIndex = 0
      80. Me.tAsk.Text = "Ask price"
      81. '
      82. 'Label3
      83. '
      84. Me.Label3.Location = New System.Drawing.Point(8, 96)
      85. Me.Label3.Name = "Label3"
      86. Me.Label3.Size = New System.Drawing.Size(64, 16)
      87. Me.Label3.TabIndex = 2
      88. Me.Label3.Text = "TimeStamp"
      89. '
      90. 'tMean
      91. '
      92. Me.tMean.Location = New System.Drawing.Point(72, 64)
      93. Me.tMean.Name = "tMean"
      94. Me.tMean.Size = New System.Drawing.Size(192, 20)
      95. Me.tMean.TabIndex = 0
      96. Me.tMean.Text = "Mean"
      97. '
      98. 'Label5
      99. '
      100. Me.Label5.Location = New System.Drawing.Point(8, 72)
      101. Me.Label5.Name = "Label5"
      102. Me.Label5.Size = New System.Drawing.Size(56, 16)
      103. Me.Label5.TabIndex = 2
      104. Me.Label5.Text = "Mean"
      105. '
      106. 'Label4
      107. '
      108. Me.Label4.Location = New System.Drawing.Point(8, 48)
      109. Me.Label4.Name = "Label4"
      110. Me.Label4.Size = New System.Drawing.Size(56, 16)
      111. Me.Label4.TabIndex = 2
      112. Me.Label4.Text = "Bid"
      113. '
      114. 'Ask
      115. '
      116. Me.Ask.Location = New System.Drawing.Point(8, 24)
      117. Me.Ask.Name = "Ask"
      118. Me.Ask.Size = New System.Drawing.Size(56, 16)
      119. Me.Ask.TabIndex = 2
      120. Me.Ask.Text = "Ask"
      121. '
      122. 'tTimeStamp
      123. '
      124. Me.tTimeStamp.Location = New System.Drawing.Point(72, 88)
      125. Me.tTimeStamp.Name = "tTimeStamp"
      126. Me.tTimeStamp.Size = New System.Drawing.Size(192, 20)
      127. Me.tTimeStamp.TabIndex = 0
      128. Me.tTimeStamp.Text = "timestamp"
      129. '
      130. 'tBid
      131. '
      132. Me.tBid.Location = New System.Drawing.Point(72, 40)
      133. Me.tBid.Name = "tBid"
      134. Me.tBid.Size = New System.Drawing.Size(192, 20)
      135. Me.tBid.TabIndex = 0
      136. Me.tBid.Text = "Bid price"
      137. '
      138. 'Button1
      139. '
      140. Me.Button1.Location = New System.Drawing.Point(16, 48)
      141. Me.Button1.Name = "Button1"
      142. Me.Button1.Size = New System.Drawing.Size(112, 32)
      143. Me.Button1.TabIndex = 6
      144. Me.Button1.Text = "Get Tick"
      145. '
      146. 'tPair
      147. '
      148. Me.tPair.Location = New System.Drawing.Point(16, 16)
      149. Me.tPair.Name = "tPair"
      150. Me.tPair.Size = New System.Drawing.Size(112, 20)
      151. Me.tPair.TabIndex = 5
      152. Me.tPair.Text = "EUR/USD"
      153. '
      154. 'Label1
      155. '
      156. Me.Label1.AutoSize = True
      157. Me.Label1.Location = New System.Drawing.Point(16, 96)
      158. Me.Label1.Name = "Label1"
      159. Me.Label1.Size = New System.Drawing.Size(39, 13)
      160. Me.Label1.TabIndex = 8
      161. Me.Label1.Text = "Label1"
      162. '
      163. 'Timer1
      164. '
      165. Me.Timer1.Enabled = True
      166. Me.Timer1.Interval = 1000
      167. '
      168. 'Form1
      169. '
      170. Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
      171. Me.ClientSize = New System.Drawing.Size(424, 141)
      172. Me.Controls.Add(Me.Label1)
      173. Me.Controls.Add(Me.GroupBox1)
      174. Me.Controls.Add(Me.Button1)
      175. Me.Controls.Add(Me.tPair)
      176. Me.Name = "Form1"
      177. Me.Text = "RateSample"
      178. Me.GroupBox1.ResumeLayout(False)
      179. Me.GroupBox1.PerformLayout()
      180. Me.ResumeLayout(False)
      181. Me.PerformLayout()
      183. End Sub
      185. #End Region
      Wie Samen, die unter der Schneedecke träumen, träumen eure Herzen vom Frühling. Vertraut diesen Träumen, denn in ihnen verbirgt sich das Tor zur Unendlichkeit. Khalil Gibran

      VB-Projekt "RateSample.vbproj"

      In C# läuft noch nichts! Dafür hab ich mal einen Timer im VB-SampleCode von gestern, (siehe Bild von 12.09.07, 19:56) eingebaut. Dieser ersetzt den Button "Get Tick" und ich kann das Zeitintervall auch auf > 1 Sek. einstellen, ist mir wichtig.
      Was ich nicht kapiere, warum dieses VB-Projekt "RateSample.vbproj" sich nicht über "öffnen" in der VB Express IDE öffnen läßt, sondern nur durch Doppelklick im Dateiexplorer?
      Warnung 1 Das Element 'PropertyGroup' in Namespace 'http://schemas.microsoft.com/developer/msbuild/2003' hat ein ungültiges untergeordnetes Element 'UpgradeBackupLocation' in Namespace 'http://schemas.microsoft.com/developer/msbuild/2003'. Erwartet wurde die Liste möglicher Elemente: 'Property' in Namespace 'http://schemas.microsoft.com/developer/msbuild/2003'. C:\wilhd2007\finz\_projekt\_tws-API\oanda\_vb\oanda_rate\RateSample14\RateSample.vbproj Zeile 30 Spalte 6 Sonstige Dateien
      Der Code dazu (hier = Zeile 9 = End Sub ' Zeile 30:

      Quellcode

      1. 'Form overrides dispose to clean up the component list.
      2. Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
      3. If disposing Then
      4. If Not (components Is Nothing) Then
      5. components.Dispose()
      6. End If
      7. End If
      8. MyBase.Dispose(disposing)
      9. End Sub ' Zeile 30


      Was ich nicht wußte, dass das kleine VB-Programm sich dann ohne Oandaplattform betreiben läßt, bei der TWs geht das ja zB. nicht, soweit ich informiert bin. Dafür ist aber auch der Verbindungsaufbau komplizierter.
      Da geht es für den Anfänger gleich in die Vollen! :D Mit Instanzen instanziieren und Konstruktor etc. "Von der Klasse zum Objekt: der Konstruktor" heißt es in meinem Buch: "Richtig einsteigen: Programmieren lernen mit Visual C# 2005." Hab ich noch nicht geblickt...
      Hier mal der aktuelle Code:

      Quellcode

      1. Imports fxClientAPI
      2. Public Class Form1
      3. Inherits System.Windows.Forms.Form
      4. Public game As fxGame
      5. Friend WithEvents Label1 As System.Windows.Forms.Label
      6. Friend WithEvents Timer1 As System.Windows.Forms.Timer
      7. Public rate_table As RateTable
      9. # Region " Windows Form Designer generated code "
      10. # Allerlei fürs GUI und Funktionalität von oanda programmiert... siehe Code 2
      11. # End Region
      13. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
      14. Dim fx_pair As fxPair
      15. Dim fx_tick As fxTick
      16. Try
      17. fx_pair = New fxPair(tPair.Text)
      18. fx_tick = rate_table.GetRate(fx_pair)
      19. tAsk.Text = fx_tick.Ask
      20. tBid.Text = fx_tick.Bid
      21. tMean.Text = fx_tick.Mean
      22. tTimeStamp.Text = fx_tick.Timestamp
      23. Catch ex As OAException
      24. MsgBox("Caught exception: " + ex.Message, MsgBoxStyle.Exclamation)
      25. End Try
      26. End Sub
      28. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
      29. game = New fxGame
      30. game.Login("Username", "Password")
      31. rate_table = game.RateTable
      32. End Sub
      34. Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
      35. Label1.Text = My.Computer.Clock.LocalTime.ToLongTimeString
      36. Dim fx_pair As fxPair
      37. Dim fx_tick As fxTick
      38. Try
      39. fx_pair = New fxPair(tPair.Text)
      40. fx_tick = rate_table.GetRate(fx_pair)
      41. tAsk.Text = fx_tick.Ask
      42. tBid.Text = fx_tick.Bid
      43. tMean.Text = fx_tick.Mean
      44. tTimeStamp.Text = fx_tick.Timestamp
      45. Catch ex As OAException
      46. MsgBox("Caught exception: " + ex.Message, MsgBoxStyle.Exclamation)
      47. End Try
      48. End Sub


      Bis bald. (Deine Nachricht ist zu lang. Es stehen maximal 10 000 Zeichen zur Verfügung.) Also Code 2 im nächsten Posting.
      Wie Samen, die unter der Schneedecke träumen, träumen eure Herzen vom Frühling. Vertraut diesen Träumen, denn in ihnen verbirgt sich das Tor zur Unendlichkeit. Khalil Gibran

      Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „kimba“ ()

      Anfänger

      Also ich bin Anfänger. Aber doch mit etwas Backround. Bei VB ist mir einfach die Syntax unsympathisch, ich habs immer wieder versucht...
      Ich hab vor Jahren beim "Webdesign" etwas Perl gelernt, dann zu dieser Zeit auch mal einen 3 Tagekurs C++ in der VHS... Perl hatten die nicht und brauchte dringend Nachhilfe :D Hat aber dann doch was gebracht, für die Perlsachen damals. Naja von daher hab ich nicht das Problem mit der Syntax von C#, ist mir sogar lieber als VB! Aber vom Programmieren hab ich keinen Plan kann man sagen, Ereignisbehandlungsmethode, OOP und sobald es etwas verschachtelt wird hab ich Probleme.
      Wenn ich meine Ticks mal in einer "Variablen" hab, dann krieg ich es in Eigenregie hin die in eine Datei zu schreiben etc.
      Oder Code ein bißschen anpaßen - meinen Usernamen mit dem default aus dem Sample austauschen... ;)

      Ich sammle mal ein paar "dumme" Fragen, vielleicht hat einer Lust+Zeit dazu ein paar KurzTips zu geben.

      Bis bald.
      Wie Samen, die unter der Schneedecke träumen, träumen eure Herzen vom Frühling. Vertraut diesen Träumen, denn in ihnen verbirgt sich das Tor zur Unendlichkeit. Khalil Gibran

      Ich bin auch der Meinung das C# für einen Anfänger schwieriger zu erlernen ist als VB.NET, weil m.M. nach der Syntax schwieriger zu verstehen ist und es für VB sehr viel mehr Tutorials und Ressourcen gratis im Netz gibt. Performance-Mässig ist 0 Unterschied.
      Trotzdem viel Glück. Ich bin überzeugt davon, wenn sich wer richtig reinkniet, kann man das recht schnell erlernen, zumal man für Trading-bezogene Programme man eigentlich nicht viel mehr als die Grundbegriffe benötigt.

      Erste Schritte mit Konsole und "GUI"

      Zwischenbericht:
      Mit VB Express hab ich zwei Konsolen Bsp. gleich zum Laufen gebracht, eine andere wollte nicht...
      Es gibt verschiedenen samples und zwei dll's und ein xml file, hab ich aber erst nach intuitivem Suchengefunden.

      Dann mal nach den dll's geschaut und ins Projekt RateSample eingebunden, läuft.

      In C# Express hab ich noch nichts zu Laufen gebracht!

      Hier zwei Bildchen mit VB:
      Bilder

      • 01_form1.PNG

        8,31 kB, 477×218, 210 mal angesehen

      • 01_konsole.PNG

        38,19 kB, 884×440, 211 mal angesehen
      Wie Samen, die unter der Schneedecke träumen, träumen eure Herzen vom Frühling. Vertraut diesen Träumen, denn in ihnen verbirgt sich das Tor zur Unendlichkeit. Khalil Gibran

      Your FXGame account has been activated for API access

      Die API library hab ich noch nicht bekommen (wärend dem Schreiben hier ist sie eingetroffen;)), aber mein GameAccount soll schon aktiviert sein. Die sind recht flott, innert einem Arbeitstag, wurden meine Anfragen per Mail/Fax beantwortet.

      Dear "Kimba",
      I will send you the API library/distribution in a separate e-mail.
      Your FXGame account has been activated for API access. Please proceed with your development and testing there. When you are ready to go live, please contact us (api@oanda.com) and let us know.
      If you have any technical support questions or problems please send an e-mail to api@oanda.com.
      Kind regards
      OANDA FXTrade API Team

      Xaron, Scalpt es mehr oder ist es eher geruhsamer? :D Bingo, beides. Geruhsames Scalpen, der Traum der Träume... ;)
      Aber, ich springe mehr oder weniger ins kalte Wasser, beidseitig. Hab meine Strategie so gut es geht backgetestet - ist ja immer so eine Sache für sich u. je nach Strategie... aber ich habe dieses mal ein anderes Gefühl/Sicherheit als früher, dass ich auf meinem Weg bin - ist nicht meine erste Strategie - und somit ist für mich alles im grünen Bereich und ich muß halt machen, machen u. aufmerksam schauen was so passiert!

      Programmieranfänger noch dazu... Aber ich will erst mal nur manuell bis "halbautomatisch" traden und dann nach und nach ausbauen. Das TradingPad von Purri hat mich durchaus animiert mal in die "Pötte" zu kommen. Also werd ich erst mal ein ganz simples Tradingpad (nur Quotes und u. MKT Orders Buy/Sell) versuche zu programmieren. Dazu helfen ganz gut die zwei oanda VB.NET Samples. Die werde ich mal als erstes "zusammenstöpseln" versuchen. Und wenns gelingt einen kleinen Tickchart einbauen...

      Richtig einsteigen: Programmieren lernen mit Visual C# 2005.

      Vielleicht denkt der ein oder andere, dass ich ein Spinner sei, mit der oanda Api Programmieren zu lernen... Sag da nur: "Jedem Tierchen sein Pläsierchen!"

      Bis bald...
      Wie Samen, die unter der Schneedecke träumen, träumen eure Herzen vom Frühling. Vertraut diesen Träumen, denn in ihnen verbirgt sich das Tor zur Unendlichkeit. Khalil Gibran

      Interessant! Ich bin gespannt! Halt uns auf dem Laufenden.

      Früher oder später werde ich mir die wohl auch mal holen...

      Darf ich fragen, was für eine Art System Du dann handeln möchtest? Scalpt es mehr oder ist es eher geruhsamer? Du musst natürlich keine Details nennen, mich interessiert nur Die Art, nicht das System an sich, wobei es natürlich interessant wäre. ;)

      Gruß - Xaron

      oanda api

      Hallo,
      bestelle mir gerade die oanda api und will meine praktischen Erfahrungen hier posten.

      1. Getting Started
      1.1. Ensure your FXTrade account has a minimum of USD $600
      1.2. Review and sign the API Legal Agreement and fax it back to 1.212.208.4356

      Das API Legal Agreement muß man auf allen 11 Seiten "unterschreiben/signieren"!
      Ob die "Initialien" reichen, oder was genau mit "initial/initialled" gemeint ist hab ich nicht gecheckt:
      oanda: "we do need to have all pages initialled by you"
      oanda: "Please initial each page"

      Dann stellt man sich die Fragen, ob man später noch Subaccounts adden kann und/oder die Api Version wechseln zB. von VB.NET zu Java... ;)
      Ja! :-))

      oanda: "After we have received your completed application and your service has been set up, you do have the option of changing your API version and/or adding sub accounts at a later date."

      So, dann ist jetzt mein zweites Fax unterwegs! ;)

      Bis bald...
      Wie Samen, die unter der Schneedecke träumen, träumen eure Herzen vom Frühling. Vertraut diesen Träumen, denn in ihnen verbirgt sich das Tor zur Unendlichkeit. Khalil Gibran