工作时间: 每个交易日: 08:30~18:00      交易日前一天: 14:00~18:00
7×24 小时服务热线: 4006-818-939
工作时间内: 转 601 603 604 605 607 608  
客服QQ号码:1057244936 437221782
 
如下所示就是SNB专业版的界面,与普及版保持一致,只是多了些功能模块按钮,非常的简洁实用:
如左图界面,从上至下分别为: 标题菜单区任务列表区功能按钮区插件模块区信息区工具区

 

分别点击“添加止盈监视”、“按价位监视”、“对买对卖监视”、“按时间监视”按钮可弹出监视任务的界面以便您设置新任务的参数,参数设置好后点击“确定”按钮,新任务就被添加了。

 

任务被添加后,就会出现在任务列表区,处于监视状态中的任务当条件达成时会立即触发交易,一般情况下,触发时您会听到SNB发出的警示铃声(叮铃铃),同时您会看到交易软件在您的屏幕左上角闪动了一下,这时您就可以在您交易软件的当日成交记录里找到该笔交易的成交记录。

任务在监视过程中,您可以随时暂停或者再次将任务启动为监视状态,只有在监视状态下的任务才会触发。

任务之间允许存在逻辑关系,比如:若第1号任务条件达到,那就执行第2号监视任务,否则第2号任务即便条件达成也是被忽略的。 这些与普及版一样的设置.

 

下图所示几个范例插件功能模块:

范例一: 我们定义一个【价格与时间止盈的策略】设置的条件如下所示,该功能描述如下图功能界面的描述所示:


【时间与价格止盈策略】

我们采用SNB专业版所提供的版本和说明来实现如上的界面和功能,代码如下:

====================================================================================
                价格与时间止盈策略
  ---------------------------------------------------------------------------------
    监视代码:
      股票代码 ( 300027  )    
      设置监视高价位 ( 0.00   )          
    监视条件:
      当该股票在达到监视价位并在 ( 1 )分钟内没有跌破监视价位,则     
      卖出股票数量: ( 100 )股
    
    报价优化 ( 0.02 )元 

    是否自动交易 ( 1 ) 【注意:1为自动交易,0为不自动交易,若测试功能请设置0】  

   说明:
       此插件主要用于监视某支股票在持续上涨多长时间来进行卖出交易,实现按照时间来
   最大限度的实现止盈交易! 

  ---------------------------------------------------------------------------------
                   [开始]   [停止]   [撤销]            
                  
====================================================================================
'以上为模块界面的定义,“()”代表文本框(TextBox),"<1>"代表单选按钮(CheckBox),"[]"代表按钮(button)
'“=”排版的宽度代表生成界面的宽度。
Dim stockcode '股票代码
Dim jsjw      '监视价位
Dim yhfd      '优化幅度
Dim jyzj      '交易资金
Dim mms       '卖出数量
Dim jssj      '监视时间 
Dim jssj1     '时间计数器
Dim zdjy      '自动交易
Dim zgj       '保存最高价
Dim dqjw      '上回读取的价位
Dim jsq       '计时器
Dim status    '监视任务状态

'用于插件加载时进行初始化
Function OnInit()
	Set stockcode=textbox(1)
	Set jsjw=textbox(2)
	Set jssj=textbox(3)
	Set mms=textbox(4)
	Set yhfd=textbox(5)
  Set zdjy=textbox(6)
  jsq=0

	'设置定时器的控件
	me.Timer=False         '启动不需要采用Timer.enable=True
	me.Timer.Interval=500
End Function
'系统每间隔一秒钟触发一次该函数,用户的实时判断代码可以写在此函数体内
Function OnTimer() 
Dim tjj
SNBDebugger.Println cstr(jsq)
 Set a = StockData.getrd(stockcode.text)  '获得当前股票数据
  tjj=cstr(a.CJJ - yhfd)
   If a.CJJ >= cdbl(jsjw.text) Then
    jsq=jsq+1
     If jsq=jssj1 Then       
       sell stockcode.text, tjj,mms,cint(zdjy.text),0
        jsq=0      
     End If 
   End If
