Orders Execution
Miscellaneous
0
Views
0
Downloads
0
Favorites
Pendings Monitor (no dll)
ÿþ# p r o p e r t y c o p y r i g h t " I g o r Z a k h a r o v , I g o r N e w M a i l @ y a n d e x . r u "
# p r o p e r t y v e r s i o n " 1 . 0 "
# p r o p e r t y l i n k " h t t p s : / / w w w . m q l 5 . c o m / r u / u s e r s / i g o r . i "
# p r o p e r t y d e s c r i p t i o n " "
# p r o p e r t y s t r i c t
e x t e r n i n t s h i f t = 1 0 0 ; / / P e n d i n g s t e p , p t s
e x t e r n d o u b l e f a c t o r = 2 ; / / M a r t i g a l e s t e p
i n p u t s t r i n g C a p 3 = " " ; / / . . . P r o f i t c o n t r o l :
e x t e r n d o u b l e P r o f B u x = 2 0 ; / / P r o f i t f o r E x i t , A c c o u n t c u r r e n c y
e x t e r n i n t G r i d S i z e = 2 ; / / G r i d S i z e f o r e x i t
/ * i n p u t s t r i n g C a p 4 = " " ; / / . . . T i m e r :
e x t e r n b o o l L e t G o T o S l e e p = f a l s e ; / / A l l o w h y b e r n a t i o n a f t e r c l o s i n g
e x t e r n i n t T 1 = 2 0 ; / / F a l l a s l e e p a f t e r . . .
e x t e r n i n t T 2 = 8 ; / / . . . ' t i l l
* /
s t r i n g o b j _ p r e f = " P C _ " ;
i n t F S = 1 0 ;
/ *
# i m p o r t " k e r n e l 3 2 . d l l "
i n t W i n E x e c ( u c h a r & c o m m a n d [ ] , u i n t w i n d o w _ s h o w _ m o d e ) ;
# i m p o r t
* /
v o i d O n I n i t ( )
{
/ / i f ( ! I s D l l s A l l o w e d ( ) & & L e t G o T o S l e e p ) A l e r t ( " L e t E A t o u s e D L L i n s e t t i n g s ! ! ! " ) ;
O b j e c t C r e a t e ( C h a r t I D ( ) , o b j _ p r e f + " S h o w " , O B J _ B U T T O N , 0 , 0 , 0 ) ;
O b j e c t S e t I n t e g e r ( C h a r t I D ( ) , o b j _ p r e f + " S h o w " , O B J P R O P _ X D I S T A N C E , F S * 6 ) ;
O b j e c t S e t I n t e g e r ( C h a r t I D ( ) , o b j _ p r e f + " S h o w " , O B J P R O P _ Y D I S T A N C E , 2 0 ) ;
O b j e c t S e t I n t e g e r ( C h a r t I D ( ) , o b j _ p r e f + " S h o w " , O B J P R O P _ X S I Z E , i n t ( F S * 5 . 6 ) ) ; / / - - - CAB0=>28< @07<5@ :=>?:8
O b j e c t S e t I n t e g e r ( C h a r t I D ( ) , o b j _ p r e f + " S h o w " , O B J P R O P _ Y S I Z E , F S * 2 ) ;
O b j e c t S e t I n t e g e r ( C h a r t I D ( ) , o b j _ p r e f + " S h o w " , O B J P R O P _ C O R N E R , C O R N E R _ R I G H T _ U P P E R ) ; / / - - - CAB0=>28< C3>; 3@0D8:0, >B=>A8B5;L=> :>B>@>3> 1C4CB >?@545;OBLAO :>>@48=0BK B>G:8
O b j e c t S e t S t r i n g ( C h a r t I D ( ) , o b j _ p r e f + " S h o w " , O B J P R O P _ T E X T , " S h o w T P " ) ; / / - - - CAB0=>28< B5:AB
O b j e c t S e t S t r i n g ( C h a r t I D ( ) , o b j _ p r e f + " S h o w " , O B J P R O P _ F O N T , " A r i a l " ) ;
O b j e c t S e t I n t e g e r ( C h a r t I D ( ) , o b j _ p r e f + " S h o w " , O B J P R O P _ F O N T S I Z E , F S ) ;
O b j e c t S e t I n t e g e r ( C h a r t I D ( ) , o b j _ p r e f + " S h o w " , O B J P R O P _ C O L O R , c l r B l a c k ) ;
O b j e c t S e t I n t e g e r ( C h a r t I D ( ) , o b j _ p r e f + " S h o w " , O B J P R O P _ B G C O L O R , c l r G r a y ) ;
O b j e c t S e t I n t e g e r ( C h a r t I D ( ) , o b j _ p r e f + " S h o w " , O B J P R O P _ B O R D E R _ C O L O R , c l r G r a y ) ; / / - - - CAB0=>28< F25B 3@0=8FK
O b j e c t S e t I n t e g e r ( C h a r t I D ( ) , o b j _ p r e f + " S h o w " , O B J P R O P _ B A C K , f a l s e ) ; / / - - - >B>1@078< =0 ?5@54=5< ( f a l s e ) 8;8 704=5< ( t r u e ) ?;0=5
O b j e c t S e t I n t e g e r ( C h a r t I D ( ) , o b j _ p r e f + " S h o w " , O B J P R O P _ S T A T E , f a l s e ) ; / / - - - ?5@52545< :=>?:C 2 7040==>5 A>AB>O=85
O b j e c t C r e a t e ( C h a r t I D ( ) , o b j _ p r e f + " S e t T P " , O B J _ B U T T O N , 0 , 0 , 0 ) ;
O b j e c t S e t I n t e g e r ( C h a r t I D ( ) , o b j _ p r e f + " S e t T P " , O B J P R O P _ X D I S T A N C E , F S * 1 2 ) ;
O b j e c t S e t I n t e g e r ( C h a r t I D ( ) , o b j _ p r e f + " S e t T P " , O B J P R O P _ Y D I S T A N C E , 2 0 ) ;
O b j e c t S e t I n t e g e r ( C h a r t I D ( ) , o b j _ p r e f + " S e t T P " , O B J P R O P _ X S I Z E , i n t ( F S * 5 . 6 ) ) ; / / - - - CAB0=>28< @07<5@ :=>?:8
O b j e c t S e t I n t e g e r ( C h a r t I D ( ) , o b j _ p r e f + " S e t T P " , O B J P R O P _ Y S I Z E , F S * 2 ) ;
O b j e c t S e t I n t e g e r ( C h a r t I D ( ) , o b j _ p r e f + " S e t T P " , O B J P R O P _ C O R N E R , C O R N E R _ R I G H T _ U P P E R ) ; / / - - - CAB0=>28< C3>; 3@0D8:0, >B=>A8B5;L=> :>B>@>3> 1C4CB >?@545;OBLAO :>>@48=0BK B>G:8
O b j e c t S e t S t r i n g ( C h a r t I D ( ) , o b j _ p r e f + " S e t T P " , O B J P R O P _ T E X T , " S e t T P " ) ; / / - - - CAB0=>28< B5:AB
O b j e c t S e t S t r i n g ( C h a r t I D ( ) , o b j _ p r e f + " S e t T P " , O B J P R O P _ F O N T , " A r i a l " ) ;
O b j e c t S e t I n t e g e r ( C h a r t I D ( ) , o b j _ p r e f + " S e t T P " , O B J P R O P _ F O N T S I Z E , F S ) ;
O b j e c t S e t I n t e g e r ( C h a r t I D ( ) , o b j _ p r e f + " S e t T P " , O B J P R O P _ C O L O R , c l r B l a c k ) ;
O b j e c t S e t I n t e g e r ( C h a r t I D ( ) , o b j _ p r e f + " S e t T P " , O B J P R O P _ B G C O L O R , c l r W h i t e ) ;
O b j e c t S e t I n t e g e r ( C h a r t I D ( ) , o b j _ p r e f + " S e t T P " , O B J P R O P _ B O R D E R _ C O L O R , c l r W h i t e ) ; / / - - - CAB0=>28< F25B 3@0=8FK
O b j e c t S e t I n t e g e r ( C h a r t I D ( ) , o b j _ p r e f + " S e t T P " , O B J P R O P _ B A C K , f a l s e ) ; / / - - - >B>1@078< =0 ?5@54=5< ( f a l s e ) 8;8 704=5< ( t r u e ) ?;0=5
O b j e c t S e t I n t e g e r ( C h a r t I D ( ) , o b j _ p r e f + " S e t T P " , O B J P R O P _ S T A T E , f a l s e ) ; / / - - - ?5@52545< :=>?:C 2 7040==>5 A>AB>O=85
O b j e c t C r e a t e ( C h a r t I D ( ) , o b j _ p r e f + " A d d " , O B J _ B U T T O N , 0 , 0 , 0 ) ;
O b j e c t S e t I n t e g e r ( C h a r t I D ( ) , o b j _ p r e f + " A d d " , O B J P R O P _ X D I S T A N C E , F S * 1 8 ) ;
O b j e c t S e t I n t e g e r ( C h a r t I D ( ) , o b j _ p r e f + " A d d " , O B J P R O P _ Y D I S T A N C E , 2 0 ) ;
O b j e c t S e t I n t e g e r ( C h a r t I D ( ) , o b j _ p r e f + " A d d " , O B J P R O P _ X S I Z E , i n t ( F S * 5 . 6 ) ) ; / / - - - CAB0=>28< @07<5@ :=>?:8
O b j e c t S e t I n t e g e r ( C h a r t I D ( ) , o b j _ p r e f + " A d d " , O B J P R O P _ Y S I Z E , F S * 2 ) ;
O b j e c t S e t I n t e g e r ( C h a r t I D ( ) , o b j _ p r e f + " A d d " , O B J P R O P _ C O R N E R , C O R N E R _ R I G H T _ U P P E R ) ; / / - - - CAB0=>28< C3>; 3@0D8:0, >B=>A8B5;L=> :>B>@>3> 1C4CB >?@545;OBLAO :>>@48=0BK B>G:8
O b j e c t S e t S t r i n g ( C h a r t I D ( ) , o b j _ p r e f + " A d d " , O B J P R O P _ T E X T , " A d d " ) ; / / - - - CAB0=>28< B5:AB
O b j e c t S e t S t r i n g ( C h a r t I D ( ) , o b j _ p r e f + " A d d " , O B J P R O P _ F O N T , " A r i a l " ) ;
O b j e c t S e t I n t e g e r ( C h a r t I D ( ) , o b j _ p r e f + " A d d " , O B J P R O P _ F O N T S I Z E , F S ) ;
O b j e c t S e t I n t e g e r ( C h a r t I D ( ) , o b j _ p r e f + " A d d " , O B J P R O P _ C O L O R , c l r B l a c k ) ;
O b j e c t S e t I n t e g e r ( C h a r t I D ( ) , o b j _ p r e f + " A d d " , O B J P R O P _ B G C O L O R , c l r W h i t e ) ;
O b j e c t S e t I n t e g e r ( C h a r t I D ( ) , o b j _ p r e f + " A d d " , O B J P R O P _ B O R D E R _ C O L O R , c l r W h i t e ) ;
O b j e c t S e t I n t e g e r ( C h a r t I D ( ) , o b j _ p r e f + " A d d " , O B J P R O P _ B A C K , f a l s e ) ; / / - - - >B>1@078< =0 ?5@54=5< ( f a l s e ) 8;8 704=5< ( t r u e ) ?;0=5
O b j e c t S e t I n t e g e r ( C h a r t I D ( ) , o b j _ p r e f + " A d d " , O B J P R O P _ S T A T E , f a l s e ) ; / / - - - ?5@52545< :=>?:C 2 7040==>5 A>AB>O=85
O b j e c t C r e a t e ( C h a r t I D ( ) , o b j _ p r e f + " S t o p " , O B J _ B U T T O N , 0 , 0 , 0 ) ;
O b j e c t S e t I n t e g e r ( C h a r t I D ( ) , o b j _ p r e f + " S t o p " , O B J P R O P _ X D I S T A N C E , F S * 2 4 ) ;
O b j e c t S e t I n t e g e r ( C h a r t I D ( ) , o b j _ p r e f + " S t o p " , O B J P R O P _ Y D I S T A N C E , 2 0 ) ;
O b j e c t S e t I n t e g e r ( C h a r t I D ( ) , o b j _ p r e f + " S t o p " , O B J P R O P _ X S I Z E , i n t ( F S * 5 . 6 ) ) ; / / - - - CAB0=>28< @07<5@ :=>?:8
O b j e c t S e t I n t e g e r ( C h a r t I D ( ) , o b j _ p r e f + " S t o p " , O B J P R O P _ Y S I Z E , F S * 2 ) ;
O b j e c t S e t I n t e g e r ( C h a r t I D ( ) , o b j _ p r e f + " S t o p " , O B J P R O P _ C O R N E R , C O R N E R _ R I G H T _ U P P E R ) ; / / - - - CAB0=>28< C3>; 3@0D8:0, >B=>A8B5;L=> :>B>@>3> 1C4CB >?@545;OBLAO :>>@48=0BK B>G:8
O b j e c t S e t S t r i n g ( C h a r t I D ( ) , o b j _ p r e f + " S t o p " , O B J P R O P _ T E X T , " S T O P " ) ; / / - - - CAB0=>28< B5:AB
O b j e c t S e t S t r i n g ( C h a r t I D ( ) , o b j _ p r e f + " S t o p " , O B J P R O P _ F O N T , " A r i a l " ) ;
O b j e c t S e t I n t e g e r ( C h a r t I D ( ) , o b j _ p r e f + " S t o p " , O B J P R O P _ F O N T S I Z E , c l r B l a c k ) ;
O b j e c t S e t I n t e g e r ( C h a r t I D ( ) , o b j _ p r e f + " S t o p " , O B J P R O P _ C O L O R , c l r W h i t e ) ;
O b j e c t S e t I n t e g e r ( C h a r t I D ( ) , o b j _ p r e f + " S t o p " , O B J P R O P _ B G C O L O R , c l r B l a c k ) ;
O b j e c t S e t I n t e g e r ( C h a r t I D ( ) , o b j _ p r e f + " S t o p " , O B J P R O P _ B O R D E R _ C O L O R , c l r D a r k O r a n g e ) ;
O b j e c t S e t I n t e g e r ( C h a r t I D ( ) , o b j _ p r e f + " S t o p " , O B J P R O P _ B A C K , f a l s e ) ; / / - - - >B>1@078< =0 ?5@54=5< ( f a l s e ) 8;8 704=5< ( t r u e ) ?;0=5
O b j e c t S e t I n t e g e r ( C h a r t I D ( ) , o b j _ p r e f + " S t o p " , O B J P R O P _ S T A T E , f a l s e ) ; / / - - - ?5@52545< :=>?:C 2 7040==>5 A>AB>O=85
O b j e c t C r e a t e ( C h a r t I D ( ) , o b j _ p r e f + " S t o p A L L " , O B J _ B U T T O N , 0 , 0 , 0 ) ;
O b j e c t S e t I n t e g e r ( C h a r t I D ( ) , o b j _ p r e f + " S t o p A L L " , O B J P R O P _ X D I S T A N C E , F S * 3 3 ) ;
O b j e c t S e t I n t e g e r ( C h a r t I D ( ) , o b j _ p r e f + " S t o p A L L " , O B J P R O P _ Y D I S T A N C E , 2 0 ) ;
O b j e c t S e t I n t e g e r ( C h a r t I D ( ) , o b j _ p r e f + " S t o p A L L " , O B J P R O P _ X S I Z E , i n t ( F S * 5 . 6 ) ) ; / / - - - CAB0=>28< @07<5@ :=>?:8
O b j e c t S e t I n t e g e r ( C h a r t I D ( ) , o b j _ p r e f + " S t o p A L L " , O B J P R O P _ Y S I Z E , F S * 2 ) ;
O b j e c t S e t I n t e g e r ( C h a r t I D ( ) , o b j _ p r e f + " S t o p A L L " , O B J P R O P _ C O R N E R , C O R N E R _ R I G H T _ U P P E R ) ; / / - - - CAB0=>28< C3>; 3@0D8:0, >B=>A8B5;L=> :>B>@>3> 1C4CB >?@545;OBLAO :>>@48=0BK B>G:8
O b j e c t S e t S t r i n g ( C h a r t I D ( ) , o b j _ p r e f + " S t o p A L L " , O B J P R O P _ T E X T , " S T O P " ) ; / / - - - CAB0=>28< B5:AB
O b j e c t S e t S t r i n g ( C h a r t I D ( ) , o b j _ p r e f + " S t o p A L L " , O B J P R O P _ F O N T , " A r i a l " ) ;
O b j e c t S e t I n t e g e r ( C h a r t I D ( ) , o b j _ p r e f + " S t o p A L L " , O B J P R O P _ B O R D E R _ T Y P E , B O R D E R _ F L A T ) ;
O b j e c t S e t I n t e g e r ( C h a r t I D ( ) , o b j _ p r e f + " S t o p A L L " , O B J P R O P _ F O N T S I Z E , c l r B l a c k ) ;
O b j e c t S e t I n t e g e r ( C h a r t I D ( ) , o b j _ p r e f + " S t o p A L L " , O B J P R O P _ C O L O R , c l r W h i t e ) ;
O b j e c t S e t I n t e g e r ( C h a r t I D ( ) , o b j _ p r e f + " S t o p A L L " , O B J P R O P _ B G C O L O R , c l r B l a c k ) ;
O b j e c t S e t I n t e g e r ( C h a r t I D ( ) , o b j _ p r e f + " S t o p A L L " , O B J P R O P _ B O R D E R _ C O L O R , c l r D a r k O r a n g e ) ;
O b j e c t S e t I n t e g e r ( C h a r t I D ( ) , o b j _ p r e f + " S t o p A L L " , O B J P R O P _ B A C K , f a l s e ) ; / / - - - >B>1@078< =0 ?5@54=5< ( f a l s e ) 8;8 704=5< ( t r u e ) ?;0=5
O b j e c t S e t I n t e g e r ( C h a r t I D ( ) , o b j _ p r e f + " S t o p A L L " , O B J P R O P _ S T A T E , f a l s e ) ; / / - - - ?5@52545< :=>?:C 2 7040==>5 A>AB>O=85
E v e n t S e t T i m e r ( 1 ) ;
}
v o i d O n D e i n i t ( c o n s t i n t r e a s o n )
{
O b j e c t s D e l e t e A l l ( 0 , o b j _ p r e f ) ;
}
v o i d O n C h a r t E v e n t ( c o n s t i n t i d , / / 845=B8D8:0B>@ A>1KB8O
c o n s t l o n g & l p a r a m , / / ?0@0<5B@ A>1KB8O B8?0 l o n g
c o n s t d o u b l e & d p a r a m , / / ?0@0<5B@ A>1KB8O B8?0 d o u b l e
c o n s t s t r i n g & s p a r a m ) / / ?0@0<5B@ A>1KB8O B8?0 s t r i n g
{
i f ( O b j e c t G e t I n t e g e r ( 0 , o b j _ p r e f + " S t o p " , O B J P R O P _ S T A T E ) )
{
O b j e c t S e t I n t e g e r ( 0 , o b j _ p r e f + " S t o p " , O B J P R O P _ S T A T E , f a l s e ) ;
i n t r e t = M e s s a g e B o x ( " C l o s e A L L " + S y m b o l ( ) + " o r d e r s ? " ,
" A r e y o u s u r e ? " , M B _ O K C A N C E L ) ;
i f ( r e t = = I D O K ) C l o s e A L L ( ) ;
}
i f ( O b j e c t G e t I n t e g e r ( 0 , o b j _ p r e f + " S t o p A L L " , O B J P R O P _ S T A T E ) )
{
O b j e c t S e t I n t e g e r ( 0 , o b j _ p r e f + " S t o p A L L " , O B J P R O P _ S T A T E , f a l s e ) ;
i n t r e t = M e s s a g e B o x ( " C l o s e A L L o r d e r s o f t h i s a c c o u n t ? " ,
" A r e y o u s u r e ? " , M B _ O K C A N C E L ) ;
i f ( r e t = = I D O K ) C l o s e A L L ( t r u e ) ;
}
i f ( O b j e c t G e t I n t e g e r ( 0 , o b j _ p r e f + " A d d " , O B J P R O P _ S T A T E ) )
{
O b j e c t S e t I n t e g e r ( 0 , o b j _ p r e f + " A d d " , O B J P R O P _ S T A T E , f a l s e ) ;
i n t r e t = M e s s a g e B o x ( " A d d p e n d i n g t o " + S y m b o l ( ) + " ? " ,
" A r e y o u s u r e ? " , M B _ O K C A N C E L ) ;
i f ( r e t = = I D O K )
{
d o u b l e O P = - 1 , l o t = - 1 ;
i n t O T = - 1 ;
f o r ( i n t i = O r d e r s T o t a l ( ) - 1 ; i > = 0 ; i - - )
i f ( O r d e r S e l e c t ( i , S E L E C T _ B Y _ P O S , M O D E _ T R A D E S ) & & O r d e r S y m b o l ( ) = = S y m b o l ( ) & & l o t < O r d e r L o t s ( ) )
{
l o t = O r d e r L o t s ( ) ;
O P = O r d e r O p e n P r i c e ( ) ;
O T = O r d e r T y p e ( ) ;
}
i f ( O T > - 1 )
i n t r e s = O r d e r S e n d ( _ S y m b o l , O T % 2 = = 0 ? O P _ B U Y L I M I T : O P _ S E L L L I M I T , N o r m a l i z e D o u b l e ( l o t * f a c t o r , 2 ) , N D ( O P + ( O T % 2 = = 0 ? - 1 : 1 ) * s h i f t * _ P o i n t ) , 9 9 9 9 , 0 , 0 , " " , 0 , 0 , c l r N O N E ) ;
}
}
i f ( O b j e c t G e t I n t e g e r ( 0 , o b j _ p r e f + " S h o w " , O B J P R O P _ S T A T E ) )
{
O b j e c t S e t I n t e g e r ( 0 , o b j _ p r e f + " S h o w " , O B J P R O P _ B O R D E R _ C O L O R , c l r W h i t e ) ;
O b j e c t S e t I n t e g e r ( 0 , o b j _ p r e f + " S h o w " , O B J P R O P _ B G C O L O R , c l r W h i t e ) ;
i f ( O b j e c t C r e a t e ( 0 , o b j _ p r e f + " T P " , O B J _ A R R O W _ R I G H T _ P R I C E , 0 , 0 , 0 ) )
{
O b j e c t S e t I n t e g e r ( C h a r t I D ( ) , o b j _ p r e f + " T P " , O B J P R O P _ C O L O R , c l r W h i t e ) ;
O b j e c t S e t I n t e g e r ( C h a r t I D ( ) , o b j _ p r e f + " T P " , O B J P R O P _ W I D T H , 3 ) ;
O b j e c t S e t I n t e g e r ( C h a r t I D ( ) , o b j _ p r e f + " T P " , O B J P R O P _ S E L E C T A B L E , t r u e ) ;
O b j e c t S e t I n t e g e r ( C h a r t I D ( ) , o b j _ p r e f + " T P " , O B J P R O P _ S E L E C T E D , t r u e ) ;
O b j e c t S e t I n t e g e r ( C h a r t I D ( ) , o b j _ p r e f + " T P " , O B J P R O P _ B A C K , f a l s e ) ;
O b j e c t S e t I n t e g e r ( C h a r t I D ( ) , o b j _ p r e f + " T P " , O B J P R O P _ T I M E , T i m e [ 0 ] ) ;
O b j e c t S e t D o u b l e ( C h a r t I D ( ) , o b j _ p r e f + " T P " , O B J P R O P _ P R I C E , F i n d L o s e l e s s ( ) ) ;
}
e l s e
{
O b j e c t S e t I n t e g e r ( C h a r t I D ( ) , o b j _ p r e f + " T P " , O B J P R O P _ S E L E C T E D , t r u e ) ;
O b j e c t S e t I n t e g e r ( C h a r t I D ( ) , o b j _ p r e f + " T P " , O B J P R O P _ T I M E , T i m e [ 0 ] ) ;
}
}
e l s e
{
O b j e c t S e t I n t e g e r ( 0 , o b j _ p r e f + " S h o w " , O B J P R O P _ B O R D E R _ C O L O R , c l r G r a y ) ;
O b j e c t S e t I n t e g e r ( 0 , o b j _ p r e f + " S h o w " , O B J P R O P _ B G C O L O R , c l r G r a y ) ;
O b j e c t D e l e t e ( 0 , o b j _ p r e f + " T P " ) ;
}
i f ( O b j e c t G e t I n t e g e r ( 0 , o b j _ p r e f + " S e t T P " , O B J P R O P _ S T A T E ) )
{
O b j e c t S e t I n t e g e r ( 0 , o b j _ p r e f + " S e t T P " , O B J P R O P _ S T A T E , f a l s e ) ;
i f ( O b j e c t F i n d ( 0 , o b j _ p r e f + " T P " ) < 0 ) r e t u r n ;
d o u b l e T P = O b j e c t G e t D o u b l e ( C h a r t I D ( ) , o b j _ p r e f + " T P " , O B J P R O P _ P R I C E ) ;
i n t r e t = M e s s a g e B o x ( " S e t T P = " + D o u b l e T o S t r i n g ( T P , _ D i g i t s ) + " t o a l l " + S y m b o l ( ) + " o r d e r s ? " ,
" A r e y o u s u r e ? " , M B _ O K C A N C E L ) ;
i f ( r e t = = I D O K )
f o r ( i n t i = O r d e r s T o t a l ( ) - 1 ; i > = 0 ; i - - )
i f ( O r d e r S e l e c t ( i , S E L E C T _ B Y _ P O S , M O D E _ T R A D E S ) & &
O r d e r S y m b o l ( ) = = S y m b o l ( ) ) / / & & O r d e r T a k e P r o f i t ( ) ! = T P )
b o o l r e s = O r d e r M o d i f y ( O r d e r T i c k e t ( ) , O r d e r O p e n P r i c e ( ) , O r d e r S t o p L o s s ( ) , N D ( T P ) , O r d e r E x p i r a t i o n ( ) , c l r N O N E ) ;
O b j e c t S e t I n t e g e r ( 0 , o b j _ p r e f + " S h o w " , O B J P R O P _ S T A T E , f a l s e ) ;
O b j e c t S e t I n t e g e r ( 0 , o b j _ p r e f + " S h o w " , O B J P R O P _ B O R D E R _ C O L O R , c l r G r a y ) ;
O b j e c t S e t I n t e g e r ( 0 , o b j _ p r e f + " S h o w " , O B J P R O P _ B G C O L O R , c l r G r a y ) ;
O b j e c t D e l e t e ( 0 , o b j _ p r e f + " T P " ) ;
}
i f ( i d = = C H A R T E V E N T _ K E Y D O W N )
{
s w i t c h ( ( i n t ) l p a r a m )
{
c a s e 8 5 : i f ( O b j e c t F i n d ( 0 , o b j _ p r e f + " T P " ) < 0 ) r e t u r n ;
O b j e c t S e t D o u b l e ( C h a r t I D ( ) , o b j _ p r e f + " T P " , O B J P R O P _ P R I C E , O b j e c t G e t D o u b l e ( C h a r t I D ( ) , o b j _ p r e f + " T P " , O B J P R O P _ P R I C E ) + _ P o i n t ) ;
r e t u r n ;
c a s e 6 8 : i f ( O b j e c t F i n d ( 0 , o b j _ p r e f + " T P " ) < 0 ) r e t u r n ;
O b j e c t S e t D o u b l e ( C h a r t I D ( ) , o b j _ p r e f + " T P " , O B J P R O P _ P R I C E , O b j e c t G e t D o u b l e ( C h a r t I D ( ) , o b j _ p r e f + " T P " , O B J P R O P _ P R I C E ) - _ P o i n t ) ;
r e t u r n ;
}
}
}
d o u b l e N D ( d o u b l e V a l u e )
{
r e t u r n ( N o r m a l i z e D o u b l e ( V a l u e , _ D i g i t s ) ) ;
}
v o i d C l o s e A L L ( i n t i g n o r e _ s y m b o l = f a l s e )
{
u l o n g c o u n t e r = G e t M i c r o s e c o n d C o u n t ( ) ;
/ / c l o s e t h e r e a l
f o r ( i n t i = O r d e r s T o t a l ( ) - 1 ; i > = 0 ; i - - )
i f ( O r d e r S e l e c t ( i , S E L E C T _ B Y _ P O S )
& & ( i g n o r e _ s y m b o l | | ( ! i g n o r e _ s y m b o l & & O r d e r S y m b o l ( ) = = _ S y m b o l ) )
& & O r d e r T y p e ( ) < 2
)
{
R e f r e s h R a t e s ( ) ;
i f ( ! O r d e r C l o s e ( O r d e r T i c k e t ( ) , O r d e r L o t s ( ) , ( O r d e r T y p e ( ) = = O P _ B U Y ? B i d : A s k ) , 9 9 9 9 , c l r N O N E ) )
A l e r t ( " P r o b l e m w i t h c l o s i n g # " , O r d e r T i c k e t ( ) , " ; E r r o r : " , G e t L a s t E r r o r ( ) ) ;
}
u l o n g c o u n t e r 2 = G e t M i c r o s e c o n d C o u n t ( ) ;
/ / d e l e t e p e n d i n g s
f o r ( i n t i = O r d e r s T o t a l ( ) - 1 ; i > = 0 ; i - - )
i f ( O r d e r S e l e c t ( i , S E L E C T _ B Y _ P O S , M O D E _ T R A D E S ) & &
( i g n o r e _ s y m b o l | | ( ! i g n o r e _ s y m b o l & & O r d e r S y m b o l ( ) = = _ S y m b o l ) )
& & O r d e r T y p e ( ) > 1 )
b o o l r e s = O r d e r D e l e t e ( O r d e r T i c k e t ( ) , c l r N O N E ) ;
P r i n t ( " C l o s i n g t i m e : " , ( G e t M i c r o s e c o n d C o u n t ( ) - c o u n t e r ) / 1 0 0 0 , " m s ( r e a l : " , ( c o u n t e r 2 - c o u n t e r ) / 1 0 0 0 , " + p e n d i n g s : " , ( G e t M i c r o s e c o n d C o u n t ( ) - c o u n t e r 2 ) / 1 0 0 0 , " ) " ) ;
}
v o i d O n T i c k ( )
{
i n t r e a l = 0 , p e n d = 0 ;
d o u b l e p r o f _ b u x = 0 ;
f o r ( i n t i = O r d e r s T o t a l ( ) - 1 ; i > = 0 ; i - - )
i f ( O r d e r S e l e c t ( i , S E L E C T _ B Y _ P O S , M O D E _ T R A D E S ) & &
O r d e r S y m b o l ( ) = = S y m b o l ( ) )
{
i f ( O r d e r T y p e ( ) < 2 ) r e a l + + ;
e l s e p e n d + + ;
p r o f _ b u x + = O r d e r P r o f i t ( ) + O r d e r C o m m i s s i o n ( ) + O r d e r S w a p ( ) ;
}
O b j e c t S e t S t r i n g ( C h a r t I D ( ) , o b j _ p r e f + " S t o p " , O B J P R O P _ T E X T , D o u b l e T o S t r i n g ( p r o f _ b u x , f a b s ( p r o f _ b u x ) > = 1 0 0 ? 0 : f a b s ( p r o f _ b u x ) > 1 0 ? 1 : 2 ) ) ;
O b j e c t S e t I n t e g e r ( C h a r t I D ( ) , o b j _ p r e f + " S t o p " , O B J P R O P _ B O R D E R _ C O L O R , p r o f _ b u x < 0 ? c l r D a r k O r a n g e : c l r W h i t e ) ;
i f ( ( r e a l = = 0 & & p e n d > 0 ) | | ( r e a l > = G r i d S i z e & & p r o f _ b u x > = P r o f B u x ) ) C l o s e A L L ( ) ;
/ / i f ( L e t G o T o S l e e p & & O r d e r s T o t a l ( ) = = 0 & & ! T i m e T o T r a d e ( ) ) G o T o S l e e p ( ) ;
}
v o i d O n T i m e r ( )
{
O b j e c t S e t S t r i n g ( C h a r t I D ( ) , o b j _ p r e f + " S t o p A L L " , O B J P R O P _ T E X T , D o u b l e T o S t r i n g ( A c c o u n t P r o f i t ( ) , f a b s ( A c c o u n t P r o f i t ( ) ) > = 1 0 0 ? 0 : f a b s ( A c c o u n t P r o f i t ( ) ) > 1 0 ? 1 : 2 ) ) ;
O b j e c t S e t I n t e g e r ( C h a r t I D ( ) , o b j _ p r e f + " S t o p A L L " , O B J P R O P _ B O R D E R _ C O L O R , A c c o u n t P r o f i t ( ) < 0 ? c l r D a r k O r a n g e : c l r W h i t e ) ;
}
/ *
b o o l T i m e T o T r a d e ( )
/ / 5 B>@3C5< 2 AC11>BC 8 2>A:@5A5=L5. ">@3C5< <564C "1 8 "2 .
{
d o u b l e h = T i m e H o u r ( T i m e C u r r e n t ( ) ) + T i m e M i n u t e ( T i m e C u r r e n t ( ) ) * 1 . 0 / 6 0 ;
i n t d = T i m e D a y O f W e e k ( T i m e C u r r e n t ( ) ) ;
i f ( T 2 > T 1 ) r e t u r n ( ( h > = T 1 & & h < T 2 ) ) ;
e l s e r e t u r n ( ( h > = T 1 | | h < T 2 ) ) ;
}
v o i d G o T o S l e e p ( s t r i n g k e y = " / h " )
{
P r i n t ( " C a l l e d : s h u t d o w n . e x e " + k e y , " . . . S e e y o u l a t e r : ) " ) ;
u c h a r u _ c o m m a n d [ ] ;
s t r i n g s _ c o m m a n d = " s h u t d o w n . e x e " + k e y ;
A r r a y R e s i z e ( u _ c o m m a n d , S t r i n g L e n ( s _ c o m m a n d ) + 1 ) ;
S t r i n g T o C h a r A r r a y ( s _ c o m m a n d , u _ c o m m a n d ) ;
i n t r e s = W i n E x e c ( u _ c o m m a n d , 0 ) ;
i f ( r e s < 3 2 ) A l e r t ( " F a i l e d t o g o t o s l e e p : " , r e s ) ;
}
* /
d o u b l e F i n d L o s e l e s s ( )
{
d o u b l e l o t _ r e a l = 0 , p r o f _ r e a l = 0 ,
l o t _ p o t e n c = 0 , p r o f _ p o t e n c = 0 ,
t i c k v a l u e = M a r k e t I n f o ( S y m b o l ( ) , M O D E _ T I C K V A L U E ) / M a r k e t I n f o ( S y m b o l ( ) , M O D E _ T I C K S I Z E ) ;
f o r ( i n t i = 0 ; i < O r d e r s T o t a l ( ) ; i + + )
i f ( O r d e r S e l e c t ( i , S E L E C T _ B Y _ P O S , M O D E _ T R A D E S ) & &
O r d e r S y m b o l ( ) = = S y m b o l ( ) )
{
i f ( O r d e r T y p e ( ) = = O P _ S E L L )
{
l o t _ r e a l - = O r d e r L o t s ( ) ;
p r o f _ r e a l + = O r d e r S w a p ( ) + O r d e r C o m m i s s i o n ( ) + O r d e r P r o f i t ( ) ;
c o n t i n u e ;
}
i f ( O r d e r T y p e ( ) = = O P _ B U Y )
{
l o t _ r e a l + = O r d e r L o t s ( ) ;
p r o f _ r e a l + = O r d e r S w a p ( ) + O r d e r C o m m i s s i o n ( ) + O r d e r P r o f i t ( ) ;
c o n t i n u e ;
}
}
i f ( f a b s ( l o t _ r e a l ) < M a r k e t I n f o ( S y m b o l ( ) , M O D E _ M I N L O T ) ) r e t u r n ( 0 ) ;
i f ( l o t _ r e a l > 0 ) r e t u r n ( B i d - p r o f _ r e a l / l o t _ r e a l / t i c k v a l u e ) ;
e l s e r e t u r n ( A s k - p r o f _ r e a l / l o t _ r e a l / t i c k v a l u e ) ;
}
Comments
Markdown Formatting Guide
# H1## H2
### H3
**bold text***italicized text*[title](https://www.example.com)`code````code block
```
> blockquote- Item 1- Item 2
1. First item2. Second item
---