Revision: 43818
Initial Code
Initial URL
Initial Description
Initial Title
Initial Tags
Initial Language
at March 31, 2011 08:03 by ram321
Initial Code
'---------------------------- '---------------------------- ' protections (start) '---------------------------- '---------------------------- '>>>>>>>>>>>>new If ((itrade = 1) And (icomesell_save = 1) And (ikc < 100)) Then If (ibuy = 1) Then toto = shtDB.Range("A1").Cells(i, 1).Value - xenter_ini 'intra_close(ik, ikc) - intra_close(ik, ikc0) If (toto < -30) Then cond_break_buystrategy = True End If End If If ((itrade = 3) And (itradelong = 1) And (itradeshort = 1)) Then t1 = shtTrading.Range("F2").Cells(1, 1).Value 'temp_tradesshort(1) t2 = shtTrading.Range("E2").Cells(1, 1).Value 'temp_tradeslong(1) t3 = shtTrading.Range("D2").Cells(3, 1).Value 'temp_trades(3) If ((t1 > 40) And (ikc < 800)) Then If ((t2 < -20) And (t3 = 0)) Then ibreak = 1 End If End If If ((itrade = 2)) Then t1 = shtTrading.Range("D2").Cells(1, 1).Value 'temp_trades(1) t2 = shtTrading.Range("D2").Cells(2, 1).Value 'temp_trades(2) If ((temp_save < -60) And (t2 = 0)) Then ibreak = 1 End If
Initial URL
Initial Description
Initial Title
automated trading - code vba 5
Initial Tags
Initial Language
Visual Basic