qq240559043
干就完了
级别: 略有小成
精华主题: 0
发帖数量: 192 个
工控威望: 332 点
下载积分: 4111 分
在线时间: 143(小时)
注册时间: 2012-06-06
最后登录: 2024-11-14
查看qq240559043的 主题 / 回贴
楼主  发表于: 2022-06-16 16:09
图片:
图片:
图片:
//**********************************************************开始游戏
if start == true and snake_len == 0 then
   snake_pos_x[0] = 9
   snake_pos_y[0] = 9
   snake_len = 1
   //绘制小蛇
   for index = 0 to snake_len - 1
       snake_index = snake_pos_y[index] * 20 + snake_pos_x[index]
       SetData(ON, "Local HMI", LB, snake_index, 1)
   next
   SetData(ON, "Local HMI", LB, 2000, 1)
end if
//**********************************************************暂停游戏
if stop then
   SetData(OFF, "Local HMI", LB, 1001, 1)
   SetData(OFF, "Local HMI", LB, 1002, 1)
   start = false
end if
if snake_len > 0 and start == true then

   ////**********************************************************
   ////**********************************************小蛇向上移动
   ////**********************************************************
   if snake_UP == true and snake_DOWN == false then
      //清除小蛇
      for index = 0 to snake_len-1
          snake_index = snake_pos_y[index] * 20 + snake_pos_x[index]
          SetData(OFF, "Local HMI", LB, snake_index, 1)
      next
      
      //蛇头撞墙
      if snake_pos_y[0] == 0 then
         game_over = true
         SetData(ON, "Local HMI", LB, 2010, 1)
      else
         snake_len1  = snake_len-1
         snake_tail_pos_x = snake_pos_x[snake_len1]
         snake_tail_pos_y = snake_pos_y[snake_len1]
         snake_head_pos_x = snake_pos_x[0]
         snake_head_pos_y = snake_pos_y[0] - 1
李文全
级别: 探索解密
精华主题: 0
发帖数量: 19 个
工控威望: 110 点
下载积分: 600 分
在线时间: 5(小时)
注册时间: 2017-05-12
最后登录: 2024-10-11
查看李文全的 主题 / 回贴
1楼  发表于: 2022-06-23 22:39
这个不用PLC也可以做吗
本帖最近评分记录:
  • 下载积分:+5(静芳) 屏的宏程序