Dim i
SetColAtTask  4, a.CJJ
End Function
'确定按钮
Function Button1_click()
	mms.text=trim(mms.text)
	yhfd.text=trim(yhfd.text)
  zdjy.text=trim(zdjy.text)
  jssj1=CInt(jssj.text*120)
      
	If Not IsNumeric(yhfd.text)  Then MsgBox "优化幅度设置有误!":Exit Function	
  	If Not IsNumeric(zdjy.text)  Then MsgBox "自动交易设置有误!":Exit Function
 
 Set a = StockData.getrd(stockcode.text)  '获得当前股票数据
me.Timer=True
    Me.ShowTaskAtList "正在监控"&stockcode.text,a.StockName ,jsjw.text ,a.CJJ, "_&
	"当"& stockcode.text & "上涨到高于监视价位,并且在"&jssj.text &"分钟后没有回落,则卖出!"              
status=1	
Me.Hide
	End Function

'停止按钮
Function Button2_click()
	me.Timer=False
If status=1 Then
 Set a = StockData.getrd(stockcode.text)  '获得当前股票数据
 Me.ShowTaskAtList "停止监控"&stockcode.text,a.StockName ,jsjw.text ,a.CJJ, "_&
 "当"& stockcode.text & "上涨到高于监视价位,并且在"&jssj.text &"分钟后没有回落,则卖出!"              
 status=0
End If
me.hide
End Function 
'撤销任务
Function Button3_click()
me.Repeal
End Function 
Sub TextBox1_Change()
 If Len(stockcode.text)=6 Then 
 Set a = StockData.getrd(stockcode.text)  '获得当前股票数据
 jsjw.text= a.cjj
End If 
End Sub
Sub TextBox2_Change()
End Sub
Sub TextBox3_Change()
End Sub
Sub TextBox4_Change()
End Sub
Sub TextBox5_Change()
End Sub
Sub TextBox6_Change()
End Sub
Sub TextBox7_Change()
End Sub
'当返回True时,窗口将不会在此次关闭
Function OnClose()
OnClose=False
End Function
   

范例二:下面是一个【追涨停跌停交易】的交易策略,用于监视某只股票在一段时间的范围里在某个价格范围内持续的波动,从而判断是否进行交易,功能界面如下所示:


【追涨停策略】

我们采用SNB专业版所提供的版本和说明来实现如上的界面和功能,代码如下:

	========================================================================================      
                   追涨停跌停交易
  ---------------------------------------------------------------------------------
    监视代码:
      股票代码 ( 300027  )    
      监视价位 ( 10.00   )
          
    监视条件:
      当该股票下跌至监视价位并在 ( 1 )分钟内在监视价位上下 ( 0.5 )
      元波动则 <1>买入  <2>卖出  股票数量: ( 100 )股
    
    报价优化 ( 0.02 )元 

    是否自动交易 ( 1 ) 【注意:1为自动交易,0为不自动交易,若测试功能请设置0】  

   说明:
       此插件主要用于监视某支股票在持续上涨多长时间来进行卖出交易,实现按照时
   间来最大限度的实现止损交易! 

  ---------------------------------------------------------------------------------
                   [开始]   [停止]   [撤销]
                  
========================================================================================

Dim stockcode '股票代码
Dim jsjw      '监视价位
Dim yhfd      '优化幅度
Dim jyzj      '交易资金
Dim mms       '卖出数量
Dim jssj      '监视时间 
Dim jssj1     '时间计数器
Dim zdjy      '自动交易
Dim bdjg      '波动价格
Dim jsq       '计时器
Dim status    '监视任务状态

'用于插件加载时进行初始化
Function OnInit()
	Set stockcode=textbox(1)
	Set jsjw=textbox(2)
	Set jssj=textbox(3)
	Set mms=textbox(5)
	Set yhfd=textbox(6)
  Set bdjg=textbox(4)
  Set zdjy=textbox(7)
  jsq=0

	'设置定时器的控件
	me.Timer=False         '启动不需要采用Timer.enable=True
	me.Timer.Interval=500
