7

2019-04-14 17:12:01 +08:00

想起我最开始上学习的 VB 课,最后的大作业一个游戏就是这样的风格

```vb

If keyascii = 119 Then

Image1.Top = Image1.Top - 200

End If

If keyascii = 115 Then

Image1.Top = Image1.Top + 200

End If

If keyascii = 97 Then

Image1.Left = Image1.Left - 200

End If

If keyascii = 100 Then

Image1.Left = Image1.Left + 200

End If

If keyascii = 32 Then

If Image3(4).Visible = False Then

Call m3

Else

Call m1

WindowsMediaPlayer1.Enabled = False

Image3(i).Visible = False

i = i + 1

If i = 5 Then i = 0

If Abs((Image1.Left + Image1.Width / 2) - (Image2.Left + Image2.Width / 2)) <= Image2.Width / 3 And Abs((Image1.Top + Image1.Height / 2) - (Image2.Top + Image2.Height / 2)) <= (9 / 10) * Image2.Height Then

If Image2.Picture = Image4.Picture Then

p = 1

Else

a = a - 1

Label2.Caption = a

End If

Image2.Picture = Image4.Picture

End If

If Abs((Image1.Left + Image1.Width / 2) - (Image11.Left + Image11.Width / 2)) <= Image11.Width / 3 And Abs((Image1.Top + Image1.Height / 2) - (Image11.Top + Image11.Height / 2)) <= (9 / 10) * Image11.Height Then

If Image11.Picture = Image12.Picture Then

p = 1

Else

a = a - 1

Label2.Caption = a

End If

Image11.Picture = Image12.Picture

Timer1.Enabled = False

End If

If Abs((Image1.Left + Image1.Width / 2) - (Image7.Left + Image7.Width / 2)) <= Image7.Width / 3 And Abs((Image1.Top + Image1.Height / 2) - (Image7.Top + Image7.Height / 2)) <= (9 / 10) * Image7.Height Then

If Image7.Picture = Image13.Picture Then

p = 1

Else

a = a - 1

Label2.Caption = a

End If

Image7.Picture = Image13.Picture

End If

If Abs((Image1.Left + Image1.Width / 2) - (Image8.Left + Image8.Width / 2)) <= Image8.Width / 3 And Abs((Image1.Top + Image1.Height / 2) - (Image8.Top + Image8.Height / 2)) <= (9 / 10) * Image8.Height Then

If Image8.Picture = Image14.Picture Then

p = 1

Else

a = a - 1

Label2.Caption = a

End If

Image8.Picture = Image14.Picture

End If

If Abs((Image1.Left + Image1.Width / 2) - (Image9.Left + Image9.Width / 2)) <= Image9.Width / 3 And Abs((Image1.Top + Image1.Height / 2) - (Image9.Top + Image9.Height / 2)) <= (9 / 10) * Image9.Height Then

If Image9.Picture = Image15.Picture Then

p = 1

Else

a = a - 1

Label2.Caption = a

End If

Image9.Picture = Image15.Picture

Image9.Move 15000

Timer2.Enabled = True

End If

```

