| Gr Gabacho Ver 1.00 2013/05/12(日) 17:23:56 |
| | Results （ 2013 05.06〜05.10 )
2013 + 12.00 % ￥ + 12,000
週間 + 01.00 % ￥ + 01,000
//////////////////////////////////////////////////////////// |
| サンプルを拾ってきて改造してみました。 2013/05/12(日) 17:20:03 |
| | #property indicator_chart_window
//外部パラメーター
extern int XDIS = 20 ; //表示位置 X 横軸
extern int YDIS = 8 ; //表示位置 Y 縦軸
extern int Fsize = 15 ; //フオントサイズ
//---- input parameters
extern int Peried1= 5;
extern int Peried2= 25;
extern int Peried3= 75;
extern int Peried4= 125;
//初期化関数
int init()
{
//ラベル 1
ObjectCreate ("Label1" , OBJ_LABEL , 0 , 0 , 0 );
ObjectSet ("Label1" , OBJPROP_CORNER , 0 );
ObjectSet ("Label1" , OBJPROP_XDISTANCE , 800 );
ObjectSet ("Label1" , OBJPROP_YDISTANCE , 150 );
//ラベル 2
ObjectCreate ("Label2" , OBJ_LABEL , 0 , 0 , 0 );
ObjectSet ("Label2" , OBJPROP_CORNER , 0 );
ObjectSet ("Label2" , OBJPROP_XDISTANCE , 650 );
ObjectSet ("Label2" , OBJPROP_YDISTANCE , 20 );
//ラベル 3
ObjectCreate ("Label3" , OBJ_LABEL , 0 , 0 , 0 );
ObjectSet ("Label3" , OBJPROP_CORNER , 0 );
ObjectSet ("Label3" , OBJPROP_XDISTANCE , 950 );
ObjectSet ("Label3" , OBJPROP_YDISTANCE , 20 );
//ラベル 4
ObjectCreate ("Label4" , OBJ_LABEL , 0 , 0 , 0 );
ObjectSet ("Label4" , OBJPROP_CORNER , 0 );
ObjectSet ("Label4" , OBJPROP_XDISTANCE , XDIS*1 );
ObjectSet ("Label4" , OBJPROP_YDISTANCE , YDIS*10 );
//ラベル 5
ObjectCreate ("Label5" , OBJ_LABEL , 0 , 0 , 0 );
ObjectSet ("Label5" , OBJPROP_CORNER , 0 );
ObjectSet ("Label5" , OBJPROP_XDISTANCE , XDIS*1 );
ObjectSet ("Label5" , OBJPROP_YDISTANCE , YDIS*15 );
//ラベル 6
ObjectCreate ("Label6" , OBJ_LABEL , 0 , 0 , 0 );
ObjectSet ("Label6" , OBJPROP_CORNER , 0 );
ObjectSet ("Label6" , OBJPROP_XDISTANCE , XDIS*1 );
ObjectSet ("Label6" , OBJPROP_YDISTANCE , YDIS*20 );
//ラベル 7
ObjectCreate ("Label7" , OBJ_LABEL , 0 , 0 , 0 );
ObjectSet ("Label7" , OBJPROP_CORNER , 0 );
ObjectSet ("Label7" , OBJPROP_XDISTANCE , XDIS*1 );
ObjectSet ("Label7" , OBJPROP_YDISTANCE , YDIS*25 );
//ラベル 8
ObjectCreate ("Label8" , OBJ_LABEL , 0 , 0 , 0 );
ObjectSet ("Label8" , OBJPROP_CORNER , 0 );
ObjectSet ("Label8" , OBJPROP_XDISTANCE , XDIS*10 );
ObjectSet ("Label8" , OBJPROP_YDISTANCE , YDIS*10 );
//ラベル 9
ObjectCreate ("Label9" , OBJ_LABEL , 0 , 0 , 0 );
ObjectSet ("Label9" , OBJPROP_CORNER , 0 );
ObjectSet ("Label9" , OBJPROP_XDISTANCE , XDIS*10 );
ObjectSet ("Label9" , OBJPROP_YDISTANCE , YDIS*15 );
//ラベル 10
ObjectCreate ("Label10" , OBJ_LABEL , 0 , 0 , 0 );
ObjectSet ("Label10" , OBJPROP_CORNER , 0 );
ObjectSet ("Label10" , OBJPROP_XDISTANCE , XDIS*10 );
ObjectSet ("Label10" , OBJPROP_YDISTANCE , YDIS*20 );
//ラベル 11
ObjectCreate ("Label11" , OBJ_LABEL , 0 , 0 , 0 );
ObjectSet ("Label11" , OBJPROP_CORNER , 0 );
ObjectSet ("Label11" , OBJPROP_XDISTANCE , XDIS*10 );
ObjectSet ("Label11" , OBJPROP_YDISTANCE , YDIS*25 );
//ラベル 12
ObjectCreate ("Label12" , OBJ_LABEL , 0 , 0 , 0 );
ObjectSet ("Label12" , OBJPROP_CORNER , 0 );
ObjectSet ("Label12" , OBJPROP_XDISTANCE , XDIS*21 );
ObjectSet ("Label12" , OBJPROP_YDISTANCE , YDIS*10 );
//ラベル 13
ObjectCreate ("Label13" , OBJ_LABEL , 0 , 0 , 0 );
ObjectSet ("Label13" , OBJPROP_CORNER , 0 );
ObjectSet ("Label13" , OBJPROP_XDISTANCE , XDIS*21 );
ObjectSet ("Label13" , OBJPROP_YDISTANCE , YDIS*15 );
//ラベル 14
ObjectCreate ("Label14" , OBJ_LABEL , 0 , 0 , 0 );
ObjectSet ("Label14" , OBJPROP_CORNER , 0 );
ObjectSet ("Label14" , OBJPROP_XDISTANCE , XDIS*21 );
ObjectSet ("Label14" , OBJPROP_YDISTANCE , YDIS*20 );
//ラベル 15
ObjectCreate ("Label15" , OBJ_LABEL , 0 , 0 , 0 );
ObjectSet ("Label15" , OBJPROP_CORNER , 0 );
ObjectSet ("Label15" , OBJPROP_XDISTANCE , XDIS*21 );
ObjectSet ("Label15" , OBJPROP_YDISTANCE , YDIS*25 );
return(0);
}
//終了関数
int deinit()
{
ObjectDelete("Label1" );
ObjectDelete("Label2" );
ObjectDelete("Label3" );
ObjectDelete("Label4" );
ObjectDelete("Label5" );
ObjectDelete("Label6" );
ObjectDelete("Label7" );
ObjectDelete("Label8" );
ObjectDelete("Label9" );
ObjectDelete("Label10");
ObjectDelete("Label11");
ObjectDelete("Label12");
ObjectDelete("Label13");
ObjectDelete("Label14");
ObjectDelete("Label15");
return(0);
}
//スタート関数
int start()
{
//---- input parameters
double Gr5 = iMA(NULL,0, Peried1,0,MODE_SMA,PRICE_CLOSE, 0);
double Gr25 = iMA(NULL,0, Peried2,0,MODE_SMA,PRICE_CLOSE, 0);
double Gr75 = iMA(NULL,0, Peried3,0,MODE_SMA,PRICE_CLOSE, 0);
double Gr125 = iMA(NULL,0, Peried4,0,MODE_SMA,PRICE_CLOSE, 0);
//*******************************************************************
// SetText SetText
//*******************************************************************
// 日足開始時刻からの経過時間
int Hb1440 = iHighest(NULL, PERIOD_M1, MODE_HIGH, 1440,0);
int Lb1440 = iLowest (NULL, PERIOD_M1, MODE_LOW, 1440,0);
double Hp1440 = High[ Hb1440 ];
double Lp1440 = Low [ Lb1440 ];
int Hb720 = iHighest(NULL, PERIOD_M1, MODE_HIGH, 720,0);
int Lb720 = iLowest (NULL, PERIOD_M1, MODE_LOW, 720,0);
double Hp720 = High[ Hb720 ];
double Lp720 = Low [ Lb720 ];
//*******************************************************************
// SetText SetText
//*******************************************************************
ObjectSetText("Label1", " 頑 張 っ て ね 。 ^^ "+" ",25,"Batang",ForestGreen );
//*******************************************************************
//*******************************************************************
ObjectSetText("Label2", "Ask "+" "+DoubleToStr(Ask,Digits),20, "Batang",Red );
ObjectSetText("Label3", "Bid "+" "+DoubleToStr(Bid,Digits),20, "Batang",LawnGreen );
//移動平均線 MA 5 , 25 ,75 , 125
ObjectSetText("Label4", " Gr05 "+" " +DoubleToStr( Gr5,Digits ),Fsize,"Batang",DodgerBlue );
ObjectSetText("Label5", " Gr25 "+" " +DoubleToStr( Gr25,Digits ),Fsize,"Batang",DodgerBlue );
ObjectSetText("Label6", " Gr75 "+" " +DoubleToStr( Gr75,Digits ),Fsize,"Batang",DodgerBlue );
ObjectSetText("Label7", "Gr125 "+" " +DoubleToStr(Gr125,Digits) ,Fsize,"Batang",DodgerBlue );
// " Label 8 " 1日 24時間 分足で1440 " 最高値位置 先頭 0 ゼロから数えての足の本数
// " Label 9 " 1日 24時間 分足で1440 " 最安値位置 先頭 0 ゼロから数えての足の本数
// " Label 10 " 1日 24時間 分足で1440 " 最高値
// " Label 11 " 1日 24時間 分足で1440 " 最安値
ObjectSetText("Label8", "Hb1440 "+" "+DoubleToStr(Hb1440,Digits),Fsize,"Batang",LawnGreen );
ObjectSetText("Label9", "Lb1440 "+" "+DoubleToStr(Lb1440,Digits),Fsize,"Batang",LawnGreen );
ObjectSetText("Label10", "Lp1440 "+" "+DoubleToStr(Lp1440,Digits),Fsize,"Batang",LawnGreen );
ObjectSetText("Label11","Lp1440 "+" "+DoubleToStr(Lp1440,Digits),Fsize,"Batang",LawnGreen );
ObjectSetText("Label12","Hb720 "+" "+DoubleToStr(Hb720,Digits),Fsize,"Batang",Red );
ObjectSetText("Label13","Lb720 "+" "+DoubleToStr(Lb720,Digits),Fsize,"Batang",Red );
ObjectSetText("Label14","Hp720 "+" "+DoubleToStr(Hp720,Digits),Fsize,"Batang",Red );
ObjectSetText("Label15","Lb720 "+" "+DoubleToStr(Lb720,Digits),Fsize,"Batang",Red );
return(0);
} |
| Gr Gabacho Ver 1.00 2013/05/04(土) 12:48:44 |
| | Results （ 2013 04.29〜05.02 )
2013 + 10.00 % ￥ + 10,000
週間 + 01.00 % ￥ + 01,000
////////////////////////////////////////////////////////////
システム
if else文 及び 条件部品 妄想 試作中 、、、、
それと もう一つ
”Object Text "で 何とかモニター画面にDataを
表示できないかと 、、、、、
能力から言って欲張り過ぎてるのでは無いかと思うが
調整能力さえ自覚できてないものだから、、、 ^^; |
| Gr Gabacho Ver 1.00 2013/04/28(日) 23:16:51 |
| | Results （2013 04.22〜04.26)
2013 + 10.00 % ￥ + 10,000
週間 - 00.00 % ￥ - 00,000
チョイ頂いては遣られ チョイ頂いては遣られ,,,
の繰り返し 、、、で (^_^;) |
| switch() 2013/04/24(水) 06:18:41 |
| | switch() 文は現状の我が脳ミソでは使えそうもないので
if else 文で行くことにした。 、、、^^; |
| Gr Gabacho Ver 1.00 2013/04/21(日) 12:06:28 |
| | Results （2013 04.15〜04.19)
2013 + 10.00 % ￥ + 10,000
週間 - 01.00 % ￥ -01,000
3月住宅着工件数 <=== 良しだったのですが 後が、、、 ^^
////////////////////////////////////////////////////////////
システム
switch文 if文 else 何となくイメ-ジが湧いて来た辺りで
具体的にはまだまだ 、、、 ^^; |
| 我が国の為替利益を考察 2013/04/19(金) 12:04:42 |
| | ネット検索していたら棒に当たった。
スクロ-ルで一番下の
次の項目に進む、、、で進めます。 ^^
http://www.meti.go.jp/report/tsuhaku2012/2012honbun/html/i1110000.html
http://www.meti.go.jp/report/tsuhaku2012/2012honbun/html/i1120000.html
http://www.meti.go.jp/report/tsuhaku2012/2012honbun/html/i1130000.html |
| 益 2013/04/16(火) 21:44:36 |
| | ..
3月住宅着工件数 ＜＝＝＝ good!... (^^♪ |
| 16日 2013/04/16(火) 21:24:31 |
| | ...+
21:30 (米) 3月住宅着工件数 |
| 条件分岐 2013/04/16(火) 20:37:41 |
| | if else / switch
やってみる 、
ジジイには なかなか大なのじゃが (´・ω・`) |
|