Yogulのprogrammingブログ -8ページ目

Yogulのprogrammingブログ -8ページ目

ホームピグアメブロ

芸能人ブログ人気ブログ

前ページ
次ページ

19Nov
- Lazarusで棒グラフを作成します。
  （先日、CドライブのAPSETUPフォルダの、私にとって不要なファイル２６個をDVD-Rに移動したので、容量にかなり余裕ができました。APSETUPは、複数企業のアプリをインストールするためのものです。）１．Cドライブ　⇒　lazarus　⇒　examples　⇒ barchart　⇒　chartdemo.lpr　と開きます。２．BarChart1.AddBar()　の数字を色を書き換えて、実行　をクリックすると棒グラフ画面が出てきます。同時に、barchartフォルダに chartdemo.exe が作成されます。
12Nov
- デバイスファイル
  コマンドプロンプトにcopy con test.txt　と入力してEnterキー。文章を入力してEnterキー。Ctrl + Z　を押してEnterキー。で、test.txt　が作成されます。type test.txt　で内容が表示されます。
24Oct
- Lazarusでプログラムをはじめてみよう
  Lazarus Tutorial/ja - Lazarus wiki の、「Lazarusでプログラムをはじめてみよう」をやってみました。５．ソースエディタに以下を入力して、Ｆ１２を押して　　Form1ウィンドウに戻ります。procedure TForm1.Button1Click(Sender: TObject);beginif Button1.tag = 0 thenbeginButton1.caption := 'Press again';Button1.tag := 1end elsebeginButton1.caption := 'Press';Button1.tag := 0endend; ８．同様に入力して、Ｆ１２を押します。procedure TForm1.Button2Click(Sender: TObject);beginClose;end; ーーーーーーーーーーーーーーーーーーーーーー
15Oct
- BB7sma for FT2
  LazarusでBollinger Bands（７本）を作成しましたがファイルサイズが大きすぎて、Forumにアップロードできませんでした。//------------------------------------------// BB7sma//------------------------------------------library BB7sma;usesInterfaces, graphics, IndicatorInterfaceUnit, TechnicalFunctions;var// External variablesperiod: integer = 21;Shift: integer = 0;Dev1: double = 1;Dev2: double = 2;Dev3: double = 3;ApplyToPrice: integer;// BuffersUp3, Up2, Up1, SMA, Low1, Low2, Low3: TIndexBuffer;//------------------------------------------// Initialize indicator//------------------------------------------procedure Init; stdcall;begin// define propertiesIndicatorShortName('BB7sma');SetOutputWindow(ow_ChartWindow);// register optionsAddSeparator('Common');RegOption('Period', ot_Integer, period);SetOptionRange('Period', 1, MaxInt);RegOption('Deviaton1', ot_Double, Dev1);SetOptionRange('Deviation1', 0.1, 200);RegOption('Deviation2', ot_Double, Dev2);SetOptionRange('Deviation2', 0.1, 200);RegOption('Deviation3', ot_Double, Dev3);SetOptionRange('Deviation3', 0.1, 200);RegOption('Shift', ot_Integer, Shift);RegApplyToPriceOption(ApplyToPrice);// create buffersUp3 := CreateIndexBuffer;Up2 := CreateIndexBuffer;Up1 := CreateIndexBuffer;SMA := CreateIndexBuffer;Low1 := CreateIndexBuffer;Low2 := CreateIndexBuffer;Low3 := CreateIndexBuffer;IndicatorBuffers(7);SetIndexBuffer(0, Up3);SetIndexStyle(0, ds_Line, psSolid, 1, clTeal);SetIndexLabel(0, 'Upper3');SetIndexBuffer(1, Up2);SetIndexStyle(1, ds_Line, psSolid, 1, clTeal);SetIndexLabel(1, 'Upper2');SetIndexBuffer(2, Up1);SetIndexStyle(2, ds_Line, psSolid, 1, clTeal);SetIndexLabel(2, 'Upper1');SetIndexBuffer(3, SMA);SetIndexStyle(3, ds_Line, psSolid, 2, clTeal);SetIndexLabel(3, 'SMA');SetIndexBuffer(4, Low1);SetIndexStyle(4, ds_Line, psSolid, 1, clTeal);SetIndexLabel(4, 'Lower1');SetIndexBuffer(5, Low2);SetIndexStyle(5, ds_Line, psSolid, 1, clTeal);SetIndexLabel(5, 'Lower2');SetIndexBuffer(6, Low3);SetIndexStyle(6, ds_Line, psSolid, 1, clTeal);SetIndexLabel(6, 'Lower3');end;//------------------------------------------　　　　　　　　　　//parameters changed//------------------------------------------procedure OnParamsChange; stdcall;beginSetBufferShift(1, Shift);SetBufferShift(2, Shift);SetBufferShift(3, Shift);SetBufferShift(4, Shift);SetBufferShift(5, Shift);SetBufferShift(6, Shift);end;//------------------------------------------// Calculate requested bar//------------------------------------------procedure Calculate(index: integer); stdcall;vari: integer;sum, value, sd1, sd2, sd3: double;function GetPrice(index: integer): double;beginresult := TechnicalFunctions.GetPrice(index, TPriceType(ApplyToPrice));end;beginif (index + period) >= Bars thenexit;value := GetMA(index, 0, period, ma_SMA, TPriceType(ApplyToPrice), SMA[index + 1]);SMA[index] := value;// calculate bandsif value <> 0 thenbeginsum := 0;for i:=index to index + period - 1 dosum := sum + sqr(abs(GetPrice(i) - value));sd1 := sqrt(sum/period)*Dev1;sd2 := sqrt(sum/period)*Dev2;sd3 := sqrt(sum/period)*Dev3;Up1[index] := SMA[index] + sd1;Low1[index] := SMA[index] - sd1;Up2[index] := SMA[index] + sd2;Low2[index] := SMA[index] - sd2;Up3[index] := SMA[index] + sd3;Low3[index] := SMA[index] - sd3;endelsebeginUp1[index] := 0;Low1[index] := 0;Up2[index] := 0;Low2[index] := 0;Up3[index] := 0;Low3[index] := 0;end;end;exportsInit, OnParamsChange, Calculate;end.