java 狼捉羊游戏背景_Js 写了一个 “狼吃羊” 小游戏。相关推荐

  1. 用【Python】写了一个水果忍者小游戏,玩过之后爱不释手

    前言 水果忍者到家都玩过吧,但是Python写的水果忍者你肯定没有玩过.今天就给你表演一个新的,用Python写一个水果忍者. 水果忍者的玩法很简单,尽可能的切开抛出的水果就行. 今天就用python ...

  2. 用Python写了一个水果忍者小游戏

    点击上方"菜学Python",选择"星标"公众号 超级无敌干货,第一时间送达!!! 水果忍者的玩法很简单,尽可能的切开抛出的水果就行. 今天小五就用python ...

  3. 【练手项目】用Python写了一个水果忍者小游戏

    水果忍者的玩法很简单,尽可能的切开抛出的水果就行. 今天就用python简单的模拟一下这个游戏.在这个简单的项目中,我们用鼠标选择水果来切割,同时炸弹也会隐藏在水果中,如果切开了三次炸弹,玩家就会失败 ...

  4. 使用java完成一个猜数字的小游戏(数据范围在1-100之间)

    最近开始学java,使用java做一个猜数字的小游戏,代码不多,我就直接贴代码了 /** A:案例演示* 需求:猜数字小游戏(数据在1-100之间)*/import java.util.Scanner ...

  5. 为了让你们进阶 Canvas,我花 7 小时写了 3 个有趣的小游戏!!!

    点击上方 前端瓶子君,关注公众号 回复算法,加入前端编程面试算法每日一题群 前言 大家好,我是林三心,相信大家看了我前一篇canvas入门文章为了让她10分钟入门canvas,我熬夜写了3个小项目和这 ...

  6. 用js写出数据结构中的自定义队列,利用队列思想写出一个击鼓传花的游戏函数,优先级队列

    队列的核心是先进先出 1.用js写出数据结构中的自定义队列 class Queue{constructor(){this.item = [];}// 1.入队enqueue(ele){this.ite ...

  7. 我用Python写了一个成语接龙的游戏,并把它部署到了手机上

    我用Python写了一个成语接龙的游戏,并把它部署到了手机上 成语大全数据 6月高考的前一天,我发布的一篇文章,决战高考,帮你秒变成语之王,当时只是把 http://chengyu.haoshiwen ...

  8. 利用random 的randint 方法写一个猜数字的小游戏

    学习python第二天,编写的一款数字小游戏 昨天学习完条件语句和while循环,老师留下的作业:利用random 的randint 方法写一个猜数字的小游戏. 第一次在CSDN上记录,小白一枚.希望 ...

  9. 黑马程序员Java零基础视频教程(2022最新Java)B站视频学习笔记-Day15-阶段项目(拼图小游戏)(上篇)

    1.主界面分析 1.练习:创建主界面1 到IDEA中创建一个宽603像素,高680像素的游戏主界面 到IDEA中创建一个宽488像素,高430像素的登录界面 到IDEA中创建一个宽488像素,高500 ...

最新文章

  1. 选择排序之——简单选择排序(c/c++)
  2. 【拆解】华为Mate Xs ,胶水用的出乎意外的少!
  3. MYSQL  GROUP BY 对多个字段进行分组
  4. leetcode41. First Missing Positive
  5. 安卓开发笔记——探索EventBus(转)
  6. java设置随机数教程
  7. python做数据分析对数学要求_Python数据分析之Pandas
  8. gcc is unable to create an executable file.
  9. 安卓加载asset中的json文件_Android Studio读取本地json(读取assets中的文件)
  10. 数据中心断路器整定值计算(二)
  11. cookie的保存 jq,如何使用jQuery读取Cookie并将其存储在变量中?
  12. 【O2O领域】外卖订餐APP商家手机端Axure原型作品(实战项目功能全)
  13. 中医针灸学综合练习题库【3】
  14. 名帖98 赵孟頫 小楷《黄庭经》
  15. 巧妙地数组之类的数据平移
  16. 杭电 1287 破译密码
  17. ASP漏洞及安全建议
  18. 瞧,工程师绘图最佳实践!
  19. 腾讯云网站备案-网站访问类问题汇总及解答
  20. 工具类:自动生成名字工具类

热门文章

  1. Tezo Lentil 零豆无线蓝牙耳机:包装精美,品质感佳
  2. 使用google搜索引擎的技巧
  3. python爬虫 ip代理_Python 爬虫入门(二)—— IP代理使用
  4. mysql创建xs表_mysql中表的应用
  5. MpCmdRun恶意文件下载
  6. 【深度学习】——神经网络中常用的激活函数:sigmoid、Relu、Tanh函数
  7. python findall用法_python re.findall 使用
  8. 数据结构与算法----个人小结
  9. 人工智能机器人实现教学自动化的方法
  10. A-Level真题每期一练(3)