API tools faq
paste
Advertisement
Guest User

Untitled

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