设为首页收藏一下又不会死！新人公告
切换到窄版

 找回密码
 立即注册→加入我们

QQ登录

只需一步，快速开始

搜索
热搜: 下载 VB C 实现 编写
技术宅的结界»论坛 › 计算机技术 › 源码分享 › 【VB】两百行代码给你撸个生死时速
返回列表 发新帖
查看: 4368|回复: 5

【VB】两百行代码给你撸个生死时速

[复制链接]
cyycoish
发表于 2014-12-20 01:34:16 | 显示全部楼层 |阅读模式

欢迎访问技术宅的结界，请注册或者登录吧。

您需要 登录 才可以下载或查看，没有账号？立即注册→加入我们

×
捕获.JPG
技术不宅老C给你用200多行VB代码撸个小游戏
大家来吐槽2d碰撞检测,蛤蛤蛤，谁说vb不适合开发游戏蟆~~
  1. Option Explicit

  3. Dim mySpeed         As Integer
  4. Dim myHP            As Integer
  5. Dim nailVisible     As Boolean
  6. Dim lightingVisible As Boolean
  7. 'Dim showNailTime    As Long
  8. 'Dim showLigTime     As Long
  9. Dim raceTime        As Double

  11. Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
  12.     'MsgBox KeyCode
  13.     If (KeyCode = 38) Or (KeyCode = 87) Then
  14.         TimUp.Enabled = True
  15.     End If
  16.     If (KeyCode = 40) Or (KeyCode = 83) Then
  17.         TimDown.Enabled = True
  18.     End If
  19.     If (KeyCode = 39) Or (KeyCode = 68) Then
  20.         mySpeed = 75
  21.     End If
  22. End Sub

  24. Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
  25.     If (KeyCode = 39) Or (KeyCode = 68) Then
  26.         mySpeed = 50
  27.     End If
  28. End Sub

  30. Private Sub Form_Load()
  31.     Randomize
  32.     mySpeed = 50
  33.     myHP = 100
  34.     nailVisible = False
  35.     lightingVisible = False
  36.     'showLigTime = Int(Rnd() * 5 + 1)
  37.     'showNailTime = Int(Rnd() * 5 + 1)
  38.     TimShowNail.Interval = Int(Rnd() * 5 + 1)
  39.     TimShowLig.Interval = Int(Rnd() * 5 + 1)
  40.     raceTime = 0
  41. End Sub

  43. Private Sub MuAbout_Click()
  44.     MsgBox "VGT v1.0 Demo" & vbCrLf & "Created By Cyycoish,漫天飞雪 0711" & vbCrLf & "Copyright (C) Ctechnology 2012", , "VGT Demo"
  45. End Sub

  47. Private Sub MuExit_Click()
  48.     End
  49. End Sub

  51. Private Sub MuStart_Click()
  52.     Randomize
  53.     ImgBike2.Left = 120
  54.     ImgBike2.Top = 1080
  55.     ImgBike1.Top = 600
  56.     ImgBike1.Left = 3960
  57.     ImgGov.Left = 2880
  58.     ImgGov.Top = 2400
  59.    
  60.     Label1.Caption = "HP:100%"
  61.     Label6.Caption = "Race time:0s"
  62.    
  63.     mySpeed = 50
  64.     myHP = 100
  65.     nailVisible = False
  66.     lightingVisible = False
  67.     'showLigTime = Int(Rnd() * 5 + 1)
  68.     'showNailTime = Int(Rnd() * 5 + 1)
  69.     TimShowNail.Interval = Int(Rnd() * 5 + 1)
  70.     TimShowLig.Interval = Int(Rnd() * 5 + 1)
  71.     raceTime = 0
  72.    
  73.     TimBack.Enabled = True
  74.     TimClo.Enabled = True
  75.     TimShowNail.Enabled = True
  76.     TimShowLig.Enabled = True
  77.     Timer1.Enabled = True
  78. End Sub

  80. Private Sub TimBack_Timer()
  81.     ImgBack.Left = ImgBack.Left - mySpeed
  82.     If ImgBack.Left <= (-1 * ImgBack.Width / 2) Then
  83.         ImgBack.Left = 0
  84.     End If
  85.     If ImgNail.Visible = True Then
  86.         ImgNail.Left = ImgNail.Left - mySpeed
  87.         If ImgNail.Left <= -1 * (ImgNail.Width) Then
  88.             ImgNail.Visible = False
  89.         End If
  90.         If ((1560 = ImgNail.Top) And ((ImgBike1.Top >= 600) And (ImgBike1.Top <= 780))) And ((ImgBike1.Left <= ImgNail.Left) And (ImgNail.Left <= ImgBike1.Left + ImgBike1.Width)) Then
  91.             ImgNail.Visible = False
  92.             myHP = myHP - 25
  93.             mySpeed = 50
  94.             Label1.Caption = "HP:" & myHP & "%"
  95.             If 0 = myHP Then
  96.                 TimBack.Enabled = False
  97.                 TimClo.Enabled = False
  98.                 TimUp.Enabled = False
  99.                 TimDown.Enabled = False
  100.                 TimGO.Enabled = True
  101.                 Timer1.Enabled = False
  102.             End If
  103.         End If
  104.         If ((1920 = ImgNail.Top) And ((ImgBike1.Top >= 780) And (ImgBike1.Top <= 1080))) And ((ImgBike1.Left <= ImgNail.Left) And (ImgNail.Left <= ImgBike1.Left + ImgBike1.Width)) Then
  105.             ImgNail.Visible = False
  106.             myHP = myHP - 25
  107.             mySpeed = 50
  108.             Label1.Caption = "HP:" & myHP & "%"
  109.             If 0 = myHP Then
  110.                 TimBack.Enabled = False
  111.                 TimClo.Enabled = False
  112.                 TimUp.Enabled = False
  113.                 TimDown.Enabled = False
  114.                 TimGO.Enabled = True
  115.                 Timer1.Enabled = False
  116.             End If
  117.         End If
  118.         
  119.         'Label3.Caption = ImgNail.Left
  120.     End If
  121.    
  122.     If ImgLig.Visible = True Then
  123.         ImgLig.Left = ImgLig.Left - mySpeed
  124.         If ImgLig.Left <= -1 * (ImgLig.Width) Then
  125.             ImgLig.Visible = False
  126.         End If
  127.         If ((1560 = ImgLig.Top) And ((ImgBike1.Top >= 600) And (ImgBike1.Top <= 780))) And ((ImgBike1.Left <= ImgLig.Left) And (ImgLig.Left <= ImgBike1.Left + ImgBike1.Width)) Then
  128.             ImgLig.Visible = False
  129.             mySpeed = 100
  130.             TimLig.Enabled = True
  131.         End If
  132.         If ((1920 = ImgLig.Top) And ((ImgBike1.Top >= 780) And (ImgBike1.Top <= 1080))) And ((ImgBike1.Left <= ImgLig.Left) And (ImgLig.Left <= ImgBike1.Left + ImgBike1.Width)) Then
  133.             ImgLig.Visible = False
  134.             mySpeed = 100
  135.             TimLig.Enabled = True
  136.         End If
  137.     End If
  138.    
  139.     ImgBike2.Left = ImgBike2.Left + (65 - mySpeed)
  140.     If ImgBike2.Left >= ImgBike1.Left Then
  141.         TimBack.Enabled = False
  142.         TimClo.Enabled = False
  143.         TimUp.Enabled = False
  144.         TimDown.Enabled = False
  145.         TimGO.Enabled = True
  146.         Timer1.Enabled = False
  147.     End If
  148.     Label2.Caption = "Map Position:" & ImgBack.Left
  149. End Sub

  151. Private Sub TimClo_Timer()
  152.     ImgClo.Left = ImgClo.Left - 50
  153.     If ImgClo.Left <= (-1 * ImgClo.Width) Then
  154.         ImgClo.Left = Me.ScaleWidth
  155.     End If
  156. End Sub

  158. Private Sub TimDown_Timer()
  159.     TimUp.Enabled = False
  160.     If ImgBike1.Top >= 1080 Then
  161.         TimDown.Enabled = False
  162.         Exit Sub
  163.     End If
  164.     ImgBike1.Top = ImgBike1.Top + 10
  165. End Sub

  167. Private Sub Timer1_Timer()
  168.     raceTime = raceTime + 0.1
  169.     Label6.Caption = "Race Time:" & Format(CStr(raceTime), "0.0") & "s"
  170. End Sub

  172. Private Sub TimGO_Timer()
  173.     If ImgGov.Top <= 840 Then
  174.         TimGO.Enabled = False
  175.         Exit Sub
  176.     End If
  177.     ImgGov.Top = ImgGov.Top - 10
  178. End Sub

  180. Private Sub TimLig_Timer()
  181.     mySpeed = 50
  182.     TimLig.Enabled = False
  183. End Sub

  185. Private Sub TimShowLig_Timer()
  186.     Randomize
  187.     TimShowLig.Interval = Int(Rnd() * 5 + 1)
  188.     If ImgLig.Visible = False Then
  189.         Call ResetLightingPlace(((Int(Rnd() * 10) Mod 2)) = 0)
  190.         ImgLig.Visible = True
  191.     End If
  192. End Sub

  194. Private Sub TimShowNail_Timer()
  195.     Randomize
  196.     'Dim uDN As Boolean
  197.     'uDN = (((Int(Rnd() * 10) Mod 2)) = 0)
  198.     TimShowNail.Interval = Int(Rnd() * 5 + 1)
  199.     If ImgNail.Visible = False Then
  200.         Call ResetNailPlace(((Int(Rnd() * 10) Mod 2)) = 0)
  201.         ImgNail.Visible = True
  202.     End If
  203.     'Label4.Caption = TimShowNail.Interval
  204. End Sub

  206. Private Sub TimUp_Timer()
  207.     TimDown.Enabled = False
  208.     If ImgBike1.Top <= 600 Then
  209.         TimUp.Enabled = False
  210.         Exit Sub
  211.     End If
  212.     ImgBike1.Top = ImgBike1.Top - 10
  213. End Sub

  215. Private Sub ResetNailPlace(upOrDown As Boolean)
  216.     If upOrDown = True Then
  217.         ImgNail.Left = 9600
  218.         ImgNail.Top = 1560
  219.     Else
  220.         ImgNail.Left = 9600
  221.         ImgNail.Top = 1920
  222.     End If
  223. End Sub

  225. Private Sub ResetLightingPlace(upOrDown As Boolean)
  226.     If upOrDown = True Then
  227.         ImgLig.Left = 9600
  228.         ImgLig.Top = 1560
  229.     Else
  230.         ImgLig.Left = 9600
  231.         ImgLig.Top = 1920
  232.     End If
  233. End Sub
复制代码


vgtr.zip (93.89 KB, 下载次数: 41)

回复

使用道具 举报

wypabcd
发表于 2014-12-21 06:52:33 | 显示全部楼层
新人正在学习中
回复 赞！ 靠！

使用道具 举报

Ink_Hin_fifteen
发表于 2019-5-10 21:03:55 | 显示全部楼层
哈哈哈。
回复

使用道具 举报

巴跋丷霸
发表于 2019-5-10 21:36:08 | 显示全部楼层
下载体验一下
回复 赞！ 靠！

使用道具 举报

imr2013
发表于 2022-11-23 23:44:08 | 显示全部楼层
支持楼主，体验一把！
回复 赞！ 靠！

使用道具 举报

Proxy
发表于 2023-4-4 15:18:29 | 显示全部楼层
这不是忍者神龟那个。。
回复 赞！ 靠！

使用道具 举报

返回列表 发新帖

本版积分规则

QQ|Archiver|小黑屋|技术宅的结界 ( 滇ICP备16008837号 )|网站地图

GMT+8, 2024-11-21 22:07 , Processed in 0.047131 second(s), 27 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表