End Function
'系统每间隔一秒钟触发一次该函数,用户的实时判断代码可以写在此函数体内
Function OnTimer() 
Dim tjj
SNBDebugger.Println cstr(jsq)
 Set a = StockData.getrd(stockcode.text)  '获得当前股票数据
   If  a.CJJ <= cdbl(jsjw.text+bdjg.text) And a.CJJ>=cdbl(jsjw.text-bdjg.text)  Then
    jsq=jsq+1
     If jsq=jssj1 Then 
       If Radiobutton(2) =True Then
          tjj=cstr(a.CJJ - yhfd)
        sell stockcode.text, tjj,mms,cint(zdjy.text),0
       Else
       tjj=cstr(a.CJJ + yhfd)
        buy  stockcode.text, tjj,mms,cint(zdjy.text),0
       End If 
        jsq=0      
     End If 
   End If
SetColAtTask  4, a.CJJ
End Function
'确定按钮
Function Button1_click()
	mms.text=trim(mms.text)
	yhfd.text=trim(yhfd.text)
  zdjy.text=trim(zdjy.text)
  bdjg.text=trim(bdjg.text)
  jssj1=CInt(jssj.text*120)
      
	If Not IsNumeric(yhfd.text)  Then MsgBox "优化幅度设置有误!":Exit Function	
  	If Not IsNumeric(zdjy.text)  Then MsgBox "自动交易设置有误!":Exit Function
  If Not IsNumeric(bdjg.text)  Then MsgBox "波动范围设置有误!":Exit Function
 
 Set a = StockData.getrd(stockcode.text)  '获得当前股票数据
me.Timer=True
    Me.ShowTaskAtList "正在监控"&stockcode.text,a.StockName ,jsjw.text ,a.CJJ, "_&
"当"& stockcode.text & "上涨到高于监视价位,并且在"&jssj.text &"分钟后没有回落,则卖出!"              
status=1	
Me.Hide       
	End Function

'停止按钮
Function Button2_click()
	me.Timer=False
If status=1 Then
 Set a = StockData.getrd(stockcode.text)  '获得当前股票数据
 Me.ShowTaskAtList "停止监控"&stockcode.text,a.StockName ,jsjw.text ,a.CJJ,"_&
 "当"& stockcode.text & "上涨到高于监视价位,并且在"&jssj.text &"分钟后没有回落,则卖出!"              
 status=0
End If
me.hide
End Function 
'撤销
Function Button3_click()
me.Repeal
End Function 

Sub TextBox1_Change()
 If Len(stockcode.text)=6 Then 
 Set a = StockData.getrd(stockcode.text)  '获得当前股票数据
 jsjw.text= a.cjj
End If 
End Sub

Sub TextBox2_Change()
End Sub
Sub TextBox3_Change()
End Sub
Sub TextBox4_Change()
End Sub
Sub TextBox5_Change()
End Sub
Sub TextBox6_Change()
End Sub
Sub TextBox7_Change()
End Sub
'当返回True时,窗口将不会在此次关闭
Function OnClose()
OnClose=False
End Function

    注意:SNB专业版插件中若没有在脚本代码中做交易次数的控制,则交易次数不受限制,即插件任务会周期性的循环的任务,达到条件即可交易,不受主程序中一笔任务任务交易触发了就处于暂停状态。插件的编写可以采用任何文本编辑器进行编写,
    为用户更好的开发编写自己的插件,SNB技术人员专门开发了一个简洁的脚本编辑器,支持JScript,VBScript脚本的智能识别,该插件开发IDE(集成开发环境)属于绿色软件,无需安装用户下载即可使用。
     SNB提供的接口函数以及插件的编写的规范,请参考SNB专业版用户手册,或咨询SNB客服人员.
 
QQ在线咨询
售前电话咨询
4006-818-939
售后服务电话
0871-68197997