欢迎使用金字塔普通技术服务论坛，您可以在相关区域发表技术支持贴。
我司技术服务人员将优先处理 VIP客服论坛 服务贴，普通区问题处理速度慢，请耐心等待。谢谢您对我们的支持与理解。


金字塔客服中心 - 专业程序化交易软件提供商 → 金字塔软件 → 高级功能研发区 → 如何单步调试vbs代码

   

欢迎使用金字塔普通技术服务论坛，您可以在相关区域发表技术支持贴。
我司技术服务人员将优先处理 VIP客服论坛 服务贴，普通区问题处理速度慢，请耐心等待。谢谢您对我们的支持与理解。    

  共有4108人关注过本帖树形打印复制链接

主题：如何单步调试vbs代码
帅哥哟，离线，有人找我吗？
f123wn
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：新手上路 帖子：30 积分：0 威望：0 精华：0 注册：2014/2/10 9:10:05 		如何单步调试vbs代码  发帖心情 Post By：2014/2/12 15:27:05 [只看该作者]

请问如何用f8键单步调试<% %>中的代码？，谢谢 
m1:c; 
m2:c; 
m3:c; 
n1:=5; 
n2:=10; 
n3:=13; 
<% 
vc=ffl.vardata("m1") 
vm1=ffl.vardata("m1") 
vm2=ffl.vardata("m2") 
vm3=ffl.vardata("m3") 
vn1=ffl.vardata("n1") 
vn2=ffl.vardata("n2") 
vn3=ffl.vardata("n3") 

vn1=vn1-1 
vn2=vn2-1 
vn3=vn3-1 

for i=0 to Ubound(vm1) 
  if i>=vn1 then 
     vm1(i)=f(i,vn1) 
  end if 
  if i>=vn2 then 
     vm2(i)=f(i,vn2) '调用自定义过程(函数)f(i,vn2)
  end if 
  if i>=vn3 then 
     vm3(i)=f(i,vn3) '调用自定义过程(函数)f(i,vn3)
  end if 
next 

ffl.vardata("m1")=vm1 
ffl.vardata("m2")=vm2 
ffl.vardata("m3")=vm3 

ffl.varStartIndex("m1")=vn1 
ffl.varStartIndex("m2")=vn2 
ffl.varStartIndex("m3")=vn3 

'以下定义求Y日平均值的函数(过程) 
function f(x,y) 
  sumc=0 

  '求Y日收盘价之和 
  for j=0 to y 
    sumc=sumc+vc(x-j) 
  next 

  '函数f返回Y日均价 
  f=sumc/(y+1) 
end function 
%> 
 回到顶部
帅哥哟，离线，有人找我吗？
王锋
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：罗宾汉 帖子：11808 积分：20695 威望：0 精华：10 注册：2009/8/18 8:15:13 		  发帖心情 Post By：2014/2/12 15:29:50 [只看该作者]

PEL中的VBS代码是无法单步跟踪的.

VBA中的宏代码可以的

金字塔—专业程序化软件提供商

金字塔-技术部

-----------------------------------------------------------------------------------------------------

工作时间:周一至周五 08:30 - 17:30   周末及法定节假日休息

Email:service@weistock.com
 回到顶部
帅哥哟，离线，有人找我吗？
f123wn
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：新手上路 帖子：30 积分：0 威望：0 精华：0 注册：2014/2/10 9:10:05 		  发帖心情 Post By：2014/2/12 15:33:06 [只看该作者]

请问老师，上面的代码如何转为宏代码，谢谢。

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版    Powered By weistock 2012
页面执行时间 00.03906 秒, 5 次数据查询