到奇狐勝券首頁 奇狐社區論壇 購買奇狐勝券 試用奇狐勝券
 
論壇首頁 你可以在這裡編輯你的資料，查看短訊，訂閱主題和論壇參數等等 免費會員註冊 會員列表 論壇幫助 論壇日曆 論壇搜索 加入我的最愛 登出論壇  
奇狐社區論壇 : Powered by vBulletin version 2.3.0 奇狐社區論壇 > 指標公式 > 問題交流 > 求助寫法
  上一主題   下一主題
作者
主題 發表新主題    回覆主題
chair6408141785
資深會員

註冊日期: Jul 2007
來　　自: 馬祖
文章數量: 144
求助寫法

DE:=DATE; TE:=hour*60+minute;

DESP:=BARSSINCE(DE=ref(DE,1));
if lbound(DESP)>0 then begin
KTimeSP:=TE-ref(TE,1);
KTimeSP:=KTimeSP[datacount-DESP[datacount]];
end else begin
KTimeSP:=-1;
exit;
end;
if KTimeSP =1 then Begin //1 - 4 MIN
N1:=10; N2:=20;N3:=30; N4:=40;
end else if KTimeSP = 2then begin
N1:=10; N2:=20;N3:=30; N4:=40;
end else if KTimeSP = 3then begin
N1:=10; N2:=20;N3:=30; N4:=40;
end else if KTimeSP = 4then begin
N1:=10; N2:=20;N3:=30; N4:=40;

end else if KTimeSP = 5 then begin //5 -20 MIN
N1:=20; N2:=30;N3:=40; N4:=50;
end else if KTimeSP = 6 then begin
N1:=20; N2:=30;N3:=40; N4:=50;
end else if KTimeSP = 7then begin
N1:=20; N2:=30;N3:=40; N4:=50;
end else if KTimeSP = 8then begin
N1:=20; N2:=30;N3:=40; N4:=50;
end else begin
N1:=0; N2:=0;N3:=0; N4:=0;
end;

VA:MA(C,N1),COLORFFFF00; VB:MA(C,N2),COLORFF9933; VC:MA(C,N3),COLORFFFFFF; VD:MA(C,N4),COLOR3366CC;

可以簡化嗎

向版主報告此篇 | 查IP位址
Old Post 2010-02-07 07:59
chair6408141785 現在離線 點選這裡查看 chair6408141785 的個人資料 點選這裡給 chair6408141785 傳送一條短訊 查找更多關於 chair6408141785 的文章 增加 chair6408141785 至你的好友列表 編輯/刪除訊息 引用回覆
cgjj
總版主

註冊日期: Oct 2003
來　　自:
文章數量: 18091
回覆: 求助寫法

引用:
最初由 chair6408141785 發表
DE:=DATE; TE:=hour*60+minute;

DESP:=BARSSINCE(DE=ref(DE,1));
if lbound(DESP)>0 then begin
KTimeSP:=TE-ref(TE,1);
KTimeSP:=KTimeSP[datacount-DESP[datacount]];
end else begin
KTimeSP:=-1;
exit;
end;
if KTimeSP =1 then Begin //1 - 4 MIN
N1:=10; N2:=20;N3:=30; N4:=40;
end else if KTimeSP = 2then begin
N1:=10; N2:=20;N3:=30; N4:=40;
end else if KTimeSP = 3then begin
N1:=10; N2:=20;N3:=30; N4:=40;
end else if KTimeSP = 4then begin
N1:=10; N2:=20;N3:=30; N4:=40;

end else if KTimeSP = 5 then begin //5 -20 MIN
N1:=20; N2:=30;N3:=40; N4:=50;
end else if KTimeSP = 6 then begin
N1:=20; N2:=30;N3:=40; N4:=50;
end else if KTimeSP = 7then begin
N1:=20; N2:=30;N3:=40; N4:=50;
end else if KTimeSP = 8then begin
N1:=20; N2:=30;N3:=40; N4:=50;
end else begin
N1:=0; N2:=0;N3:=0; N4:=0;
end;

VA:MA(C,N1),COLORFFFF00; VB:MA(C,N2),COLORFF9933; VC:MA(C,N3),COLORFFFFFF; VD:MA(C,N4),COLOR3366CC;

可以簡化嗎


中間部份可簡化為
原碼:


if KTimeSP>=1 and KTimeSP<=4 then Begin

  N1:=10; N2:=20;N3:=30; N4:=40; 

end else if KTimeSP>=5 and KTimeSP<=8 then begin

  N1:=20; N2:=30;N3:=40; N4:=50; 

end else begin

  N1:=0; N2:=0;N3:=0; N4:=0; 

end;

向版主報告此篇 | 查IP位址
Old Post 2010-02-07 16:31
cgjj 現在離線 點選這裡查看 cgjj 的個人資料 點選這裡給 cgjj 傳送一條短訊 查找更多關於 cgjj 的文章 增加 cgjj 至你的好友列表 編輯/刪除訊息 引用回覆
chair6408141785
資深會員

註冊日期: Jul 2007
來　　自: 馬祖
文章數量: 144
回覆: 回覆: 求助寫法

引用:
最初由 cgjj 發表
中間部份可簡化為
原碼:


if KTimeSP>=1 and KTimeSP<=4 then Begin

  N1:=10; N2:=20;N3:=30; N4:=40; 

