Yogulのprogrammingブログ

Lazarus その２

Lazarus その１

Visual C++ 2010 Express　の　Windowsフォームアプリケーション作成できませんでした。ーーーーーーーーーーーーーーーーーーSchoolFreewareさんのサイトを観ながら、Lazarusで作成しました。.exeファイルの容量も小さくする事ができます。

Pascal(fpc)で配列。

mirror trader -- Demo

２０１３年１１月　・・・・・　１９万円　　　　　　　　１２月　・・・・・　１９０万円２０１４年　１月　・・・・・　　８４万円　　　　　　　２月　・・・・・　　－６８万円（－２２０万から少し回復しました）

H様へ

画像の赤で囲った所、2箇所を半角英数字で変更して下さい。文の前に　//　をつけると文字が灰色に変わって、プログラムには関係なくなります。（コメントアウト）変更後、緑で囲った　Compile　をクリック。青で囲った所でエラーが無いのを確認。　　以上です。

true false を出力

#property indicator_chart_windowstring zzz = "zzz";extern int Corner = 0;extern double LocationX = 0;extern double LocationY = 5; extern int FontSize = 150;extern color FontColor = White;//+------------------------------------------------------------------+//| Custom indicator initialization function |//+------------------------------------------------------------------+int init() {//---- indicators//---- return(0); }//+------------------------------------------------------------------+//| Custom indicator deinitialization function |//+------------------------------------------------------------------+int deinit() { ObjectDelete(zzz); return(0); }//+------------------------------------------------------------------+//| Custom indicator iteration function |//+------------------------------------------------------------------+int start() { string text; text = ("true = "+true+" / false = "+false); ObjectCreate(zzz, OBJ_LABEL, 0, 0, 0); ObjectSetText(zzz, text, FontSize, "Terminal", FontColor); ObjectSet(zzz, OBJPROP_XDISTANCE, LocationX); ObjectSet(zzz, OBJPROP_YDISTANCE, LocationY); ObjectSet(zzz, OBJPROP_CORNER, Corner); return(0); }

Time[i]を出力

int start() { int limit = Bars - IndicatorCounted(); for (int i = limit - 1; i >= 0; i--) Print(Time[i]); return(0); }1970年1月1日 午前0：00からの経過秒。ーーーーーーーーーーーーーーーーーー

出力　その１

int start(){ Print(IndicatorCounted()); return(0);}----------------------------------int start(){ int limit = Bars - IndicatorCounted(); Print(limit); return(0);} ReportのBars in testは、2062です。---------------------------------------int start(){ for (int i = 0; i < 11; i++) Print(i); return(0);}

cycletimer.cpp

C++ だと、以下のようになります。#include <iostream>#include <windows.h>using namespace std;int main(){int i;cout << "min: ";cin >> i;for ( ; ; ) {Sleep (60000 * i);cout << "\a";}return 0;}

cycletimer.c

　毎指定分ごとにビープ音を鳴らします。無限ループです。#include <stdio.h>#include <windows.h>int main(void){　　int i;　　printf("min: ");　　scanf("%d", &i);　　for ( ; ; )　{　　　　Sleep (60000 * i);　　　　printf("\a");　　}　　return 0;}

ReminingTime_ja.mq4 その４

ObjectCreate (ReminingTime_sname, OBJ_LABEL, 0, 0, 0);ObjectSetText(ReminingTime_sname, text, FontSize, "Terminal", FontColor);ObjectSet(ReminingTime_sname, OBJPROP_XDISTANCE, LocationX);ObjectSet(ReminingTime_sname, OBJPROP_YDISTANCE, LocationY);OBJ_LABELのオブジェクトは座標を無視するので、OBJPROP_XDISTANCEとOBJPROP_YDISTANCEでの座標指定が必要です。コーナーからのX,Y座標方向へのピクセル距離です。パソコンディスプレイの解像度は、72ppiなので1px＝0.3528mmです。(1mm=2.83px) 20px=7mm

ReminingTime_ja.mq4 その５

ObjectSet(ReminingTime_sname, OBJPROP_CORNER, Corner);Cornerの値は０(左上)と２(左下)で表示されます。本来は（0: 左上、1: 右上、2: 右下、3: 左下) です。

ReminingTime_ja.mq4　その３

string text;if (Period() <= PERIOD_H1) {text = "残り " + m + " 分 " + s + " 秒";}else {if (m >= 60) h = m/60;else h = 0;k = m - (h*60);text = "残り " + h + " 時間 " + k + " 分 " + s + " 秒";}

ReminingTime_ja.mq4 その２

g = m/60.0;s = m%60;m = (m - m%60) / 60;残りの分と秒が一致しています。

ReminingTime_ja.mq4について。。。

