教你如何将GOTO、标记函数改写成标准语法 _ 教程中心

查看: 7949\|回复: 0	教你如何将GOTO、标记函数改写成标准语法 [复制链接]

发送短消息 UID 2448243 帖子 522 精华 0 鲜花 30 朵铜币 667 个银币 29 个性别在线时间 720 注册时间 2014-04-03 最后登录 2014-09-05 2055316996 查看公共资料搜索主题搜索帖子转瞬の流星转瞬の流星组别高中一年级 UID2448243 帖子522 精华0 鲜花30 朵铜币667 个银币29 个在线时间720 注册时间2014-04-03 学有所成学有所成勋章，新手步入按键学堂的第一枚勋章论坛GG 按键论坛男性用户勋章黄金之翼黄金之翼勋章	1^# 字体大小: t T 发表于 2014-04-14 16:15 \| \|只看楼主本帖最后由转瞬の流星于 2014-4-16 17:16 编辑 PC版按键精灵支持标记(Rem)、跳转(Goto)两个函数，虽然使用方便，但会导致语法不规范，长时间运行可能导致脚本出现异常，熟悉编程的童鞋都会尽可能避开这种写法，按键精灵移动版目前也不支持这两个函数。下面我们就分类示范一下如何把脚本中的goto写法改写成规范的语法。【第一种】无限往前跳，可改成无限循环写法 =============原写法============= Rem 开始 //中间可能有很多很多代码 Goto 开始复制代码 =============新写法============= Do //中间可能有很多很多代码 Loop 复制代码【第二种】满足i=1条件时往前跳，可改成多加一层循环 =============原写法============= Dim i Rem 开始 //中间可能有很多很多代码 If i = 1 Then Goto 开始 End If 复制代码 =============新写法============= Dim i Do //中间可能有很多很多代码 If i 【第三种】满足i=1条件时往后跳，可改成多加一层循环 =============原写法============= 1 Then Exit do End If Loop 复制代码 =============新写法============= Dim i If i = 1 Then Goto 结束 End If //中间可能有很多很多代码 Rem 结束复制代码【第四种】循环内往前跳到循环外，可多设置一层循环利用一个判断变量连续跳出 =============原写法============= Dim i Do If i =============新写法============= 1 Then Exit do End If //中间可能有很多很多代码 Exit do Loop 复制代码【第五种】循环内往后跳到循环外，可多设置一层循环利用一个判断变量连续跳出 =============原写法============= Dim intX,intY rem 从头开始 //中间可能有很多很多代码 For 3 FindPic 0,0,1080,1920,"Attachment:1.png",0,0.9,intX,intY If intX >= 0 and intY >= 0 Then goto 从头开始 End If Delay 1000 Next 复制代码 =============新写法============= Dim intX,intY,判断变量 Do //中间可能有很多很多代码判断变量 = 0 For 3 FindPic 0,0,1080,1920,"Attachment:1.png",0,0.9,intX,intY If intX >= 0 and intY >= 0 Then 判断变量 = 1 Exit For End If Delay 1000 Next If 判断变量 = 0 Then Exit Do Loop 复制代码已有1评分我要评分查看所有评分
	点赞

	回顶部

上一主题| 下一主题

教你如何将GOTO、标记函数改写成标准语法 [复制链接]