Quantcast
Channel: VBForums
Viewing all articles
Browse latest Browse all 42326

Help assigning an image file a numerical value

$
0
0
I'm trying to do a very rudimentary version of a card counting program. I am trying to assign the cards the corresponding value that they would have when counting cards in blackjack. Is this possible? Everything I can think of to try comes up with the error that "Value of type 'integer' cannot be converted to 'system.drawing.image'

Code:

Public Class Form1

    Dim Card(12) As Image
    Dim CountInteger As Integer

    Private Sub Form1_Load(ByVal sender As System.Object,
                    ByVal e As System.EventArgs) Handles MyBase.Load
        CountInteger = 0
        Card(0) = My.Resources._2_of_spades
        Card(1) = My.Resources._3_of_spades
        Card(2) = My.Resources._4_of_spades
        Card(3) = My.Resources._5_of_spades
        Card(4) = My.Resources._6_of_spades
        Card(5) = My.Resources._7_of_spades
        Card(6) = My.Resources._8_of_spades
        Card(7) = My.Resources._9_of_spades
        Card(8) = My.Resources._10_of_spades
        Card(9) = My.Resources.jack_of_spades
        Card(10) = My.Resources.queen_of_spades
        Card(11) = My.Resources.king_of_spades
        Card(12) = My.Resources.ace_of_spades
    End Sub


Viewing all articles
Browse latest Browse all 42326


<script src="https://jsc.adskeeper.com/r/s/rssing.com.1596347.js" async> </script>