Price Data Components
0
Views
0
Downloads
0
Favorites
VR---STEALS-2
ÿþ/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | V R - - - S T E A L S - 2 ( b a r a b a s h k a k v n ' s e d i t i o n ) . m q 5 |
/ / | V o l d e m a r 2 2 7 |
/ / | h t t p : / / w w w . t r a d i n g - g o . r u |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
# p r o p e r t y c o p y r i g h t " V o l d e m a r 2 2 7 "
# p r o p e r t y l i n k " h t t p : / / w w w . t r a d i n g - g o . r u "
# i n c l u d e < T r a d e \ P o s i t i o n I n f o . m q h >
# i n c l u d e < T r a d e \ T r a d e . m q h >
# i n c l u d e < T r a d e \ S y m b o l I n f o . m q h >
# i n c l u d e < T r a d e \ D e a l I n f o . m q h >
C P o s i t i o n I n f o m _ p o s i t i o n ; / / t r a d e p o s i t i o n o b j e c t
C T r a d e m _ t r a d e ; / / t r a d i n g o b j e c t
C S y m b o l I n f o m _ s y m b o l ; / / s y m b o l i n f o o b j e c t
C D e a l I n f o m _ d e a l ; / / d e a l s o b j e c t
/ / - - -
i n p u t u s h o r t I n p T a k e P r o f i t = 5 0 ; / / T a k e P r o f i t ( 5A;8 0 B> =5 8A?>;L7C5BAO)
i n p u t u s h o r t I n p S t o p L o s s = 5 0 ; / / S t o p L o s s ( 5A;8 0 B> =5 8A?>;L7C5BAO)
i n p u t u s h o r t I n p B r e a k e v e n = 2 0 ; / / B r e a k e v e n ( 5A;8 0 B> =5 8A?>;L7C5BAO)
i n p u t u s h o r t I n p B r e a k M i n D i s = 9 ; / / 8=8<0;L=0O D8:A0F8O ?@81K;8 ?@8 ?5@52>45 2 157C1KB>:
i n p u t u l o n g M a g i c = 0 ; / / ( 5A;8 0 B> ?> 2A5< <5468:0<)
i n p u t u l o n g I n p S l i p = 2 0 ; / / @>A:0;L7K20=8O
i n p u t i n t c o m e n t = 1 ; / / >;8G5AB2> AB@>: A>>1I5=89 5A;8 0 A>>1I5=8O =5 2K2>4OBAO
/ / - - -
d o u b l e E x t T a k e P r o f i t = 0 . 0 ;
d o u b l e E x t S t o p L o s s = 0 . 0 ;
d o u b l e E x t B r e a k e v e n = 0 . 0 ;
d o u b l e E x t B r e a k M i n D i s = 0 . 0 ;
u l o n g E x t S l i p = 0 . 0 ;
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | E x p e r t i n i t i a l i z a t i o n f u n c t i o n |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
i n t O n I n i t ( )
{
/ / - - -
m _ s y m b o l . N a m e ( S y m b o l ( ) ) ; / / s e t s s y m b o l n a m e
m _ t r a d e . S e t E x p e r t M a g i c N u m b e r ( M a g i c ) ; / / s e t s m a g i c n u m b e r
i f ( ! R e f r e s h R a t e s ( ) )
{
P r i n t ( " E r r o r R e f r e s h R a t e s . B i d = " , D o u b l e T o S t r i n g ( m _ s y m b o l . B i d ( ) , D i g i t s ( ) ) ,
" , A s k = " , D o u b l e T o S t r i n g ( m _ s y m b o l . A s k ( ) , D i g i t s ( ) ) ) ;
r e t u r n ( I N I T _ F A I L E D ) ;
}
/ / - - - t u n i n g f o r 3 o r 5 d i g i t s
i n t d i g i t s _ a d j u s t = 1 ;
i f ( m _ s y m b o l . D i g i t s ( ) = = 3 | | m _ s y m b o l . D i g i t s ( ) = = 5 )
d i g i t s _ a d j u s t = 1 0 ;
E x t T a k e P r o f i t = I n p T a k e P r o f i t * d i g i t s _ a d j u s t ;
E x t S t o p L o s s = I n p S t o p L o s s * d i g i t s _ a d j u s t ;
E x t B r e a k e v e n = I n p B r e a k e v e n * d i g i t s _ a d j u s t ;
E x t B r e a k M i n D i s = I n p B r e a k M i n D i s * d i g i t s _ a d j u s t ;
E x t S l i p = I n p S l i p * d i g i t s _ a d j u s t ;
m _ t r a d e . S e t D e v i a t i o n I n P o i n t s ( E x t S l i p ) ;
/ / - - - K2545< ?@8 AB0@B5 =0 M:@0= =0H8 CAB0=>2;5==K5 ?0@0<5B@K
p r ( " T a k e P r o f i t = " + D o u b l e T o S t r i n g ( E x t T a k e P r o f i t , 0 ) ) ;
p r ( " S t o p L o s s = " + D o u b l e T o S t r i n g ( E x t S t o p L o s s , 0 ) ) ;
p r ( " B r e a k e v e n = " + D o u b l e T o S t r i n g ( E x t B r e a k e v e n , 0 ) ) ;
i f ( M a g i c = = 0 )
p r ( " > 2A5< <5468: =><5@0< = " + I n t e g e r T o S t r i n g ( M a g i c ) ) ;
e l s e
p r ( " 5468: =><5@ = " + I n t e g e r T o S t r i n g ( M a g i c ) ) ;
/ / - - -
r e t u r n ( I N I T _ S U C C E E D E D ) ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | E x p e r t t i c k f u n c t i o n |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
v o i d O n T i c k ( )
{
s t a t i c b o o l f i r s t = t r u e ;
i f ( f i r s t )
{
m _ t r a d e . B u y ( 0 . 0 1 ) ;
f i r s t = f a l s e ;
}
/ / - - - 5@518@05< >@45@0 8 @01>B05< A =8<8
f o r ( i n t i = P o s i t i o n s T o t a l ( ) - 1 ; i > = 0 ; i - - )
i f ( m _ p o s i t i o n . S e l e c t B y I n d e x ( i ) )
i f ( m _ p o s i t i o n . S y m b o l ( ) = = S y m b o l ( ) )
i f ( m _ p o s i t i o n . M a g i c ( ) = = M a g i c | | M a g i c = = 0 )
{
i f ( ! R e f r e s h R a t e s ( ) )
r e t u r n ;
i f ( m _ p o s i t i o n . P o s i t i o n T y p e ( ) = = P O S I T I O N _ T Y P E _ B U Y ) / / 01>B05< A 109 >@45@0<8
{
i f ( E x t B r e a k e v e n ! = 0 ) / / A;8 157C1KB>: 2KAB02;5=
{
/ / - - - 0@8AC5< <5B:C 157C1KB:0
a r r o v ( " b z " + I n t e g e r T o S t r i n g ( m _ p o s i t i o n . T i c k e t ( ) ) , i T i m e ( 0 ) ,
N o r m a l i z e D o u b l e ( m _ p o s i t i o n . P r i c e O p e n ( ) + E x t B r e a k M i n D i s * P o i n t ( ) , D i g i t s ( ) ) , 1 , c l r G r e e n ) ;
/ / - - - @>25@8< @0A?>;>65=85 F5=K >B=>A8B5;L=> 157C1KB:0
i f ( m _ s y m b o l . A s k ( ) > N o r m a l i z e D o u b l e ( m _ p o s i t i o n . P r i c e O p e n ( ) + E x t B r e a k e v e n * P o i n t ( ) , D i g i t s ( ) ) & & m _ p o s i t i o n . S t o p L o s s ( ) = = 0 )
{
/ / - - - A;8 F5=0 1>;LH5 7040==>3> 7=0G5=8O , 2KAB028< 157C1KB>: A =51>;LH>9 D8:A0F859 ?@81K;8
i f ( m _ t r a d e . P o s i t i o n M o d i f y ( m _ p o s i t i o n . T i c k e t ( ) , N o r m a l i z e D o u b l e ( m _ p o s i t i o n . P r i c e O p e n ( ) + E x t B r e a k M i n D i s * P o i n t ( ) , D i g i t s ( ) ) , m _ p o s i t i o n . T a k e P r o f i t ( ) ) )
p r ( " 57C1KB>: 2KAB02;5=" ) ; / / 0A:><5=B8@C5< ?@>8AE>4OI55
e l s e
p r ( I n t e g e r T o S t r i n g ( m _ t r a d e . R e s u l t R e t c o d e ( ) ) + " , " + m _ t r a d e . R e s u l t R e t c o d e D e s c r i p t i o n ( ) ) ;
}
}
e l s e
O b j e c t D e l e t e ( 0 , " b z " + I n t e g e r T o S t r i n g ( m _ p o s i t i o n . T i c k e t ( ) ) ) ;
i f ( E x t T a k e P r o f i t ! = 0 )
{
/ / - - - 0@8AC5< <5B:C "59: @>D8B0
a r r o v ( " t p " + I n t e g e r T o S t r i n g ( m _ p o s i t i o n . T i c k e t ( ) ) , i T i m e ( 0 ) , N o r m a l i z e D o u b l e ( m _ p o s i t i o n . P r i c e O p e n ( ) + E x t T a k e P r o f i t * P o i n t ( ) , D i g i t s ( ) ) , 1 , c l r B l u e ) ;
/ / - - - @>25@8< @0A?>;>65=85 F5=K >B=>A8B5;L=> "59: @>D8B0
i f ( m _ s y m b o l . A s k ( ) > N o r m a l i z e D o u b l e ( m _ p o s i t i o n . P r i c e O p e n ( ) + E x t T a k e P r o f i t * P o i n t ( ) , D i g i t s ( ) ) )
{
/ / - - - A;8 F5=0 1>;LH5 7040==>3> 7=0G5=8O , 70:@>5< >@45@
i f ( m _ t r a d e . P o s i t i o n C l o s e ( m _ p o s i t i o n . T i c k e t ( ) ) )
p r ( " @45@ 70:@KB" ) ; / / - - - 0A:><5=B8@C5< ?@>8AE>4OI55
e l s e
p r ( I n t e g e r T o S t r i n g ( m _ t r a d e . R e s u l t R e t c o d e ( ) ) + " , " + m _ t r a d e . R e s u l t R e t c o d e D e s c r i p t i o n ( ) ) ;
}
}
e l s e
O b j e c t D e l e t e ( 0 , " t p " + I n t e g e r T o S t r i n g ( m _ p o s i t i o n . T i c k e t ( ) ) ) ;
i f ( E x t S t o p L o s s ! = 0 )
{
/ / - - - 0@8AC5< <5B:C !B>? >AA0
a r r o v ( " s l " + I n t e g e r T o S t r i n g ( m _ p o s i t i o n . T i c k e t ( ) ) , i T i m e ( 0 ) , N o r m a l i z e D o u b l e ( m _ p o s i t i o n . P r i c e O p e n ( ) - E x t S t o p L o s s * P o i n t ( ) , D i g i t s ( ) ) , 1 , c l r R e d ) ;
/ / - - - @>25@8< @0A?>;>65=85 F5=K >B=>A8B5;L=> !B>? >AA0
i f ( m _ s y m b o l . B i d ( ) < N o r m a l i z e D o u b l e ( m _ p o s i t i o n . P r i c e O p e n ( ) - E x t S t o p L o s s * P o i n t ( ) , D i g i t s ( ) ) )
{
/ / - - - A;8 F5=0 <5=LH5 7040==>3> 7=0G5=8O , 70:@>5< >@45@
i f ( m _ t r a d e . P o s i t i o n C l o s e ( m _ p o s i t i o n . T i c k e t ( ) ) )
p r ( " @45@ 70:@KB" ) ; / / - - - 0A:><5=B8@C5< ?@>8AE>4OI55
e l s e
p r ( I n t e g e r T o S t r i n g ( m _ t r a d e . R e s u l t R e t c o d e ( ) ) + " , " + m _ t r a d e . R e s u l t R e t c o d e D e s c r i p t i o n ( ) ) ;
}
}
e l s e
O b j e c t D e l e t e ( 0 , " s l " + I n t e g e r T o S t r i n g ( m _ p o s i t i o n . T i c k e t ( ) ) ) ;
}
i f ( m _ p o s i t i o n . P o s i t i o n T y p e ( ) = = P O S I T I O N _ T Y P E _ S E L L ) / / 01>B05< A A5;; >@45@0<8
{
i f ( E x t B r e a k e v e n ! = 0 )
{
a r r o v ( " b z " + I n t e g e r T o S t r i n g ( m _ p o s i t i o n . T i c k e t ( ) ) , i T i m e ( 0 ) , N o r m a l i z e D o u b l e ( m _ p o s i t i o n . P r i c e O p e n ( ) - E x t B r e a k M i n D i s * P o i n t ( ) , D i g i t s ( ) ) , 1 , c l r G r e e n ) ;
i f ( m _ s y m b o l . B i d ( ) < N o r m a l i z e D o u b l e ( m _ p o s i t i o n . P r i c e O p e n ( ) - E x t B r e a k e v e n * P o i n t ( ) , D i g i t s ( ) ) & & m _ p o s i t i o n . S t o p L o s s ( ) = = 0 )
{
i f ( m _ t r a d e . P o s i t i o n M o d i f y ( m _ p o s i t i o n . T i c k e t ( ) , N o r m a l i z e D o u b l e ( m _ p o s i t i o n . P r i c e O p e n ( ) - E x t B r e a k M i n D i s * P o i n t ( ) , D i g i t s ( ) ) , m _ p o s i t i o n . T a k e P r o f i t ( ) ) )
p r ( " 57C1KB>: 2KAB02;5=" ) ;
e l s e
p r ( I n t e g e r T o S t r i n g ( m _ t r a d e . R e s u l t R e t c o d e ( ) ) + " , " + m _ t r a d e . R e s u l t R e t c o d e D e s c r i p t i o n ( ) ) ;
}
}
e l s e
O b j e c t D e l e t e ( 0 , " b z " + I n t e g e r T o S t r i n g ( m _ p o s i t i o n . T i c k e t ( ) ) ) ;
i f ( E x t T a k e P r o f i t ! = 0 )
{
a r r o v ( " t p " + I n t e g e r T o S t r i n g ( m _ p o s i t i o n . T i c k e t ( ) ) , i T i m e ( 0 ) , N o r m a l i z e D o u b l e ( m _ p o s i t i o n . P r i c e O p e n ( ) - E x t T a k e P r o f i t * P o i n t ( ) , D i g i t s ( ) ) , 1 , c l r B l u e ) ;
i f ( m _ s y m b o l . B i d ( ) < N o r m a l i z e D o u b l e ( m _ p o s i t i o n . P r i c e O p e n ( ) - E x t T a k e P r o f i t * P o i n t ( ) , D i g i t s ( ) ) )
{
i f ( m _ t r a d e . P o s i t i o n C l o s e ( m _ p o s i t i o n . T i c k e t ( ) ) )
p r ( " @45@ 70:@KB" ) ;
e l s e
p r ( I n t e g e r T o S t r i n g ( m _ t r a d e . R e s u l t R e t c o d e ( ) ) + " , " + m _ t r a d e . R e s u l t R e t c o d e D e s c r i p t i o n ( ) ) ;
}
}
e l s e
O b j e c t D e l e t e ( 0 , " t p " + I n t e g e r T o S t r i n g ( m _ p o s i t i o n . T i c k e t ( ) ) ) ;
i f ( E x t S t o p L o s s ! = 0 )
{
a r r o v ( " s l " + I n t e g e r T o S t r i n g ( m _ p o s i t i o n . T i c k e t ( ) ) , i T i m e ( 0 ) , N o r m a l i z e D o u b l e ( m _ p o s i t i o n . P r i c e O p e n ( ) + E x t S t o p L o s s * P o i n t ( ) , D i g i t s ( ) ) , 1 , c l r R e d ) ;
i f ( m _ s y m b o l . A s k ( ) > N o r m a l i z e D o u b l e ( m _ p o s i t i o n . P r i c e O p e n ( ) + E x t S t o p L o s s * P o i n t ( ) , D i g i t s ( ) ) )
{
i f ( m _ t r a d e . P o s i t i o n C l o s e ( m _ p o s i t i o n . T i c k e t ( ) ) )
p r ( " @45@ 70:@KB" ) ;
e l s e
p r ( I n t e g e r T o S t r i n g ( m _ t r a d e . R e s u l t R e t c o d e ( ) ) + " , " + m _ t r a d e . R e s u l t R e t c o d e D e s c r i p t i o n ( ) ) ;
}
}
e l s e
O b j e c t D e l e t e ( 0 , " s l " + I n t e g e r T o S t r i n g ( m _ p o s i t i o n . T i c k e t ( ) ) ) ;
}
}
/ / - - - A;CG05 5A;8 >@45@ 70:@KB C40;8< 53> <5B:8
o b j d e l ( ) ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | E x p e r t d e i n i t i a l i z a t i o n f u n c t i o n |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
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 )
{
/ / - - - #40;5=85 <5B>: A>740==KE A>25B=8:>< ?@8 C40;5=88 A>25B=8:0
f o r ( i n t i = P o s i t i o n s T o t a l ( ) - 1 ; i > = 0 ; i - - )
i f ( m _ p o s i t i o n . S e l e c t B y I n d e x ( i ) )
{
O b j e c t D e l e t e ( 0 , " b z " + I n t e g e r T o S t r i n g ( m _ p o s i t i o n . T i c k e t ( ) ) ) ;
O b j e c t D e l e t e ( 0 , " t p " + I n t e g e r T o S t r i n g ( m _ p o s i t i o n . T i c k e t ( ) ) ) ;
O b j e c t D e l e t e ( 0 , " s l " + I n t e g e r T o S t r i n g ( m _ p o s i t i o n . T i c k e t ( ) ) ) ;
O b j e c t D e l e t e ( 0 , " t x t w " + I n t e g e r T o S t r i n g ( i ) ) ;
}
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
v o i d o b j d e l ( )
{
H i s t o r y S e l e c t ( T i m e C u r r e n t ( ) - 8 6 4 0 0 , T i m e C u r r e n t ( ) + 8 6 4 0 0 ) ;
u l o n g t i c k e t = 0 ;
u i n t t o t a l = H i s t o r y D e a l s T o t a l ( ) ;
f o r ( u i n t i = 0 ; i < t o t a l ; i + + )
i f ( m _ d e a l . S e l e c t B y I n d e x ( i ) )
i f ( m _ d e a l . E n t r y ( ) = = D E A L _ E N T R Y _ O U T | | m _ d e a l . E n t r y ( ) = = D E A L _ E N T R Y _ I N O U T ) / / A;CG05 5A;8 ?>78F8O 70:@KB0 C40;8< 53> <5B:8
{
O b j e c t D e l e t e ( 0 , " b z " + I n t e g e r T o S t r i n g ( m _ d e a l . P o s i t i o n I d ( ) ) ) ;
O b j e c t D e l e t e ( 0 , " t p " + I n t e g e r T o S t r i n g ( m _ d e a l . P o s i t i o n I d ( ) ) ) ;
O b j e c t D e l e t e ( 0 , " s l " + I n t e g e r T o S t r i n g ( m _ d e a l . P o s i t i o n I d ( ) ) ) ;
}
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | $C=:F8O >B@8A>2:8 <5B>: |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
v o i d a r r o v ( s t r i n g n a m e , d a t e t i m e t i m e , d o u b l e p r i c e , i n t w i d t h , c o l o r c l r )
{
i f ( O b j e c t F i n d ( 0 , n a m e ) < 0 )
O b j e c t C r e a t e ( 0 , n a m e , 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 M o v e ( 0 , n a m e , 0 , t i m e , p r i c e ) ;
O b j e c t S e t I n t e g e r ( 0 , n a m e , O B J P R O P _ C O L O R , c l r ) ;
O b j e c t S e t I n t e g e r ( 0 , n a m e , O B J P R O P _ W I D T H , w i d t h ) ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | $C=:F8O >B@8A>2:8 A>>1I5=89 |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
v o i d p r ( s t r i n g t x t )
{
s t r i n g i n f o [ ] ;
A r r a y R e s i z e ( i n f o , c o m e n t ) ;
s t r i n g h , m , s , c m ; / / i n t i ;
M q l D a t e T i m e s t r 1 ;
T i m e T o S t r u c t ( T i m e C u r r e n t ( ) , s t r 1 ) ;
h = I n t e g e r T o S t r i n g ( s t r 1 . h o u r ) ;
i f ( S t r i n g L e n ( h ) < 2 )
h = " 0 " + h ;
m = I n t e g e r T o S t r i n g ( s t r 1 . m i n ) ;
i f ( S t r i n g L e n ( m ) < 2 )
m = " 0 " + m ;
s = I n t e g e r T o S t r i n g ( s t r 1 . s e c ) ;
i f ( S t r i n g L e n ( s ) < 2 )
s = " 0 " + s ;
t x t = h + " : " + m + " : " + s + " " + t x t ;
f o r ( i n t i = c o m e n t - 1 ; i > = 1 ; i - - )
i n f o [ i ] = i n f o [ i - 1 ] ;
i n f o [ 0 ] = t x t ;
f o r ( i n t i = c o m e n t - 1 ; i > = 0 ; i - - )
i f ( i n f o [ i ] ! = " " )
{
c m = i n f o [ i ] ;
O b j e c t C r e a t e ( 0 , " t x t w " + I n t e g e r T o S t r i n g ( i ) , O B J _ L A B E L , 0 , 0 , 0 ) ;
O b j e c t S e t I n t e g e r ( 0 , " t x t w " + I n t e g e r T o S t r i n g ( i ) , O B J P R O P _ C O R N E R , C O R N E R _ L E F T _ U P P E R ) ;
O b j e c t S e t I n t e g e r ( 0 , " t x t w " + I n t e g e r T o S t r i n g ( i ) , O B J P R O P _ X D I S T A N C E , 1 0 ) ;
O b j e c t S e t I n t e g e r ( 0 , " t x t w " + I n t e g e r T o S t r i n g ( i ) , O B J P R O P _ Y D I S T A N C E , 3 0 + 1 5 * i ) ;
O b j e c t S e t S t r i n g ( 0 , " t x t w " + I n t e g e r T o S t r i n g ( i ) , O B J P R O P _ T E X T , t x t ) ;
O b j e c t S e t S t r i n g ( 0 , " t x t w " + I n t e g e r T o S t r i n g ( i ) , O B J P R O P _ F O N T , " T i m e s N e w R o m a n " ) ;
O b j e c t S e t I n t e g e r ( 0 , " t x t w " + I n t e g e r T o S t r i n g ( i ) , O B J P R O P _ F O N T S I Z E , 1 0 ) ;
O b j e c t S e t I n t e g e r ( 0 , " t x t w " + I n t e g e r T o S t r i n g ( i ) , O B J P R O P _ C O L O R , c l r G r e e n ) ;
}
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | !?8A>: >H81>: |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
s t r i n g E r r o r ( i n t e r r o r _ c o d e )
{
s t r i n g e r r o r _ s t r i n g ;
s w i t c h ( e r r o r _ c o d e )
{
c a s e 0 : e r r o r _ s t r i n g = " N o e r r o r r e t u r n e d . " ; b r e a k ;
c a s e 1 : e r r o r _ s t r i n g = " N o e r r o r r e t u r n e d , b u t t h e r e s u l t i s u n k n o w n . " ; b r e a k ;
c a s e 2 : e r r o r _ s t r i n g = " C o m m o n e r r o r . " ; b r e a k ;
c a s e 3 : e r r o r _ s t r i n g = " I n v a l i d t r a d e p a r a m e t e r s . " ; b r e a k ;
c a s e 4 : e r r o r _ s t r i n g = " T r a d e s e r v e r i s b u s y . " ; b r e a k ;
c a s e 5 : e r r o r _ s t r i n g = " O l d v e r s i o n o f t h e c l i e n t t e r m i n a l . " ; b r e a k ;
c a s e 6 : e r r o r _ s t r i n g = " N o c o n n e c t i o n w i t h t r a d e s e r v e r . " ; b r e a k ;
c a s e 7 : e r r o r _ s t r i n g = " N o t e n o u g h r i g h t s . " ; b r e a k ;
c a s e 8 : e r r o r _ s t r i n g = " T o o f r e q u e n t r e q u e s t s . " ; b r e a k ;
c a s e 9 : e r r o r _ s t r i n g = " M a l f u n c t i o n a l t r a d e o p e r a t i o n . " ; b r e a k ;
c a s e 6 4 : e r r o r _ s t r i n g = " A c c o u n t d i s a b l e d . " ; b r e a k ;
c a s e 6 5 : e r r o r _ s t r i n g = " I n v a l i d a c c o u n t . " ; b r e a k ;
c a s e 1 2 8 : e r r o r _ s t r i n g = " T r a d e t i m e o u t . " ; b r e a k ;
c a s e 1 2 9 : e r r o r _ s t r i n g = " I n v a l i d p r i c e . " ; b r e a k ;
c a s e 1 3 0 : e r r o r _ s t r i n g = " I n v a l i d s t o p s . " ; b r e a k ;
c a s e 1 3 1 : e r r o r _ s t r i n g = " I n v a l i d t r a d e v o l u m e . " ; b r e a k ;
c a s e 1 3 2 : e r r o r _ s t r i n g = " M a r k e t i s c l o s e d . " ; b r e a k ;
c a s e 1 3 3 : e r r o r _ s t r i n g = " T r a d e i s d i s a b l e d . " ; b r e a k ;
c a s e 1 3 4 : e r r o r _ s t r i n g = " N o t e n o u g h m o n e y . " ; b r e a k ;
c a s e 1 3 5 : e r r o r _ s t r i n g = " P r i c e c h a n g e d . " ; b r e a k ;
c a s e 1 3 6 : e r r o r _ s t r i n g = " O f f q u o t e s . " ; b r e a k ;
c a s e 1 3 7 : e r r o r _ s t r i n g = " B r o k e r i s b u s y . " ; b r e a k ;
c a s e 1 3 8 : e r r o r _ s t r i n g = " R e q u o t e . " ; b r e a k ;
c a s e 1 3 9 : e r r o r _ s t r i n g = " O r d e r i s l o c k e d . " ; b r e a k ;
c a s e 1 4 0 : e r r o r _ s t r i n g = " L o n g p o s i t i o n s o n l y a l l o w e d . " ; b r e a k ;
c a s e 1 4 1 : e r r o r _ s t r i n g = " T o o m a n y r e q u e s t s . " ; b r e a k ;
c a s e 1 4 5 : e r r o r _ s t r i n g = " M o d i f i c a t i o n d e n i e d b e c a u s e a n o r d e r i s t o o c l o s e t o m a r k e t . " ; b r e a k ;
c a s e 1 4 6 : e r r o r _ s t r i n g = " T r a d e c o n t e x t i s b u s y . " ; b r e a k ;
c a s e 1 4 7 : e r r o r _ s t r i n g = " E x p i r a t i o n s a r e d e n i e d b y b r o k e r . " ; b r e a k ;
c a s e 1 4 8 : e r r o r _ s t r i n g = " T h e a m o u n t o f o p e n e d a n d p e n d i n g o r d e r s h a s r e a c h e d t h e l i m i t s e t b y a b r o k e r . " ; b r e a k ;
c a s e 4 0 0 0 : e r r o r _ s t r i n g = " N o e r r o r . " ; b r e a k ;
c a s e 4 0 0 1 : e r r o r _ s t r i n g = " W r o n g f u n c t i o n p o i n t e r . " ; b r e a k ;
c a s e 4 0 0 2 : e r r o r _ s t r i n g = " A r r a y i n d e x i s o u t o f r a n g e . " ; b r e a k ;
c a s e 4 0 0 3 : e r r o r _ s t r i n g = " N o m e m o r y f o r f u n c t i o n c a l l s t a c k . " ; b r e a k ;
c a s e 4 0 0 4 : e r r o r _ s t r i n g = " R e c u r s i v e s t a c k o v e r f l o w . " ; b r e a k ;
c a s e 4 0 0 5 : e r r o r _ s t r i n g = " N o t e n o u g h s t a c k f o r p a r a m e t e r . " ; b r e a k ;
c a s e 4 0 0 6 : e r r o r _ s t r i n g = " N o m e m o r y f o r p a r a m e t e r s t r i n g . " ; b r e a k ;
c a s e 4 0 0 7 : e r r o r _ s t r i n g = " N o m e m o r y f o r t e m p s t r i n g . " ; b r e a k ;
c a s e 4 0 0 8 : e r r o r _ s t r i n g = " N o t i n i t i a l i z e d s t r i n g . " ; b r e a k ;
c a s e 4 0 0 9 : e r r o r _ s t r i n g = " N o t i n i t i a l i z e d s t r i n g i n a n a r r a y . " ; b r e a k ;
c a s e 4 0 1 0 : e r r o r _ s t r i n g = " N o m e m o r y f o r a n a r r a y s t r i n g . " ; b r e a k ;
c a s e 4 0 1 1 : e r r o r _ s t r i n g = " T o o l o n g s t r i n g . " ; b r e a k ;
c a s e 4 0 1 2 : e r r o r _ s t r i n g = " R e m a i n d e r f r o m z e r o d i v i d e . " ; b r e a k ;
c a s e 4 0 1 3 : e r r o r _ s t r i n g = " Z e r o d i v i d e . " ; b r e a k ;
c a s e 4 0 1 4 : e r r o r _ s t r i n g = " U n k n o w n c o m m a n d . " ; b r e a k ;
c a s e 4 0 1 5 : e r r o r _ s t r i n g = " W r o n g j u m p . " ; b r e a k ;
c a s e 4 0 1 6 : e r r o r _ s t r i n g = " N o t i n i t i a l i z e d a r r a y . " ; b r e a k ;
c a s e 4 0 1 7 : e r r o r _ s t r i n g = " D L L c a l l s a r e n o t a l l o w e d . " ; b r e a k ;
c a s e 4 0 1 8 : e r r o r _ s t r i n g = " C a n n o t l o a d l i b r a r y . " ; b r e a k ;
c a s e 4 0 1 9 : e r r o r _ s t r i n g = " C a n n o t c a l l f u n c t i o n . " ; b r e a k ;
c a s e 4 0 2 0 : e r r o r _ s t r i n g = " E A f u n c t i o n c a l l s a r e n o t a l l o w e d . " ; b r e a k ;
c a s e 4 0 2 1 : e r r o r _ s t r i n g = " N o t e n o u g h m e m o r y f o r a s t r i n g r e t u r n e d f r o m a f u n c t i o n . " ; b r e a k ;
c a s e 4 0 2 2 : e r r o r _ s t r i n g = " S y s t e m i s b u s y . " ; b r e a k ;
c a s e 4 0 5 0 : e r r o r _ s t r i n g = " I n v a l i d f u n c t i o n p a r a m e t e r s c o u n t . " ; b r e a k ;
c a s e 4 0 5 1 : e r r o r _ s t r i n g = " I n v a l i d f u n c t i o n p a r a m e t e r v a l u e . " ; b r e a k ;
c a s e 4 0 5 2 : e r r o r _ s t r i n g = " S t r i n g f u n c t i o n i n t e r n a l e r r o r . " ; b r e a k ;
c a s e 4 0 5 3 : e r r o r _ s t r i n g = " S o m e a r r a y e r r o r . " ; b r e a k ;
c a s e 4 0 5 4 : e r r o r _ s t r i n g = " I n c o r r e c t s e r i e s a r r a y u s i n g . " ; b r e a k ;
c a s e 4 0 5 5 : e r r o r _ s t r i n g = " C u s t o m i n d i c a t o r e r r o r . " ; b r e a k ;
c a s e 4 0 5 6 : e r r o r _ s t r i n g = " A r r a y s a r e i n c o m p a t i b l e . " ; b r e a k ;
c a s e 4 0 5 7 : e r r o r _ s t r i n g = " G l o b a l v a r i a b l e s p r o c e s s i n g e r r o r . " ; b r e a k ;
c a s e 4 0 5 8 : e r r o r _ s t r i n g = " G l o b a l v a r i a b l e n o t f o u n d . " ; b r e a k ;
c a s e 4 0 5 9 : e r r o r _ s t r i n g = " F u n c t i o n i s n o t a l l o w e d i n t e s t i n g m o d e . " ; b r e a k ;
c a s e 4 0 6 0 : e r r o r _ s t r i n g = " F u n c t i o n i s n o t c o n f i r m e d . " ; b r e a k ;
c a s e 4 0 6 1 : e r r o r _ s t r i n g = " M a i l s e n d i n g e r r o r . " ; b r e a k ;
c a s e 4 0 6 2 : e r r o r _ s t r i n g = " S t r i n g p a r a m e t e r e x p e c t e d . " ; b r e a k ;
c a s e 4 0 6 3 : e r r o r _ s t r i n g = " I n t e g e r p a r a m e t e r e x p e c t e d . " ; b r e a k ;
c a s e 4 0 6 4 : e r r o r _ s t r i n g = " D o u b l e p a r a m e t e r e x p e c t e d . " ; b r e a k ;
c a s e 4 0 6 5 : e r r o r _ s t r i n g = " A r r a y a s p a r a m e t e r e x p e c t e d . " ; b r e a k ;
c a s e 4 0 6 6 : e r r o r _ s t r i n g = " R e q u e s t e d h i s t o r y d a t a i n u p d a t i n g s t a t e . " ; b r e a k ;
c a s e 4 0 6 7 : e r r o r _ s t r i n g = " S o m e e r r o r i n t r a d e o p e r a t i o n e x e c u t i o n . " ; b r e a k ;
c a s e 4 0 9 9 : e r r o r _ s t r i n g = " E n d o f a f i l e . " ; b r e a k ;
c a s e 4 1 0 0 : e r r o r _ s t r i n g = " S o m e f i l e e r r o r . " ; b r e a k ;
c a s e 4 1 0 1 : e r r o r _ s t r i n g = " W r o n g f i l e n a m e . " ; b r e a k ;
c a s e 4 1 0 2 : e r r o r _ s t r i n g = " T o o m a n y o p e n e d f i l e s . " ; b r e a k ;
c a s e 4 1 0 3 : e r r o r _ s t r i n g = " C a n n o t o p e n f i l e . " ; b r e a k ;
c a s e 4 1 0 4 : e r r o r _ s t r i n g = " I n c o m p a t i b l e a c c e s s t o a f i l e . " ; b r e a k ;
c a s e 4 1 0 5 : e r r o r _ s t r i n g = " N o o r d e r s e l e c t e d . " ; b r e a k ;
c a s e 4 1 0 6 : e r r o r _ s t r i n g = " U n k n o w n s y m b o l . " ; b r e a k ;
c a s e 4 1 0 7 : e r r o r _ s t r i n g = " I n v a l i d p r i c e . " ; b r e a k ;
c a s e 4 1 0 8 : e r r o r _ s t r i n g = " I n v a l i d t i c k e t . " ; b r e a k ;
c a s e 4 1 0 9 : e r r o r _ s t r i n g = " T r a d e i s n o t a l l o w e d . " ; b r e a k ;
c a s e 4 1 1 0 : e r r o r _ s t r i n g = " L o n g s a r e n o t a l l o w e d . " ; b r e a k ;
c a s e 4 1 1 1 : e r r o r _ s t r i n g = " S h o r t s a r e n o t a l l o w e d . " ; b r e a k ;
c a s e 4 2 0 0 : e r r o r _ s t r i n g = " O b j e c t a l r e a d y e x i s t s . " ; b r e a k ;
c a s e 4 2 0 1 : e r r o r _ s t r i n g = " U n k n o w n o b j e c t p r o p e r t y . " ; b r e a k ;
c a s e 4 2 0 2 : e r r o r _ s t r i n g = " O b j e c t d o e s n o t e x i s t . " ; b r e a k ;
c a s e 4 2 0 3 : e r r o r _ s t r i n g = " U n k n o w n o b j e c t t y p e . " ; b r e a k ;
c a s e 4 2 0 4 : e r r o r _ s t r i n g = " N o o b j e c t n a m e . " ; b r e a k ;
c a s e 4 2 0 5 : e r r o r _ s t r i n g = " O b j e c t c o o r d i n a t e s e r r o r . " ; b r e a k ;
c a s e 4 2 0 6 : e r r o r _ s t r i n g = " N o s p e c i f i e d s u b w i n d o w . " ; b r e a k ;
d e f a u l t : e r r o r _ s t r i n g = " S o m e e r r o r i n o b j e c t o p e r a t i o n . " ;
}
r e t u r n ( e r r o r _ s t r i n g ) ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | R e f r e s h e s t h e s y m b o l q u o t e s d a t a |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
b o o l R e f r e s h R a t e s ( )
{
/ / - - - r e f r e s h r a t e s
i f ( ! m _ s y m b o l . R e f r e s h R a t e s ( ) )
r e t u r n ( f a l s e ) ;
/ / - - - p r o t e c t i o n a g a i n s t t h e r e t u r n v a l u e o f " z e r o "
i f ( m _ s y m b o l . A s k ( ) = = 0 | | m _ s y m b o l . B i d ( ) = = 0 )
r e t u r n ( f a l s e ) ;
/ / - - -
r e t u r n ( t r u e ) ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | G e t T i m e f o r s p e c i f i e d b a r i n d e x |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
d a t e t i m e i T i m e ( c o n s t i n t i n d e x , s t r i n g s y m b o l = N U L L , E N U M _ T I M E F R A M E S t i m e f r a m e = P E R I O D _ C U R R E N T )
{
i f ( s y m b o l = = N U L L )
s y m b o l = S y m b o l ( ) ;
i f ( t i m e f r a m e = = 0 )
t i m e f r a m e = P e r i o d ( ) ;
d a t e t i m e T i m e [ ] ;
d a t e t i m e t i m e = 0 ;
A r r a y S e t A s S e r i e s ( T i m e , t r u e ) ;
i n t c o p i e d = C o p y T i m e ( s y m b o l , t i m e f r a m e , i n d e x , 1 , T i m e ) ;
i f ( c o p i e d > 0 ) t i m e = T i m e [ 0 ] ;
r e t u r n ( t i m 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
---