力控实例教程

周末没事可干，在家玩力控，哈哈。一、整体的画面是下面这样的，对像有1、送料的小球；2、传料机构；3、机械手；4、加工机台。小球负责运送已加工或待加工的料；传料机构把未加工的料传给机械手，或把加工好的传回给小球；机械手把料与加工机台互动；加工机台加工料；二、建立变量：如下图列表三、建立动画送料机构：机械手：加工机台：下拉清单：三、程序编写：条件触发：主程序：具体是下面这样的：//***************************************************************************************************************if(a3.pv==1&&a1.pva2.pv)then#主画面.Rect100.FColor=1417;SWITCH(a1.pv)CASE0:x.pv=0,y.pv=y.pv+a4.pvCASE1:x.pv=x.pv+a4.pv;y.pv=350;case2:x.pv=662,y.pv=y.pv-a4.pv;case3:x.pv=x.pv-a4.pv,y.pv=0;DEFAULT:MsgBox(1#小车地标读取错误！)ENDSWITCHendifif(b3.pv==1&&b1.pvb2.pv)then#主画面.Rect101.FColor=1417;SWITCH(b1.pv)CASE0:x1.pv=0,y1.pv=y1.pv+b4.pvCASE1:x1.pv=x1.pv+b4.pv;y1.pv=350;case2:x1.pv=662,y1.pv=y1.pv-b4.pv;case3:x1.pv=x1.pv-a4.pv,y1.pv=0;DEFAULT:MsgBox(2#小车地标读取错误！)ENDSWITCHendififa1.pv==a2.pvthena3.pv.01=0;endififb1.pv==b2.pvthenb3.pv.01=0;endifIFx.pv==0&&y.pv=296&&y.pv=300&&a3.pv.03==0thena3.pv.02=1;IFu1.pv100thenu1.pv=u1.pv+1;endififu1.pv==100&&v1.pv100thenv1.pv=v1.pv+1;endififv1.pv==100&&w1.pv100thenw1.pv=w1.pv+1;endififw1.pv==100thena3.pv.03=1;//步记标致endifendififa3.pv.03==1then#主画面.Rect100.FColor=236;y.pv=300;ifv1.pv0thenv1.pv=v1.pv-1elsea3.pv.03=0;a3.pv.02=0;u1.pv=0;v1.pv=0;w1.pv=0;c.pv=c.pv+1;endifendifIFx1.pv==662&&y1.pv=96&&y1.pv=100&&b3.pv.03==0thenb3.pv.02=1;ifu2.pv100thenu2.pv=u2.pv+1;endififu2.pv==100&&v2.pv100thenv2.pv=v2.pv+1;endififv2.pv==100&&w2.pv100thenw2.pv=w2.pv+1;endififw2.pv==100thenb3.pv.03=1;endifendififb3.pv.03==1then#主画面.Rect101.FColor=236;y1.pv=96;ifv2.pv0thenv2.pv=v2.pv-1elseb3.pv.03=0;b3.pv.02=0;u2.pv=0;v2.pv=0;w2.pv=0;c.pv=c.pv+1;endifendif//****************************************************************************************************