end else if KTimeSP>=5 and KTimeSP<=8 then begin

  N1:=20; N2:=30;N3:=40; N4:=50; 

end else begin

  N1:=0; N2:=0;N3:=0; N4:=0; 

end;


謝謝指導

向版主報告此篇 | 查IP位址
Old Post 2010-02-07 19:09
chair6408141785 現在離線 點選這裡查看 chair6408141785 的個人資料 點選這裡給 chair6408141785 傳送一條短訊 查找更多關於 chair6408141785 的文章 增加 chair6408141785 至你的好友列表 編輯/刪除訊息 引用回覆
chair6408141785
資深會員

註冊日期: Jul 2007
來　　自: 馬祖
文章數量: 144
回覆: 回覆: 回覆: 求助寫法

引用:
最初由 chair6408141785 發表
謝謝指導

DE:=DATE; TE:=hour*60+minute;

DESP:=BARSSINCE(DE=ref(DE,1));

if lbound(DESP)>0 then begin
KTimeSP:=TE-ref(TE,1);
KTimeSP:=KTimeSP[datacount-DESP[datacount]];
end else begin
KTimeSP:=-1;
exit;
end;

if KTimeSP>=1 and KTimeSP<=4 then Begin
N1:=50; N2:=100;N3:=200; N4:=300; //KTimeSP>=1 and KTimeSP<=4

end else if KTimeSP>=5 and KTimeSP<=30 then begin
N1:=15; N2:=30N3:=45 N4:=60; //

end else if KTimeSP>=31 and KTimeSP<=100 then begin
N1:=10; N2:=20;N3:=30; N4:=40; //

end else if KTimeSP>=101 and KTimeSP<=300 then begin
N1:=5; N2:=10;N3:=20; N4:=30; //

end else if datatype = 6 then Begin
N1:=5; N2:=10;N3:=20; N4:=30; //日

end else if datatype = 7 then Begin
N1:=3; N2:=6;N3:=15 N4:=20; //週

end else if datatype = 8 then Begin
N1:=2; N2:=4;N3:=7; N4:=10; //月

end else begin
N1:=0; N2:=0;N3:=0; N4:=0; //其它週期
end;

是那裡有錯
請求指導

最後由 chair6408141785 在 2010-02-08 11:18 編輯 向版主報告此篇 | 查IP位址
Old Post 2010-02-08 10:27
chair6408141785 現在離線 點選這裡查看 chair6408141785 的個人資料 點選這裡給 chair6408141785 傳送一條短訊 查找更多關於 chair6408141785 的文章 增加 chair6408141785 至你的好友列表 編輯/刪除訊息 引用回覆
cgjj
總版主

註冊日期: Oct 2003
來　　自:
文章數量: 18091

end else if KTimeSP>=5 and KTimeSP<=30 then begin
N1:=15; N2:=30N3:=45 N4:=60; //
改為
end else if KTimeSP>=5 and KTimeSP<=30 then begin
N1:=15; N2:=30;N3:=45; N4:=60; //


end else if datatype = 7 then Begin
N1:=3; N2:=6;N3:=15 N4:=20; //週
改為
end else if datatype = 7 then Begin
N1:=3; N2:=6;N3:=15; N4:=20; //週

向版主報告此篇 | 查IP位址
Old Post 2010-02-08 11:59
cgjj 現在離線 點選這裡查看 cgjj 的個人資料 點選這裡給 cgjj 傳送一條短訊 查找更多關於 cgjj 的文章 增加 cgjj 至你的好友列表 編輯/刪除訊息 引用回覆
chair6408141785
資深會員

註冊日期: Jul 2007
來　　自: 馬祖
文章數量: 144

引用:
最初由 cgjj 發表
end else if KTimeSP>=5 and KTimeSP<=30 then begin
N1:=15; N2:=30N3:=45 N4:=60; //
改為
end else if KTimeSP>=5 and KTimeSP<=30 then begin
N1:=15; N2:=30;N3:=45; N4:=60; //


end else if datatype = 7 then Begin
N1:=3; N2:=6;N3:=15 N4:=20; //週
改為
end else if datatype = 7 then Begin
N1:=3; N2:=6;N3:=15; N4:=20; //週


我沒有眼花吧
怎麼沒改到吧

向版主報告此篇 | 查IP位址
Old Post 2010-02-08 13:45
chair6408141785 現在離線 點選這裡查看 chair6408141785 的個人資料 點選這裡給 chair6408141785 傳送一條短訊 查找更多關於 chair6408141785 的文章 增加 chair6408141785 至你的好友列表 編輯/刪除訊息 引用回覆
全部時間均為台灣時間, 現在時間為04:17 發表新主題    回覆主題
  上一主題   下一主題
顯示可列印版本 | 訂閱此主題

論壇跳轉:
主題評分:

論壇規定:
你不可以發表新主題
你不可以回覆文章
你不可以上傳附件
你不可以編輯自己的文章 		HTML語法禁止
vB 語法核准
表情符號核准
貼圖語法[IMG]核准
 

本站所有內容未經作者授權禁止轉貼節錄, 發表言論僅供參考勿作為投資決策依據。瀏覽本站請使用 IE 5.5 以上版本, 最佳瀏覽解析度 1024 x 768 全彩。

Powered by: vBulletin Version 2.3.0 - Copyright©2000-, Jelsoft Enterprises Limited.
簡愛洋行 製作 Copyright 2003-. All Rights Reserved.  聯絡我們