01Oct
- C言語（CT時間、日本時間を変換）
  #include <stdio.h>int main(void){　char ch;　int time;　printf("a: CT夏⇒日本時間, b: CT冬⇒日本時間\n");　printf("c: 日本時間⇒CT夏, d: 日本時間⇒CT冬\n");　do {　　ch = getchar();　　switch (ch) {　　　　case 'a':　　　　　　printf("CT夏: ");　　　　　　scanf("%d", &time);　　　　　　if ((time >= 0) && (time <= 10))　　　　　　　printf("CT夏 %d時は日本時間 %d時です。\n", 　　　　　　　　　　　　time, time + 13);　　　　　　else if ((time >= 11) && (time <= 23))　　　　　　　printf("CT夏 %d時は日本時間翌日の %d時　　　　　　　　　　　　です。\n", time, time - 11);　　　　　　break;　　　　case 'b': 　　　　　　printf("CT冬: ");　　　　　　scanf("%d", &time); 　　　　　　if ((time >= 0) && (time <= 9))　　　　　　　printf("CT冬 %d時は日本時間 %d時です。\n", 　　　　　　　　　　　　time, time + 14);　　　　　　else if ((time >= 10) && (time <= 23))　　　　　　　printf("CT冬 %d時は日本時間翌日の %d時　　　　　　　　　　　　です。\n", time, time - 10);　　　　　　break;　　　　case 'c': 　　　　　　printf("日本時間: ");　　　　　　scanf("%d", &time);　　　　　　if ((time >= 0) && (time <= 12))　　　　　　　printf("日本時間 %d時はCT夏前日の %d時　　　　　　　　　　　　です。\n", time, time + 11);　　　　　　else if ((time >= 13) && (time <= 23))　　　　　　　printf("日本時間 %d時はCT夏 %d時です。\n", 　　　　　　　　　　　　time, time - 13);　　　　　　break;　　　　case 'd': 　　　　　　printf("日本時間: ");　　　　　　scanf("%d", &time);　　　　　　if ((time >= 0) && (time <= 13))　　　　　　　printf("日本時間 %d時はCT冬前日の %d時　　　　　　　　　　　　です。\n", time, time + 10);　　　　　　else if ((time >= 14) && (time <= 23))　　　　　　　printf("日本時間 %d時はCT冬 %d時です。\n", 　　　　　　　　　　　　time, time - 14);　　　}　　} while (ch != 'q'); 　　return 0;}
18Sep
- C言語（指定時間にビープ音を鳴らします。）
  #include <conio.h>#include <stdio.h>#include <windows.h>int main(void){　int i, j;　printf("1st beep(min): ");　scanf("%d", &i);　printf("\n2nd beep(min): ");　scanf("%d", &j);　Sleep(60000 * i);　printf("%d min past!\n", i);　printf("\a");　Sleep(60000 * j);　printf("%d min past!!\n", j);　printf("\a");　do　{　　　;　} while (!kbhit());　return 0;}
17Sep
- CT　demoの、tracertテストをしてみました。
  tracertコマンドは、「trace route」の略で、接続先のネットワーク経路を表示します。スタート　⇒　アクセサリ　⇒　コマンドプロンプト
05Sep
- Hello world! (CTL2, Delphi for FT2, C++)
  CTL2int start(){　texttoactivitylog("Hello world!");　return(0);} ーーーーーーーーーーーーーーーーーーDelphi for FT2//--------------------------------Example of strategy which prints string to journal (c) Yogul//-------------------------------- library Helloworld;uses　Interfaces, SysUtils, Classes, 　StrategyInterfaceUnit;var　// External parameters　Message: PChar = nil;{-----Init strategy------------------}procedure InitStrategy; stdcall;begin　StrategyShortName('Helloworld!');　StrategyDescription('Strategy which　　　　　　　　　prints string to journal');　// Register external parameters　RegOption('Message', ot_String, 　　　　　　　　　Message);　ReplaceStr(Message, 'Hello world!');end;{-----Done strategy----------------}procedure DoneStrategy; stdcall;beginend;{-----Reset strategy---------------}procedure ResetStrategy; stdcall;beginend;{-----Process single tick------------}procedure GetSingleTick; stdcall;var　Message: PChar = nil;begin　Print(Message);end;exportsInitStrategy, DoneStrategy, ResetStrategy, GetSingleTick;end. ーーーーーーーーーーーーーーーーーーＣ++#include <iostream>using namespace std;int main(){　// infinite loop //　for ( ; ; )　　cout << "Hello world! ";　return 0;}
04Sep
- Hello world!　(C, MQL4, MS-DOS)
  Ｃ言語 #include <stdio.h>int main(void){　puts("Hello world!");　fputs("Hello world!!\n", stdout);　printf("%s\n", "Hello world!!!");　printf("Hello world!!!!\n");　return 0;} ーーーーーーーーーーーーーーーーーーMQL4int start(){　string message = "Hello world!";　Print(message);　return(0);} ーーーーーーーーーーーーーーーーーーMS-DOS@echo offecho Hello world!echo.pause ーーーーーーーーーーーーーーーーーー

前ページ
次ページ