- 金币:
-
- 奖励:
-
- 热心:
-
- 注册时间:
- 2011-6-1
|
|
改成通信达的趋势线预警
飞狐的划线功能强大，尤其趋势线画线预警更是不可多得，但是趋势线画线不容修改因此买卖不好分别进行，可喜的是飞狐的画线有日线、60分钟线、15分钟线、30分钟线的分类表达，因此可以牺牲某一周期预警作为卖出信号，我采取了60分钟作为卖出信号的方法其余为买进信号，在这一点上由分析家衍生而来的大智慧新一代却仍然停留在10年前的格局没有分周期表达的方法，所以目前只能做出单独的买进信号或卖出信号不可兼得。
我把它作为一个玩具提供大家尝试，好不好用各有所见。
飞狐兼容预警格式：
买抄底指标0000
买1抄底指标000
买9抄底指标000
卖逃顶指标0000
卖2逃顶指标000
卖8逃顶指标000
趋势线-日线 注（卖出）
趋势线-60分钟线 注（买入）
买cw6%远程预警
卖cw6%远程预警
这是我初期为了验证取得条件预警必要信号的一段程序，揭示了条件预警取信号的基本方法，希望对爱好者有点启发。
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
Opt("GUIOnEventMode", 1)
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 486, 95, 192, 124)
GUISetOnEvent($GUI_EVENT_CLOSE, "Form1Close")
GUISetOnEvent($GUI_EVENT_MINIMIZE, "Form1Minimize")
GUISetOnEvent($GUI_EVENT_MAXIMIZE, "Form1Maximize")
GUISetOnEvent($GUI_EVENT_RESTORE, "Form1Restore")
$Input1 = GUICtrlCreateInput("", 16, 16, 257, 21)
GUICtrlSetOnEvent(-1, "Input1Change")
$Input2 = GUICtrlCreateInput("", 16, 48, 257, 21)
GUICtrlSetOnEvent(-1, "Input2Change")
$Button1 = GUICtrlCreateButton("Button1", 328, 16, 145, 49, $WS_GROUP)
GUICtrlSetOnEvent(-1, "Button1Click")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
Sleep(100)
WEnd
Func Button1Click()
$BT=WinGetTitle ( "预警 - (运行)" , "") ;取窗口全标题
$dm=StringMid ($BT,11,6 );取代码
$scy5=StringTrimRight ( $BT, 8 );删除关键字后面的字符
$qy1=StringRight ( $scy5,1 );取买卖关键字
$qdyjtj=iniread("Option.ini","基本设置","预警条件","");
$qy6=StringTrimLeft ( $BT, 22 );窃取条件
ControlSetText ( "Form1", "","Edit1",$dm);验证取代码
ControlSetText ( "Form1", "","Edit2",$qy1);验证取买卖关键字
EndFunc
Func Form1Close()
Exit
EndFunc
Func Form1Maximize()
EndFunc
Func Form1Minimize()
EndFunc
Func Form1Restore()
EndFunc
Func Input1Change()
EndFunc
Func Input2Change()
EndFunc |
|
|
发表于 2011-7-29 21:14
楼主
