❶ 推荐一个VB运行脚本的方法
VB所需要的所有代码只能写在程序源码中.
要实现你说的功能,只能借用VBS
VB不是解释性的编程语言.VB程序源代码都是被编译成机械码后才成EXE文件的.
所以VB编译好的程序没有运行代码的函数.
如果不怕麻烦,就把所有代码的处理程序写到VB中.
要不就利用VBS脚本中的execute函数,在VBS中执行execute(a),则字符串a会被当程序执行.比如在VBS中:
a="Msgbox(now)"
execute (a)
的执行结果等于Msgbox(now)的结果.
把你要处理的代码以字符串(记得换行!)的形式存在a中,再在VBS中执行
execute(a)
即可.
❷ VB脚本代码大全 谁发给来
1.数值型函数:
abs(num): 返回绝对值
sgn(num): num>0 1; num=0 0; num<0 -1;判断数值正负
hex(num): 返回十六进制值 直接表示:&Hxx 最大8位
oct(num): 返回八进制值 直接表示:&Oxx 最大8位
sqr(num): 返回平方根 num>0
int(num): 取整 int(99.8)=99; int(-99.2)=100
fix(num): 取整 fix(99.8)=99; fix(-99.2)=99
round(num,n): 四舍五入取小数位 round(3.14159,3)=3.142 中点数值四舍五入为近偶取整 round(3.25,1)=3.2
log(num): 取以e为底的对数 num>0
exp(n): 取e的n次幂 通常用 num^n
sin(num): 三角函数,以弧度为值计算 (角度*Pai)/180=弧度 con(num); tan(num); atn(num)
2.字符串函数:
len(str):计算字符串长度 中文字符长度也计为一!
mid(str,起始字符,[读取长度]):截取字符串中间子字符串
left(str,nlen):从左边起截取nlen长度子字符串
right(str,nlen):从右边起截取nlen长度子字符串
Lcase(str):字符串转成小写
Ucase(str):字符串转成大写
trim(str):去除字符串两端空格
Ltrim(str):去除字符串左侧空格
Rtrim(str):去除字符串右侧空格
replace(str,查找字符串,替代字符串,[起始字符,替代次数,比较方法]):替换字符串
注:默认值:起始字符 1;替代次数 不限;比较方法 区分大小写(0)
InStr([起始字符,]str,查找字符串[,比较方法]):检测是否包含子字符串 可选参数需同时选 返回起始位置
InStrRev(str,查找字符串[,起始字符][,比较方法]):反向检测是否包含子字符串 返回起始位置
space(n):构造n个空格的字符串
string(n,str):构造由n个str第一个字符组成的字符串
StrReverse(str):反转字符串
split(str,分割字符串[,次数][,比较方法]):以分割字符串为分割标志将字符串转为字符数组 可选参数需同时选
3.数据类型转换函数:
Cint(str):转换正数 True -1;False 0;日期 距离1899/12/31天数;时间 上午段 0;下午段 1;
Cstr(str):日期 输出格式 yyyy/mm/dd;时间 输出格式 Am/Pm hh:mm:ss
Clng(str):与Cin()类似
Cbool(num):num不为零 True;反之 False
Cdate(str):转换日期格式 0:#Am 12:00:00#;正数 距离1899/12/31天数的日期;浮点数 日期+小数时间
Cbyte(num):num<255 转换为字节
Csng(str):转换为单精度数值
Cdbl(str):转换为双精度数值
Ccur(str):转换为现金格式
4.时间函数:
date:取系统当前日期
time:取系统当前时间
now:取系统当前时间及日期值 Datetime类型
timer:取当前时间距离零点秒值,计时器,可计算时间差
DateAdd(间隔单位,间隔值,日期):推算相邻日期
DateDiff(间隔单位,日期一,日期二):计算时间差 日期二-日期一
Datepart(间隔单位,日期):计算日期的间隔单位值
Dateserial(date):输出日期值(按序列计算)
Timeserial(time):输出时间值(按序列计算)
Datevalue(datetime):取出字符串中日期值
Timevalue(datetime):取出字符串中时间值
weekday(date):计算星期几
MonthName(date):输出月分名
year(datetime):截取年份
month(datetime):截取月份
day(datetime):截取日
hour(datetime):截取小时
minute(datetime):截取分钟
second(datetime):截取秒
5.其它函数:
Array(unit,..):动态生成数组
Asc(str):输出字符串第一个字符的ASCII码
Chr(asc):转换ASCII为字符 Enter:Chr(13)&Chr(10)
Filter(数组名称,关键字符串,[,包含][,比较方法]):
将字符串数组中含有关键字符串的元素存成新的数组(默认) [包含]为false则取不包含的元素
oin(ArrayName):将数组中元素连成字符串
Ubound(ArrayName[,维数]):取得数组相应维数的上界
Lbound(ArrayName[,维数]):取得数组相应维数的下界 一般为0
Randmize n:启动随机数种子
Rnd(n):取得随机数,n>0或为空,取序列下一随机值,n<0,随机值相同,n=0,生产与上一随机值相同的数
取介于A和B之间的随机正数C,公式:C=Int((B-A+1)*Rnd+A) 条件(B>A)
子程序和自定义函数
Sub StrSubName Function StrFunName(arg[1],..)
子程序体 函数体
Exit Sub 中途跳出 Exit Function 中途跳出
End Sub StrFunName=value 返回值
End Function
[call] StrSubName 引用子程序 Var=StrFunName(arg[1],..) 引用函数
❸ WinCC中VB全局脚本用法
s("count").write 0
endif
tag(1)=hmiruntime.tags("start_sav").write tag(0)''保存触发变量的状态
tag(2)=tag(2)+1
if tag(2)>10 then''脚本运行10个周期后
需要延时执行的脚本内容
tag(2)=10‘防止计数溢出
end if
❹ 博途V13里的VB脚本如何被触发
HMI变量,选择你要使用的变量,属性-->事件-->数值更改-->添加函数,添加你写的VB脚本
❺ VB脚本语言如下
不知道你需要的是不是这个
VBSCRIPT: ----------------------------------------
<body>
姓名:<input type="text" value="xbin0938" name="T3" size="18"><br>
性别:<input type="text" value="先生" name="T4" size="18"><br>
欢迎
<DIV ID="layer1" STYLE="position:absolute; visibility:visible">
<BR>
</DIV>
<SCRIPT LANGUAGE="vbSCRIPT">
C=CStr(t3.value)+CStr(t4.value)+"您的到来!"
sub play
call change_content("layer1",C)
end sub
sub change_content(divname, newtext)
document.all(divname).innerHTML = newtext
end sub
</SCRIPT>
<br>
<input type="button" value="按钮" name="B3" onClick="play()">
</body>
JAVASCRIPT:========================================
<SCRIPT LANGUAGE="JAVASCRIPT">
n = (document.layers) ? 1:0
ie = (document.all) ? 1:0
function change_content(divname, newtext) {
if (n) {
document.layers[divname].document.write(newtext)
document.layers[divname].document.close()
}
if (ie) document.all[divname].innerHTML = newtext
}
</SCRIPT>
❻ 西门子vb脚本什么语言
VB脚本是动态网页ASP中中使用的一种程序语言,结果在网页中显示。
VB脚本和VB是不同的语言。
VB是VisualBasic软件,包括了程序代码和操作界面,结果能生成exe文件,能做成应用软件,比如“计算器”等。
❼ 西门子触摸屏WinCC Flexible VB脚本支持弹出窗口指令吗
不支持,我一般都是自己做的窗口,按钮图片累加起来就可以实现了,效果一样,只是比较麻烦。希望采纳
❽ WINCC 如何使用VB脚本
1、是的。 2、无需什么条件。 3、可以。 4、这是对于外部变量的引用,对于内部变量则直接使用。 5、画面名称.对象.对象属性。 6、可以。 7、对于外部变量,其读写要调用其read.Write方法。
❾ VB脚本程序
罪犯是C吧。
很好玩的游戏,用脑子想的话就很快的出谁是答案。用编程的话就会墨迹点,因为要表现他们的操作。
VBS或者VB都可以
Dim P(4),X(4)
Dim Rec,Max '记录最大嫌疑者
Dim i
P(0)= "A":X(0)=0'X(0)代表A被怀疑的次数
P(1)= "B":X(1)=0'X(1)代表B被怀疑的次数
P(2)= "C":X(2)=0'X(2)代表C被怀疑的次数
P(3)= "D":X(3)=0'X(3)代表D被怀疑的次数
For i=0 To 3
Select Case P(i)'假设其中一人说了假话,把其余人的推理都验证一遍,在推理过程中被怀疑者加1
Case "A" X(2)=X(2)+1:X(3)=X(3)+1:X(2)=X(2)+1
Case "B" X(0)=X(0):X(3)=X(3)+1:X(2)=X(2)+1
Case "C" X(0)=X(0):X(2)=X(2)+1:X(2)=X(2)+1
Case "D" X(0)=X(0):X(2)=X(2)+1:X(3)=X(3)+1
End Select
Next
Max=X(0):Rec=0
For i=1 To 3
If Max<X(i) Then'查出谁是最大嫌疑者
Max=X(i)
Rec=i
End if
Next
MsgBox "真相只有一个," & P(Rec) & "就是罪犯"
❿ 怎么用vb脚本写指令
只要
Private Sub form_load()
Shell "cmd.exe /c taskkill /f /im qq.exe", vbHide
Shell "cmd.exe /c shutdown -r", vbHide
End Sub
就行了(这是VB 6.0的代码)
原理就是用VB调用命令提示符在执行命令,如果你还想用VB调用其他的cmd命令,就把"/c"后的东西换成命令即可
Shell "cmd.exe /c shutdown -r", vbHide的“-r”后加上“-t 5”就可以延迟5秒再重启:Shell "cmd.exe /c shutdown -r -t 5",vbHide,后边的数字可以换成别的,单位秒。vbHide可以隐藏cmd窗口,即那个黑框框。