Rss & SiteMap

金字塔客服中心 - 专业程序化交易软件提供商 http://www.weistock.com/bbs/

专业程序化软件提供商
共3 条记录, 每页显示 10 条, 页签: [1]
[浏览完整版]

标题:如何单步调试vbs代码

1楼
f123wn 发表于: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楼
王锋 发表于:2014/2/12 15:29:50

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

VBA中的宏代码可以的

3楼
f123wn 发表于:2014/2/12 15:33:06
请问老师,上面的代码如何转为宏代码,谢谢。
共3 条记录, 每页显示 10 条, 页签: [1]


Powered By Dvbbs Version 8.3.0
Processed in 0.03125 s, 2 queries.