211 lines
12 KiB
MQL5
211 lines
12 KiB
MQL5
|
<EFBFBD><EFBFBD># p r o p e r t y c o p y r i g h t " M o k a r a "
|
|||
|
|
# 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 / e n / u s e r s / m o k a r a "
|
|||
|
|
# 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 v e r s i o n " 1 . 0 "
|
|||
|
|
|
|||
|
|
# i n c l u d e < C o n t r o l s / D i a l o g . m q h >
|
|||
|
|
# i n c l u d e < C o n t r o l s / B u t t o n . m q h >
|
|||
|
|
# i n c l u d e < C o n t r o l s / P a n e l . m q h >
|
|||
|
|
# i n c l u d e < C o n t r o l s / L a b e l . m q h >
|
|||
|
|
# i n c l u d e < C o n t r o l s / E d i t . m q h >
|
|||
|
|
# i n c l u d e < C o n t r o l s / S p i n E d i t . m q h >
|
|||
|
|
# i n c l u d e < C o n t r o l s / R a d i o G r o u p . m q h >
|
|||
|
|
# i n c l u d e < A r r a y s / A r r a y S t r i n g . 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 < C F i b o H a n d l e r . m q h >
|
|||
|
|
|
|||
|
|
# d e f i n e S P A N 6
|
|||
|
|
# d e f i n e D I A L O G _ W I D T H 3 0 0
|
|||
|
|
# d e f i n e D I A L O G _ H E I G H T 2 5 0
|
|||
|
|
# d e f i n e C E L L _ W I D T H 4 0
|
|||
|
|
# d e f i n e C E L L _ H E I G H T 4 0
|
|||
|
|
|
|||
|
|
C F i b o H a n d l e r f i b o _ h a n d l e r ;
|
|||
|
|
|
|||
|
|
|
|||
|
|
|
|||
|
|
|
|||
|
|
/ / h t t p s : / / w w w . y o u t u b e . c o m / w a t c h ? v = r B C N D J X h R 1 o & l i s t = P L e Q Q b T e i G 3 s D 5 Q S 8 E x p m R o J G z 1 v v F z 4 n v & i n d e x = 7 3
|
|||
|
|
c l a s s M y A p p D i a l o g : p u b l i c C A p p D i a l o g
|
|||
|
|
{
|
|||
|
|
p r i v a t e :
|
|||
|
|
C L a b e l l a b e l 1 ;
|
|||
|
|
C R a d i o G r o u p m _ r a d i o _ g r o u p ;
|
|||
|
|
|
|||
|
|
C M y S p i n E d i t e d i t _ t r a i l i n g ;
|
|||
|
|
C B u t t o n b t n _ s e t _ t r a i l ;
|
|||
|
|
|
|||
|
|
C M y S p i n E d i t e d i t _ t p _ u n i t _ v a l u e ;
|
|||
|
|
C B u t t o n b t n _ s e t _ t p ;
|
|||
|
|
|
|||
|
|
C A r r a y S t r i n g P o s i t i o n s ;
|
|||
|
|
C A r r a y S t r i n g O r d e r s ;
|
|||
|
|
C T r a d e t r a d e ;
|
|||
|
|
p u b l i c :
|
|||
|
|
|
|||
|
|
v o i d O n I n i t ( ) {
|
|||
|
|
C r e a t e ( 0 , " T r a d e C o p i l o t V 3 " , 0 , 2 0 , 2 0 , D I A L O G _ W I D T H , D I A L O G _ H E I G H T ) ;
|
|||
|
|
i n t x 1 = 0 ;
|
|||
|
|
i n t y 1 = S P A N ;
|
|||
|
|
i n t s u b w i n = 0 ;
|
|||
|
|
|
|||
|
|
/ / r o w 1
|
|||
|
|
l a b e l 1 . C r e a t e ( 0 , " l a b e l 1 " , s u b w i n , x 1 , y 1 , x 1 + C E L L _ W I D T H , y 1 + C E L L _ H E I G H T ) ;
|
|||
|
|
l a b e l 1 . C o l o r B a c k g r o u n d ( c l r G r e e n ) ;
|
|||
|
|
l a b e l 1 . C o l o r ( c l r G r e e n ) ;
|
|||
|
|
l a b e l 1 . T e x t ( " S e l l l i m i t 1 0 " ) ;
|
|||
|
|
A d d ( l a b e l 1 ) ;
|
|||
|
|
|
|||
|
|
|
|||
|
|
/ / r o w 2
|
|||
|
|
y 1 = y 1 + C E L L _ H E I G H T ;
|
|||
|
|
x 1 = 0 ;
|
|||
|
|
m _ r a d i o _ g r o u p . C r e a t e ( 0 , " m _ r a d i o _ g r o u p " , s u b w i n , 0 , y 1 , x 1 + C E L L _ W I D T H * 3 , y 1 + C E L L _ H E I G H T * 1 . 5 ) ;
|
|||
|
|
m _ r a d i o _ g r o u p . A d d I t e m ( " @b gUS" , 0 ) ;
|
|||
|
|
m _ r a d i o _ g r o u p . A d d I t e m ( " <00>v)RUS" , 1 ) ;
|
|||
|
|
m _ r a d i o _ g r o u p . A d d I t e m ( " <00>N_cUS" , 2 ) ;
|
|||
|
|
m _ r a d i o _ g r o u p . V a l u e ( 0 ) ;
|
|||
|
|
A d d ( m _ r a d i o _ g r o u p ) ;
|
|||
|
|
|
|||
|
|
/ / r o w 3
|
|||
|
|
y 1 = y 1 + C E L L _ H E I G H T * 1 . 5 + S P A N ;
|
|||
|
|
|
|||
|
|
x 1 = 0 ;
|
|||
|
|
e d i t _ t r a i l i n g . C r e a t e ( 0 , " e d i t _ t r a i l i n g " , s u b w i n , 0 , y 1 , x 1 + C E L L _ W I D T H * 2 , y 1 + C E L L _ H E I G H T ) ;
|
|||
|
|
/ / e d i t _ t r a i l i n g . W i d t h ( ) ;
|
|||
|
|
/ / e d i t _ t r a i l i n g . H e i g h t ( ) ;
|
|||
|
|
e d i t _ t r a i l i n g . M a x V a l u e ( 1 0 0 ) ;
|
|||
|
|
e d i t _ t r a i l i n g . M i n V a l u e ( 0 ) ;
|
|||
|
|
e d i t _ t r a i l i n g . V a l u e ( 5 0 ) ;
|
|||
|
|
A d d ( e d i t _ t r a i l i n g ) ;
|
|||
|
|
x 1 = x 1 + C E L L _ W I D T H * 2 + S P A N ;
|
|||
|
|
|
|||
|
|
|
|||
|
|
b t n _ s e t _ t r a i l . C r e a t e ( 0 , " b t n _ s e t _ t r a i l " , 0 , x 1 , y 1 , 0 , 0 ) ;
|
|||
|
|
b t n _ s e t _ t r a i l . W i d t h ( C E L L _ W I D T H * 4 ) ;
|
|||
|
|
b t n _ s e t _ t r a i l . H e i g h t ( C E L L _ H E I G H T ) ;
|
|||
|
|
b t n _ s e t _ t r a i l . C o l o r B a c k g r o u n d ( c l r O r a n g e ) ;
|
|||
|
|
b t n _ s e t _ t r a i l . T e x t ( " <00><>n<6E><7F>*<2A>" ) ;
|
|||
|
|
A d d ( b t n _ s e t _ t r a i l ) ;
|
|||
|
|
|
|||
|
|
/ / r o w 4
|
|||
|
|
y 1 = y 1 + C E L L _ H E I G H T + S P A N ;
|
|||
|
|
x 1 = 0 ;
|
|||
|
|
e d i t _ t p _ u n i t _ v a l u e . C r e a t e ( 0 , " e d i t _ t p _ u n i t _ v a l u e " , s u b w i n , 0 , y 1 , x 1 + C E L L _ W I D T H * 2 , y 1 + C E L L _ H E I G H T ) ;
|
|||
|
|
e d i t _ t p _ u n i t _ v a l u e . M a x V a l u e ( 6 0 0 ) ;
|
|||
|
|
e d i t _ t p _ u n i t _ v a l u e . M i n V a l u e ( 0 ) ;
|
|||
|
|
e d i t _ t p _ u n i t _ v a l u e . V a l u e ( 5 0 ) ;
|
|||
|
|
e d i t _ t p _ u n i t _ v a l u e . S t e p V a l u e ( 2 5 ) ;
|
|||
|
|
A d d ( e d i t _ t p _ u n i t _ v a l u e ) ;
|
|||
|
|
x 1 = x 1 + C E L L _ W I D T H * 2 + S P A N ;
|
|||
|
|
|
|||
|
|
|
|||
|
|
b t n _ s e t _ t p . C r e a t e ( 0 , " b t n _ s e t _ t p " , 0 , x 1 , y 1 , 0 , 0 ) ;
|
|||
|
|
b t n _ s e t _ t p . W i d t h ( C E L L _ W I D T H * 4 ) ;
|
|||
|
|
b t n _ s e t _ t p . H e i g h t ( C E L L _ H E I G H T ) ;
|
|||
|
|
b t n _ s e t _ t p . C o l o r B a c k g r o u n d ( c l r L i m e G r e e n ) ;
|
|||
|
|
b t n _ s e t _ t p . T e x t ( " <00><>nT P " ) ;
|
|||
|
|
A d d ( b t n _ s e t _ t p ) ;
|
|||
|
|
|
|||
|
|
R u n ( ) ;
|
|||
|
|
|
|||
|
|
O n T i c k ( ) ;
|
|||
|
|
|
|||
|
|
|
|||
|
|
}
|
|||
|
|
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 ) {
|
|||
|
|
D e s t r o y ( r e a s o n ) ;
|
|||
|
|
}
|
|||
|
|
v o i d O n T i c k ( ) {
|
|||
|
|
d o u b l e u n i t _ p e r c e n t = 0 . 0 5 ;
|
|||
|
|
l a b e l 1 . T e x t ( S t r i n g F o r m a t ( " USMOP I P S : % d " , U n i t P i p s ( u n i t _ p e r c e n t ) ) ) ;
|
|||
|
|
}
|
|||
|
|
v o i d C h a r t E v e n t ( c o n s t i n t i d , c o n s t l o n g & l p a r a m , c o n s t d o u b l e & d p a r a m , c o n s t s t r i n g & s p a r a m ) ;
|
|||
|
|
} ;
|
|||
|
|
|
|||
|
|
v o i d M y A p p D i a l o g : : C h a r t E v e n t ( c o n s t i n t i d , c o n s t l o n g & l p a r a m , c o n s t d o u b l e & d p a r a m , c o n s t s t r i n g & s p a r a m ) {
|
|||
|
|
C A p p D i a l o g : : C h a r t E v e n t ( i d , l p a r a m , d p a r a m , s p a r a m ) ;
|
|||
|
|
f i b o _ h a n d l e r . O n C h a r t E v e n t ( i d , l p a r a m , d p a r a m , s p a r a m ) ;
|
|||
|
|
|
|||
|
|
i f ( i d = = C H A R T E V E N T _ O B J E C T _ C L I C K ) {
|
|||
|
|
/ / <EFBFBD><EFBFBD>n<EFBFBD><EFBFBD>*<EFBFBD>
|
|||
|
|
i f ( s p a r a m = = b t n _ s e t _ t r a i l . N a m e ( ) ) {
|
|||
|
|
d o u b l e l o t s = 0 . 0 1 ; / / e d i t 1 . V a l u e ( ) ;
|
|||
|
|
/ / t r a d e . S e l l ( l o t s ) ;
|
|||
|
|
d o u b l e t a r g e t _ g r o u p = m _ r a d i o _ g r o u p . V a l u e ( ) ;
|
|||
|
|
P r i n t ( " b t n _ s e t _ t r a i l : " , e d i t _ t r a i l i n g . V a l u e ( ) , m _ r a d i o _ g r o u p . V a l u e ( ) ) ;
|
|||
|
|
|
|||
|
|
/ / 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 - - ) {
|
|||
|
|
/ / u l o n g t i c k e t = P o s i t i o n G e t T i c k e t ( i ) ;
|
|||
|
|
/ / i f ( P o s i t i o n S e l e c t B y T i c k e t ( t i c k e t ) ) {
|
|||
|
|
/ / d o u b l e p r o f i t = P o s i t i o n G e t D o u b l e ( P O S I T I O N _ P R O F I T ) ;
|
|||
|
|
/ / b o o l i s _ o k = t r u e ;
|
|||
|
|
/ / i f ( t a r g e t _ g r o u p = = 0 ) {
|
|||
|
|
/ / i s _ o k = t r u e ;
|
|||
|
|
/ / } e l s e i f ( t a r g e t _ g r o u p = = 1 ) {
|
|||
|
|
/ / i s _ o k = p r o f i t > 0 ;
|
|||
|
|
/ / } e l s e {
|
|||
|
|
/ / i s _ o k = p r o f i t < 0 ;
|
|||
|
|
/ / }
|
|||
|
|
/ / i f ( i s _ o k ) {
|
|||
|
|
/ / P o s i t i o n M o d i f y T P ( t i c k e t , u n i t _ p e r c e n t , t p _ u n i t _ v a l u e ) ;
|
|||
|
|
/ / }
|
|||
|
|
/ / }
|
|||
|
|
/ / }
|
|||
|
|
|
|||
|
|
|
|||
|
|
|
|||
|
|
/ / <EFBFBD><EFBFBD>nT P
|
|||
|
|
} e l s e i f ( s p a r a m = = b t n _ s e t _ t p . N a m e ( ) ) {
|
|||
|
|
d o u b l e t p _ u n i t _ v a l u e = e d i t _ t p _ u n i t _ v a l u e . V a l u e ( ) / 1 0 0 ;
|
|||
|
|
d o u b l e u n i t _ p e r c e n t = 0 . 0 5 ; / /
|
|||
|
|
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 - - ) {
|
|||
|
|
u l o n g t i c k e t = P o s i t i o n G e t T i c k e t ( i ) ;
|
|||
|
|
|
|||
|
|
|
|||
|
|
/ / t r a d e . P o s i t i o n C l o s e ( t i c k e t ) ;
|
|||
|
|
P o s i t i o n M o d i f y T P ( t i c k e t , u n i t _ p e r c e n t , t p _ u n i t _ v a l u e ) ;
|
|||
|
|
}
|
|||
|
|
P r i n t ( " b t n _ s e t _ t p : " , e d i t _ t p _ u n i t _ v a l u e . V a l u e ( ) , m _ r a d i o _ g r o u p . V a l u e ( ) ) ;
|
|||
|
|
}
|
|||
|
|
/ / e l s e i f ( s p a r a m = = b t n 3 . N a m e ( ) ) {
|
|||
|
|
|
|||
|
|
|
|||
|
|
/ / }
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
M y A p p D i a l o g a p p = M y A p p D i a l o g ( ) ;
|
|||
|
|
C T r a d e t r a d e ;
|
|||
|
|
i n t O n I n i t ( )
|
|||
|
|
{
|
|||
|
|
/ / - - -
|
|||
|
|
C h a r t S e t I n t e g e r ( 0 , C H A R T _ E V E N T _ O B J E C T _ D E L E T E , t r u e ) ;
|
|||
|
|
a p p . O n I n i t ( ) ;
|
|||
|
|
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 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 )
|
|||
|
|
{
|
|||
|
|
a p p . O n D e i n i t ( r e a s o n ) ;
|
|||
|
|
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
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 , c o n s t l o n g & l p a r a m , c o n s t d o u b l e & d p a r a m , c o n s t s t r i n g & s p a r a m )
|
|||
|
|
{
|
|||
|
|
a p p . C h a r t E v e n t ( i d , l p a r a m , d p a r a m , s p a r a m ) ;
|
|||
|
|
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
v o i d O n T i c k ( )
|
|||
|
|
{
|
|||
|
|
/ / - - -
|
|||
|
|
a p p . O n T i c k ( ) ;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
|
|||
|
|
|
|||
|
|
|