控制对象1取名为(A1)
控制对象2取名为(含穗A2)
控制对象3取名为(A3)
控制对象4取名为(A4)
控制对象5取名为(A5)
程序如下:《策略辩老颤用循环策略周期时间你定,这里用1000ms(1秒)》
if A1=1 THEN 如A1=1往下走
TIMES1=TIMES1+1
IF TIMES>=10 THEN A2=1 '10秒后A2启动
IF A2=1 AND TIMES-10*1>=10 THEN A3=1'10秒后A3启动
IF A3=1 AND TIMES-10*2>=10 THEN A4=1'10秒后A4启动
IF A4=1 AND TIMES-10*3>=10 THEN A5=1'10秒后A5启动
。。。。。。携败。。。
else
TIMES1=0:A1=0:A2=0:A3=0:A4=0:A5=0
endif
以下你随便多少个吧都可以。
实时数据库A:数值型
领料:数值型
帐号:字符型
画面
“请重新输入帐号”可见度表达式:领料=2
输入框,可见度表达式:领料 = 1 OR 领料 = 2
“您不能领料”可见度表达式:领料=3
“您能领料”可见度表达式:领料=4
“领料”按钮脚本程序:
领料 = 1
帐号 = ""段宏
循环脚本,循环时间为50
表达式:1
脚本程序:
A = !StrComp(帐号,"")
表达式:领料 AND A<>0,正跳变时执行一次
脚本程序:
IF 领料 = 2 THEN
IF !StrComp(帐号,"ABCD") = 0 THEN
领料 = 4
ELSE
领料 = 3
帐号 = ""
!TimerRun( 1 )
!TimerWaitFor( 1 , 3 )
!TimerStop( 1 )
领料 = 0
ENDIF
ENDIF
IF 领料 = 1 THEN
IF !StrComp(帐号,"ABCD") = 0 THEN
领料 = 4
ELSE
领料 = 2
帐号 = "纤樱"
ENDIF
ENDIF
和你的不同处是输入正确了会显示“您能领料”(输入的正确内容为ABCD,不分大小写),你可以将这个改成换毁燃丛面切换之类的
望采纳
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)