求助帮忙在这段VBS程序的每一句后面注释一下是什么含义,急用,万能的道友小弟跪拜了 20
RemWriteVBScriptHereDimdata(2048)%dim的确是定义变量用的Document.getarrayline1,1024,dataV=RMS(1...
Rem Write VBScript Here
Dim data(2048) %dim的确是定义变量用的
Document.getarrayline 1,1024,data
V=RMS(1024,data)
x=590
y=60
max=10
min=0
tempature
x,y,max,min,v
Function RMS(N,x)
E2=0
For K = 0 To N
E2=E2+data(k)*data(k)
Next
RMS=sqr(E2/N)
End Function
Sub tempature(x,y,max,min,v)
For i=0 To 10
Document.DrawLine
x+30,y+i*15,x+35,y+i*15,0
Next
Document.Write
x,y-5,0,Cstr(max)
Document.Write
x,y+145,0,Cstr(min)
Document.drawbar
x+45,y,26,150,1
Document.Fillcircle x+45+12,y+150+13,16,12
h=v*150/(max-min)
Document.drawbar
x+45,y+150-h,26,h,12
End Sub 展开
Dim data(2048) %dim的确是定义变量用的
Document.getarrayline 1,1024,data
V=RMS(1024,data)
x=590
y=60
max=10
min=0
tempature
x,y,max,min,v
Function RMS(N,x)
E2=0
For K = 0 To N
E2=E2+data(k)*data(k)
Next
RMS=sqr(E2/N)
End Function
Sub tempature(x,y,max,min,v)
For i=0 To 10
Document.DrawLine
x+30,y+i*15,x+35,y+i*15,0
Next
Document.Write
x,y-5,0,Cstr(max)
Document.Write
x,y+145,0,Cstr(min)
Document.drawbar
x+45,y,26,150,1
Document.Fillcircle x+45+12,y+150+13,16,12
h=v*150/(max-min)
Document.drawbar
x+45,y+150-h,26,h,12
End Sub 展开
2个回答
展开全部
你这vbs要嵌入网页里面用额。。。。
你建一个html,然后写好head和body,然后声明调用vbs语言,然后就出来了。
然后就是在网页上面画画。。。
你建一个html,然后写好head和body,然后声明调用vbs语言,然后就出来了。
然后就是在网页上面画画。。。
追问
我是看不懂每一行语句什么意思,能帮忙注释一下各句的含义吗
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询