m = Time[0] + Period()*60 - TimeCurrent();mの値を、Journal に出力します。Time[0]は、1970/1/1 0:00　から今のチャートの最新の足までの経過秒数です。Period()は、今のチャート時間（分）です。TimeCurrent()は、1970/1/1 0:00 からのサーバ時刻（秒）です。

ささみ

１．　ささみの筋、皮を取り除き、一口大に切ります。２．　油と料理酒で炒めます。３．　全体に火が通ったら、大葉、塩こしょうをふりかけます。４．　ぽん酢に、しそ梅肉を混ぜて、ささみにかけていただきます。とても爽やかな味です。

MT4 - MACDの０クロスでalert。

//+------------------------------------------------------------------+//| colormacd MTF_MACD_inColor.mq4 |//| Copyright ｩ 20120717, Keris2112 |//| 1June06 Stache added traditional view and 2-color Histogram |//+------------------------------------------------------------------+#property copyright "Copyright ｩ 20120717, Keris2112"#property link " http://www.forex-tsd.com "#property indicator_separate_window#property indicator_buffers 4#property indicator_color1 Red#property indicator_width1 2#property indicator_color2 Blue#property indicator_width2 2#property indicator_color3 Pink#property indicator_width3 3#property indicator_color4 LightGreen#property indicator_width4 3#property indicator_level1 0#property indicator_levelcolor Yellow//---- input parameters/*************************************************************************PERIOD_M1 1PERIOD_M5 5PERIOD_M15 15PERIOD_M30 30 PERIOD_H1 60PERIOD_H4 240PERIOD_D1 1440PERIOD_W1 10080PERIOD_MN1 43200You must use the numeric value of the timeframe that you want to usewhen you set the TimeFrame' value with the indicator inputs.---------------------------------------PRICE_CLOSE 0 Close price. PRICE_OPEN 1 Open price. PRICE_HIGH 2 High price. PRICE_LOW 3 Low price. PRICE_MEDIAN 4 Median price, (high+low)/2. PRICE_TYPICAL 5 Typical price, (high+low+close)/3. PRICE_WEIGHTED 6 Weighted close price, (high+low+close+close)/4. You must use the numeric value of the Applied Price that you want to usewhen you set the 'applied_price' value with the indicator inputs.**************************************************************************/extern int TimeFrame=0;extern int FastEMA=12;extern int SlowEMA=26; extern int SignalSMA=9;extern int applied_price=0;extern bool Popup_Alert = false;double ExtMapBuffer1[];double ExtMapBuffer2[];double ExtMapBuffer3[];double ExtMapBuffer4[];//+------------------------------------------------------------------+//| Custom indicator initialization function |//+------------------------------------------------------------------+int init(){//---- indicator lineSetIndexStyle(0,DRAW_LINE);SetIndexStyle(1,DRAW_LINE);SetIndexStyle(2,DRAW_HISTOGRAM);SetIndexStyle(3,DRAW_HISTOGRAM);SetIndexDrawBegin(1,SignalSMA);IndicatorDigits(MarketInfo(Symbol(),MODE_DIGITS)+1);SetIndexBuffer(0,ExtMapBuffer1); SetIndexBuffer(1,ExtMapBuffer2); SetIndexBuffer(2,ExtMapBuffer3);SetIndexBuffer(3,ExtMapBuffer4);//---- name for DataWindow and indicator subwindow label switch(TimeFrame){case 1 : string TimeFrameStr="Period_M1"; break;case 5 : TimeFrameStr="Period_M5"; break;case 15 : TimeFrameStr="Period_M15"; break;case 30 : TimeFrameStr="Period_M30"; break;case 60 : TimeFrameStr="Period_H1"; break;case 240 : TimeFrameStr="Period_H4"; break;case 1440 : TimeFrameStr="Period_D1"; break;case 10080 : TimeFrameStr="Period_W1"; break;case 43200 : TimeFrameStr="Period_MN1"; break;default : TimeFrameStr="ChartTimeframe";}IndicatorShortName("MTF_MACD_inColor("+FastEMA+","+SlowEMA+","+SignalSMA+") ("+TimeFrameStr+")");}//----return(0);//+------------------------------------------------------------------+//| MTF MACD |//+------------------------------------------------------------------+bool AlertFlag = false;int start(){datetime TimeArray[];int i,limit,y=0,counted_bars=IndicatorCounted();// Plot defined time frame on to current time frameArrayCopySeries(TimeArray,MODE_TIME,Symbol(),TimeFrame); limit=Bars-counted_bars;for(i=0,y=0;i<limit;i++){if (Time[i]<TimeArray[y]) y++;/*********************************************************** Add your main indicator loop below. You can reference an existingindicator with its iName or iCustom.Rule 1: Add extern inputs above for all neccesary values Rule 2: Use 'TimeFrame' for the indicator time frameRule 3: Use 'y' for your indicator's shift value**********************************************************/ ExtMapBuffer1[i]=iMACD(NULL,TimeFrame,FastEMA,SlowEMA,SignalSMA,applied_price,0,y); ExtMapBuffer2[i]=iMACD(NULL,TimeFrame,FastEMA,SlowEMA,SignalSMA,applied_price,1,y);ExtMapBuffer3[i]=ExtMapBuffer1[i]-ExtMapBuffer2[i];ExtMapBuffer4[i]=ExtMapBuffer1[i]-ExtMapBuffer2[i];if (ExtMapBuffer1[i] <= ExtMapBuffer2[i]) ExtMapBuffer3[i]=0;else ExtMapBuffer4[i]=0;}if (Popup_Alert){if ((ExtMapBuffer1[i+1] < 0) && (ExtMapBuffer1[0] >= 0)){if (AlertFlag == false){Alert (Symbol()+" "+Period()+" MACD BUY");AlertFlag = true;}}else if ((ExtMapBuffer1[i+1] > 0) && (ExtMapBuffer1[0] <= 0)){if (AlertFlag == false){Alert (Symbol()+" "+Period()+" MACD SELL");AlertFlag = true;}} else{AlertFlag = false;}} return(0);}--------------------------------------------------

