力控组态软件教程

力控组态软件教程 组态软件 垂直拖动 窗口显示:display(“draw1.drw”); 关闭窗口:closewindow(); 鼠标进入 this.lColor=5; this.x=555; this.y=394; 鼠标离开 闪烁 水平/垂直移动 p=p+1; if p>100 then p=0; endif if begin==1 then move1=move1+4; if move1>100 then begin=0; endif endif if move1>100 then move2=move2+5; if move2>100 then move1=0; move2=0; endif endif 方法2: if begin==1 then move2=move2+5; if move2>100 then move2=100; move3=move3+5; if move3>100 then move3=100; endif endif else move2=0; move3=0; endif if key==1 && var<100 then var=var+1; endif if key==0 && var>0 then var=var-1; endif 流动 if water==1 then water=0; else water=1; endif 闪烁 适中:填充色(倒数第二排第一个和第八个) 运行中周期执行 arrow=arrow+1; if arrow==3 then arrow=0; endif 窗口显示 窗口显示:display(“draw1.drw”); 退出:exit(0); 禁止 当key为真时，输入被禁止。 左键动作 MsgBox("欢迎使用PCAuto!"); 按下鼠标cm1=cm1+1 鼠标周期执行cm2=cm2+1 释放鼠标cm3=cm3+1 带跳动的物块 窗口运行时周期执行 if a==1 then b=100; a=0; else b=0; endif 物体命名 #rect1.FColor=100 填充色变为100 #rect1.LColor=100 边线颜色变为100 #rect1.LayerToTop() 设置为顶层 #rect1.LayerToBottom()设置为底层 来回的汽车 SWITCH (A) CASE 0: move1=move1+5; if move1>500 then A=1; #car1.hide(); #car2.show(); endif CASE 1: move1=move1-5; if move1<0 then A=0; #car1.show(); #car2.hide(); endif DEFAULT: ENDSWITCH 旋转的球 进入窗口 x1=#ball.ix; y1=#ball.iy; 数据改变动作 $msec #ball.x=x1+100*cos(deg); #ball.y=y1+100*sin(deg); deg=deg+15; 球宽60 SWITCH (a) CASE 0: #ball.x=#ball.x+k; #ball.y=#ball.y+k; if #ball.y>550 then a=1; endif if #ball.x>853 then a=3; endif CASE 1: #ball.x=#ball.x+k; #ball.y=#ball.y-k; if #ball.x>853 then a=2; endif if #ball.y<88+60 then a=0;endif case 2: #ball.x=#ball.x-k; #ball.y=#ball.y-k; if #ball.y<88+60 then a=3; endif if #ball.x<247+60 then a=1; endif case 3: #ball.x=#ball.x-k; #ball.y=#ball.y+k; if #ball.x<247+60 then a=0;endif if #ball.y>550 then a=2; endif DEFAULT: ENDSWITCH 进入窗口 for i=1 to 6 @iv[i]=0; next iv[1]=@a1; iv[2]=@a2; iv[3]=@a3; iv[4]=@a4; iv[5]=@a5; num=1; 窗口周期运行 max=0; FOR i=1 to 6 if iv[i]>max then max=iv[i]; num=i; endif NEXT aver=(iv[1]+iv[2]+iv[3]+iv[4]+iv[5])/5; 左键动作 a1=rand(100); a2=rand(100); a3=rand(100); a4=rand(100); a5=rand(100); 用户级别与安全区 修改一个变量，不但要用户级别够，而且还要 要求 对教师党员的评价套管和固井爆破片与爆破装置仓库管理基本要求三甲医院都需要复审吗 用户级别的安全区包含变量的安全区。 修改当前用户口令:userpass($username); 用户名称:$username 当前用户级别:$userlevel pp=GetVarSecurityArea("name");//得到name变量的安全区，并赋值到pp中 级别名称: SWITCH ($userlevel) CASE 0: level="操作工级"; CASE 1: level="班长级"; CASE 2: level="工程师"; CASE 3: level="系统管理员"; DEFAULT: level="操作工级"; ENDSWITCH 注册:userman(); 菜单 1、首先在力控的工具箱选择“选择子图”，在内部控件中将“树型菜单”放到画面，双击， 出现树形菜单的属性设置初始化界面，如下图: 2、要建立树形菜单的菜单项，在属性设置界面的左半部分控件点击鼠标右键，可以弹出菜 单，用于建立菜单项。 x-y曲线 if xytype==0 then if (x>=0 && x<100) then x=x+5; y=sin(x*7)*60; else x=1; y=0; endif endif 或者 if xytype==0 then x=rand(600); y=sin(x)*80; endif windows控件 下拉框 内容选项改变时动作: ndata=#combobox.listgetselection(); ntext=#combobox ListGetItem(ndata); 添加:#combobox.listadditem("台湾"); DDE 客户端 服务器 Pcauto excel IO驱动 设备名称: exc(任意) 服务名称:excel 主题名称:sheet1 数据库组态:a1.pv连接r1c1 a1.desc=r1c1 Excel pcauto =db|db!a2.pv =db|db!a2.desc Pcauto Vb IO驱动:设备名称 DDE(任意) Form : linkmode source 服务名称:project1 Linktopic ddeserver 主题名称:ddeserver Vb Pcauto Text1: Linkitem:a1.pv Linkmode: 1(自动) Linktopic: DB|DB 层 可以设置某个对象在那个图层。 LogicLayerUsing(1);//使用第一层 LogicLayerShow(1);//显示第一层 LogicLayerUsing(2); //使用第二层 LogicLayerShow(0); //不显示第二层 系统安全: 加上这个选项后，系统运行和系统退出都需要输入密码。即: 加上这个选项后，再进入系统进行组态时需要用户输入密码。 用户权限定义在这里: