API tools faq
paste
Advertisement
Guest User

Untitled

a guest
Jan 19th, 2017
86
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 59.15 KB | None | 0 0
raw download clone embed print report
  1. Public Class frmFrogger
  2. Inherits System.Windows.Forms.Form
  3.  
  4. #Region " Windows Form Designer generated code "
  5.  
  6. Public Sub New()
  7. MyBase.New()
  8.  
  9. 'This call is required by the Windows Form Designer.
  10. InitializeComponent()
  11.  
  12. 'Add any initialization after the InitializeComponent() call
  13.  
  14. End Sub
  15.  
  16. 'Form overrides dispose to clean up the component list.
  17. Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
  18. If disposing Then
  19. If Not (components Is Nothing) Then
  20. components.Dispose()
  21. End If
  22. End If
  23. MyBase.Dispose(disposing)
  24. End Sub
  25.  
  26. 'Required by the Windows Form Designer
  27. Private components As System.ComponentModel.IContainer
  28.  
  29. 'NOTE: The following procedure is required by the Windows Form Designer
  30. 'It can be modified using the Windows Form Designer.
  31. 'Do not modify it using the code editor.
  32. Friend WithEvents pctFrog As System.Windows.Forms.PictureBox
  33. Friend WithEvents tmrCarLeft As System.Windows.Forms.Timer
  34. Friend WithEvents tmrCarRight As System.Windows.Forms.Timer
  35. Friend WithEvents car501 As System.Windows.Forms.PictureBox
  36. Friend WithEvents car301 As System.Windows.Forms.PictureBox
  37. Friend WithEvents car201 As System.Windows.Forms.PictureBox
  38. Friend WithEvents car101 As System.Windows.Forms.PictureBox
  39. Friend WithEvents car503 As System.Windows.Forms.PictureBox
  40. Friend WithEvents car502 As System.Windows.Forms.PictureBox
  41. Friend WithEvents car302 As System.Windows.Forms.PictureBox
  42. Friend WithEvents car303 As System.Windows.Forms.PictureBox
  43. Friend WithEvents car202 As System.Windows.Forms.PictureBox
  44. Friend WithEvents car203 As System.Windows.Forms.PictureBox
  45. Friend WithEvents car102 As System.Windows.Forms.PictureBox
  46. Friend WithEvents car103 As System.Windows.Forms.PictureBox
  47. Friend WithEvents unsafe3 As System.Windows.Forms.Label
  48. Friend WithEvents river1 As System.Windows.Forms.Label
  49. Friend WithEvents river5 As System.Windows.Forms.Label
  50. Friend WithEvents river4 As System.Windows.Forms.Label
  51. Friend WithEvents river3 As System.Windows.Forms.Label
  52. Friend WithEvents safe2 As System.Windows.Forms.Label
  53. Friend WithEvents road2 As System.Windows.Forms.Label
  54. Friend WithEvents road3 As System.Windows.Forms.Label
  55. Friend WithEvents road4 As System.Windows.Forms.Label
  56. Friend WithEvents road5 As System.Windows.Forms.Label
  57. Friend WithEvents road1 As System.Windows.Forms.Label
  58. Friend WithEvents safe1 As System.Windows.Forms.Label
  59. Friend WithEvents pad1 As System.Windows.Forms.Label
  60. Friend WithEvents pad2 As System.Windows.Forms.Label
  61. Friend WithEvents pad5 As System.Windows.Forms.Label
  62. Friend WithEvents pad4 As System.Windows.Forms.Label
  63. Friend WithEvents pad3 As System.Windows.Forms.Label
  64. Friend WithEvents longlog1 As System.Windows.Forms.PictureBox
  65. Friend WithEvents medlog1 As System.Windows.Forms.PictureBox
  66. Friend WithEvents shortlog1 As System.Windows.Forms.PictureBox
  67. Friend WithEvents scorebox As System.Windows.Forms.Label
  68. Friend WithEvents car401 As System.Windows.Forms.PictureBox
  69. Friend WithEvents car402 As System.Windows.Forms.PictureBox
  70. Friend WithEvents car403 As System.Windows.Forms.PictureBox
  71. Friend WithEvents shortlog3 As System.Windows.Forms.PictureBox
  72. Friend WithEvents shortlog2 As System.Windows.Forms.PictureBox
  73. Friend WithEvents tmrlog As System.Windows.Forms.Timer
  74. Friend WithEvents river2 As System.Windows.Forms.Label
  75. Friend WithEvents longlog3 As System.Windows.Forms.PictureBox
  76. Friend WithEvents longlog2 As System.Windows.Forms.PictureBox
  77. Friend WithEvents medlog2 As System.Windows.Forms.PictureBox
  78. Friend WithEvents medlog3 As System.Windows.Forms.PictureBox
  79. Friend WithEvents medlog4 As System.Windows.Forms.PictureBox
  80. Friend WithEvents safefrog5 As System.Windows.Forms.PictureBox
  81. Friend WithEvents safefrog4 As System.Windows.Forms.PictureBox
  82. Friend WithEvents safefrog3 As System.Windows.Forms.PictureBox
  83. Friend WithEvents safefrog2 As System.Windows.Forms.PictureBox
  84. Friend WithEvents safefrog1 As System.Windows.Forms.PictureBox
  85. Friend WithEvents turtle2 As System.Windows.Forms.PictureBox
  86. Friend WithEvents turtle4 As System.Windows.Forms.PictureBox
  87. Friend WithEvents turtle3 As System.Windows.Forms.PictureBox
  88. Friend WithEvents tmrturtle As System.Windows.Forms.Timer
  89. Friend WithEvents turtle1 As System.Windows.Forms.PictureBox
  90. Friend WithEvents longturtle2 As System.Windows.Forms.PictureBox
  91. Friend WithEvents longturtle1 As System.Windows.Forms.PictureBox
  92. Friend WithEvents longturtle4 As System.Windows.Forms.PictureBox
  93. Friend WithEvents longturtle3 As System.Windows.Forms.PictureBox
  94. Friend WithEvents tmrtimer As System.Windows.Forms.Timer
  95. Friend WithEvents timer As System.Windows.Forms.Label
  96. Friend WithEvents Label1 As System.Windows.Forms.Label
  97. Friend WithEvents pctfrog2 As System.Windows.Forms.PictureBox
  98. Friend WithEvents pctfrog1 As System.Windows.Forms.PictureBox
  99. Friend WithEvents tmrpctfrog21 As System.Windows.Forms.Timer
  100. Friend WithEvents fren As System.Windows.Forms.PictureBox
  101. Friend WithEvents Label2 As System.Windows.Forms.Label
  102. Friend WithEvents Label3 As System.Windows.Forms.Label
  103. Friend WithEvents Label4 As System.Windows.Forms.Label
  104. Friend WithEvents Label5 As System.Windows.Forms.Label
  105. Friend WithEvents Label6 As System.Windows.Forms.Label
  106. <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
  107. Me.components = New System.ComponentModel.Container
  108. Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(frmFrogger))
  109. Me.unsafe3 = New System.Windows.Forms.Label
  110. Me.river1 = New System.Windows.Forms.Label
  111. Me.river5 = New System.Windows.Forms.Label
  112. Me.river4 = New System.Windows.Forms.Label
  113. Me.river3 = New System.Windows.Forms.Label
  114. Me.safe2 = New System.Windows.Forms.Label
  115. Me.road2 = New System.Windows.Forms.Label
  116. Me.road3 = New System.Windows.Forms.Label
  117. Me.road4 = New System.Windows.Forms.Label
  118. Me.road5 = New System.Windows.Forms.Label
  119. Me.road1 = New System.Windows.Forms.Label
  120. Me.safe1 = New System.Windows.Forms.Label
  121. Me.pad1 = New System.Windows.Forms.Label
  122. Me.pctFrog = New System.Windows.Forms.PictureBox
  123. Me.pad2 = New System.Windows.Forms.Label
  124. Me.pad5 = New System.Windows.Forms.Label
  125. Me.pad4 = New System.Windows.Forms.Label
  126. Me.pad3 = New System.Windows.Forms.Label
  127. Me.tmrCarLeft = New System.Windows.Forms.Timer(Me.components)
  128. Me.tmrCarRight = New System.Windows.Forms.Timer(Me.components)
  129. Me.car501 = New System.Windows.Forms.PictureBox
  130. Me.car401 = New System.Windows.Forms.PictureBox
  131. Me.car301 = New System.Windows.Forms.PictureBox
  132. Me.car201 = New System.Windows.Forms.PictureBox
  133. Me.car101 = New System.Windows.Forms.PictureBox
  134. Me.longlog1 = New System.Windows.Forms.PictureBox
  135. Me.medlog1 = New System.Windows.Forms.PictureBox
  136. Me.shortlog1 = New System.Windows.Forms.PictureBox
  137. Me.scorebox = New System.Windows.Forms.Label
  138. Me.car503 = New System.Windows.Forms.PictureBox
  139. Me.car502 = New System.Windows.Forms.PictureBox
  140. Me.car402 = New System.Windows.Forms.PictureBox
  141. Me.car403 = New System.Windows.Forms.PictureBox
  142. Me.car302 = New System.Windows.Forms.PictureBox
  143. Me.car303 = New System.Windows.Forms.PictureBox
  144. Me.car202 = New System.Windows.Forms.PictureBox
  145. Me.car203 = New System.Windows.Forms.PictureBox
  146. Me.car102 = New System.Windows.Forms.PictureBox
  147. Me.car103 = New System.Windows.Forms.PictureBox
  148. Me.longturtle2 = New System.Windows.Forms.PictureBox
  149. Me.turtle2 = New System.Windows.Forms.PictureBox
  150. Me.shortlog3 = New System.Windows.Forms.PictureBox
  151. Me.shortlog2 = New System.Windows.Forms.PictureBox
  152. Me.tmrlog = New System.Windows.Forms.Timer(Me.components)
  153. Me.river2 = New System.Windows.Forms.Label
  154. Me.longlog3 = New System.Windows.Forms.PictureBox
  155. Me.longlog2 = New System.Windows.Forms.PictureBox
  156. Me.medlog2 = New System.Windows.Forms.PictureBox
  157. Me.medlog3 = New System.Windows.Forms.PictureBox
  158. Me.medlog4 = New System.Windows.Forms.PictureBox
  159. Me.safefrog5 = New System.Windows.Forms.PictureBox
  160. Me.safefrog4 = New System.Windows.Forms.PictureBox
  161. Me.safefrog3 = New System.Windows.Forms.PictureBox
  162. Me.safefrog2 = New System.Windows.Forms.PictureBox
  163. Me.safefrog1 = New System.Windows.Forms.PictureBox
  164. Me.turtle1 = New System.Windows.Forms.PictureBox
  165. Me.turtle4 = New System.Windows.Forms.PictureBox
  166. Me.turtle3 = New System.Windows.Forms.PictureBox
  167. Me.tmrturtle = New System.Windows.Forms.Timer(Me.components)
  168. Me.longturtle1 = New System.Windows.Forms.PictureBox
  169. Me.longturtle4 = New System.Windows.Forms.PictureBox
  170. Me.longturtle3 = New System.Windows.Forms.PictureBox
  171. Me.tmrtimer = New System.Windows.Forms.Timer(Me.components)
  172. Me.timer = New System.Windows.Forms.Label
  173. Me.Label1 = New System.Windows.Forms.Label
  174. Me.pctfrog2 = New System.Windows.Forms.PictureBox
  175. Me.pctfrog1 = New System.Windows.Forms.PictureBox
  176. Me.tmrpctfrog21 = New System.Windows.Forms.Timer(Me.components)
  177. Me.fren = New System.Windows.Forms.PictureBox
  178. Me.Label2 = New System.Windows.Forms.Label
  179. Me.Label3 = New System.Windows.Forms.Label
  180. Me.Label4 = New System.Windows.Forms.Label
  181. Me.Label5 = New System.Windows.Forms.Label
  182. Me.Label6 = New System.Windows.Forms.Label
  183. Me.SuspendLayout()
  184. '
  185. 'unsafe3
  186. '
  187. Me.unsafe3.BackColor = System.Drawing.Color.FromArgb(CType(128, Byte), CType(255, Byte), CType(128, Byte))
  188. Me.unsafe3.Location = New System.Drawing.Point(0, 50)
  189. Me.unsafe3.Name = "unsafe3"
  190. Me.unsafe3.Size = New System.Drawing.Size(800, 50)
  191. Me.unsafe3.TabIndex = 3
  192. '
  193. 'river1
  194. '
  195. Me.river1.BackColor = System.Drawing.Color.FromArgb(CType(128, Byte), CType(255, Byte), CType(255, Byte))
  196. Me.river1.Location = New System.Drawing.Point(0, 100)
  197. Me.river1.Name = "river1"
  198. Me.river1.Size = New System.Drawing.Size(800, 50)
  199. Me.river1.TabIndex = 4
  200. '
  201. 'river5
  202. '
  203. Me.river5.BackColor = System.Drawing.Color.FromArgb(CType(128, Byte), CType(255, Byte), CType(255, Byte))
  204. Me.river5.Location = New System.Drawing.Point(0, 300)
  205. Me.river5.Name = "river5"
  206. Me.river5.Size = New System.Drawing.Size(800, 50)
  207. Me.river5.TabIndex = 5
  208. '
  209. 'river4
  210. '
  211. Me.river4.BackColor = System.Drawing.Color.FromArgb(CType(128, Byte), CType(255, Byte), CType(255, Byte))
  212. Me.river4.Location = New System.Drawing.Point(0, 250)
  213. Me.river4.Name = "river4"
  214. Me.river4.Size = New System.Drawing.Size(800, 50)
  215. Me.river4.TabIndex = 6
  216. '
  217. 'river3
  218. '
  219. Me.river3.BackColor = System.Drawing.Color.FromArgb(CType(128, Byte), CType(255, Byte), CType(255, Byte))
  220. Me.river3.Location = New System.Drawing.Point(0, 200)
  221. Me.river3.Name = "river3"
  222. Me.river3.Size = New System.Drawing.Size(800, 50)
  223. Me.river3.TabIndex = 7
  224. '
  225. 'safe2
  226. '
  227. Me.safe2.BackColor = System.Drawing.Color.FromArgb(CType(128, Byte), CType(255, Byte), CType(128, Byte))
  228. Me.safe2.Location = New System.Drawing.Point(0, 350)
  229. Me.safe2.Name = "safe2"
  230. Me.safe2.Size = New System.Drawing.Size(800, 50)
  231. Me.safe2.TabIndex = 9
  232. '
  233. 'road2
  234. '
  235. Me.road2.BackColor = System.Drawing.Color.FromArgb(CType(64, Byte), CType(64, Byte), CType(64, Byte))
  236. Me.road2.Location = New System.Drawing.Point(0, 450)
  237. Me.road2.Name = "road2"
  238. Me.road2.Size = New System.Drawing.Size(800, 50)
  239. Me.road2.TabIndex = 14
  240. '
  241. 'road3
  242. '
  243. Me.road3.BackColor = System.Drawing.Color.FromArgb(CType(64, Byte), CType(64, Byte), CType(64, Byte))
  244. Me.road3.Location = New System.Drawing.Point(0, 500)
  245. Me.road3.Name = "road3"
  246. Me.road3.Size = New System.Drawing.Size(800, 50)
  247. Me.road3.TabIndex = 13
  248. '
  249. 'road4
  250. '
  251. Me.road4.BackColor = System.Drawing.Color.FromArgb(CType(64, Byte), CType(64, Byte), CType(64, Byte))
  252. Me.road4.Location = New System.Drawing.Point(0, 550)
  253. Me.road4.Name = "road4"
  254. Me.road4.Size = New System.Drawing.Size(800, 50)
  255. Me.road4.TabIndex = 12
  256. '
  257. 'road5
  258. '
  259. Me.road5.BackColor = System.Drawing.Color.FromArgb(CType(64, Byte), CType(64, Byte), CType(64, Byte))
  260. Me.road5.Location = New System.Drawing.Point(0, 600)
  261. Me.road5.Name = "road5"
  262. Me.road5.Size = New System.Drawing.Size(800, 50)
  263. Me.road5.TabIndex = 11
  264. '
  265. 'road1
  266. '
  267. Me.road1.BackColor = System.Drawing.Color.FromArgb(CType(64, Byte), CType(64, Byte), CType(64, Byte))
  268. Me.road1.Location = New System.Drawing.Point(0, 400)
  269. Me.road1.Name = "road1"
  270. Me.road1.Size = New System.Drawing.Size(800, 50)
  271. Me.road1.TabIndex = 10
  272. '
  273. 'safe1
  274. '
  275. Me.safe1.BackColor = System.Drawing.Color.FromArgb(CType(128, Byte), CType(255, Byte), CType(128, Byte))
  276. Me.safe1.Location = New System.Drawing.Point(0, 650)
  277. Me.safe1.Name = "safe1"
  278. Me.safe1.Size = New System.Drawing.Size(800, 50)
  279. Me.safe1.TabIndex = 15
  280. '
  281. 'pad1
  282. '
  283. Me.pad1.BackColor = System.Drawing.Color.FromArgb(CType(128, Byte), CType(255, Byte), CType(255, Byte))
  284. Me.pad1.Location = New System.Drawing.Point(66, 40)
  285. Me.pad1.Name = "pad1"
  286. Me.pad1.Size = New System.Drawing.Size(60, 60)
  287. Me.pad1.TabIndex = 17
  288. '
  289. 'pctFrog
  290. '
  291. Me.pctFrog.BackColor = System.Drawing.Color.Lime
  292. Me.pctFrog.Image = CType(resources.GetObject("pctFrog.Image"), System.Drawing.Image)
  293. Me.pctFrog.Location = New System.Drawing.Point(372, 655)
  294. Me.pctFrog.Name = "pctFrog"
  295. Me.pctFrog.Size = New System.Drawing.Size(40, 40)
  296. Me.pctFrog.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
  297. Me.pctFrog.TabIndex = 18
  298. Me.pctFrog.TabStop = False
  299. '
  300. 'pad2
  301. '
  302. Me.pad2.BackColor = System.Drawing.Color.FromArgb(CType(128, Byte), CType(255, Byte), CType(255, Byte))
  303. Me.pad2.Location = New System.Drawing.Point(216, 40)
  304. Me.pad2.Name = "pad2"
  305. Me.pad2.Size = New System.Drawing.Size(60, 60)
  306. Me.pad2.TabIndex = 19
  307. '
  308. 'pad5
  309. '
  310. Me.pad5.BackColor = System.Drawing.Color.FromArgb(CType(128, Byte), CType(255, Byte), CType(255, Byte))
  311. Me.pad5.Location = New System.Drawing.Point(668, 40)
  312. Me.pad5.Name = "pad5"
  313. Me.pad5.Size = New System.Drawing.Size(60, 60)
  314. Me.pad5.TabIndex = 20
  315. '
  316. 'pad4
  317. '
  318. Me.pad4.BackColor = System.Drawing.Color.FromArgb(CType(128, Byte), CType(255, Byte), CType(255, Byte))
  319. Me.pad4.Location = New System.Drawing.Point(518, 40)
  320. Me.pad4.Name = "pad4"
  321. Me.pad4.Size = New System.Drawing.Size(60, 60)
  322. Me.pad4.TabIndex = 21
  323. '
  324. 'pad3
  325. '
  326. Me.pad3.BackColor = System.Drawing.Color.FromArgb(CType(128, Byte), CType(255, Byte), CType(255, Byte))
  327. Me.pad3.Location = New System.Drawing.Point(368, 40)
  328. Me.pad3.Name = "pad3"
  329. Me.pad3.Size = New System.Drawing.Size(60, 60)
  330. Me.pad3.TabIndex = 22
  331. '
  332. 'tmrCarLeft
  333. '
  334. Me.tmrCarLeft.Enabled = True
  335. Me.tmrCarLeft.Interval = 50
  336. '
  337. 'tmrCarRight
  338. '
  339. Me.tmrCarRight.Enabled = True
  340. Me.tmrCarRight.Interval = 50
  341. '
  342. 'car501
  343. '
  344. Me.car501.BackColor = System.Drawing.SystemColors.ActiveBorder
  345. Me.car501.Location = New System.Drawing.Point(52, 602)
  346. Me.car501.Name = "car501"
  347. Me.car501.Size = New System.Drawing.Size(54, 46)
  348. Me.car501.TabIndex = 23
  349. Me.car501.TabStop = False
  350. '
  351. 'car401
  352. '
  353. Me.car401.BackColor = System.Drawing.Color.FromArgb(CType(64, Byte), CType(64, Byte), CType(64, Byte))
  354. Me.car401.Image = CType(resources.GetObject("car401.Image"), System.Drawing.Image)
  355. Me.car401.Location = New System.Drawing.Point(658, 556)
  356. Me.car401.Name = "car401"
  357. Me.car401.Size = New System.Drawing.Size(86, 38)
  358. Me.car401.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
  359. Me.car401.TabIndex = 26
  360. Me.car401.TabStop = False
  361. '
  362. 'car301
  363. '
  364. Me.car301.BackColor = System.Drawing.Color.FromArgb(CType(64, Byte), CType(64, Byte), CType(64, Byte))
  365. Me.car301.Image = CType(resources.GetObject("car301.Image"), System.Drawing.Image)
  366. Me.car301.Location = New System.Drawing.Point(52, 510)
  367. Me.car301.Name = "car301"
  368. Me.car301.Size = New System.Drawing.Size(59, 32)
  369. Me.car301.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
  370. Me.car301.TabIndex = 29
  371. Me.car301.TabStop = False
  372. '
  373. 'car201
  374. '
  375. Me.car201.BackColor = System.Drawing.SystemColors.ActiveBorder
  376. Me.car201.Image = CType(resources.GetObject("car201.Image"), System.Drawing.Image)
  377. Me.car201.Location = New System.Drawing.Point(684, 456)
  378. Me.car201.Name = "car201"
  379. Me.car201.Size = New System.Drawing.Size(38, 38)
  380. Me.car201.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
  381. Me.car201.TabIndex = 30
  382. Me.car201.TabStop = False
  383. '
  384. 'car101
  385. '
  386. Me.car101.BackColor = System.Drawing.SystemColors.ActiveBorder
  387. Me.car101.Image = CType(resources.GetObject("car101.Image"), System.Drawing.Image)
  388. Me.car101.Location = New System.Drawing.Point(54, 407)
  389. Me.car101.Name = "car101"
  390. Me.car101.Size = New System.Drawing.Size(45, 36)
  391. Me.car101.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
  392. Me.car101.TabIndex = 31
  393. Me.car101.TabStop = False
  394. '
  395. 'longlog1
  396. '
  397. Me.longlog1.BackColor = System.Drawing.Color.FromArgb(CType(128, Byte), CType(64, Byte), CType(0, Byte))
  398. Me.longlog1.Image = CType(resources.GetObject("longlog1.Image"), System.Drawing.Image)
  399. Me.longlog1.Location = New System.Drawing.Point(-600, 200)
  400. Me.longlog1.Name = "longlog1"
  401. Me.longlog1.Size = New System.Drawing.Size(321, 50)
  402. Me.longlog1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
  403. Me.longlog1.TabIndex = 32
  404. Me.longlog1.TabStop = False
  405. '
  406. 'medlog1
  407. '
  408. Me.medlog1.BackColor = System.Drawing.Color.FromArgb(CType(128, Byte), CType(64, Byte), CType(0, Byte))
  409. Me.medlog1.Location = New System.Drawing.Point(-300, 100)
  410. Me.medlog1.Name = "medlog1"
  411. Me.medlog1.Size = New System.Drawing.Size(220, 50)
  412. Me.medlog1.TabIndex = 33
  413. Me.medlog1.TabStop = False
  414. '
  415. 'shortlog1
  416. '
  417. Me.shortlog1.BackColor = System.Drawing.Color.FromArgb(CType(128, Byte), CType(64, Byte), CType(0, Byte))
  418. Me.shortlog1.Location = New System.Drawing.Point(0, 250)
  419. Me.shortlog1.Name = "shortlog1"
  420. Me.shortlog1.Size = New System.Drawing.Size(150, 50)
  421. Me.shortlog1.TabIndex = 34
  422. Me.shortlog1.TabStop = False
  423. '
  424. 'scorebox
  425. '
  426. Me.scorebox.BackColor = System.Drawing.SystemColors.Desktop
  427. Me.scorebox.Location = New System.Drawing.Point(0, 0)
  428. Me.scorebox.Name = "scorebox"
  429. Me.scorebox.Size = New System.Drawing.Size(800, 50)
  430. Me.scorebox.TabIndex = 2
  431. Me.scorebox.Text = "Score"
  432. '
  433. 'car503
  434. '
  435. Me.car503.BackColor = System.Drawing.SystemColors.ActiveBorder
  436. Me.car503.Location = New System.Drawing.Point(642, 602)
  437. Me.car503.Name = "car503"
  438. Me.car503.Size = New System.Drawing.Size(54, 46)
  439. Me.car503.TabIndex = 35
  440. Me.car503.TabStop = False
  441. '
  442. 'car502
  443. '
  444. Me.car502.BackColor = System.Drawing.SystemColors.ActiveBorder
  445. Me.car502.Location = New System.Drawing.Point(360, 602)
  446. Me.car502.Name = "car502"
  447. Me.car502.Size = New System.Drawing.Size(54, 46)
  448. Me.car502.TabIndex = 36
  449. Me.car502.TabStop = False
  450. '
  451. 'car402
  452. '
  453. Me.car402.BackColor = System.Drawing.Color.FromArgb(CType(64, Byte), CType(64, Byte), CType(64, Byte))
  454. Me.car402.Image = CType(resources.GetObject("car402.Image"), System.Drawing.Image)
  455. Me.car402.Location = New System.Drawing.Point(184, 556)
  456. Me.car402.Name = "car402"
  457. Me.car402.Size = New System.Drawing.Size(86, 38)
  458. Me.car402.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
  459. Me.car402.TabIndex = 37
  460. Me.car402.TabStop = False
  461. '
  462. 'car403
  463. '
  464. Me.car403.BackColor = System.Drawing.Color.FromArgb(CType(64, Byte), CType(64, Byte), CType(64, Byte))
  465. Me.car403.Image = CType(resources.GetObject("car403.Image"), System.Drawing.Image)
  466. Me.car403.Location = New System.Drawing.Point(-300, 556)
  467. Me.car403.Name = "car403"
  468. Me.car403.Size = New System.Drawing.Size(90, 38)
  469. Me.car403.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
  470. Me.car403.TabIndex = 38
  471. Me.car403.TabStop = False
  472. '
  473. 'car302
  474. '
  475. Me.car302.BackColor = System.Drawing.Color.FromArgb(CType(64, Byte), CType(64, Byte), CType(64, Byte))
  476. Me.car302.Image = CType(resources.GetObject("car302.Image"), System.Drawing.Image)
  477. Me.car302.Location = New System.Drawing.Point(508, 510)
  478. Me.car302.Name = "car302"
  479. Me.car302.Size = New System.Drawing.Size(59, 32)
  480. Me.car302.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
  481. Me.car302.TabIndex = 39
  482. Me.car302.TabStop = False
  483. '
  484. 'car303
  485. '
  486. Me.car303.BackColor = System.Drawing.Color.FromArgb(CType(64, Byte), CType(64, Byte), CType(64, Byte))
  487. Me.car303.Image = CType(resources.GetObject("car303.Image"), System.Drawing.Image)
  488. Me.car303.Location = New System.Drawing.Point(314, 510)
  489. Me.car303.Name = "car303"
  490. Me.car303.Size = New System.Drawing.Size(59, 32)
  491. Me.car303.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
  492. Me.car303.TabIndex = 40
  493. Me.car303.TabStop = False
  494. '
  495. 'car202
  496. '
  497. Me.car202.BackColor = System.Drawing.Color.White
  498. Me.car202.Image = CType(resources.GetObject("car202.Image"), System.Drawing.Image)
  499. Me.car202.Location = New System.Drawing.Point(378, 456)
  500. Me.car202.Name = "car202"
  501. Me.car202.Size = New System.Drawing.Size(38, 38)
  502. Me.car202.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
  503. Me.car202.TabIndex = 41
  504. Me.car202.TabStop = False
  505. '
  506. 'car203
  507. '
  508. Me.car203.BackColor = System.Drawing.SystemColors.ActiveBorder
  509. Me.car203.Image = CType(resources.GetObject("car203.Image"), System.Drawing.Image)
  510. Me.car203.Location = New System.Drawing.Point(1000, 456)
  511. Me.car203.Name = "car203"
  512. Me.car203.Size = New System.Drawing.Size(38, 38)
  513. Me.car203.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
  514. Me.car203.TabIndex = 42
  515. Me.car203.TabStop = False
  516. '
  517. 'car102
  518. '
  519. Me.car102.BackColor = System.Drawing.SystemColors.ActiveBorder
  520. Me.car102.Image = CType(resources.GetObject("car102.Image"), System.Drawing.Image)
  521. Me.car102.Location = New System.Drawing.Point(232, 407)
  522. Me.car102.Name = "car102"
  523. Me.car102.Size = New System.Drawing.Size(45, 36)
  524. Me.car102.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
  525. Me.car102.TabIndex = 43
  526. Me.car102.TabStop = False
  527. '
  528. 'car103
  529. '
  530. Me.car103.BackColor = System.Drawing.SystemColors.ActiveBorder
  531. Me.car103.Image = CType(resources.GetObject("car103.Image"), System.Drawing.Image)
  532. Me.car103.Location = New System.Drawing.Point(432, 407)
  533. Me.car103.Name = "car103"
  534. Me.car103.Size = New System.Drawing.Size(45, 36)
  535. Me.car103.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
  536. Me.car103.TabIndex = 44
  537. Me.car103.TabStop = False
  538. '
  539. 'longturtle2
  540. '
  541. Me.longturtle2.BackColor = System.Drawing.Color.Green
  542. Me.longturtle2.Location = New System.Drawing.Point(232, 300)
  543. Me.longturtle2.Name = "longturtle2"
  544. Me.longturtle2.Size = New System.Drawing.Size(170, 50)
  545. Me.longturtle2.TabIndex = 45
  546. Me.longturtle2.TabStop = False
  547. '
  548. 'turtle2
  549. '
  550. Me.turtle2.BackColor = System.Drawing.Color.Green
  551. Me.turtle2.Location = New System.Drawing.Point(206, 150)
  552. Me.turtle2.Name = "turtle2"
  553. Me.turtle2.Size = New System.Drawing.Size(125, 50)
  554. Me.turtle2.TabIndex = 46
  555. Me.turtle2.TabStop = False
  556. '
  557. 'shortlog3
  558. '
  559. Me.shortlog3.BackColor = System.Drawing.Color.FromArgb(CType(128, Byte), CType(64, Byte), CType(0, Byte))
  560. Me.shortlog3.Location = New System.Drawing.Point(634, 250)
  561. Me.shortlog3.Name = "shortlog3"
  562. Me.shortlog3.Size = New System.Drawing.Size(150, 50)
  563. Me.shortlog3.TabIndex = 47
  564. Me.shortlog3.TabStop = False
  565. '
  566. 'shortlog2
  567. '
  568. Me.shortlog2.BackColor = System.Drawing.Color.FromArgb(CType(128, Byte), CType(64, Byte), CType(0, Byte))
  569. Me.shortlog2.Location = New System.Drawing.Point(316, 250)
  570. Me.shortlog2.Name = "shortlog2"
  571. Me.shortlog2.Size = New System.Drawing.Size(150, 50)
  572. Me.shortlog2.TabIndex = 48
  573. Me.shortlog2.TabStop = False
  574. '
  575. 'tmrlog
  576. '
  577. Me.tmrlog.Enabled = True
  578. Me.tmrlog.Interval = 50
  579. '
  580. 'river2
  581. '
  582. Me.river2.BackColor = System.Drawing.Color.FromArgb(CType(128, Byte), CType(255, Byte), CType(255, Byte))
  583. Me.river2.Location = New System.Drawing.Point(0, 150)
  584. Me.river2.Name = "river2"
  585. Me.river2.Size = New System.Drawing.Size(800, 50)
  586. Me.river2.TabIndex = 8
  587. '
  588. 'longlog3
  589. '
  590. Me.longlog3.BackColor = System.Drawing.Color.FromArgb(CType(128, Byte), CType(64, Byte), CType(0, Byte))
  591. Me.longlog3.Image = CType(resources.GetObject("longlog3.Image"), System.Drawing.Image)
  592. Me.longlog3.Location = New System.Drawing.Point(400, 200)
  593. Me.longlog3.Name = "longlog3"
  594. Me.longlog3.Size = New System.Drawing.Size(300, 50)
  595. Me.longlog3.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
  596. Me.longlog3.TabIndex = 49
  597. Me.longlog3.TabStop = False
  598. '
  599. 'longlog2
  600. '
  601. Me.longlog2.BackColor = System.Drawing.Color.FromArgb(CType(128, Byte), CType(64, Byte), CType(0, Byte))
  602. Me.longlog2.Image = CType(resources.GetObject("longlog2.Image"), System.Drawing.Image)
  603. Me.longlog2.Location = New System.Drawing.Point(-100, 200)
  604. Me.longlog2.Name = "longlog2"
  605. Me.longlog2.Size = New System.Drawing.Size(300, 50)
  606. Me.longlog2.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
  607. Me.longlog2.TabIndex = 50
  608. Me.longlog2.TabStop = False
  609. '
  610. 'medlog2
  611. '
  612. Me.medlog2.BackColor = System.Drawing.Color.FromArgb(CType(128, Byte), CType(64, Byte), CType(0, Byte))
  613. Me.medlog2.Location = New System.Drawing.Point(-50, 100)
  614. Me.medlog2.Name = "medlog2"
  615. Me.medlog2.Size = New System.Drawing.Size(200, 50)
  616. Me.medlog2.TabIndex = 51
  617. Me.medlog2.TabStop = False
  618. '
  619. 'medlog3
  620. '
  621. Me.medlog3.BackColor = System.Drawing.Color.FromArgb(CType(128, Byte), CType(64, Byte), CType(0, Byte))
  622. Me.medlog3.Location = New System.Drawing.Point(250, 100)
  623. Me.medlog3.Name = "medlog3"
  624. Me.medlog3.Size = New System.Drawing.Size(200, 50)
  625. Me.medlog3.TabIndex = 52
  626. Me.medlog3.TabStop = False
  627. '
  628. 'medlog4
  629. '
  630. Me.medlog4.BackColor = System.Drawing.Color.FromArgb(CType(128, Byte), CType(64, Byte), CType(0, Byte))
  631. Me.medlog4.Location = New System.Drawing.Point(500, 100)
  632. Me.medlog4.Name = "medlog4"
  633. Me.medlog4.Size = New System.Drawing.Size(200, 50)
  634. Me.medlog4.TabIndex = 53
  635. Me.medlog4.TabStop = False
  636. '
  637. 'safefrog5
  638. '
  639. Me.safefrog5.BackColor = System.Drawing.Color.Lime
  640. Me.safefrog5.Image = CType(resources.GetObject("safefrog5.Image"), System.Drawing.Image)
  641. Me.safefrog5.Location = New System.Drawing.Point(678, 55)
  642. Me.safefrog5.Name = "safefrog5"
  643. Me.safefrog5.Size = New System.Drawing.Size(40, 40)
  644. Me.safefrog5.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
  645. Me.safefrog5.TabIndex = 54
  646. Me.safefrog5.TabStop = False
  647. Me.safefrog5.Visible = False
  648. '
  649. 'safefrog4
  650. '
  651. Me.safefrog4.BackColor = System.Drawing.Color.Lime
  652. Me.safefrog4.Image = CType(resources.GetObject("safefrog4.Image"), System.Drawing.Image)
  653. Me.safefrog4.Location = New System.Drawing.Point(528, 55)
  654. Me.safefrog4.Name = "safefrog4"
  655. Me.safefrog4.Size = New System.Drawing.Size(40, 40)
  656. Me.safefrog4.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
  657. Me.safefrog4.TabIndex = 55
  658. Me.safefrog4.TabStop = False
  659. Me.safefrog4.Visible = False
  660. '
  661. 'safefrog3
  662. '
  663. Me.safefrog3.BackColor = System.Drawing.Color.Lime
  664. Me.safefrog3.Image = CType(resources.GetObject("safefrog3.Image"), System.Drawing.Image)
  665. Me.safefrog3.Location = New System.Drawing.Point(378, 55)
  666. Me.safefrog3.Name = "safefrog3"
  667. Me.safefrog3.Size = New System.Drawing.Size(40, 40)
  668. Me.safefrog3.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
  669. Me.safefrog3.TabIndex = 56
  670. Me.safefrog3.TabStop = False
  671. Me.safefrog3.Visible = False
  672. '
  673. 'safefrog2
  674. '
  675. Me.safefrog2.BackColor = System.Drawing.Color.Lime
  676. Me.safefrog2.Image = CType(resources.GetObject("safefrog2.Image"), System.Drawing.Image)
  677. Me.safefrog2.Location = New System.Drawing.Point(226, 55)
  678. Me.safefrog2.Name = "safefrog2"
  679. Me.safefrog2.Size = New System.Drawing.Size(40, 40)
  680. Me.safefrog2.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
  681. Me.safefrog2.TabIndex = 57
  682. Me.safefrog2.TabStop = False
  683. Me.safefrog2.Visible = False
  684. '
  685. 'safefrog1
  686. '
  687. Me.safefrog1.BackColor = System.Drawing.Color.Lime
  688. Me.safefrog1.Image = CType(resources.GetObject("safefrog1.Image"), System.Drawing.Image)
  689. Me.safefrog1.Location = New System.Drawing.Point(76, 55)
  690. Me.safefrog1.Name = "safefrog1"
  691. Me.safefrog1.Size = New System.Drawing.Size(40, 40)
  692. Me.safefrog1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
  693. Me.safefrog1.TabIndex = 58
  694. Me.safefrog1.TabStop = False
  695. Me.safefrog1.Visible = False
  696. '
  697. 'turtle1
  698. '
  699. Me.turtle1.BackColor = System.Drawing.Color.Green
  700. Me.turtle1.Location = New System.Drawing.Point(0, 150)
  701. Me.turtle1.Name = "turtle1"
  702. Me.turtle1.Size = New System.Drawing.Size(125, 50)
  703. Me.turtle1.TabIndex = 59
  704. Me.turtle1.TabStop = False
  705. '
  706. 'turtle4
  707. '
  708. Me.turtle4.BackColor = System.Drawing.Color.Green
  709. Me.turtle4.Location = New System.Drawing.Point(618, 150)
  710. Me.turtle4.Name = "turtle4"
  711. Me.turtle4.Size = New System.Drawing.Size(125, 50)
  712. Me.turtle4.TabIndex = 60
  713. Me.turtle4.TabStop = False
  714. '
  715. 'turtle3
  716. '
  717. Me.turtle3.BackColor = System.Drawing.Color.Green
  718. Me.turtle3.Location = New System.Drawing.Point(412, 150)
  719. Me.turtle3.Name = "turtle3"
  720. Me.turtle3.Size = New System.Drawing.Size(125, 50)
  721. Me.turtle3.TabIndex = 61
  722. Me.turtle3.TabStop = False
  723. '
  724. 'tmrturtle
  725. '
  726. Me.tmrturtle.Enabled = True
  727. Me.tmrturtle.Interval = 50
  728. '
  729. 'longturtle1
  730. '
  731. Me.longturtle1.BackColor = System.Drawing.Color.Green
  732. Me.longturtle1.Location = New System.Drawing.Point(0, 300)
  733. Me.longturtle1.Name = "longturtle1"
  734. Me.longturtle1.Size = New System.Drawing.Size(170, 50)
  735. Me.longturtle1.TabIndex = 62
  736. Me.longturtle1.TabStop = False
  737. '
  738. 'longturtle4
  739. '
  740. Me.longturtle4.BackColor = System.Drawing.Color.Green
  741. Me.longturtle4.Location = New System.Drawing.Point(696, 300)
  742. Me.longturtle4.Name = "longturtle4"
  743. Me.longturtle4.Size = New System.Drawing.Size(170, 50)
  744. Me.longturtle4.TabIndex = 63
  745. Me.longturtle4.TabStop = False
  746. '
  747. 'longturtle3
  748. '
  749. Me.longturtle3.BackColor = System.Drawing.Color.Green
  750. Me.longturtle3.Location = New System.Drawing.Point(464, 300)
  751. Me.longturtle3.Name = "longturtle3"
  752. Me.longturtle3.Size = New System.Drawing.Size(170, 50)
  753. Me.longturtle3.TabIndex = 64
  754. Me.longturtle3.TabStop = False
  755. '
  756. 'tmrtimer
  757. '
  758. Me.tmrtimer.Enabled = True
  759. Me.tmrtimer.Interval = 75
  760. '
  761. 'timer
  762. '
  763. Me.timer.BackColor = System.Drawing.Color.Blue
  764. Me.timer.Location = New System.Drawing.Point(242, 718)
  765. Me.timer.Name = "timer"
  766. Me.timer.Size = New System.Drawing.Size(518, 30)
  767. Me.timer.TabIndex = 65
  768. '
  769. 'Label1
  770. '
  771. Me.Label1.BackColor = System.Drawing.Color.Black
  772. Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 20.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
  773. Me.Label1.ForeColor = System.Drawing.Color.White
  774. Me.Label1.Location = New System.Drawing.Point(158, 718)
  775. Me.Label1.Name = "Label1"
  776. Me.Label1.Size = New System.Drawing.Size(85, 30)
  777. Me.Label1.TabIndex = 66
  778. Me.Label1.Text = "Time:"
  779. '
  780. 'pctfrog2
  781. '
  782. Me.pctfrog2.BackColor = System.Drawing.Color.Lime
  783. Me.pctfrog2.Image = CType(resources.GetObject("pctfrog2.Image"), System.Drawing.Image)
  784. Me.pctfrog2.Location = New System.Drawing.Point(72, 716)
  785. Me.pctfrog2.Name = "pctfrog2"
  786. Me.pctfrog2.Size = New System.Drawing.Size(35, 35)
  787. Me.pctfrog2.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
  788. Me.pctfrog2.TabIndex = 67
  789. Me.pctfrog2.TabStop = False
  790. '
  791. 'pctfrog1
  792. '
  793. Me.pctfrog1.BackColor = System.Drawing.Color.Lime
  794. Me.pctfrog1.Image = CType(resources.GetObject("pctfrog1.Image"), System.Drawing.Image)
  795. Me.pctfrog1.Location = New System.Drawing.Point(24, 716)
  796. Me.pctfrog1.Name = "pctfrog1"
  797. Me.pctfrog1.Size = New System.Drawing.Size(35, 35)
  798. Me.pctfrog1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
  799. Me.pctfrog1.TabIndex = 68
  800. Me.pctfrog1.TabStop = False
  801. '
  802. 'tmrpctfrog21
  803. '
  804. Me.tmrpctfrog21.Interval = 1
  805. '
  806. 'fren
  807. '
  808. Me.fren.BackColor = System.Drawing.Color.Lime
  809. Me.fren.Location = New System.Drawing.Point(732, 716)
  810. Me.fren.Name = "fren"
  811. Me.fren.Size = New System.Drawing.Size(40, 40)
  812. Me.fren.TabIndex = 70
  813. Me.fren.TabStop = False
  814. Me.fren.Visible = False
  815. '
  816. 'Label2
  817. '
  818. Me.Label2.BackColor = System.Drawing.Color.FromArgb(CType(0, Byte), CType(192, Byte), CType(0, Byte))
  819. Me.Label2.Location = New System.Drawing.Point(72, 51)
  820. Me.Label2.Name = "Label2"
  821. Me.Label2.Size = New System.Drawing.Size(48, 48)
  822. Me.Label2.TabIndex = 71
  823. '
  824. 'Label3
  825. '
  826. Me.Label3.BackColor = System.Drawing.Color.FromArgb(CType(0, Byte), CType(192, Byte), CType(0, Byte))
  827. Me.Label3.Location = New System.Drawing.Point(674, 51)
  828. Me.Label3.Name = "Label3"
  829. Me.Label3.Size = New System.Drawing.Size(48, 48)
  830. Me.Label3.TabIndex = 72
  831. '
  832. 'Label4
  833. '
  834. Me.Label4.BackColor = System.Drawing.Color.FromArgb(CType(0, Byte), CType(192, Byte), CType(0, Byte))
  835. Me.Label4.Location = New System.Drawing.Point(524, 51)
  836. Me.Label4.Name = "Label4"
  837. Me.Label4.Size = New System.Drawing.Size(48, 48)
  838. Me.Label4.TabIndex = 73
  839. '
  840. 'Label5
  841. '
  842. Me.Label5.BackColor = System.Drawing.Color.FromArgb(CType(0, Byte), CType(192, Byte), CType(0, Byte))
  843. Me.Label5.Location = New System.Drawing.Point(374, 51)
  844. Me.Label5.Name = "Label5"
  845. Me.Label5.Size = New System.Drawing.Size(48, 48)
  846. Me.Label5.TabIndex = 74
  847. '
  848. 'Label6
  849. '
  850. Me.Label6.BackColor = System.Drawing.Color.FromArgb(CType(0, Byte), CType(192, Byte), CType(0, Byte))
  851. Me.Label6.Location = New System.Drawing.Point(222, 51)
  852. Me.Label6.Name = "Label6"
  853. Me.Label6.Size = New System.Drawing.Size(48, 48)
  854. Me.Label6.TabIndex = 75
  855. '
  856. 'frmFrogger
  857. '
  858. Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
  859. Me.BackColor = System.Drawing.Color.Yellow
  860. Me.ClientSize = New System.Drawing.Size(784, 762)
  861. Me.Controls.Add(Me.safefrog2)
  862. Me.Controls.Add(Me.safefrog3)
  863. Me.Controls.Add(Me.safefrog4)
  864. Me.Controls.Add(Me.safefrog5)
  865. Me.Controls.Add(Me.Label6)
  866. Me.Controls.Add(Me.Label5)
  867. Me.Controls.Add(Me.Label4)
  868. Me.Controls.Add(Me.Label3)
  869. Me.Controls.Add(Me.safefrog1)
  870. Me.Controls.Add(Me.Label2)
  871. Me.Controls.Add(Me.fren)
  872. Me.Controls.Add(Me.pctfrog1)
  873. Me.Controls.Add(Me.pctfrog2)
  874. Me.Controls.Add(Me.Label1)
  875. Me.Controls.Add(Me.timer)
  876. Me.Controls.Add(Me.pctFrog)
  877. Me.Controls.Add(Me.longturtle3)
  878. Me.Controls.Add(Me.longturtle4)
  879. Me.Controls.Add(Me.longturtle1)
  880. Me.Controls.Add(Me.turtle3)
  881. Me.Controls.Add(Me.turtle4)
  882. Me.Controls.Add(Me.turtle1)
  883. Me.Controls.Add(Me.medlog4)
  884. Me.Controls.Add(Me.medlog3)
  885. Me.Controls.Add(Me.medlog2)
  886. Me.Controls.Add(Me.longlog2)
  887. Me.Controls.Add(Me.longlog3)
  888. Me.Controls.Add(Me.shortlog2)
  889. Me.Controls.Add(Me.shortlog3)
  890. Me.Controls.Add(Me.turtle2)
  891. Me.Controls.Add(Me.longturtle2)
  892. Me.Controls.Add(Me.car103)
  893. Me.Controls.Add(Me.car102)
  894. Me.Controls.Add(Me.car203)
  895. Me.Controls.Add(Me.car202)
  896. Me.Controls.Add(Me.car303)
  897. Me.Controls.Add(Me.car302)
  898. Me.Controls.Add(Me.car403)
  899. Me.Controls.Add(Me.car402)
  900. Me.Controls.Add(Me.car502)
  901. Me.Controls.Add(Me.car503)
  902. Me.Controls.Add(Me.shortlog1)
  903. Me.Controls.Add(Me.medlog1)
  904. Me.Controls.Add(Me.longlog1)
  905. Me.Controls.Add(Me.car101)
  906. Me.Controls.Add(Me.car201)
  907. Me.Controls.Add(Me.car301)
  908. Me.Controls.Add(Me.car401)
  909. Me.Controls.Add(Me.car501)
  910. Me.Controls.Add(Me.scorebox)
  911. Me.Controls.Add(Me.pad3)
  912. Me.Controls.Add(Me.pad4)
  913. Me.Controls.Add(Me.pad5)
  914. Me.Controls.Add(Me.pad2)
  915. Me.Controls.Add(Me.pad1)
  916. Me.Controls.Add(Me.unsafe3)
  917. Me.Controls.Add(Me.safe1)
  918. Me.Controls.Add(Me.road2)
  919. Me.Controls.Add(Me.road3)
  920. Me.Controls.Add(Me.road4)
  921. Me.Controls.Add(Me.road5)
  922. Me.Controls.Add(Me.road1)
  923. Me.Controls.Add(Me.safe2)
  924. Me.Controls.Add(Me.river2)
  925. Me.Controls.Add(Me.river3)
  926. Me.Controls.Add(Me.river4)
  927. Me.Controls.Add(Me.river5)
  928. Me.Controls.Add(Me.river1)
  929. Me.Name = "frmFrogger"
  930. Me.Text = "Frogger"
  931. Me.ResumeLayout(False)
  932.  
  933. End Sub
  934.  
  935. #End Region
  936. Dim goable As Boolean
  937. Dim answer As Integer
  938. Private Sub frmFrogger_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  939. goable = True
  940. shortlog1.Left = shortlog1.Left - 200
  941. shortlog2.Left = shortlog2.Left - 200
  942. shortlog3.Left = shortlog3.Left - 200
  943. medlog1.Left = medlog1.Left - 200
  944. medlog2.Left = medlog2.Left - 200
  945. medlog3.Left = medlog3.Left - 200
  946. longlog1.Left = longlog1.Left - 200
  947. longlog2.Left = longlog2.Left - 200
  948. longlog3.Left = longlog3.Left - 200
  949. turtle1.Left = turtle1.Left + 200
  950. turtle2.Left = turtle2.Left + 200
  951. turtle3.Left = turtle3.Left + 200
  952. longturtle1.Left = longturtle1.Left + 200
  953. longturtle2.Left = longturtle2.Left + 200
  954. longturtle3.Left = longturtle3.Left + 200
  955. car101.Left = car101.Left - 200
  956. car102.Left = car102.Left - 200
  957. car103.Left = car103.Left - 200
  958. car201.Left = car201.Left - 200
  959. car202.Left = car202.Left - 200
  960. car203.Left = car203.Left - 200
  961. car301.Left = car301.Left - 200
  962. car302.Left = car302.Left - 200
  963. car303.Left = car303.Left - 200
  964. car401.Left = car401.Left + 200
  965. car402.Left = car402.Left + 200
  966. car403.Left = car403.Left + 200
  967. car501.Left = car501.Left + 200
  968. car502.Left = car502.Left + 200
  969. car503.Left = car503.Left + 200
  970.  
  971. End Sub
  972. Private Sub frmFrogger_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown
  973. 'MsgBox(e.KeyCode)
  974. If goable = True Then
  975. If e.KeyCode = 32 Then
  976. pctFrog.Top = pctFrog.Top - 50
  977. End If
  978. If e.KeyCode = 38 Then
  979. pctFrog.Top = pctFrog.Top - 50
  980. End If
  981. If e.KeyCode = 37 And pctFrog.Left > 22 Then
  982. pctFrog.Left = pctFrog.Left - 50
  983. End If
  984. If e.KeyCode = 39 And pctFrog.Left < 722 Then
  985. pctFrog.Left = pctFrog.Left + 50
  986. End If
  987. If e.KeyCode = 40 And pctFrog.Top < 655 Then
  988. pctFrog.Top = pctFrog.Top + 50
  989. End If
  990. End If
  991. End Sub
  992.  
  993. Private Sub tmrCarRight_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmrCarRight.Tick
  994. car101.Left = car101.Left + 6
  995. If car101.Left > frmFrogger.ActiveForm.Left + frmFrogger.ActiveForm.Width Then
  996. car101.Left = -50
  997. End If
  998. car102.Left = car102.Left + 6
  999. If car102.Left > frmFrogger.ActiveForm.Left + frmFrogger.ActiveForm.Width Then
  1000. car102.Left = -50
  1001. End If
  1002. car103.Left = car103.Left + 6
  1003. If car103.Left > frmFrogger.ActiveForm.Left + frmFrogger.ActiveForm.Width Then
  1004. car103.Left = -50
  1005. End If
  1006. '______________________________________________________________________________________
  1007. car301.Left = car301.Left + 5
  1008. If car301.Left > frmFrogger.ActiveForm.Left + frmFrogger.ActiveForm.Width Then
  1009. car301.Left = -50
  1010. End If
  1011. car302.Left = car302.Left + 5
  1012. If car302.Left > frmFrogger.ActiveForm.Left + frmFrogger.ActiveForm.Width Then
  1013. car302.Left = -50
  1014. End If
  1015. car303.Left = car303.Left + 5
  1016. If car303.Left > frmFrogger.ActiveForm.Left + frmFrogger.ActiveForm.Width Then
  1017. car303.Left = -50
  1018. End If
  1019. '_______________________________________________________________________________________
  1020. car501.Left = car501.Left + 4
  1021. If car501.Left > frmFrogger.ActiveForm.Left + frmFrogger.ActiveForm.Width Then
  1022. car501.Left = -50
  1023. End If
  1024. car502.Left = car502.Left + 4
  1025. If car502.Left > frmFrogger.ActiveForm.Left + frmFrogger.ActiveForm.Width Then
  1026. car502.Left = -50
  1027. End If
  1028. car503.Left = car503.Left + 4
  1029. If car503.Left > frmFrogger.ActiveForm.Left + frmFrogger.ActiveForm.Width Then
  1030. car503.Left = -50
  1031. End If
  1032. '______________________________________________________________________________________
  1033. If pctFrog.Bounds.IntersectsWith(car101.Bounds) Then
  1034. newlife()
  1035. End If
  1036. If pctFrog.Bounds.IntersectsWith(car301.Bounds) Then
  1037. newlife()
  1038. End If
  1039. If pctFrog.Bounds.IntersectsWith(car501.Bounds) Then
  1040. newlife()
  1041. End If
  1042. If pctFrog.Bounds.IntersectsWith(car102.Bounds) Then
  1043. newlife()
  1044. End If
  1045. If pctFrog.Bounds.IntersectsWith(car302.Bounds) Then
  1046. newlife()
  1047. End If
  1048. If pctFrog.Bounds.IntersectsWith(car502.Bounds) Then
  1049. newlife()
  1050. End If
  1051. If pctFrog.Bounds.IntersectsWith(car103.Bounds) Then
  1052. newlife()
  1053. End If
  1054. If pctFrog.Bounds.IntersectsWith(car303.Bounds) Then
  1055. newlife()
  1056. End If
  1057. If pctFrog.Bounds.IntersectsWith(car503.Bounds) Then
  1058. newlife()
  1059. End If
  1060. End Sub
  1061. Private Sub tmrCarLeft_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmrCarLeft.Tick
  1062. car201.Left = car201.Left - 10
  1063. If car201.Left < -40 Then
  1064. car201.Left = 850
  1065. End If
  1066. car202.Left = car202.Left - 10
  1067. If car202.Left < -40 Then
  1068. car202.Left = 850
  1069. End If
  1070. car203.Left = car203.Left - 10
  1071. If car203.Left < -40 Then
  1072. car203.Left = 850
  1073. End If
  1074. '______________________________________________________________________________________
  1075. car401.Left = car401.Left - 5
  1076. If car401.Left < -90 Then
  1077. car401.Left = 850
  1078. End If
  1079. car402.Left = car402.Left - 5
  1080. If car402.Left < -90 Then
  1081. car402.Left = 850
  1082. End If
  1083. car403.Left = car403.Left - 5
  1084. If car403.Left < -90 Then
  1085. car403.Left = 850
  1086. End If
  1087.  
  1088. If pctFrog.Bounds.IntersectsWith(car201.Bounds) Then
  1089. newlife()
  1090. End If
  1091. If pctFrog.Bounds.IntersectsWith(car401.Bounds) Then
  1092. newlife()
  1093. End If
  1094. If pctFrog.Bounds.IntersectsWith(car202.Bounds) Then
  1095. newlife()
  1096. End If
  1097. If pctFrog.Bounds.IntersectsWith(car402.Bounds) Then
  1098. newlife()
  1099. End If
  1100. If pctFrog.Bounds.IntersectsWith(car203.Bounds) Then
  1101. newlife()
  1102. End If
  1103. If pctFrog.Bounds.IntersectsWith(car403.Bounds) Then
  1104. newlife()
  1105. End If
  1106. End Sub
  1107. Private Sub tmrlog_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmrlog.Tick
  1108. shortlog1.Left = shortlog1.Left + 3
  1109. If shortlog1.Left > river4.Width Then
  1110. shortlog1.Left = -167
  1111. End If
  1112. shortlog2.Left = shortlog2.Left + 3
  1113. If shortlog2.Left > river4.Width Then
  1114. shortlog2.Left = -167
  1115. End If
  1116. shortlog3.Left = shortlog3.Left + 3
  1117. If shortlog3.Left > river4.Width Then
  1118. shortlog3.Left = -167
  1119. End If
  1120. If pctFrog.Bounds.IntersectsWith(river4.Bounds) Then
  1121. If pctFrog.Bounds.IntersectsWith(shortlog1.Bounds) Or pctFrog.Bounds.IntersectsWith(shortlog2.Bounds) Or pctFrog.Bounds.IntersectsWith(shortlog3.Bounds) Then
  1122. pctFrog.Left = pctFrog.Left + 3
  1123. Else
  1124. newlife()
  1125. End If
  1126. End If
  1127. '______________________________________________________
  1128. longlog1.Left = longlog1.Left + 9
  1129. If longlog1.Left > river3.Width Then
  1130. longlog1.Left = -700
  1131. End If
  1132. longlog2.Left = longlog2.Left + 9
  1133. If longlog2.Left > river3.Width Then
  1134. longlog2.Left = -700
  1135. End If
  1136. longlog3.Left = longlog3.Left + 9
  1137. If longlog3.Left > river3.Width Then
  1138. longlog3.Left = -700
  1139. End If
  1140. If pctFrog.Bounds.IntersectsWith(river3.Bounds) Then
  1141. If pctFrog.Bounds.IntersectsWith(longlog1.Bounds) Or pctFrog.Bounds.IntersectsWith(longlog2.Bounds) Or pctFrog.Bounds.IntersectsWith(longlog3.Bounds) Then
  1142. pctFrog.Left = pctFrog.Left + 9
  1143. Else
  1144. newlife()
  1145. End If
  1146. End If
  1147. '_______________________________________________________________
  1148. medlog1.Left = medlog1.Left + 6
  1149. If medlog1.Left > river1.Width Then
  1150. medlog1.Left = -300
  1151. End If
  1152. medlog2.Left = medlog2.Left + 6
  1153. If medlog2.Left > river1.Width Then
  1154. medlog2.Left = -300
  1155. End If
  1156. medlog3.Left = medlog3.Left + 6
  1157. If medlog3.Left > river1.Width Then
  1158. medlog3.Left = -300
  1159. End If
  1160. medlog4.Left = medlog4.Left + 6
  1161. If medlog4.Left > river1.Width Then
  1162. medlog4.Left = -300
  1163. End If
  1164. If pctFrog.Bounds.IntersectsWith(river1.Bounds) Then
  1165. If pctFrog.Bounds.IntersectsWith(medlog1.Bounds) Or pctFrog.Bounds.IntersectsWith(medlog2.Bounds) Or pctFrog.Bounds.IntersectsWith(medlog3.Bounds) Or pctFrog.Bounds.IntersectsWith(medlog4.Bounds) Then
  1166. pctFrog.Left = pctFrog.Left + 6
  1167. Else
  1168. newlife()
  1169. End If
  1170. End If
  1171. If pctFrog.Left > river1.Width + 150 Then
  1172. pctFrog.Top = 655
  1173. pctFrog.Left = 372
  1174. End If
  1175. '_____________________________________________________________
  1176.  
  1177.  
  1178.  
  1179. If pctFrog.Bounds.IntersectsWith(unsafe3.Bounds) Then
  1180. If pctFrog.Bounds.IntersectsWith(safefrog1.Bounds) Then
  1181. safefrog1.Visible = True
  1182. timer.Width = 518
  1183. pctFrog.Left = 372
  1184. pctFrog.Top = 655
  1185. ElseIf pctFrog.Bounds.IntersectsWith(safefrog2.Bounds) Then
  1186. safefrog2.Visible = True
  1187. timer.Width = 518
  1188. pctFrog.Left = 372
  1189. pctFrog.Top = 655
  1190. ElseIf pctFrog.Bounds.IntersectsWith(safefrog3.Bounds) Then
  1191. safefrog3.Visible = True
  1192. timer.Width = 518
  1193. pctFrog.Left = 372
  1194. pctFrog.Top = 655
  1195. ElseIf pctFrog.Bounds.IntersectsWith(safefrog4.Bounds) Then
  1196. safefrog4.Visible = True
  1197. timer.Width = 518
  1198. pctFrog.Left = 372
  1199. pctFrog.Top = 655
  1200. ElseIf pctFrog.Bounds.IntersectsWith(safefrog5.Bounds) Then
  1201. safefrog5.Visible = True
  1202. timer.Width = 518
  1203. pctFrog.Left = 372
  1204. pctFrog.Top = 655
  1205. Else
  1206. newlife()
  1207. End If
  1208. End If
  1209. If safefrog1.Visible = True And safefrog2.Visible = True And safefrog3.Visible = True And safefrog4.Visible = True And safefrog5.Visible = True Then
  1210. tmrCarLeft.Enabled = False
  1211. tmrCarRight.Enabled = False
  1212. tmrlog.Enabled = False
  1213. tmrturtle.Enabled = False
  1214. tmrtimer.Enabled = False
  1215. answer = MsgBox("GAME OVER, YOU WIN, RESTART?", MsgBoxStyle.YesNo)
  1216. If answer = 6 Then
  1217. Reset()
  1218. End If
  1219. If answer = 7 Then
  1220. Close()
  1221. End If
  1222. End If
  1223. End Sub
  1224. Private Sub tmrturtle_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmrturtle.Tick
  1225. turtle1.Left = turtle1.Left - 3.5
  1226. If turtle1.Left + 125 < river2.Left Then
  1227. turtle1.Left = river2.Width + 400
  1228. End If
  1229. turtle2.Left = turtle2.Left - 3.5
  1230. If turtle2.Left + 125 < river2.Left Then
  1231. turtle2.Left = river2.Width + 400
  1232. End If
  1233. turtle3.Left = turtle3.Left - 3.5
  1234. If turtle3.Left + 125 < river2.Left Then
  1235. turtle3.Left = river2.Width + 400
  1236. End If
  1237. turtle4.Left = turtle4.Left - 3.5
  1238. If turtle4.Left + 125 < river2.Left Then
  1239. turtle4.Left = river2.Width + 400
  1240. End If
  1241. If pctFrog.Bounds.IntersectsWith(river2.Bounds) Then
  1242. If pctFrog.Bounds.IntersectsWith(turtle1.Bounds) Or pctFrog.Bounds.IntersectsWith(turtle2.Bounds) Or pctFrog.Bounds.IntersectsWith(turtle3.Bounds) Or pctFrog.Bounds.IntersectsWith(turtle4.Bounds) Then
  1243. pctFrog.Left = pctFrog.Left - 3.5
  1244. Else
  1245. newlife()
  1246. End If
  1247. End If
  1248. If pctFrog.Left > river2.Width + 150 Then
  1249. pctFrog.Top = 655
  1250. pctFrog.Left = 372
  1251. End If
  1252. '_____________________________________________________
  1253. longturtle1.Left = longturtle1.Left - 3.5
  1254. If longturtle1.Left + 170 < river5.Left Then
  1255. longturtle1.Left = river5.Width + 500
  1256. End If
  1257. longturtle2.Left = longturtle2.Left - 3.5
  1258. If longturtle2.Left + 170 < river5.Left Then
  1259. longturtle2.Left = river5.Width + 500
  1260. End If
  1261. longturtle3.Left = longturtle3.Left - 3.5
  1262. If longturtle3.Left + 170 < river5.Left Then
  1263. longturtle3.Left = river5.Width + 500
  1264. End If
  1265. longturtle4.Left = longturtle4.Left - 3.5
  1266. If longturtle4.Left + 170 < river5.Left Then
  1267. longturtle4.Left = river5.Width + 500
  1268. End If
  1269. If pctFrog.Bounds.IntersectsWith(river5.Bounds) Then
  1270. If pctFrog.Bounds.IntersectsWith(longturtle1.Bounds) Or pctFrog.Bounds.IntersectsWith(longturtle2.Bounds) Or pctFrog.Bounds.IntersectsWith(longturtle3.Bounds) Or pctFrog.Bounds.IntersectsWith(longturtle4.Bounds) Then
  1271. pctFrog.Left = pctFrog.Left - 3.5
  1272. Else
  1273. newlife()
  1274. End If
  1275. End If
  1276. If pctFrog.Left > river5.Width + 150 Then
  1277. pctFrog.Top = 655
  1278. pctFrog.Left = 372
  1279. End If
  1280. End Sub
  1281. Private Sub tmrtimer_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmrtimer.Tick
  1282. timer.Width = timer.Width - 1
  1283. frmFrogger.ActiveForm.Text = pctfrog2.Left
  1284. If timer.Width = 0 Then
  1285. newlife()
  1286. End If
  1287. End Sub
  1288. Private Sub tmrpctfrog21up_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmrpctfrog21.Tick
  1289.  
  1290.  
  1291.  
  1292. If pctfrog2.Visible = True Then
  1293. If pctfrog2.Top < 716 Then
  1294. pctfrog2.Width = 40
  1295. pctfrog2.Height = 40
  1296. End If
  1297. If pctfrog2.Top > 655 Then
  1298. pctfrog2.Top = pctfrog2.Top - 1
  1299. End If
  1300. If pctfrog2.Top = 655 And pctfrog2.Left < 372 Then
  1301. pctfrog2.Left = pctfrog2.Left + 4
  1302. End If
  1303. If pctfrog2.Left = 372 Then
  1304. goable = True
  1305. pctFrog.Visible = True
  1306. pctfrog2.Visible = False
  1307. tmrpctfrog21.Enabled = False
  1308. End If
  1309. End If
  1310. If pctfrog2.Visible = False And pctfrog1.Visible = True Then
  1311. If pctfrog1.Top < 716 Then
  1312. pctfrog1.Width = 40
  1313. pctfrog1.Height = 40
  1314. End If
  1315. If pctfrog1.Top > 655 Then
  1316. pctfrog1.Top = pctfrog1.Top - 1
  1317. End If
  1318. If pctfrog1.Top = 655 And pctfrog1.Left < 372 Then
  1319. pctfrog1.Left = pctfrog1.Left + 4
  1320. End If
  1321. If pctfrog1.Left = 372 Then
  1322. goable = True
  1323. pctFrog.Visible = True
  1324. pctfrog1.Visible = False
  1325. tmrpctfrog21.Enabled = False
  1326. End If
  1327. End If
  1328. End Sub
  1329.  
  1330. Private Sub Reset()
  1331. fren.Visible = False
  1332. pctFrog.Visible = True
  1333. pctfrog2.Left = 72
  1334. pctfrog2.Top = 716
  1335. pctfrog1.Left = 24
  1336. pctfrog1.Top = 716
  1337. pctFrog.Left = 372
  1338. pctFrog.Top = 655
  1339. safefrog1.Visible = False
  1340. safefrog2.Visible = False
  1341. safefrog3.Visible = False
  1342. safefrog4.Visible = False
  1343. safefrog5.Visible = False
  1344. medlog1.Left = -300
  1345. medlog2.Left = -50
  1346. medlog3.Left = 250
  1347. medlog4.Left = 500
  1348. turtle1.Left = 0
  1349. turtle2.Left = 206
  1350. turtle3.Left = 412
  1351. turtle4.Left = 618
  1352. longlog1.Left = -600
  1353. longlog2.Left = -100
  1354. longlog3.Left = 400
  1355. shortlog1.Left = 0
  1356. shortlog2.Left = 317
  1357. shortlog3.Left = 624
  1358. longturtle1.Left = 0
  1359. longturtle2.Left = 232
  1360. longturtle3.Left = 464
  1361. longturtle4.Left = 696
  1362. car101.Left = 54
  1363. car102.Left = 232
  1364. car103.Left = 432
  1365. car201.Left = 684
  1366. car202.Left = 380
  1367. car203.Left = 1000
  1368. car301.Left = 52
  1369. car302.Left = 508
  1370. car303.Left = 314
  1371. car401.Left = 662
  1372. car402.Left = 184
  1373. car403.Left = -300
  1374. car501.Left = 52
  1375. car502.Left = 360
  1376. car503.Left = 642
  1377. pctfrog1.Visible = True
  1378. pctfrog2.Visible = True
  1379. timer.Width = 518
  1380. tmrCarLeft.Enabled = True
  1381. tmrCarRight.Enabled = True
  1382. tmrlog.Enabled = True
  1383. tmrturtle.Enabled = True
  1384. tmrtimer.Enabled = True
  1385. End Sub
  1386. Private Sub limbo()
  1387.  
  1388. pctFrog.Left = 372
  1389. pctFrog.Top = 655
  1390. tmrCarLeft.Enabled = False
  1391. tmrCarRight.Enabled = False
  1392. tmrlog.Enabled = False
  1393. tmrturtle.Enabled = False
  1394. tmrtimer.Enabled = False
  1395. answer = MsgBox("GAME OVER, YOU LOSE, RESTART?", MsgBoxStyle.YesNo)
  1396. If answer = 6 Then
  1397. Reset()
  1398. End If
  1399. If answer = 7 Then
  1400. Close()
  1401. End If
  1402. End Sub
  1403. Private Sub newlife()
  1404. timer.Width = 518
  1405. If pctfrog2.Visible = False And pctfrog1.Visible = False Then
  1406. fren.Top = pctFrog.Top
  1407. fren.Left = pctFrog.Left
  1408. fren.Visible = True
  1409. pctFrog.Visible = False
  1410. limbo()
  1411. Else
  1412. goable = False
  1413. pctFrog.Visible = False
  1414. pctFrog.Left = 372
  1415. pctFrog.Top = 655
  1416. tmrpctfrog21.Enabled = True
  1417. End If
  1418. End Sub
  1419.  
  1420.  
  1421.  
  1422.  
  1423.  
  1424. End Class
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!