MT5 チャート画面に、ask bid spread を表示

MT5の、Expert Advisor (template)で ask, bid, spreadを表示します。int OnInit(){return(0);}void OnDeinit(const int reason){}void OnTick(){double Ask,Bid;int Spread;Ask=SymbolInfoDouble(Symbol(),SYMBOL_ASK);Bid=SymbolInfoDouble(Symbol(),SYMBOL_BID);Spread=SymbolInfoInteger(Symbol(),SYMBOL_SPREAD);Comment(StringFormat("Show prices\nAsk = %G\nBid = %G\nSpread = %d",Ask,Bid,Spread));}

tk.mq4（転換線と基準線のクロスでアラート）

#property indicator_chart_window#property indicator_buffers 2#property indicator_color1 Red#property indicator_color2 Blue#property indicator_width1 3#property indicator_width2 3extern int Tenkan=9;extern int Kijun=26;double Tenkan_Buffer[];double Kijun_Buffer[];int a_begin;int init(){SetIndexStyle(0,DRAW_LINE);SetIndexBuffer(0,Tenkan_Buffer);SetIndexDrawBegin(0,Tenkan-1);SetIndexLabel(0,"Tenkan Sen");SetIndexStyle(1,DRAW_LINE);SetIndexBuffer(1,Kijun_Buffer);SetIndexDrawBegin(1,Kijun-1);SetIndexLabel(1,"Kijun Sen");a_begin=Kijun; if(a_begin<Tenkan) a_begin=Tenkan;return(0);}bool AlertFlag = false;int start(){int i,k;int counted_bars=IndicatorCounted();double high,low,price;if (Bars <= Tenkan || Bars <= Kijun ) return(0);if(counted_bars<1){for(i=1;i<=Tenkan;i++) Tenkan_Buffer[Bars-i]=0;for(i=1;i<=Kijun;i++) Kijun_Buffer[Bars-i]=0;}i=Bars-Tenkan;if(counted_bars>Tenkan) i=Bars-counted_bars-1;while(i>=0){high=High[i]; low=Low[i]; k=i-1+Tenkan;while(k>=i){price=High[k];if(high<price) high=price;price=Low[k];if(low>price) low=price;k--;}Tenkan_Buffer[i]=(high+low)/2;i--;}i=Bars-Kijun;if(counted_bars>Kijun) i=Bars-counted_bars-1;while(i>=0){high=High[i]; low=Low[i]; k=i-1+Kijun;while(k>=i){price=High[k];if(high<price) high=price;price=Low[k];if(low>price) low=price;k--;}Kijun_Buffer[i]=(high+low)/2;i--;}if ((Tenkan_Buffer[2+i] < Kijun_Buffer[2+i]) &&(Tenkan_Buffer[1+i] >= Kijun_Buffer[1+i])){if (AlertFlag == false){Alert(Symbol()+" "+Period()+" BUY ");AlertFlag = true;}}else if ((Tenkan_Buffer[2+i] > Kijun_Buffer[2+i]) &&(Tenkan_Buffer[1+i] <= Kijun_Buffer[1+i])){if (AlertFlag == false){Alert(Symbol()+" "+Period()+" SELL ");AlertFlag = true;}}else{AlertFlag = false;} return(0);}

VT Traderで平均足をサブウィンドウに表示します。

Technical Analysis の Indicators Builder のNew より Heikin_Histogram を作成します。 Formula タブにUpBody:= haOpen < haClose;DownBody:= haOpen > haClose;最後に Saveです。