I have a standard deck of 52 cards is represented in an array. Each card is represented as an integer. I wrote the below function to shuffle the cards. Does the code below look ok?
Module Module3
Sub Main()
' initialize array
[Code].....
new to programming and I was wondering how would I make a deck of cards for a blackjack program? I would post some code but I don't know where to start
View 3 RepliesOk here's what my code looks like as of now:
Private Sub btnDeal_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnDeal.Click
Dim RandomClass As New Random()
Dim RandomNumber As Integer[code].....
I have been working on a program in where i can add a deck, and then test it out, for various reasons. (Too much mana, not enough mana, ect.) and i have been wanting to add pictures so i could see what cards are popping up, but have no idea on how to do that. i can use my.resources to add pictures for my own cards, but i have no idea on how to go about giving the cards pictures.
Here is my code:
Public Class Form4
Public card1drawn As Integer = 0
Public card2drawn As Integer = 0
[CODE]...
I need to make a matching card game in VB 2010. i have generated my cards but now need to show the cards for 10 secs then change the cards to (AppPath & "Cards ed.png"). then when a user clicks on the card the card will flip over.*How would i set a timer to turn all my cards into*(AppPath & "Cards ed.png") after 10 secsbut still have the values from the array and when i click the cards they flip over (from red card to numbered card)
Code:
Private Sub Place()
Dim Counter As Integer = 1
For Row As Integer = 1 To Int_Grid_Size
[CODE]..........................
I'm in a bit of a bind with this project I'm currently working on. I'm making a 52 card deck counter, so the first code I whipped up was an array to create checkboxes for 13 cards of each of the 4 suits.
Dim x As Integer = 10
Dim y As Integer = 440
Dim width As Integer = 150
[CODE]............
The problem is I can't figure out for the life of me how to use the contents in cards(k, i). Anyone know how to initialize event handlers for that array of checkboxes?
Something like:
[CODE].........
But again, I have no clue how to get the script to detect when a cards(k, i) is checked.
Can someone tell me how to shuffle / randomize a stringi got a string like: 0123456789name0123456789and i want it to become a random like: 343n3287a4738m2039e7834
View 5 RepliesI am trying to shuffle an array of numbers it is randomizing but the numbers are been repeated is not what I need., I need the array to be shuffled but keeping the same numbers.For example if I do a first shuffle numbers may look like this in random order
2,4,5,1,3
Next shuffle maybe
3,5,4,2,1 and so on
But my problem is it repeating e.g. like this.
0,3,3,4,5 or 4,5,5,3,3
[code].....
I want to shuffle the numbers in each column of _bingoNums(,)I've included the code I've tried thus far that dosen't work.
Dim _bingoNums(,) As Integer = {{1, 16, 31, 46, 61}, _
{2, 17, 32, 47, 62}, _
{3, 18, 33, 48, 63}, _
[code].....
I want to write a method or function that help me for insert into database.[code]...
View 2 Repliesi am trying to find out how it shuffles the number 1, 2, 3 and 4 without repeating the same number within the series. So far, I think that "i" begins as 1 and RN is a randomized number between 1 and 4. The do while loop checks if "i" is the same as RN and spits out the flag as true or false. Then "i" is increased 1 at a time and so does the number of elements in the array. I believe that the array a(4) and the for loop does something that "remembers" the same numerical value not to be repeated. I'm not sure exactly what the for loop does and how the flag make this thing work.
Lets say, a case where i=1 and the RN=3, the flag becomes false. Therefore, a(1)=3. Then, i increments by 1 and a(j) becomes a(2), which puts out the values 1 and 2. Since both numbers are flag=false, it increments again. Because a(i) = RN, a(2) becomes = 3. How can this be? It has a(1) equal to 3 and a(2) also equal to 3. Each array is supposed to have NON-OVERLAPPING numbers.
The result of doing shuffle() is a random set of numbers that don't overlap:
1234, 1243, 1342, 1324, 2341, 3412, 4321, 3214, and so on.
but never 1111, 1112, 3333 or 3242.
To find out how exactly it works, I tried to delete some lines, tweak the numbers. The result of that is either numbers change to repeats, all zeros or a logical error. The following is the code placed in the module and can be used for other forms and in this case it is used for the labels in form1 windows form:
Sub Shuffle()
Dim a(4), i, j, RN As Integer
Dim flag As Boolean
[code]....
I want to create a (vb.net) method and call it from an expression like this:
=Code.WhereDoIWriteThiscode(Fields!SomeValue.Value)
Where do I write this WhereDoIWriteThiscode method ?The documentation says it is an embedded method.
I want to pass an XmlDocument as a parameter to my webservice method. After I have loaded an XML file from a path, when I try to send the XmlDocument as a parameter by webservice method, I come across this error. What can be the reason? I use StreamWriter and I close it. I don't use XmlWriter.The development environment is VS 2008
Error Message:
Cannot write XML declaration. WriteStartDocument method has already written it.
Edit (from comments):I can't post all the code because it has more than 1000 lines. Also when I load Xmldocument in web, I can't use this method without problem. Maybe Webservice causes a problem?
Dim xml As New XmlDocument
xml.Load("My Documents" & xmlfile & ".xml")
myTransfer.Save_XML(xml, 1)
[code]....
For I've tried this:Dim exampleItems As Dictionary(Of String, String) = New Dictionary(Of String, String)
Dim blah = exampleItems.Select (Function(x) New (x.Key, x.Value)).ToList 'error here
But I'm getting a syntax error and all the examples that I've seen are in C#.
After looking at this thread.>>
How to randomize the alphabet I have decided to make it into an extension method for a String and a List.
Note: Please see the following post if you are still using VB.Net 2002, 2003 or 2005
this code is for use with 2008 and later versions of VB.Net
String.Mix and also List.Mix I was trying to write a generic extension method for every Enumerable(Of T)
I settled on just doing it for a STRING
[Code]...
i created a media player in vb.net. i have a listbox as playlist. My problem is i have picturebox1 in which if i have to click shuffle the items in the playlist (listbox) will shuffle songs. Also, the playlist must automatically play songs.
View 5 RepliesI have 1-10 audio files that were selected by the user using an "openFileDialog" (with a button and textbox for each). Now, I want it to play all of the files that they selected in a random order when the user clicks "Button12." After all the files have been played, I want it to start over and play all of them in a random order again. I don't want it to stop until the user clicks "Button13." When the user clicks "Button 12" again, it should start playing them in a random order again.
View 4 RepliesI have handed this assignment in and it works albeit not in the most elegant way. I am taking my second programming class ever and I would love for some feedback and answers to a few questions i have. First, what would be a better way to display the correct image to the corresponding card. Using all those if statements seems ridiculous, but i cant see a way around having card 1 possibly equal each value from every suit, card 2 equal each value from every suit, etc.
Second, my professor wants us to be able to record the seed value so that we could then plug it back in and return the hand that was shown when it was created. i have done this but I am a bit confused. The seed shows up as a value from 0-999, but when you use the combination formula to figure the total possible amount of hands you get over 2.5 million. Since i only have 1000 seed values does that mean that multiple hands might share the same seed value or does that number (0-999) mean something different eache time? Sorry if my explaination seems confusing.
Third, I am always looking for advice on better ways to do things. If anyone has free time and would like to offer constructive critisism I would be grateful.Below is the code. I only left in picturebox display for 1 suit so as to shorten the total amount shown. I also removed code for other buttons and stuff.
Public Class Form1
Private Sub btnShuffle_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnShuffle.Click
' Variable Declarations
Dim intSuit As Integer ' Row
Dim intCardValue As Integer ' Column
[Code]...
I'm trying to write a method that is called from a variety of forms at load. So with a Form1 load event I would call the following:
Dim testpoint As New Point(10, 20)
DrawVerticalStringFromBottomUp("Hello", testpoint, Me)
The DrawVerticalSTringFromBottomUp Method is as follows:
[Code]....
When I call the code at a form's load event, nothing happens. When I call it from a button click after the form has loaded it works! I know this should be called from the paint method, but that doesn't suit my purposes.
way to make this work from the form load event?
Basically my program has a "shuffle" music feature:
vb For i = 0 To 26 num = randomObject.Next(0, 27) My.Computer.Audio.Play("C:UsersMcturtlesMusicSongs" & num & ".wav", AudioPlayMode.BackgroundLoop) Next
Which selects a random number 0 - 26 and selects the corresponding song.
And a straight play feature:
vb Dim counter As Integer Do Until counter > 26 My.Computer.Audio.Play("C:usersmcturtlesmusicsongs" & counter & ".wav", AudioPlayMode.WaitToComplete) counter += 1 Loop
All of these activated by a button(separate for each)
When I click one, it makes the program stop responding. I'm pretty sure it is the .WaitToComplete mode, but I can't find a way to make it continuously play without it. If you can find my error. Also if you could tell me a way to make the shuffle never play the same song twice, that would be awesome as well.
Not sure if this is the right thread place or not.And I've been designing an Mp3 player. I've ran across several things that I would love to know how to fix.
1. It won't play the next song when one ends.
2. Click and drag media files into the playlist.
3. Shuffle button would be awesome.
4. Repeat button.
5. I have a pause button, but it dont pickup where it paused...
If you could get the repeat playlist and shuffle into a checkbox form.[code...]
I have two forms Form1 and Form 2. I am passing a function with three values from Form1 and want the load event of form2 to trigger this function.. Basically I want to "paint" the values of qseq, midline and hseq on form2
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
[Code].....
When I run this, nothing gets printed on form2 as when load event is triggered thee drawstring method is not called. how can I call drawstring from load method as drawstring takes in arguments and is called from Form1 class.
I'm going to write a url sniffer type application like firebug, just for the exercise.I have used httpRequest/response in the past and wonder how i could obtain the headers using this method? or perhaps i need to be going down the root of sockets which i know nothing of value about? perhaps it can be done using webbrowser too.
View 1 RepliesI need some code to get the cards out of cards.dll in VB.net. And do the cards have to go in a picture box?
View 2 Replieswhat is Wild cards how and when can i use the wild cards
View 1 RepliesConsider a MyForm class that contains a shadowed implementation of Show(). It also contains a CreateForm() method, which accepts an instance of the form and calls the shadowed sub:
[Code]....
I would like my website to accept credit cards online. I will manually process the payment. How can I make sure my website is secure to accept payments? Does VISA have specific requirements? Also, how can I check that the credit card information is valid?
View 1 Repliesbasically i've gotten myself into a mess with some last minute project work. shame on me and all that but thats college students for ya. basically i seem to be having problems assiging a simple integer to some pictures in an array. now. basically its a card deck. i've looked this up so many times yet nothing comes to me that fits my code or the way i've been taught. in any case i've got an imagelist and put it into an array to symbolize a deck. now. as i'm doing blackjack i need each card to have its own value. so obviously 2 of hearts value = 2, king = 10 etc.so what i've done is created a function that calls on a string. and used a select case to give a value based on the filepath of the image. however it failed hoplessly. heres a piece of the code:
Sub getcardvalues(ByVal card As String)
Select Case card
Case "decklist.images.item(2club.png)"
value = 2
[code]....
despite this seemingly simple solution i can't seem to pull out the path of these cards as a string. the array simply gives me a number and the actual picture dosnt want to be a string. so my question is this. how can i pull the image path out of the array (eg: deck(1) = decklist.images.item(3club.png)) and turn that into a useable string?
how to calculate how many cards are needed at least to make a straight in texas hold'em?
pratic examples:[code..]
I have to make a card game called SNAP. The point of the game is that two players will flip their card and if they match then one of them have to call out snap. The first one to call out snap gets the card.
I'm having trouble on getting the cards to generate randomly but match every now and then.