怎样启动电脑数字小键盘

1.新建一个7.5SP2项目；

2.新建变量如下：

3.新建画面如下：

4.打开主画面，绘制如图所示：

IO域关联变量A1

IO域鼠标单击脚本如下：

SetTagChar("@numberinput","");//打开窗口清空变量缓存区

SetPropChar(lpszPictureName,"画面窗口1","Visible","1");//打开数字键盘窗口

SetTagChar("@name",GetLinkedVariable(lpszPictureName,lpszObjectName,"OutputValue"));

//获取IO域连接变量

画面窗口关联键盘窗口

5.打开键盘窗口，绘制如图所示：

IO域关联变量 @numberinput

按钮脚本如下：

按钮1

ｃｈａｒ buffer[256];

strcat(buffer,GetTagChar("@numberinput"));//获取@numberinput变量值

strcat(buffer,"1");//添加数据

SetTagChar("@numberinput",buffer);//更改缓存器内容

按钮2

ｃｈａｒ buffer[256];

strcat(buffer,GetTagChar("@numberinput"));//获取@numberinput变量值

strcat(buffer,"2");//添加数据

SetTagChar("@numberinput",buffer);//更改缓存器内容

按钮3

ｃｈａｒ buffer[256];

strcat(buffer,GetTagChar("@numberinput"));//获取@numberinput变量值

strcat(buffer,"3");//添加数据

SetTagChar("@numberinput",buffer);//更改缓存器内容

按钮4

ｃｈａｒ buffer[256];

strcat(buffer,GetTagChar("@numberinput"));//获取@numberinput变量值

strcat(buffer,"4");//添加数据

SetTagChar("@numberinput",buffer);//更改缓存器内容

按钮5

ｃｈａｒ buffer[256];

strcat(buffer,GetTagChar("@numberinput"));//获取@numberinput变量值

strcat(buffer,"5");//添加数据

SetTagChar("@numberinput",buffer);//更改缓存器内容

按钮6

ｃｈａｒ buffer[256];

strcat(buffer,GetTagChar("@numberinput"));//获取@numberinput变量值

strcat(buffer,"6");//添加数据

SetTagChar("@numberinput",buffer);//更改缓存器内容

按钮7

ｃｈａｒ buffer[256];

strcat(buffer,GetTagChar("@numberinput"));//获取@numberinput变量值

strcat(buffer,"7");//添加数据

SetTagChar("@numberinput",buffer);//更改缓存器内容

按钮8

ｃｈａｒ buffer[256];

strcat(buffer,GetTagChar("@numberinput"));//获取@numberinput变量值

strcat(buffer,"8");//添加数据

SetTagChar("@numberinput",buffer);//更改缓存器内容

按钮9

ｃｈａｒ buffer[256];

strcat(buffer,GetTagChar("@numberinput"));//获取@numberinput变量值

strcat(buffer,"9");//添加数据

SetTagChar("@numberinput",buffer);//更改缓存器内容

按钮.

ｃｈａｒ buffer[256];

strcat(buffer,GetTagChar("@numberinput"));//获取@numberinput变量值

strcat(buffer,".");//添加数据

SetTagChar("@numberinput",buffer);//更改缓存器内容

按钮0

ｃｈａｒ buffer[256];

strcat(buffer,GetTagChar("@numberinput"));//获取@numberinput变量值

strcat(buffer,"0");//添加数据

SetTagChar("@numberinput",buffer);//更改缓存器内容

参数下发确认VB脚本

Dim a

Dim b

Set a=HMIRuntime.Tags("@name")‘读取变量名称

Set b=HMIRuntime.Tags("@numberinput")‘读取输入值

a.Read

b.Read

HMIRuntime.Tags(a.Value).Write(CSng(b.Value))

清除脚本

SetTagChar("@numberinput","");

6.打开运行系统，测试如下：