API tools faq
paste
Advertisement
Guest User

Untitled

a guest
Apr 10th, 2019
97
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
VBScript 31.66 KB | None | 0 0
raw download clone embed print report
  1. Public Class Form1
  2.  
  3.     Dim card1 As Integer
  4.  
  5.     Dim card2 As Integer
  6.  
  7.  
  8.     Dim warCard1 As Integer
  9.  
  10.     Dim warCard2 As Integer
  11.  
  12.  
  13.     Dim p1Score As Integer = 26
  14.  
  15.     Dim p2Score As Integer = 26
  16.  
  17.  
  18.     Dim pointVal1 As Integer
  19.  
  20.     Dim pointVal2 As Integer
  21.  
  22.  
  23.     Dim warPVal1 As Integer
  24.  
  25.     Dim warPVal2 As Integer
  26.  
  27.  
  28.  
  29.     Private Sub btn_play_Click(sender As Object, e As EventArgs) Handles btn_play.Click
  30.  
  31.         Randomize()
  32.  
  33.  
  34.         lbl_p1score.Text = p1Score
  35.  
  36.         lbl_p2score.Text = p2Score
  37.  
  38.  
  39.  
  40.         p1Score = p1Score - 1
  41.  
  42.         p2Score = p2Score - 1
  43.  
  44.  
  45.         card1 = (Rnd() * 52) + 1
  46.  
  47.         card2 = (Rnd() * 52) + 1
  48.  
  49.  
  50.         warCard1 = (Rnd() * 52) + 1
  51.  
  52.         warCard2 = (Rnd() * 52) + 1
  53.  
  54.  
  55.         lbl_card1.Text = card1
  56.  
  57.         lbl_card2.Text = card2
  58.  
  59.  
  60.         pb_war11.Visible = False
  61.  
  62.         pb_war12.Visible = False
  63.  
  64.         pb_war13.Visible = False
  65.  
  66.  
  67.         pb_war21.Visible = False
  68.  
  69.         pb_war22.Visible = False
  70.  
  71.         pb_war23.Visible = False
  72.  
  73.  
  74.         pb_warscore1.Visible = False
  75.  
  76.         pb_warscore2.Visible = False
  77.  
  78.  
  79.         lbl_winner.Visible = False
  80.  
  81.  
  82.         btn_play.Visible = True
  83.  
  84.  
  85.  
  86.         If card1 = 1 Then
  87.  
  88.             pb_card1.BackgroundImage = My.Resources.aceclubs
  89.  
  90.             pointVal1 = 14
  91.  
  92.         ElseIf card1 = 2 Then
  93.  
  94.             pb_card1.BackgroundImage = My.Resources._2clubs
  95.  
  96.             pointVal1 = 2
  97.  
  98.         ElseIf card1 = 3 Then
  99.  
  100.             pb_card1.BackgroundImage = My.Resources._3clubs
  101.  
  102.             pointVal1 = 3
  103.  
  104.         ElseIf card1 = 4 Then
  105.  
  106.             pb_card1.BackgroundImage = My.Resources._4clubs
  107.  
  108.             pointVal1 = 4
  109.  
  110.         ElseIf card1 = 5 Then
  111.  
  112.             pb_card1.BackgroundImage = My.Resources._5clubs
  113.  
  114.             pointVal1 = 5
  115.  
  116.         ElseIf card1 = 6 Then
  117.  
  118.             pb_card1.BackgroundImage = My.Resources._6clubs
  119.  
  120.             pointVal1 = 6
  121.  
  122.         ElseIf card1 = 7 Then
  123.  
  124.             pb_card1.BackgroundImage = My.Resources._7clubs
  125.  
  126.             pointVal1 = 7
  127.  
  128.         ElseIf card1 = 8 Then
  129.  
  130.             pb_card1.BackgroundImage = My.Resources._8clubs
  131.  
  132.             pointVal1 = 8
  133.  
  134.         ElseIf card1 = 9 Then
  135.  
  136.             pb_card1.BackgroundImage = My.Resources._9clubs
  137.  
  138.             pointVal1 = 9
  139.  
  140.         ElseIf card1 = 10 Then
  141.  
  142.             pb_card1.BackgroundImage = My.Resources._10clubs
  143.  
  144.             pointVal1 = 10
  145.  
  146.         ElseIf card1 = 11 Then
  147.  
  148.             pb_card1.BackgroundImage = My.Resources.jackclubs
  149.  
  150.             pointVal1 = 11
  151.  
  152.         ElseIf card1 = 12 Then
  153.  
  154.             pb_card1.BackgroundImage = My.Resources.queenclubs
  155.  
  156.             pointVal1 = 12
  157.  
  158.         ElseIf card1 = 13 Then
  159.  
  160.             pb_card1.BackgroundImage = My.Resources.kingclubs
  161.  
  162.             pointVal1 = 13
  163.  
  164.         ElseIf card1 = 14 Then
  165.  
  166.             pb_card1.BackgroundImage = My.Resources.acehearts
  167.  
  168.             pointVal1 = 14
  169.  
  170.         ElseIf card1 = 15 Then
  171.  
  172.             pb_card1.BackgroundImage = My.Resources._2hearts
  173.  
  174.             pointVal1 = 2
  175.  
  176.         ElseIf card1 = 16 Then
  177.  
  178.             pb_card1.BackgroundImage = My.Resources._3hearts
  179.  
  180.             pointVal1 = 3
  181.  
  182.         ElseIf card1 = 17 Then
  183.  
  184.             pb_card1.BackgroundImage = My.Resources._4hearts
  185.  
  186.             pointVal1 = 4
  187.  
  188.         ElseIf card1 = 18 Then
  189.  
  190.             pb_card1.BackgroundImage = My.Resources._5hearts
  191.  
  192.             pointVal1 = 5
  193.  
  194.         ElseIf card1 = 19 Then
  195.  
  196.             pb_card1.BackgroundImage = My.Resources._6hearts
  197.  
  198.             pointVal1 = 6
  199.  
  200.         ElseIf card1 = 20 Then
  201.  
  202.             pb_card1.BackgroundImage = My.Resources._7hearts
  203.  
  204.             pointVal1 = 7
  205.  
  206.         ElseIf card1 = 21 Then
  207.  
  208.             pb_card1.BackgroundImage = My.Resources._8hearts
  209.  
  210.             pointVal1 = 8
  211.  
  212.         ElseIf card1 = 22 Then
  213.  
  214.             pb_card1.BackgroundImage = My.Resources._9hearts
  215.  
  216.             pointVal1 = 9
  217.  
  218.         ElseIf card1 = 23 Then
  219.  
  220.             pb_card1.BackgroundImage = My.Resources._10hearts
  221.  
  222.             pointVal1 = 10
  223.  
  224.         ElseIf card1 = 24 Then
  225.  
  226.             pb_card1.BackgroundImage = My.Resources.jackhearts
  227.  
  228.             pointVal1 = 11
  229.  
  230.         ElseIf card1 = 25 Then
  231.  
  232.             pb_card1.BackgroundImage = My.Resources.queenhearts
  233.  
  234.             pointVal1 = 12
  235.  
  236.         ElseIf card1 = 26 Then
  237.  
  238.             pb_card1.BackgroundImage = My.Resources.kinghearts
  239.  
  240.             pointVal1 = 13
  241.  
  242.         ElseIf card1 = 27 Then
  243.  
  244.             pb_card1.BackgroundImage = My.Resources.acespades
  245.  
  246.             pointVal1 = 14
  247.  
  248.         ElseIf card1 = 28 Then
  249.  
  250.             pb_card1.BackgroundImage = My.Resources._2spades
  251.  
  252.             pointVal1 = 2
  253.  
  254.         ElseIf card1 = 29 Then
  255.  
  256.             pb_card1.BackgroundImage = My.Resources._3spades
  257.  
  258.             pointVal1 = 3
  259.  
  260.         ElseIf card1 = 30 Then
  261.  
  262.             pb_card1.BackgroundImage = My.Resources._4spades
  263.  
  264.             pointVal1 = 4
  265.  
  266.         ElseIf card1 = 31 Then
  267.  
  268.             pb_card1.BackgroundImage = My.Resources._5spades
  269.  
  270.             pointVal1 = 5
  271.  
  272.         ElseIf card1 = 32 Then
  273.  
  274.             pb_card1.BackgroundImage = My.Resources._6spades
  275.  
  276.             pointVal1 = 6
  277.  
  278.         ElseIf card1 = 33 Then
  279.  
  280.             pb_card1.BackgroundImage = My.Resources._7spades
  281.  
  282.             pointVal1 = 7
  283.  
  284.         ElseIf card1 = 34 Then
  285.  
  286.             pb_card1.BackgroundImage = My.Resources._8spades
  287.  
  288.             pointVal1 = 8
  289.  
  290.         ElseIf card1 = 35 Then
  291.  
  292.             pb_card1.BackgroundImage = My.Resources._9spades
  293.  
  294.             pointVal1 = 9
  295.  
  296.         ElseIf card1 = 36 Then
  297.  
  298.             pb_card1.BackgroundImage = My.Resources._10spades
  299.  
  300.             pointVal1 = 10
  301.  
  302.         ElseIf card1 = 37 Then
  303.  
  304.             pb_card1.BackgroundImage = My.Resources.jackspades
  305.  
  306.             pointVal1 = 11
  307.  
  308.         ElseIf card1 = 38 Then
  309.  
  310.             pb_card1.BackgroundImage = My.Resources.queenspades
  311.  
  312.             pointVal1 = 12
  313.  
  314.         ElseIf card1 = 39 Then
  315.  
  316.             pb_card1.BackgroundImage = My.Resources.kingspades
  317.  
  318.             pointVal1 = 13
  319.  
  320.         ElseIf card1 = 40 Then
  321.  
  322.             pb_card1.BackgroundImage = My.Resources.acediamonds
  323.  
  324.             pointVal1 = 14
  325.  
  326.         ElseIf card1 = 41 Then
  327.  
  328.             pb_card1.BackgroundImage = My.Resources._2diamonds
  329.  
  330.             pointVal1 = 2
  331.  
  332.         ElseIf card1 = 42 Then
  333.  
  334.             pb_card1.BackgroundImage = My.Resources._3diamonds
  335.  
  336.             pointVal1 = 3
  337.  
  338.         ElseIf card1 = 43 Then
  339.  
  340.             pb_card1.BackgroundImage = My.Resources._4diamonds
  341.  
  342.             pointVal1 = 4
  343.  
  344.         ElseIf card1 = 44 Then
  345.  
  346.             pb_card1.BackgroundImage = My.Resources._5diamonds
  347.  
  348.             pointVal1 = 5
  349.  
  350.         ElseIf card1 = 45 Then
  351.  
  352.             pb_card1.BackgroundImage = My.Resources._6diamonds
  353.  
  354.             pointVal1 = 6
  355.  
  356.         ElseIf card1 = 46 Then
  357.  
  358.             pb_card1.BackgroundImage = My.Resources._7diamonds
  359.  
  360.             pointVal1 = 7
  361.  
  362.         ElseIf card1 = 47 Then
  363.  
  364.             pb_card1.BackgroundImage = My.Resources._8diamonds
  365.  
  366.             pointVal1 = 8
  367.  
  368.         ElseIf card1 = 48 Then
  369.  
  370.             pb_card1.BackgroundImage = My.Resources._9diamonds
  371.  
  372.             pointVal1 = 9
  373.  
  374.         ElseIf card1 = 49 Then
  375.  
  376.             pb_card1.BackgroundImage = My.Resources._10diamonds
  377.  
  378.             pointVal1 = 10
  379.  
  380.         ElseIf card1 = 50 Then
  381.  
  382.             pb_card1.BackgroundImage = My.Resources.jackdiamonds
  383.  
  384.             pointVal1 = 11
  385.  
  386.         ElseIf card1 = 51 Then
  387.  
  388.             pb_card1.BackgroundImage = My.Resources.queendiamonds
  389.  
  390.             pointVal1 = 12
  391.  
  392.         ElseIf card1 = 52 Then
  393.  
  394.             pb_card1.BackgroundImage = My.Resources.kingdiamonds
  395.  
  396.             pointVal1 = 13
  397.  
  398.         End If
  399.  
  400.  
  401.  
  402.         If card2 = 1 Then
  403.  
  404.             pb_card2.BackgroundImage = My.Resources.aceclubs
  405.  
  406.             pointVal2 = 14
  407.  
  408.  
  409.         ElseIf card2 = 2 Then
  410.  
  411.             pb_card2.BackgroundImage = My.Resources._2clubs
  412.  
  413.             pointVal2 = 2
  414.  
  415.  
  416.         ElseIf card2 = 3 Then
  417.  
  418.             pb_card2.BackgroundImage = My.Resources._3clubs
  419.  
  420.             pointVal2 = 3
  421.  
  422.  
  423.         ElseIf card2 = 4 Then
  424.  
  425.             pb_card2.BackgroundImage = My.Resources._4clubs
  426.  
  427.             pointVal2 = 4
  428.  
  429.  
  430.         ElseIf card2 = 5 Then
  431.  
  432.             pb_card2.BackgroundImage = My.Resources._5clubs
  433.  
  434.             pointVal2 = 5
  435.  
  436.  
  437.         ElseIf card2 = 6 Then
  438.  
  439.             pb_card2.BackgroundImage = My.Resources._6clubs
  440.  
  441.             pointVal2 = 6
  442.  
  443.  
  444.         ElseIf card2 = 7 Then
  445.  
  446.             pb_card2.BackgroundImage = My.Resources._7clubs
  447.  
  448.             pointVal2 = 7
  449.  
  450.  
  451.         ElseIf card2 = 8 Then
  452.  
  453.             pb_card2.BackgroundImage = My.Resources._8clubs
  454.  
  455.             pointVal2 = 8
  456.  
  457.  
  458.         ElseIf card2 = 9 Then
  459.  
  460.             pb_card2.BackgroundImage = My.Resources._9clubs
  461.  
  462.             pointVal2 = 9
  463.  
  464.  
  465.         ElseIf card2 = 10 Then
  466.  
  467.             pb_card2.BackgroundImage = My.Resources._10clubs
  468.  
  469.             pointVal2 = 10
  470.  
  471.  
  472.         ElseIf card2 = 11 Then
  473.  
  474.             pb_card2.BackgroundImage = My.Resources.jackclubs
  475.  
  476.             pointVal2 = 11
  477.  
  478.  
  479.         ElseIf card2 = 12 Then
  480.  
  481.             pb_card2.BackgroundImage = My.Resources.queenclubs
  482.  
  483.             pointVal2 = 12
  484.  
  485.  
  486.         ElseIf card2 = 13 Then
  487.  
  488.             pb_card2.BackgroundImage = My.Resources.kingclubs
  489.  
  490.             pointVal2 = 13
  491.  
  492.  
  493.         ElseIf card2 = 14 Then
  494.  
  495.             pb_card2.BackgroundImage = My.Resources.acehearts
  496.  
  497.             pointVal2 = 14
  498.  
  499.  
  500.         ElseIf card2 = 15 Then
  501.  
  502.             pb_card2.BackgroundImage = My.Resources._2hearts
  503.  
  504.             pointVal2 = 2
  505.  
  506.  
  507.         ElseIf card2 = 16 Then
  508.  
  509.             pb_card2.BackgroundImage = My.Resources._3hearts
  510.  
  511.             pointVal2 = 3
  512.  
  513.  
  514.         ElseIf card2 = 17 Then
  515.  
  516.             pb_card2.BackgroundImage = My.Resources._4hearts
  517.  
  518.             pointVal2 = 4
  519.  
  520.  
  521.         ElseIf card2 = 18 Then
  522.  
  523.             pb_card2.BackgroundImage = My.Resources._5hearts
  524.  
  525.             pointVal2 = 5
  526.  
  527.  
  528.         ElseIf card2 = 19 Then
  529.  
  530.             pb_card2.BackgroundImage = My.Resources._6hearts
  531.  
  532.             pointVal2 = 6
  533.  
  534.  
  535.         ElseIf card2 = 20 Then
  536.  
  537.             pb_card2.BackgroundImage = My.Resources._7hearts
  538.  
  539.             pointVal2 = 7
  540.  
  541.  
  542.         ElseIf card2 = 21 Then
  543.  
  544.             pb_card2.BackgroundImage = My.Resources._8hearts
  545.  
  546.             pointVal2 = 8
  547.  
  548.  
  549.         ElseIf card2 = 22 Then
  550.  
  551.             pb_card2.BackgroundImage = My.Resources._9hearts
  552.  
  553.             pointVal2 = 9
  554.  
  555.  
  556.         ElseIf card2 = 23 Then
  557.  
  558.             pb_card2.BackgroundImage = My.Resources._10hearts
  559.  
  560.             pointVal2 = 10
  561.  
  562.  
  563.         ElseIf card2 = 24 Then
  564.  
  565.             pb_card2.BackgroundImage = My.Resources.jackhearts
  566.  
  567.             pointVal2 = 11
  568.  
  569.  
  570.         ElseIf card2 = 25 Then
  571.  
  572.             pb_card2.BackgroundImage = My.Resources.queenhearts
  573.  
  574.             pointVal2 = 12
  575.  
  576.  
  577.         ElseIf card2 = 26 Then
  578.  
  579.             pb_card2.BackgroundImage = My.Resources.kinghearts
  580.  
  581.             pointVal2 = 13
  582.  
  583.  
  584.         ElseIf card2 = 27 Then
  585.  
  586.             pb_card2.BackgroundImage = My.Resources.acespades
  587.  
  588.             pointVal2 = 14
  589.  
  590.  
  591.         ElseIf card2 = 28 Then
  592.  
  593.             pb_card2.BackgroundImage = My.Resources._2spades
  594.  
  595.             pointVal2 = 2
  596.  
  597.  
  598.         ElseIf card2 = 29 Then
  599.  
  600.             pb_card2.BackgroundImage = My.Resources._3spades
  601.  
  602.             pointVal2 = 3
  603.  
  604.  
  605.         ElseIf card2 = 30 Then
  606.  
  607.             pb_card2.BackgroundImage = My.Resources._4spades
  608.  
  609.             pointVal2 = 4
  610.  
  611.  
  612.         ElseIf card2 = 31 Then
  613.  
  614.             pb_card2.BackgroundImage = My.Resources._5spades
  615.  
  616.             pointVal2 = 5
  617.  
  618.  
  619.         ElseIf card2 = 32 Then
  620.  
  621.             pb_card2.BackgroundImage = My.Resources._6spades
  622.  
  623.             pointVal2 = 6
  624.  
  625.  
  626.         ElseIf card2 = 33 Then
  627.  
  628.             pb_card2.BackgroundImage = My.Resources._7spades
  629.  
  630.             pointVal2 = 7
  631.  
  632.  
  633.         ElseIf card2 = 34 Then
  634.  
  635.             pb_card2.BackgroundImage = My.Resources._8spades
  636.  
  637.             pointVal2 = 8
  638.  
  639.  
  640.         ElseIf card2 = 35 Then
  641.  
  642.             pb_card2.BackgroundImage = My.Resources._9spades
  643.  
  644.             pointVal2 = 9
  645.  
  646.  
  647.         ElseIf card2 = 36 Then
  648.  
  649.             pb_card2.BackgroundImage = My.Resources._10spades
  650.  
  651.             pointVal2 = 10
  652.  
  653.  
  654.         ElseIf card2 = 37 Then
  655.  
  656.             pb_card2.BackgroundImage = My.Resources.jackspades
  657.  
  658.             pointVal2 = 11
  659.  
  660.  
  661.         ElseIf card2 = 38 Then
  662.  
  663.             pb_card2.BackgroundImage = My.Resources.queenspades
  664.  
  665.             pointVal2 = 12
  666.  
  667.  
  668.         ElseIf card2 = 39 Then
  669.  
  670.             pb_card2.BackgroundImage = My.Resources.kingspades
  671.  
  672.             pointVal2 = 13
  673.  
  674.  
  675.         ElseIf card2 = 40 Then
  676.  
  677.             pb_card2.BackgroundImage = My.Resources.acediamonds
  678.  
  679.             pointVal2 = 14
  680.  
  681.  
  682.         ElseIf card2 = 41 Then
  683.  
  684.             pb_card2.BackgroundImage = My.Resources._2diamonds
  685.  
  686.             pointVal2 = 2
  687.  
  688.         ElseIf card2 = 42 Then
  689.  
  690.             pb_card2.BackgroundImage = My.Resources._3diamonds
  691.  
  692.             pointVal2 = 3
  693.  
  694.  
  695.         ElseIf card2 = 43 Then
  696.  
  697.             pb_card2.BackgroundImage = My.Resources._4diamonds
  698.  
  699.             pointVal2 = 4
  700.  
  701.  
  702.         ElseIf card2 = 44 Then
  703.  
  704.             pb_card2.BackgroundImage = My.Resources._5diamonds
  705.  
  706.             pointVal2 = 5
  707.  
  708.  
  709.         ElseIf card2 = 45 Then
  710.  
  711.             pb_card2.BackgroundImage = My.Resources._6diamonds
  712.  
  713.             pointVal2 = 6
  714.  
  715.  
  716.         ElseIf card2 = 46 Then
  717.  
  718.             pb_card2.BackgroundImage = My.Resources._7diamonds
  719.  
  720.             pointVal2 = 7
  721.  
  722.  
  723.         ElseIf card2 = 47 Then
  724.  
  725.             pb_card2.BackgroundImage = My.Resources._8diamonds
  726.  
  727.             pointVal2 = 8
  728.  
  729.  
  730.         ElseIf card2 = 48 Then
  731.  
  732.             pb_card2.BackgroundImage = My.Resources._9diamonds
  733.  
  734.             pointVal2 = 9
  735.  
  736.  
  737.         ElseIf card2 = 49 Then
  738.  
  739.             pb_card2.BackgroundImage = My.Resources._10diamonds
  740.  
  741.             pointVal2 = 10
  742.  
  743.  
  744.         ElseIf card2 = 50 Then
  745.  
  746.             pb_card2.BackgroundImage = My.Resources.jackdiamonds
  747.  
  748.             pointVal2 = 11
  749.  
  750.  
  751.         ElseIf card2 = 51 Then
  752.  
  753.             pb_card2.BackgroundImage = My.Resources.queendiamonds
  754.  
  755.             pointVal2 = 12
  756.  
  757.  
  758.         ElseIf card2 = 52 Then
  759.  
  760.             pb_card2.BackgroundImage = My.Resources.kingdiamonds
  761.  
  762.             pointVal2 = 13
  763.  
  764.  
  765.  
  766.         End If
  767.  
  768.  
  769.         If pointVal1 > pointVal2 Then
  770.  
  771.             p1Score = p1Score + 2
  772.  
  773.             p2Score = p2Score
  774.  
  775.         ElseIf pointVal2 > pointVal1 Then
  776.  
  777.             p1Score = p1Score
  778.  
  779.             p2Score = p2Score + 2
  780.  
  781.  
  782.  
  783.         End If
  784.  
  785.  
  786.         If pointVal1 = pointVal2 Then
  787.  
  788.  
  789.  
  790.             'this is the war code where more pictureboxes show up, additional cardsa re flipped and a new scoring system takes into effect...
  791.  
  792.             p1Score = p1Score - 4
  793.  
  794.             p2Score = p2Score - 4
  795.  
  796.  
  797.  
  798.             pb_war11.Visible = True
  799.  
  800.             pb_war12.Visible = True
  801.  
  802.             pb_war13.Visible = True
  803.  
  804.  
  805.             pb_war21.Visible = True
  806.  
  807.             pb_war22.Visible = True
  808.  
  809.             pb_war23.Visible = True
  810.  
  811.  
  812.             pb_warscore1.Visible = True
  813.  
  814.             pb_warscore2.Visible = True
  815.  
  816.  
  817.             If warCard1 = 1 Then
  818.  
  819.                 pb_warscore1.BackgroundImage = My.Resources.aceclubs
  820.  
  821.                 warPVal1 = 14
  822.  
  823.             ElseIf warCard1 = 2 Then
  824.  
  825.                 pb_warscore1.BackgroundImage = My.Resources._2clubs
  826.  
  827.                 warPVal1 = 2
  828.  
  829.             ElseIf warCard1 = 3 Then
  830.  
  831.                 pb_warscore1.BackgroundImage = My.Resources._3clubs
  832.  
  833.                 warPVal1 = 3
  834.  
  835.             ElseIf warCard1 = 4 Then
  836.  
  837.                 pb_warscore1.BackgroundImage = My.Resources._4clubs
  838.  
  839.                 warPVal1 = 4
  840.  
  841.             ElseIf warCard1 = 5 Then
  842.  
  843.                 pb_warscore1.BackgroundImage = My.Resources._5clubs
  844.  
  845.                 warPVal1 = 5
  846.  
  847.             ElseIf warCard1 = 6 Then
  848.  
  849.                 pb_warscore1.BackgroundImage = My.Resources._6clubs
  850.  
  851.                 warPVal1 = 6
  852.  
  853.             ElseIf warCard1 = 7 Then
  854.  
  855.                 pb_warscore1.BackgroundImage = My.Resources._7clubs
  856.  
  857.                 warPVal1 = 7
  858.  
  859.             ElseIf warCard1 = 8 Then
  860.  
  861.                 pb_warscore1.BackgroundImage = My.Resources._8clubs
  862.  
  863.                 warPVal1 = 8
  864.  
  865.             ElseIf warCard1 = 9 Then
  866.  
  867.                 pb_warscore1.BackgroundImage = My.Resources._9clubs
  868.  
  869.                 warPVal1 = 9
  870.  
  871.             ElseIf warCard1 = 10 Then
  872.  
  873.                 pb_warscore1.BackgroundImage = My.Resources._10clubs
  874.  
  875.                 warPVal1 = 10
  876.  
  877.             ElseIf warCard1 = 11 Then
  878.  
  879.                 pb_warscore1.BackgroundImage = My.Resources.jackclubs
  880.  
  881.                 warPVal1 = 11
  882.  
  883.             ElseIf warCard1 = 12 Then
  884.  
  885.                 pb_warscore1.BackgroundImage = My.Resources.queenclubs
  886.  
  887.                 warPVal1 = 12
  888.  
  889.             ElseIf warCard1 = 13 Then
  890.  
  891.                 pb_warscore1.BackgroundImage = My.Resources.kingclubs
  892.  
  893.                 warPVal1 = 13
  894.  
  895.             ElseIf warCard1 = 14 Then
  896.  
  897.                 pb_warscore1.BackgroundImage = My.Resources.acehearts
  898.  
  899.                 warPVal1 = 14
  900.  
  901.             ElseIf warCard1 = 15 Then
  902.  
  903.                 pb_warscore1.BackgroundImage = My.Resources._2hearts
  904.  
  905.                 warPVal1 = 2
  906.  
  907.             ElseIf warCard1 = 16 Then
  908.  
  909.                 pb_warscore1.BackgroundImage = My.Resources._3hearts
  910.  
  911.                 warPVal1 = 3
  912.  
  913.             ElseIf warCard1 = 17 Then
  914.  
  915.                 pb_warscore1.BackgroundImage = My.Resources._4hearts
  916.  
  917.                 warPVal1 = 4
  918.  
  919.             ElseIf warCard1 = 18 Then
  920.  
  921.                 pb_warscore1.BackgroundImage = My.Resources._5hearts
  922.  
  923.                 warPVal1 = 5
  924.  
  925.             ElseIf warCard1 = 19 Then
  926.  
  927.                 pb_warscore1.BackgroundImage = My.Resources._6hearts
  928.  
  929.                 warPVal1 = 6
  930.  
  931.             ElseIf warCard1 = 20 Then
  932.  
  933.                 pb_warscore1.BackgroundImage = My.Resources._7hearts
  934.  
  935.                 warPVal1 = 7
  936.  
  937.             ElseIf warCard1 = 21 Then
  938.  
  939.                 pb_warscore1.BackgroundImage = My.Resources._8hearts
  940.  
  941.                 warPVal1 = 8
  942.  
  943.             ElseIf warCard1 = 22 Then
  944.  
  945.                 pb_warscore1.BackgroundImage = My.Resources._9hearts
  946.  
  947.                 warPVal1 = 9
  948.  
  949.             ElseIf warCard1 = 23 Then
  950.  
  951.                 pb_warscore1.BackgroundImage = My.Resources._10hearts
  952.  
  953.                 warPVal1 = 10
  954.  
  955.             ElseIf warCard1 = 24 Then
  956.  
  957.                 pb_warscore1.BackgroundImage = My.Resources.jackhearts
  958.  
  959.                 warPVal1 = 11
  960.  
  961.             ElseIf warCard1 = 25 Then
  962.  
  963.                 pb_warscore1.BackgroundImage = My.Resources.queenhearts
  964.  
  965.                 warPVal1 = 12
  966.  
  967.             ElseIf warCard1 = 26 Then
  968.  
  969.                 pb_warscore1.BackgroundImage = My.Resources.kinghearts
  970.  
  971.                 warPVal1 = 13
  972.  
  973.             ElseIf warCard1 = 27 Then
  974.  
  975.                 pb_warscore1.BackgroundImage = My.Resources.acespades
  976.  
  977.                 warPVal1 = 14
  978.  
  979.             ElseIf warCard1 = 28 Then
  980.  
  981.                 pb_warscore1.BackgroundImage = My.Resources._2spades
  982.  
  983.                 warPVal1 = 2
  984.  
  985.             ElseIf warCard1 = 29 Then
  986.  
  987.                 pb_warscore1.BackgroundImage = My.Resources._3spades
  988.  
  989.                 warPVal1 = 3
  990.  
  991.             ElseIf warCard1 = 30 Then
  992.  
  993.                 pb_warscore1.BackgroundImage = My.Resources._4spades
  994.  
  995.                 warPVal1 = 4
  996.  
  997.             ElseIf warCard1 = 31 Then
  998.  
  999.                 pb_warscore1.BackgroundImage = My.Resources._5spades
  1000.  
  1001.                 warPVal1 = 5
  1002.  
  1003.             ElseIf warCard1 = 32 Then
  1004.  
  1005.                 pb_warscore1.BackgroundImage = My.Resources._6spades
  1006.  
  1007.                 warPVal1 = 6
  1008.  
  1009.             ElseIf warCard1 = 33 Then
  1010.  
  1011.                 pb_warscore1.BackgroundImage = My.Resources._7spades
  1012.  
  1013.                 warPVal1 = 7
  1014.  
  1015.             ElseIf warCard1 = 34 Then
  1016.  
  1017.                 pb_warscore1.BackgroundImage = My.Resources._8spades
  1018.  
  1019.                 warPVal1 = 8
  1020.  
  1021.             ElseIf warCard1 = 35 Then
  1022.  
  1023.                 pb_warscore1.BackgroundImage = My.Resources._9spades
  1024.  
  1025.                 warPVal1 = 9
  1026.  
  1027.             ElseIf warCard1 = 36 Then
  1028.  
  1029.                 pb_warscore1.BackgroundImage = My.Resources._10spades
  1030.  
  1031.                 warPVal1 = 10
  1032.  
  1033.             ElseIf warCard1 = 37 Then
  1034.  
  1035.                 pb_warscore1.BackgroundImage = My.Resources.jackspades
  1036.  
  1037.                 warPVal1 = 11
  1038.  
  1039.             ElseIf warCard1 = 38 Then
  1040.  
  1041.                 pb_warscore1.BackgroundImage = My.Resources.queenspades
  1042.  
  1043.                 warPVal1 = 12
  1044.  
  1045.             ElseIf warCard1 = 39 Then
  1046.  
  1047.                 pb_warscore1.BackgroundImage = My.Resources.kingspades
  1048.  
  1049.                 warPVal1 = 13
  1050.  
  1051.             ElseIf warCard1 = 40 Then
  1052.  
  1053.                 pb_warscore1.BackgroundImage = My.Resources.acediamonds
  1054.  
  1055.                 warPVal1 = 14
  1056.  
  1057.             ElseIf warCard1 = 41 Then
  1058.  
  1059.                 pb_warscore1.BackgroundImage = My.Resources._2diamonds
  1060.  
  1061.                 warPVal1 = 2
  1062.  
  1063.             ElseIf warCard1 = 42 Then
  1064.  
  1065.                 pb_warscore1.BackgroundImage = My.Resources._3diamonds
  1066.  
  1067.                 warPVal1 = 3
  1068.  
  1069.             ElseIf warCard1 = 43 Then
  1070.  
  1071.                 pb_warscore1.BackgroundImage = My.Resources._4diamonds
  1072.  
  1073.                 warPVal1 = 4
  1074.  
  1075.             ElseIf warCard1 = 44 Then
  1076.  
  1077.                 pb_warscore1.BackgroundImage = My.Resources._5diamonds
  1078.  
  1079.                 warPVal1 = 5
  1080.  
  1081.             ElseIf warCard1 = 45 Then
  1082.  
  1083.                 pb_warscore1.BackgroundImage = My.Resources._6diamonds
  1084.  
  1085.                 warPVal1 = 6
  1086.  
  1087.             ElseIf warCard1 = 46 Then
  1088.  
  1089.                 pb_warscore1.BackgroundImage = My.Resources._7diamonds
  1090.  
  1091.                 warPVal1 = 7
  1092.  
  1093.             ElseIf warCard1 = 47 Then
  1094.  
  1095.                 pb_warscore1.BackgroundImage = My.Resources._8diamonds
  1096.  
  1097.                 warPVal1 = 8
  1098.  
  1099.             ElseIf warCard1 = 48 Then
  1100.  
  1101.                 pb_warscore1.BackgroundImage = My.Resources._9diamonds
  1102.  
  1103.                 warPVal1 = 9
  1104.  
  1105.             ElseIf warCard1 = 49 Then
  1106.  
  1107.                 pb_warscore1.BackgroundImage = My.Resources._10diamonds
  1108.  
  1109.                 warPVal1 = 10
  1110.  
  1111.             ElseIf warCard1 = 50 Then
  1112.  
  1113.                 pb_warscore1.BackgroundImage = My.Resources.jackdiamonds
  1114.  
  1115.                 warPVal1 = 11
  1116.  
  1117.             ElseIf warCard1 = 51 Then
  1118.  
  1119.                 pb_warscore1.BackgroundImage = My.Resources.queendiamonds
  1120.  
  1121.                 warPVal1 = 12
  1122.  
  1123.             ElseIf warCard1 = 52 Then
  1124.  
  1125.                 pb_warscore1.BackgroundImage = My.Resources.kingdiamonds
  1126.  
  1127.                 warPVal1 = 13
  1128.  
  1129.             End If
  1130.  
  1131.  
  1132.  
  1133.             If warCard2 = 1 Then
  1134.  
  1135.                 pb_warscore2.BackgroundImage = My.Resources.aceclubs
  1136.  
  1137.                 warPVal2 = 14
  1138.  
  1139.  
  1140.             ElseIf warCard2 = 2 Then
  1141.  
  1142.                 pb_warscore2.BackgroundImage = My.Resources._2clubs
  1143.  
  1144.                 warPVal2 = 2
  1145.  
  1146.  
  1147.             ElseIf warCard2 = 3 Then
  1148.  
  1149.                 pb_warscore2.BackgroundImage = My.Resources._3clubs
  1150.  
  1151.                 warPVal2 = 3
  1152.  
  1153.  
  1154.             ElseIf warCard2 = 4 Then
  1155.  
  1156.                 pb_warscore2.BackgroundImage = My.Resources._4clubs
  1157.  
  1158.                 warPVal2 = 4
  1159.  
  1160.  
  1161.             ElseIf warCard2 = 5 Then
  1162.  
  1163.                 pb_warscore2.BackgroundImage = My.Resources._5clubs
  1164.  
  1165.                 warPVal2 = 5
  1166.  
  1167.  
  1168.             ElseIf warCard2 = 6 Then
  1169.  
  1170.                 pb_warscore2.BackgroundImage = My.Resources._6clubs
  1171.  
  1172.                 warPVal2 = 6
  1173.  
  1174.  
  1175.             ElseIf warCard2 = 7 Then
  1176.  
  1177.                 pb_warscore2.BackgroundImage = My.Resources._7clubs
  1178.  
  1179.                 warPVal2 = 7
  1180.  
  1181.  
  1182.             ElseIf warCard2 = 8 Then
  1183.  
  1184.                 pb_warscore2.BackgroundImage = My.Resources._8clubs
  1185.  
  1186.                 warPVal2 = 8
  1187.  
  1188.  
  1189.             ElseIf warCard2 = 9 Then
  1190.  
  1191.                 pb_warscore2.BackgroundImage = My.Resources._9clubs
  1192.  
  1193.                 warPVal2 = 9
  1194.  
  1195.  
  1196.             ElseIf warCard2 = 10 Then
  1197.  
  1198.                 pb_warscore2.BackgroundImage = My.Resources._10clubs
  1199.  
  1200.                 warPVal2 = 10
  1201.  
  1202.  
  1203.             ElseIf warCard2 = 11 Then
  1204.  
  1205.                 pb_warscore2.BackgroundImage = My.Resources.jackclubs
  1206.  
  1207.                 warPVal2 = 11
  1208.  
  1209.  
  1210.             ElseIf warCard2 = 12 Then
  1211.  
  1212.                 pb_warscore2.BackgroundImage = My.Resources.queenclubs
  1213.  
  1214.                 warPVal2 = 12
  1215.  
  1216.  
  1217.             ElseIf warCard2 = 13 Then
  1218.  
  1219.                 pb_warscore2.BackgroundImage = My.Resources.kingclubs
  1220.  
  1221.                 warPVal2 = 13
  1222.  
  1223.  
  1224.             ElseIf warCard2 = 14 Then
  1225.  
  1226.                 pb_warscore2.BackgroundImage = My.Resources.acehearts
  1227.  
  1228.                 warPVal2 = 14
  1229.  
  1230.  
  1231.             ElseIf warCard2 = 15 Then
  1232.  
  1233.                 pb_warscore2.BackgroundImage = My.Resources._2hearts
  1234.  
  1235.                 warPVal2 = 2
  1236.  
  1237.  
  1238.             ElseIf warCard2 = 16 Then
  1239.  
  1240.                 pb_warscore2.BackgroundImage = My.Resources._3hearts
  1241.  
  1242.                 warPVal2 = 3
  1243.  
  1244.  
  1245.             ElseIf warCard2 = 17 Then
  1246.  
  1247.                 pb_warscore2.BackgroundImage = My.Resources._4hearts
  1248.  
  1249.                 warPVal2 = 4
  1250.  
  1251.  
  1252.             ElseIf warCard2 = 18 Then
  1253.  
  1254.                 pb_warscore2.BackgroundImage = My.Resources._5hearts
  1255.  
  1256.                 warPVal2 = 5
  1257.  
  1258.  
  1259.             ElseIf warCard2 = 19 Then
  1260.  
  1261.                 pb_warscore2.BackgroundImage = My.Resources._6hearts
  1262.  
  1263.                 warPVal2 = 6
  1264.  
  1265.  
  1266.             ElseIf warCard2 = 20 Then
  1267.  
  1268.                 pb_warscore2.BackgroundImage = My.Resources._7hearts
  1269.  
  1270.                 warPVal2 = 7
  1271.  
  1272.  
  1273.             ElseIf warCard2 = 21 Then
  1274.  
  1275.                 pb_warscore2.BackgroundImage = My.Resources._8hearts
  1276.  
  1277.                 warPVal2 = 8
  1278.  
  1279.  
  1280.             ElseIf warCard2 = 22 Then
  1281.  
  1282.                 pb_warscore2.BackgroundImage = My.Resources._9hearts
  1283.  
  1284.                 warPVal2 = 9
  1285.  
  1286.  
  1287.             ElseIf warCard2 = 23 Then
  1288.  
  1289.                 pb_warscore2.BackgroundImage = My.Resources._10hearts
  1290.  
  1291.                 warPVal2 = 10
  1292.  
  1293.  
  1294.             ElseIf warCard2 = 24 Then
  1295.  
  1296.                 pb_warscore2.BackgroundImage = My.Resources.jackhearts
  1297.  
  1298.                 warPVal2 = 11
  1299.  
  1300.  
  1301.             ElseIf warCard2 = 25 Then
  1302.  
  1303.                 pb_warscore2.BackgroundImage = My.Resources.queenhearts
  1304.  
  1305.                 warPVal2 = 12
  1306.  
  1307.  
  1308.             ElseIf warCard2 = 26 Then
  1309.  
  1310.                 pb_warscore2.BackgroundImage = My.Resources.kinghearts
  1311.  
  1312.                 warPVal2 = 13
  1313.  
  1314.  
  1315.             ElseIf warCard2 = 27 Then
  1316.  
  1317.                 pb_warscore2.BackgroundImage = My.Resources.acespades
  1318.  
  1319.                 warPVal2 = 14
  1320.  
  1321.  
  1322.             ElseIf warCard2 = 28 Then
  1323.  
  1324.                 pb_warscore2.BackgroundImage = My.Resources._2spades
  1325.  
  1326.                 warPVal2 = 2
  1327.  
  1328.  
  1329.             ElseIf warCard2 = 29 Then
  1330.  
  1331.                 pb_warscore2.BackgroundImage = My.Resources._3spades
  1332.  
  1333.                 warPVal2 = 3
  1334.  
  1335.  
  1336.             ElseIf warCard2 = 30 Then
  1337.  
  1338.                 pb_warscore2.BackgroundImage = My.Resources._4spades
  1339.  
  1340.                 warPVal2 = 4
  1341.  
  1342.  
  1343.             ElseIf warCard2 = 31 Then
  1344.  
  1345.                 pb_warscore2.BackgroundImage = My.Resources._5spades
  1346.  
  1347.                 warPVal2 = 5
  1348.  
  1349.  
  1350.             ElseIf warCard2 = 32 Then
  1351.  
  1352.                 pb_warscore2.BackgroundImage = My.Resources._6spades
  1353.  
  1354.                 warPVal2 = 6
  1355.  
  1356.  
  1357.             ElseIf warCard2 = 33 Then
  1358.  
  1359.                 pb_warscore2.BackgroundImage = My.Resources._7spades
  1360.  
  1361.                 warPVal2 = 7
  1362.  
  1363.  
  1364.             ElseIf warCard2 = 34 Then
  1365.  
  1366.                 pb_warscore2.BackgroundImage = My.Resources._8spades
  1367.  
  1368.                 warPVal2 = 8
  1369.  
  1370.  
  1371.             ElseIf warCard2 = 35 Then
  1372.  
  1373.                 pb_warscore2.BackgroundImage = My.Resources._9spades
  1374.  
  1375.                 warPVal2 = 9
  1376.  
  1377.  
  1378.             ElseIf warCard2 = 36 Then
  1379.  
  1380.                 pb_warscore2.BackgroundImage = My.Resources._10spades
  1381.  
  1382.                 warPVal2 = 10
  1383.  
  1384.  
  1385.             ElseIf warCard2 = 37 Then
  1386.  
  1387.                 pb_warscore2.BackgroundImage = My.Resources.jackspades
  1388.  
  1389.                 warPVal2 = 11
  1390.  
  1391.  
  1392.             ElseIf warCard2 = 38 Then
  1393.  
  1394.                 pb_warscore2.BackgroundImage = My.Resources.queenspades
  1395.  
  1396.                 warPVal2 = 12
  1397.  
  1398.  
  1399.             ElseIf warCard2 = 39 Then
  1400.  
  1401.                 pb_warscore2.BackgroundImage = My.Resources.kingspades
  1402.  
  1403.                 warPVal2 = 13
  1404.  
  1405.  
  1406.             ElseIf warCard2 = 40 Then
  1407.  
  1408.                 pb_warscore2.BackgroundImage = My.Resources.acediamonds
  1409.  
  1410.                 warPVal2 = 14
  1411.  
  1412.  
  1413.             ElseIf warCard2 = 41 Then
  1414.  
  1415.                 pb_warscore2.BackgroundImage = My.Resources._2diamonds
  1416.  
  1417.                 warPVal2 = 2
  1418.  
  1419.             ElseIf warCard2 = 42 Then
  1420.  
  1421.                 pb_warscore2.BackgroundImage = My.Resources._3diamonds
  1422.  
  1423.                 warPVal2 = 3
  1424.  
  1425.  
  1426.             ElseIf warCard2 = 43 Then
  1427.  
  1428.                 pb_warscore2.BackgroundImage = My.Resources._4diamonds
  1429.  
  1430.                 warPVal2 = 4
  1431.  
  1432.  
  1433.             ElseIf warCard2 = 44 Then
  1434.  
  1435.                 pb_warscore2.BackgroundImage = My.Resources._5diamonds
  1436.  
  1437.                 warPVal2 = 5
  1438.  
  1439.  
  1440.             ElseIf warCard2 = 45 Then
  1441.  
  1442.                 pb_warscore2.BackgroundImage = My.Resources._6diamonds
  1443.  
  1444.                 warPVal2 = 6
  1445.  
  1446.  
  1447.             ElseIf warCard2 = 46 Then
  1448.  
  1449.                 pb_warscore2.BackgroundImage = My.Resources._7diamonds
  1450.  
  1451.                 warPVal2 = 7
  1452.  
  1453.  
  1454.             ElseIf warCard2 = 47 Then
  1455.  
  1456.                 pb_warscore2.BackgroundImage = My.Resources._8diamonds
  1457.  
  1458.                 warPVal2 = 8
  1459.  
  1460.  
  1461.             ElseIf warCard2 = 48 Then
  1462.  
  1463.                 pb_warscore2.BackgroundImage = My.Resources._9diamonds
  1464.  
  1465.                 warPVal2 = 9
  1466.  
  1467.  
  1468.             ElseIf warCard2 = 49 Then
  1469.  
  1470.                 pb_warscore2.BackgroundImage = My.Resources._10diamonds
  1471.  
  1472.                 warPVal2 = 10
  1473.  
  1474.  
  1475.             ElseIf warCard2 = 50 Then
  1476.  
  1477.                 pb_warscore2.BackgroundImage = My.Resources.jackdiamonds
  1478.  
  1479.                 warPVal2 = 11
  1480.  
  1481.  
  1482.             ElseIf warCard2 = 51 Then
  1483.  
  1484.                 pb_warscore2.BackgroundImage = My.Resources.queendiamonds
  1485.  
  1486.                 warPVal2 = 12
  1487.  
  1488.  
  1489.             ElseIf warCard2 = 52 Then
  1490.  
  1491.                 pb_warscore2.BackgroundImage = My.Resources.kingdiamonds
  1492.  
  1493.                 warPVal2 = 13
  1494.  
  1495.  
  1496.  
  1497.             End If
  1498.  
  1499.  
  1500.  
  1501.  
  1502.             If warPVal1 > warPVal2 Then
  1503.  
  1504.                 p1Score = p1Score + 10
  1505.  
  1506.                 p2Score = p2Score
  1507.  
  1508.             ElseIf warPVal2 > warPVal1 Then
  1509.  
  1510.                 p1Score = p1Score
  1511.  
  1512.                 p2Score = p2Score + 10
  1513.  
  1514.  
  1515.             End If
  1516.  
  1517.  
  1518.  
  1519.         End If
  1520.  
  1521.  
  1522.         If p1Score < 0 Then
  1523.  
  1524.             lbl_winner.Visible = True
  1525.  
  1526.             lbl_winner.Text = "Player One Wins!"
  1527.  
  1528.             btn_play.Visible = False
  1529.  
  1530.         End If
  1531.  
  1532.  
  1533.         If p2Score < 0 Then
  1534.  
  1535.             lbl_winner.Visible = True
  1536.  
  1537.             lbl_winner.Text = "Player Two Wins!"
  1538.  
  1539.             btn_play.Visible = False
  1540.  
  1541.         End If
  1542.  
  1543.  
  1544.  
  1545.  
  1546.  
  1547.     End Sub
  1548.  
  1549. 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!