API tools faq
paste
Advertisement
bstobbe

War Code

bstobbe
Mar 27th, 2017
75
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 27.33 KB | None | 0 0
raw download clone embed print report
  1. Public Class Form1
  2. Dim score1 As Integer = 26
  3. Dim score2 As Integer = 26
  4.  
  5. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
  6. Randomize()
  7. Dim card1 As Integer
  8. Dim card2 As Integer
  9. Dim WARCARD1 As Integer
  10. Dim WARCARD2 As Integer
  11. Dim cardPoint1 As Integer
  12. Dim cardPoint2 As Integer
  13. Dim cardPoint3 As Integer
  14. Dim cardPoint4 As Integer
  15.  
  16.  
  17. PictureBox1.Visible = False
  18. WARBOX1.Visible = False
  19. PictureBox3.Visible = False
  20. WARBOX2.Visible = False
  21. PictureBox5.Visible = False
  22. PictureBox6.Visible = False
  23. warlabel.Visible = False
  24.  
  25.  
  26.  
  27. card1 = Int(Rnd() * 52) + 1
  28. card2 = Int(Rnd() * 52) + 1
  29.  
  30. WARCARD1 = Int(Rnd() * 52) + 1
  31. WARCARD2 = Int(Rnd() * 52) + 1
  32.  
  33.  
  34. Label2.Text = score1
  35. Label3.Text = score2
  36.  
  37.  
  38.  
  39. If card1 = 1 Then
  40. PB1.BackgroundImage = My.Resources.aceclubs
  41. cardPoint1 = 14
  42.  
  43. ElseIf card1 = 2 Then
  44. PB1.BackgroundImage = My.Resources._2clubs
  45. cardPoint1 = 2
  46.  
  47. ElseIf card1 = 3 Then
  48. PB1.BackgroundImage = My.Resources._3clubs
  49. cardPoint1 = 3
  50.  
  51. ElseIf card1 = 4 Then
  52. PB1.BackgroundImage = My.Resources._4clubs
  53. cardPoint1 = 4
  54.  
  55. ElseIf card1 = 5 Then
  56. PB1.BackgroundImage = My.Resources._5clubs
  57. cardPoint1 = 5
  58.  
  59. ElseIf card1 = 6 Then
  60. PB1.BackgroundImage = My.Resources._6clubs
  61. cardPoint1 = 6
  62.  
  63. ElseIf card1 = 7 Then
  64. PB1.BackgroundImage = My.Resources._7clubs
  65. cardPoint1 = 7
  66.  
  67. ElseIf card1 = 8 Then
  68. PB1.BackgroundImage = My.Resources._8clubs
  69. cardPoint1 = 8
  70.  
  71. ElseIf card1 = 9 Then
  72. PB1.BackgroundImage = My.Resources._9clubs
  73. cardPoint1 = 9
  74.  
  75. ElseIf card1 = 10 Then
  76. PB1.BackgroundImage = My.Resources._10clubs
  77. cardPoint1 = 10
  78.  
  79. ElseIf card1 = 11 Then
  80. PB1.BackgroundImage = My.Resources.jackclubs
  81. cardPoint1 = 11
  82.  
  83. ElseIf card1 = 12 Then
  84. PB1.BackgroundImage = My.Resources.queenclubs
  85. cardPoint1 = 12
  86.  
  87. ElseIf card1 = 13 Then
  88. PB1.BackgroundImage = My.Resources.kingclubs
  89. cardPoint1 = 13
  90.  
  91. ElseIf card1 = 14 Then
  92. PB1.BackgroundImage = My.Resources._2spades
  93. cardPoint1 = 2
  94.  
  95. ElseIf card1 = 15 Then
  96. PB1.BackgroundImage = My.Resources._3spades
  97. cardPoint1 = 3
  98.  
  99. ElseIf card1 = 16 Then
  100. PB1.BackgroundImage = My.Resources._4spades
  101. cardPoint1 = 4
  102.  
  103. ElseIf card1 = 17 Then
  104. PB1.BackgroundImage = My.Resources._5spades
  105. cardPoint1 = 5
  106.  
  107. ElseIf card1 = 18 Then
  108. PB1.BackgroundImage = My.Resources._6spades
  109. cardPoint1 = 6
  110.  
  111. ElseIf card1 = 19 Then
  112. PB1.BackgroundImage = My.Resources._7spades
  113. cardPoint1 = 7
  114.  
  115. ElseIf card1 = 20 Then
  116. PB1.BackgroundImage = My.Resources._8spades
  117. cardPoint1 = 8
  118.  
  119. ElseIf card1 = 21 Then
  120. PB1.BackgroundImage = My.Resources._9spades
  121. cardPoint1 = 9
  122.  
  123. ElseIf card1 = 22 Then
  124. PB1.BackgroundImage = My.Resources._10spades
  125. cardPoint1 = 10
  126.  
  127. ElseIf card1 = 23 Then
  128. PB1.BackgroundImage = My.Resources.jackspades
  129. cardPoint1 = 11
  130.  
  131. ElseIf card1 = 24 Then
  132. PB1.BackgroundImage = My.Resources.queenspades
  133. cardPoint1 = 12
  134.  
  135. ElseIf card1 = 25 Then
  136. PB1.BackgroundImage = My.Resources.kingspades
  137. cardPoint1 = 13
  138.  
  139. ElseIf card1 = 26 Then
  140. PB1.BackgroundImage = My.Resources.acespades
  141. cardPoint1 = 14
  142.  
  143. ElseIf card1 = 27 Then
  144. PB1.BackgroundImage = My.Resources._2hearts
  145. cardPoint1 = 2
  146.  
  147. ElseIf card1 = 28 Then
  148. PB1.BackgroundImage = My.Resources._3hearts
  149. cardPoint1 = 3
  150.  
  151. ElseIf card1 = 29 Then
  152. PB1.BackgroundImage = My.Resources._4hearts
  153. cardPoint1 = 4
  154.  
  155. ElseIf card1 = 30 Then
  156. PB1.BackgroundImage = My.Resources._5hearts
  157. cardPoint1 = 5
  158.  
  159. ElseIf card1 = 31 Then
  160. PB1.BackgroundImage = My.Resources._6hearts
  161. cardPoint1 = 6
  162.  
  163. ElseIf card1 = 32 Then
  164. PB1.BackgroundImage = My.Resources._7hearts
  165. cardPoint1 = 7
  166.  
  167. ElseIf card1 = 33 Then
  168. PB1.BackgroundImage = My.Resources._8hearts
  169. cardPoint1 = 8
  170.  
  171. ElseIf card1 = 34 Then
  172. PB1.BackgroundImage = My.Resources._9hearts
  173. cardPoint1 = 9
  174.  
  175. ElseIf card1 = 35 Then
  176. PB1.BackgroundImage = My.Resources._10hearts
  177. cardPoint1 = 10
  178.  
  179. ElseIf card1 = 36 Then
  180. PB1.BackgroundImage = My.Resources.jackhearts
  181. cardPoint1 = 11
  182.  
  183. ElseIf card1 = 37 Then
  184. PB1.BackgroundImage = My.Resources.queenhearts
  185. cardPoint1 = 12
  186.  
  187.  
  188. ElseIf card1 = 38 Then
  189. PB1.BackgroundImage = My.Resources.kinghearts
  190. cardPoint1 = 13
  191.  
  192. ElseIf card1 = 39 Then
  193. PB1.BackgroundImage = My.Resources.acehearts
  194. cardPoint1 = 14
  195.  
  196.  
  197. ElseIf card1 = 40 Then
  198. PB1.BackgroundImage = My.Resources._2diamonds
  199. cardPoint1 = 2
  200.  
  201. ElseIf card1 = 41 Then
  202. PB1.BackgroundImage = My.Resources._3diamonds
  203. cardPoint1 = 3
  204.  
  205. ElseIf card1 = 42 Then
  206. PB1.BackgroundImage = My.Resources._4diamonds
  207. cardPoint1 = 4
  208.  
  209. ElseIf card1 = 43 Then
  210. PB1.BackgroundImage = My.Resources._5diamonds
  211. cardPoint1 = 5
  212.  
  213. ElseIf card1 = 44 Then
  214. PB1.BackgroundImage = My.Resources._6diamonds
  215. cardPoint1 = 6
  216.  
  217. ElseIf card1 = 45 Then
  218. PB1.BackgroundImage = My.Resources._7diamonds
  219. cardPoint1 = 7
  220.  
  221. ElseIf card1 = 46 Then
  222. PB1.BackgroundImage = My.Resources._8diamonds
  223. cardPoint1 = 8
  224.  
  225. ElseIf card1 = 47 Then
  226. PB1.BackgroundImage = My.Resources._9diamonds
  227. cardPoint1 = 9
  228.  
  229.  
  230. ElseIf card1 = 48 Then
  231. PB1.BackgroundImage = My.Resources._10diamonds
  232. cardPoint1 = 10
  233.  
  234. ElseIf card1 = 49 Then
  235. PB1.BackgroundImage = My.Resources.jackdiamonds
  236. cardPoint1 = 11
  237.  
  238. ElseIf card1 = 50 Then
  239. PB1.BackgroundImage = My.Resources.queendiamonds
  240. cardPoint1 = 12
  241.  
  242. ElseIf card1 = 51 Then
  243. PB1.BackgroundImage = My.Resources.kingdiamonds
  244. cardPoint1 = 13
  245.  
  246. ElseIf card1 = 52 Then
  247. PB1.BackgroundImage = My.Resources.acediamonds
  248. cardPoint1 = 14
  249.  
  250. End If
  251.  
  252.  
  253.  
  254.  
  255. If card2 = 1 Then
  256. PB2.BackgroundImage = My.Resources.aceclubs
  257. cardPoint2 = 14
  258.  
  259. ElseIf card2 = 2 Then
  260. PB2.BackgroundImage = My.Resources._2clubs
  261. cardPoint2 = 2
  262.  
  263. ElseIf card2 = 3 Then
  264. PB2.BackgroundImage = My.Resources._3clubs
  265. cardPoint2 = 3
  266.  
  267. ElseIf card2 = 4 Then
  268. PB2.BackgroundImage = My.Resources._4clubs
  269. cardPoint2 = 4
  270.  
  271. ElseIf card2 = 5 Then
  272. PB2.BackgroundImage = My.Resources._5clubs
  273. cardPoint2 = 5
  274.  
  275. ElseIf card2 = 6 Then
  276. PB2.BackgroundImage = My.Resources._6clubs
  277. cardPoint2 = 6
  278.  
  279. ElseIf card2 = 7 Then
  280. PB2.BackgroundImage = My.Resources._7clubs
  281. cardPoint2 = 7
  282.  
  283. ElseIf card2 = 8 Then
  284. PB2.BackgroundImage = My.Resources._8clubs
  285. cardPoint2 = 8
  286.  
  287. ElseIf card2 = 9 Then
  288. PB2.BackgroundImage = My.Resources._9clubs
  289. cardPoint2 = 9
  290.  
  291. ElseIf card2 = 10 Then
  292. PB2.BackgroundImage = My.Resources._10clubs
  293. cardPoint2 = 10
  294.  
  295. ElseIf card2 = 11 Then
  296. PB2.BackgroundImage = My.Resources.jackclubs
  297. cardPoint2 = 11
  298.  
  299. ElseIf card2 = 12 Then
  300. PB2.BackgroundImage = My.Resources.queenclubs
  301. cardPoint2 = 12
  302.  
  303. ElseIf card2 = 13 Then
  304. PB2.BackgroundImage = My.Resources.kingclubs
  305. cardPoint2 = 13
  306.  
  307. ElseIf card2 = 14 Then
  308. PB2.BackgroundImage = My.Resources._2spades
  309. cardPoint2 = 2
  310.  
  311. ElseIf card2 = 15 Then
  312. PB2.BackgroundImage = My.Resources._3spades
  313. cardPoint2 = 3
  314.  
  315. ElseIf card2 = 16 Then
  316. PB2.BackgroundImage = My.Resources._4spades
  317. cardPoint2 = 4
  318.  
  319. ElseIf card2 = 17 Then
  320. PB2.BackgroundImage = My.Resources._5spades
  321. cardPoint2 = 5
  322.  
  323. ElseIf card2 = 18 Then
  324. PB2.BackgroundImage = My.Resources._6spades
  325. cardPoint2 = 6
  326.  
  327. ElseIf card2 = 19 Then
  328. PB2.BackgroundImage = My.Resources._7spades
  329. cardPoint2 = 7
  330.  
  331. ElseIf card2 = 20 Then
  332. PB2.BackgroundImage = My.Resources._8spades
  333. cardPoint2 = 8
  334.  
  335. ElseIf card2 = 21 Then
  336. PB2.BackgroundImage = My.Resources._9spades
  337. cardPoint2 = 9
  338.  
  339. ElseIf card2 = 22 Then
  340. PB2.BackgroundImage = My.Resources._10spades
  341. cardPoint2 = 10
  342.  
  343. ElseIf card2 = 23 Then
  344. PB2.BackgroundImage = My.Resources.jackspades
  345. cardPoint2 = 11
  346.  
  347. ElseIf card2 = 24 Then
  348. PB2.BackgroundImage = My.Resources.queenspades
  349. cardPoint2 = 12
  350.  
  351. ElseIf card2 = 25 Then
  352. PB2.BackgroundImage = My.Resources.kingspades
  353. cardPoint2 = 13
  354.  
  355. ElseIf card2 = 26 Then
  356. PB2.BackgroundImage = My.Resources.acespades
  357. cardPoint2 = 14
  358.  
  359. ElseIf card2 = 27 Then
  360. PB2.BackgroundImage = My.Resources._2hearts
  361. cardPoint2 = 2
  362.  
  363. ElseIf card2 = 28 Then
  364. PB2.BackgroundImage = My.Resources._3hearts
  365. cardPoint2 = 3
  366.  
  367. ElseIf card2 = 29 Then
  368. PB2.BackgroundImage = My.Resources._4hearts
  369. cardPoint2 = 4
  370.  
  371. ElseIf card2 = 30 Then
  372. PB2.BackgroundImage = My.Resources._5hearts
  373. cardPoint2 = 5
  374.  
  375. ElseIf card2 = 31 Then
  376. PB2.BackgroundImage = My.Resources._6hearts
  377. cardPoint2 = 6
  378.  
  379. ElseIf card2 = 32 Then
  380. PB2.BackgroundImage = My.Resources._7hearts
  381. cardPoint2 = 7
  382.  
  383. ElseIf card2 = 33 Then
  384. PB2.BackgroundImage = My.Resources._8hearts
  385. cardPoint2 = 8
  386.  
  387. ElseIf card2 = 34 Then
  388. PB2.BackgroundImage = My.Resources._9hearts
  389. cardPoint2 = 9
  390.  
  391. ElseIf card2 = 35 Then
  392. PB2.BackgroundImage = My.Resources._10hearts
  393. cardPoint2 = 10
  394.  
  395. ElseIf card2 = 36 Then
  396. PB2.BackgroundImage = My.Resources.jackhearts
  397. cardPoint2 = 11
  398.  
  399. ElseIf card2 = 37 Then
  400. PB2.BackgroundImage = My.Resources.queenhearts
  401. cardPoint2 = 12
  402.  
  403. ElseIf card2 = 38 Then
  404. PB2.BackgroundImage = My.Resources.kinghearts
  405. cardPoint2 = 13
  406.  
  407. ElseIf card2 = 39 Then
  408. PB2.BackgroundImage = My.Resources.acehearts
  409. cardPoint2 = 14
  410.  
  411.  
  412. ElseIf card2 = 40 Then
  413. PB2.BackgroundImage = My.Resources._2diamonds
  414. cardPoint2 = 2
  415.  
  416. ElseIf card2 = 41 Then
  417. PB2.BackgroundImage = My.Resources._3diamonds
  418. cardPoint2 = 3
  419.  
  420. ElseIf card2 = 42 Then
  421. PB2.BackgroundImage = My.Resources._4diamonds
  422. cardPoint2 = 4
  423.  
  424. ElseIf card2 = 43 Then
  425. PB2.BackgroundImage = My.Resources._5diamonds
  426. cardPoint2 = 5
  427.  
  428. ElseIf card2 = 44 Then
  429. PB2.BackgroundImage = My.Resources._6diamonds
  430. cardPoint2 = 6
  431.  
  432. ElseIf card2 = 45 Then
  433. PB2.BackgroundImage = My.Resources._7diamonds
  434. cardPoint2 = 7
  435.  
  436. ElseIf card2 = 46 Then
  437. PB2.BackgroundImage = My.Resources._8diamonds
  438. cardPoint2 = 8
  439.  
  440. ElseIf card2 = 47 Then
  441. PB2.BackgroundImage = My.Resources._9diamonds
  442. cardPoint2 = 9
  443.  
  444. ElseIf card2 = 48 Then
  445. PB2.BackgroundImage = My.Resources._10diamonds
  446. cardPoint2 = 10
  447.  
  448. ElseIf card2 = 49 Then
  449. PB2.BackgroundImage = My.Resources.jackdiamonds
  450. cardPoint2 = 11
  451.  
  452. ElseIf card2 = 50 Then
  453. PB2.BackgroundImage = My.Resources.queendiamonds
  454. cardPoint2 = 12
  455.  
  456. ElseIf card2 = 51 Then
  457. PB2.BackgroundImage = My.Resources.kingdiamonds
  458. cardPoint2 = 13
  459.  
  460. ElseIf card2 = 52 Then
  461. PB2.BackgroundImage = My.Resources.acediamonds
  462. cardPoint2 = 14
  463.  
  464. End If
  465.  
  466.  
  467.  
  468. score1 -= 1
  469. score2 -= 1
  470.  
  471.  
  472.  
  473. If cardPoint1 > cardPoint2 Then
  474. score1 += 2
  475. ElseIf cardPoint2 > cardPoint1 Then
  476. score2 += 2
  477. ElseIf cardPoint1 = cardPoint2 Then
  478.  
  479. PictureBox1.Visible = True
  480. WARBOX1.Visible = True
  481. PictureBox3.Visible = True
  482. WARBOX2.Visible = True
  483. PictureBox5.Visible = True
  484. PictureBox6.Visible = True
  485. warlabel.Visible = True
  486.  
  487. score1 -= 1
  488. score2 -= 1
  489.  
  490. If cardPoint3 > cardPoint4 Then
  491. score1 += 4
  492. ElseIf cardPoint4 > cardPoint3 Then
  493. score2 += 4
  494. End If
  495.  
  496.  
  497.  
  498.  
  499.  
  500. End If
  501.  
  502. If WARCARD1 = 1 Then
  503. WARBOX1.BackgroundImage = My.Resources.aceclubs
  504. cardPoint3 = 14
  505.  
  506. ElseIf WARCARD1 = 2 Then
  507. WARBOX1.BackgroundImage = My.Resources._2clubs
  508. cardPoint3 = 2
  509.  
  510. ElseIf WARCARD1 = 3 Then
  511. WARBOX1.BackgroundImage = My.Resources._3clubs
  512. cardPoint3 = 3
  513.  
  514. ElseIf WARCARD1 = 4 Then
  515. WARBOX1.BackgroundImage = My.Resources._4clubs
  516. cardPoint3 = 4
  517.  
  518. ElseIf WARCARD1 = 5 Then
  519. WARBOX1.BackgroundImage = My.Resources._5clubs
  520. cardPoint3 = 5
  521.  
  522. ElseIf WARCARD1 = 6 Then
  523. WARBOX1.BackgroundImage = My.Resources._6clubs
  524. cardPoint3 = 6
  525.  
  526. ElseIf WARCARD1 = 7 Then
  527. WARBOX1.BackgroundImage = My.Resources._7clubs
  528. cardPoint3 = 7
  529.  
  530. ElseIf WARCARD1 = 8 Then
  531. WARBOX1.BackgroundImage = My.Resources._8clubs
  532. cardPoint3 = 8
  533.  
  534. ElseIf WARCARD1 = 9 Then
  535. WARBOX1.BackgroundImage = My.Resources._9clubs
  536. cardPoint3 = 9
  537.  
  538. ElseIf WARCARD1 = 10 Then
  539. WARBOX1.BackgroundImage = My.Resources._10clubs
  540. cardPoint3 = 10
  541.  
  542. ElseIf WARCARD1 = 11 Then
  543. WARBOX1.BackgroundImage = My.Resources.jackclubs
  544. cardPoint3 = 11
  545.  
  546. ElseIf WARCARD1 = 12 Then
  547. WARBOX1.BackgroundImage = My.Resources.queenclubs
  548. cardPoint3 = 12
  549.  
  550. ElseIf WARCARD1 = 13 Then
  551. WARBOX1.BackgroundImage = My.Resources.kingclubs
  552. cardPoint3 = 13
  553.  
  554. ElseIf WARCARD1 = 14 Then
  555. WARBOX1.BackgroundImage = My.Resources._2spades
  556. cardPoint3 = 2
  557.  
  558. ElseIf WARCARD1 = 15 Then
  559. WARBOX1.BackgroundImage = My.Resources._3spades
  560. cardPoint3 = 3
  561.  
  562. ElseIf WARCARD1 = 16 Then
  563. WARBOX1.BackgroundImage = My.Resources._4spades
  564. cardPoint3 = 4
  565.  
  566. ElseIf WARCARD1 = 17 Then
  567. WARBOX1.BackgroundImage = My.Resources._5spades
  568. cardPoint3 = 5
  569.  
  570. ElseIf WARCARD1 = 18 Then
  571. WARBOX1.BackgroundImage = My.Resources._6spades
  572. cardPoint3 = 6
  573.  
  574. ElseIf WARCARD1 = 19 Then
  575. WARBOX1.BackgroundImage = My.Resources._7spades
  576. cardPoint3 = 7
  577.  
  578. ElseIf WARCARD1 = 20 Then
  579. WARBOX1.BackgroundImage = My.Resources._8spades
  580. cardPoint3 = 8
  581.  
  582. ElseIf WARCARD1 = 21 Then
  583. WARBOX1.BackgroundImage = My.Resources._9spades
  584. cardPoint3 = 9
  585.  
  586. ElseIf WARCARD1 = 22 Then
  587. WARBOX1.BackgroundImage = My.Resources._10spades
  588. cardPoint3 = 10
  589.  
  590. ElseIf WARCARD1 = 23 Then
  591. WARBOX1.BackgroundImage = My.Resources.jackspades
  592. cardPoint3 = 11
  593.  
  594. ElseIf WARCARD1 = 24 Then
  595. WARBOX1.BackgroundImage = My.Resources.queenspades
  596. cardPoint3 = 12
  597.  
  598. ElseIf WARCARD1 = 25 Then
  599. WARBOX1.BackgroundImage = My.Resources.kingspades
  600. cardPoint3 = 13
  601.  
  602. ElseIf WARCARD1 = 26 Then
  603. WARBOX1.BackgroundImage = My.Resources.acespades
  604. cardPoint3 = 14
  605.  
  606. ElseIf WARCARD1 = 27 Then
  607. WARBOX1.BackgroundImage = My.Resources._2hearts
  608. cardPoint3 = 2
  609.  
  610. ElseIf WARCARD1 = 28 Then
  611. WARBOX1.BackgroundImage = My.Resources._3hearts
  612. cardPoint3 = 3
  613.  
  614. ElseIf WARCARD1 = 29 Then
  615. WARBOX1.BackgroundImage = My.Resources._4hearts
  616. cardPoint3 = 4
  617.  
  618. ElseIf WARCARD1 = 30 Then
  619. WARBOX1.BackgroundImage = My.Resources._5hearts
  620. cardPoint3 = 5
  621.  
  622. ElseIf WARCARD1 = 31 Then
  623. WARBOX1.BackgroundImage = My.Resources._6hearts
  624. cardPoint3 = 6
  625.  
  626. ElseIf WARCARD1 = 32 Then
  627. WARBOX1.BackgroundImage = My.Resources._7hearts
  628. cardPoint3 = 7
  629.  
  630. ElseIf WARCARD1 = 33 Then
  631. WARBOX1.BackgroundImage = My.Resources._8hearts
  632. cardPoint3 = 8
  633.  
  634. ElseIf WARCARD1 = 34 Then
  635. WARBOX1.BackgroundImage = My.Resources._9hearts
  636. cardPoint3 = 9
  637.  
  638. ElseIf WARCARD1 = 35 Then
  639. WARBOX1.BackgroundImage = My.Resources._10hearts
  640. cardPoint3 = 10
  641.  
  642. ElseIf WARCARD1 = 36 Then
  643. WARBOX1.BackgroundImage = My.Resources.jackhearts
  644. cardPoint3 = 11
  645.  
  646. ElseIf WARCARD1 = 37 Then
  647. WARBOX1.BackgroundImage = My.Resources.queenhearts
  648. cardPoint3 = 12
  649.  
  650. ElseIf WARCARD1 = 38 Then
  651. WARBOX1.BackgroundImage = My.Resources.kinghearts
  652. cardPoint3 = 13
  653.  
  654. ElseIf WARCARD1 = 39 Then
  655. WARBOX1.BackgroundImage = My.Resources.acehearts
  656. cardPoint3 = 14
  657.  
  658.  
  659. ElseIf WARCARD1 = 40 Then
  660. WARBOX1.BackgroundImage = My.Resources._2diamonds
  661. cardPoint3 = 2
  662.  
  663. ElseIf WARCARD1 = 41 Then
  664. WARBOX1.BackgroundImage = My.Resources._3diamonds
  665. cardPoint3 = 3
  666.  
  667. ElseIf WARCARD1 = 42 Then
  668. WARBOX1.BackgroundImage = My.Resources._4diamonds
  669. cardPoint3 = 4
  670.  
  671. ElseIf WARCARD1 = 43 Then
  672. WARBOX1.BackgroundImage = My.Resources._5diamonds
  673. cardPoint3 = 5
  674.  
  675. ElseIf WARCARD1 = 44 Then
  676. WARBOX1.BackgroundImage = My.Resources._6diamonds
  677. cardPoint3 = 6
  678.  
  679. ElseIf WARCARD1 = 45 Then
  680. WARBOX1.BackgroundImage = My.Resources._7diamonds
  681. cardPoint3 = 7
  682.  
  683. ElseIf WARCARD1 = 46 Then
  684. WARBOX1.BackgroundImage = My.Resources._8diamonds
  685. cardPoint3 = 8
  686.  
  687. ElseIf WARCARD1 = 47 Then
  688. WARBOX1.BackgroundImage = My.Resources._9diamonds
  689. cardPoint3 = 9
  690.  
  691. ElseIf WARCARD1 = 48 Then
  692. WARBOX1.BackgroundImage = My.Resources._10diamonds
  693. cardPoint3 = 10
  694.  
  695. ElseIf WARCARD1 = 49 Then
  696. WARBOX1.BackgroundImage = My.Resources.jackdiamonds
  697. cardPoint3 = 11
  698.  
  699. ElseIf WARCARD1 = 50 Then
  700. WARBOX1.BackgroundImage = My.Resources.queendiamonds
  701. cardPoint3 = 12
  702.  
  703. ElseIf WARCARD1 = 51 Then
  704. WARBOX1.BackgroundImage = My.Resources.kingdiamonds
  705. cardPoint3 = 13
  706.  
  707. ElseIf WARCARD1 = 52 Then
  708. WARBOX1.BackgroundImage = My.Resources.acediamonds
  709. cardPoint3 = 14
  710.  
  711. End If
  712.  
  713. If WARCARD2 = 1 Then
  714. WARBOX2.BackgroundImage = My.Resources.aceclubs
  715. cardPoint4 = 14
  716.  
  717. ElseIf WARCARD2 = 2 Then
  718. WARBOX2.BackgroundImage = My.Resources._2clubs
  719. cardPoint4 = 2
  720.  
  721. ElseIf WARCARD2 = 3 Then
  722. WARBOX2.BackgroundImage = My.Resources._3clubs
  723. cardPoint4 = 3
  724.  
  725. ElseIf WARCARD2 = 4 Then
  726. WARBOX2.BackgroundImage = My.Resources._4clubs
  727. cardPoint4 = 4
  728.  
  729. ElseIf WARCARD2 = 5 Then
  730. WARBOX2.BackgroundImage = My.Resources._5clubs
  731. cardPoint4 = 5
  732.  
  733. ElseIf WARCARD2 = 6 Then
  734. WARBOX2.BackgroundImage = My.Resources._6clubs
  735. cardPoint4 = 6
  736.  
  737. ElseIf WARCARD2 = 7 Then
  738. WARBOX2.BackgroundImage = My.Resources._7clubs
  739. cardPoint4 = 7
  740.  
  741. ElseIf WARCARD2 = 8 Then
  742. WARBOX2.BackgroundImage = My.Resources._8clubs
  743. cardPoint4 = 8
  744.  
  745. ElseIf WARCARD2 = 9 Then
  746. WARBOX2.BackgroundImage = My.Resources._9clubs
  747. cardPoint4 = 9
  748.  
  749. ElseIf WARCARD2 = 10 Then
  750. WARBOX2.BackgroundImage = My.Resources._10clubs
  751. cardPoint4 = 10
  752.  
  753. ElseIf WARCARD2 = 11 Then
  754. WARBOX2.BackgroundImage = My.Resources.jackclubs
  755. cardPoint4 = 11
  756.  
  757. ElseIf WARCARD2 = 12 Then
  758. WARBOX2.BackgroundImage = My.Resources.queenclubs
  759. cardPoint4 = 12
  760.  
  761. ElseIf WARCARD2 = 13 Then
  762. WARBOX2.BackgroundImage = My.Resources.kingclubs
  763. cardPoint4 = 13
  764.  
  765. ElseIf WARCARD2 = 14 Then
  766. WARBOX2.BackgroundImage = My.Resources._2spades
  767. cardPoint4 = 2
  768.  
  769. ElseIf WARCARD2 = 15 Then
  770. WARBOX2.BackgroundImage = My.Resources._3spades
  771. cardPoint4 = 3
  772.  
  773. ElseIf WARCARD2 = 16 Then
  774. WARBOX2.BackgroundImage = My.Resources._4spades
  775. cardPoint4 = 4
  776.  
  777. ElseIf WARCARD2 = 17 Then
  778. WARBOX2.BackgroundImage = My.Resources._5spades
  779. cardPoint4 = 5
  780.  
  781. ElseIf WARCARD2 = 18 Then
  782. WARBOX2.BackgroundImage = My.Resources._6spades
  783. cardPoint4 = 6
  784.  
  785. ElseIf WARCARD2 = 19 Then
  786. WARBOX2.BackgroundImage = My.Resources._7spades
  787. cardPoint4 = 7
  788.  
  789. ElseIf WARCARD2 = 20 Then
  790. WARBOX2.BackgroundImage = My.Resources._8spades
  791. cardPoint4 = 8
  792.  
  793. ElseIf WARCARD2 = 21 Then
  794. WARBOX2.BackgroundImage = My.Resources._9spades
  795. cardPoint4 = 9
  796.  
  797. ElseIf WARCARD2 = 22 Then
  798. WARBOX2.BackgroundImage = My.Resources._10spades
  799. cardPoint4 = 10
  800.  
  801. ElseIf WARCARD2 = 23 Then
  802. WARBOX2.BackgroundImage = My.Resources.jackspades
  803. cardPoint4 = 11
  804.  
  805. ElseIf WARCARD2 = 24 Then
  806. WARBOX2.BackgroundImage = My.Resources.queenspades
  807. cardPoint4 = 12
  808.  
  809. ElseIf WARCARD2 = 25 Then
  810. WARBOX2.BackgroundImage = My.Resources.kingspades
  811. cardPoint4 = 13
  812.  
  813. ElseIf WARCARD2 = 26 Then
  814. WARBOX2.BackgroundImage = My.Resources.acespades
  815. cardPoint4 = 14
  816.  
  817. ElseIf WARCARD2 = 27 Then
  818. WARBOX2.BackgroundImage = My.Resources._2hearts
  819. cardPoint4 = 2
  820.  
  821. ElseIf WARCARD2 = 28 Then
  822. WARBOX2.BackgroundImage = My.Resources._3hearts
  823. cardPoint4 = 3
  824.  
  825. ElseIf WARCARD2 = 29 Then
  826. WARBOX2.BackgroundImage = My.Resources._4hearts
  827. cardPoint4 = 4
  828.  
  829. ElseIf WARCARD2 = 30 Then
  830. WARBOX2.BackgroundImage = My.Resources._5hearts
  831. cardPoint4 = 5
  832.  
  833. ElseIf WARCARD2 = 31 Then
  834. WARBOX2.BackgroundImage = My.Resources._6hearts
  835. cardPoint4 = 6
  836.  
  837. ElseIf WARCARD2 = 32 Then
  838. WARBOX2.BackgroundImage = My.Resources._7hearts
  839. cardPoint4 = 7
  840.  
  841. ElseIf WARCARD2 = 33 Then
  842. WARBOX2.BackgroundImage = My.Resources._8hearts
  843. cardPoint4 = 8
  844.  
  845. ElseIf WARCARD2 = 34 Then
  846. WARBOX2.BackgroundImage = My.Resources._9hearts
  847. cardPoint4 = 9
  848.  
  849. ElseIf WARCARD2 = 35 Then
  850. WARBOX2.BackgroundImage = My.Resources._10hearts
  851. cardPoint4 = 10
  852.  
  853. ElseIf WARCARD2 = 36 Then
  854. WARBOX2.BackgroundImage = My.Resources.jackhearts
  855. cardPoint4 = 11
  856.  
  857. ElseIf WARCARD2 = 37 Then
  858. WARBOX2.BackgroundImage = My.Resources.queenhearts
  859. cardPoint4 = 12
  860.  
  861. ElseIf WARCARD2 = 38 Then
  862. WARBOX2.BackgroundImage = My.Resources.kinghearts
  863. cardPoint4 = 13
  864.  
  865. ElseIf WARCARD2 = 39 Then
  866. WARBOX2.BackgroundImage = My.Resources.acehearts
  867. cardPoint4 = 14
  868.  
  869.  
  870. ElseIf WARCARD2 = 40 Then
  871. WARBOX2.BackgroundImage = My.Resources._2diamonds
  872. cardPoint4 = 2
  873.  
  874. ElseIf WARCARD2 = 41 Then
  875. WARBOX2.BackgroundImage = My.Resources._3diamonds
  876. cardPoint4 = 3
  877.  
  878. ElseIf WARCARD2 = 42 Then
  879. WARBOX2.BackgroundImage = My.Resources._4diamonds
  880. cardPoint4 = 4
  881.  
  882. ElseIf WARCARD2 = 43 Then
  883. WARBOX2.BackgroundImage = My.Resources._5diamonds
  884. cardPoint4 = 5
  885.  
  886. ElseIf WARCARD2 = 44 Then
  887. WARBOX2.BackgroundImage = My.Resources._6diamonds
  888. cardPoint4 = 6
  889.  
  890. ElseIf WARCARD2 = 45 Then
  891. WARBOX2.BackgroundImage = My.Resources._7diamonds
  892. cardPoint4 = 7
  893.  
  894. ElseIf WARCARD2 = 46 Then
  895. WARBOX2.BackgroundImage = My.Resources._8diamonds
  896. cardPoint4 = 8
  897.  
  898. ElseIf WARCARD2 = 47 Then
  899. WARBOX2.BackgroundImage = My.Resources._9diamonds
  900. cardPoint4 = 9
  901.  
  902. ElseIf WARCARD2 = 48 Then
  903. WARBOX2.BackgroundImage = My.Resources._10diamonds
  904. cardPoint4 = 10
  905.  
  906. ElseIf WARCARD2 = 49 Then
  907. WARBOX2.BackgroundImage = My.Resources.jackdiamonds
  908. cardPoint4 = 11
  909.  
  910. ElseIf WARCARD2 = 50 Then
  911. WARBOX2.BackgroundImage = My.Resources.queendiamonds
  912. cardPoint4 = 12
  913.  
  914. ElseIf WARCARD2 = 51 Then
  915. WARBOX2.BackgroundImage = My.Resources.kingdiamonds
  916. cardPoint4 = 13
  917.  
  918. ElseIf WARCARD2 = 52 Then
  919. WARBOX2.BackgroundImage = My.Resources.acediamonds
  920. cardPoint4 = 14
  921.  
  922. End If
  923.  
  924.  
  925.  
  926.  
  927.  
  928.  
  929.  
  930.  
  931.  
  932. Label2.Text = score1
  933. Label3.Text = score2
  934.  
  935. End Sub
  936.  
  937. Private Sub PB1_Click(sender As Object, e As EventArgs) Handles PB1.Click
  938.  
  939. End Sub
  940.  
  941. Private Sub Label1_Click(sender As Object, e As EventArgs)
  942.  
  943. End Sub
  944.  
  945. Private Sub Label3_Click(sender As Object, e As EventArgs) Handles Label3.Click
  946.  
  947. End Sub
  948.  
  949. Private Sub PictureBox4_Click(sender As Object, e As EventArgs) Handles WARBOX2.Click
  950.  
  951. End Sub
  952. 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!