The class Random is out right defective. It always produces the same random numbers in the same sequence. Things I have tried so far is every kind of seed you can think of as well as Randomize. The result is that I always get the same random numbers in exactly the same sequence.
View 4 Replies
For a school project I need to create an application one element of that it puts 14 names into a random order, I figured the best way to do this was with an array and a for/next loop (it cannot repeat the names) each name would be declared as a string with the name of the variable being a number between 1,14. Then there would be a text box relating to each index of the array, I am sure you get what I mean. However, my for/next loop seems to be getting stuck and causing the application to halt and I cannot seem to work out why.
Here is my code.
Public Class Form1
Dim iNumber As Integer
Dim arrNumber(0 To 13) As Integer
Public Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
[Code] .....
I have yet to write in the section which converts the random numbers into the names, as I discovered this error whilst debugging the for/next loop.
I am still learning vb.net and decided to make a "horse race" to get a better understanding of inheritance and such. So first of all I made a horse class that inherits from the picturebox. I gave the horse properties such as image, height, width, x-position, and y-position. I also gave the horse a speed(between 1-1000). My idea was to have the horses start at the starting line and get them to move using a timer. Each time the timer fires the move method executes. The move method creates a new random number(seeded by DateTime.now.milisecond) between 1-1000, if the random number is lower than the speed of the horse it will "move" adding 1 to the x-position property.
Here is the code for the class :
Public Class Horse
Inherits PictureBox
Private m_speed As Integer
Private m_picture As Image
Private m_xposition As Integer
[Code] ....
Now things work as I expected for the most part, I created two new horses and gave them values, if one is "faster" than the other it will move faster. Here is the code I use to create two horses and put them in an array:
Private thisHorse As New Horse(700, My.Resources.Horse__Small_, 20, 30, 100, 100)
Private secondHorse As New Horse(700, My.Resources.Horse__Small_, 20, 150, 100, 100)
Private horseArray() As Horse = {thisHorse, secondHorse}
I give the horses visual representation using a loop during the load form event:
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
For Each i As Horse In horseArray
i.Visible = True
[Code] .....
The only problem is if I give them both the same speed they seem to move in unison. I have tried adjusting the x-axis increment and have seen them both jump at the same time. Now I realize since they have the same "speed" they should have close to the same movements but wouldn't the random factor in the move method create some discrepancy between the two? I have ran this multiple times and am still unsure what the problem is.
I'm trying to create a program that produces random sentences as output. With five arrays of strings, one each for nouns, adjectives, verbs, prepositions, and articles. Each array should hold several words for that part of speech. It's supposed to generate sentences by randomly choosing eight words (randomly generating eight array indices) from these arrays, always constructing sentences by using the parts of speech in the following order: article, adjective, noun, verb, preposition, article, adjective, noun.Also, theh code should be properly modularized so that the code to generate each part of speech is not repeated.
View 8 RepliesI don't take programming lessons at school or anything, and I'm starting to (try to) teach myself about random things.Currently I'm making an app that has 3 functions:
-Random Integer (1 to 100)
-Random Answer (Yes or No, similar to a coin flip)
-Random Dice Roll (1 to 6)
How would I go about doing this?At the moment all I know about random numbers etc. is that I will need to do something along the lines of Dim dice As New Random or something like that, but, like I mentioned, I have no idea.I am well aware of the DIC rules that you won't write the code for me/do my "homework(?)" for me, and that's not what I'm asking.
every time i press the Roll Dice button the turn1roll1, turn1roll2, or turn2roll1, turn2roll2(depending on turn variable) it shows system.random in ASCII Chart i used the label names so no confusion.[code]
View 5 RepliesI have code to save records to my mysql database.But first I want to read what is the last number of record and add 1000 on that? What is the proper way to query that first. I want to make the result at unique ID of my clients. Here is my chunks of codes.
Private Sub addClient_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim conn As MySqlConnection
conn = New MySqlConnection
With conn
[code]....
i need a simple way to get a random number from 2 numbers. This means that for example if my 2 numbers are 3 and 7, i don't need a random number between 3 and 7 that would be like 3,4,5,6,7 but only a random that is either 3 or 7. Meaning not all the numbers between x and y, but either x or y.
View 7 RepliesI am practicing using the drawing commands, and have gotten a grass background and black happy face that moves around the background.It's a 10x10 grid of 50 pixels.I want (at the moment, when i press enter) it to generate a random number of trees (15 ~ 25) at random locations on the background. The program doesn't freak out about anything, and the variables seem to be right (using stop commands) but it's not drawing anything. Here is the code for the "GenerateTrees" command I have for when I press enter.
Private Sub GenerateTrees()
NumberOfTrees = Int(Rnd() * 10) + 15
For i = 0 To NumberOfTrees - 1
bmap.MakeTransparent(Color.Fuchsia)
[code].....
I'm new to the forums and VB programming in general, so I only have a very basic understanding of VB commands, but I still have a good grasp on logic and the like. I'm doing this for a school assignment, and I am in a bit of a pickle.I am trying to generate an array of 6 random numbers from 1 to 30, making sure there are no duplicates.I think I'm pretty close to cracking it, but it still doesn't work.Here's what I have at the moment:[code]......
View 2 RepliesI've made an image viewer which opens a random image from a specified folder, but the random number is not that random at all... I've already used Randomize(), but without result.
View 3 RepliesI basically have a .avi file that speaks numbers (random number only). Want I want the program to do is:
1. Load up the .avi
2. Play the .avi and write down the numbers that are begin said.
3. Write them in a textbox / notepad
Ok im making a program that throws three dice at once. Several results end with a score but a few result in a no score. in the case of a no score (Example: the dice land on 4,1,6) i want the dice to be thrown again. If there's 3 no scores in a row then it counts as a loss.I have no clue how to get it to repeat after a no score or to limit i
Current code sample:
Dim oppscore As Integer
Randomize()
[code].....
I am writing a matching program, and need 24 objects to randomly appear, each twice, across 48 spaces. I figured the best way for me to do this would be to assign the positions a number 1 through 48. but the problem is I can't find a way to generate a random number sequence in visual basic 9 .netI found many examples in visual basic .net but the conversion doesn't work. If not some code, many some example programs that either use a random number sequence or randomly sets the position of objects.
View 1 RepliesSo how would I use .next (random numbers) to randomly select something from a list of numbers but it can't repeat the number?I could do:
dim num as integer
dim r as new random
num = r.next(1,5)
if num = 1 then
elseif num = 2 then
etc.
That wouldn't work because it would repeat.If I donwload someone's game can I disect it in VS? :0 I tried going to open project, then I went to the folder and clicked open. It brought me inside of the folder so I tried to open the game but there is no form1 there. It says the games name then .exe in the explorer-like thing in the top right?Also, how would I have a value or something in a label and access it from a button.
Example:This is in a label.
Dim number as Integer
number = 0
Then in the button do
Label.number = 0
How would I do something like that? I want to use that a lot as I did in a different language.
The program must generate 6 unique random numbers but when I click display numbers sometimes it gives me 6 unique numbers and sometimes I get duplicate numbers. I will add the code I have so far.
Public Class frmMain
Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click
[CODE]...
i want to know how to generate 7 "differents" random numbers.
I need to use a tab() with 7 entries and verify(with a loop?) if the generated number is or not present in the the table, if not then increment a counter by 1 and add the number in the table and increment the table position by 1 for the next randomized number.
Im not sure how to do the verification, so far all i have is a function i made for the random number between min and max:
Private Function randGen(ByVal min As Integer, ByVal max As Integer)
Dim random As New Random()
Dim i As Integer
[Code]....
I want to get random numbers between 0 to 100..But i do not want the random number to be repeated.
Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim objRand As New Random
objRand.Next(0, 100)
End Sub
Suppose first time random numb generated is 10..Next time if same random number is generated,den i want to get the other random number..I want to get all the numbers b/w 1 to 100..but only one time
I want to get random numbers between 0 to 100..But i do not want the random number to be repeated.
Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim objRand As New Random
objRand.Next(0, 100)
End Sub
Suppose first time random numb generated is 10..Next time if same random number is generated,den i want to get the other random number. I want to get all the numbers b/w 1 to 100..but only one time
I want to random a numbers about 20 second. how to write the code
[Code]...
I've read numerous posts and threads about random number generation, but I havent' run across this.If I generate a bunch of random numbers, the results are radically different if I create a new Random generator for each number than if I use on Random generator for all the numbers. The results are much more consistent and evenly distributed if I use the same Random generator.I would have thought the opposite,because creating a new Random generator each time should reduce the number of random repetitions, if a different time slice is used to create the random number.[code]......
View 9 Repliesi need to add random numbers in list box like
0
2
1
3
i am trying to create a messagebox which brings up four random percentages which add unto 100%, i can create the messagebox with[code]messagebox.show ("") {icode]
View 3 RepliesI am writing an application that needs several random numbers. Each time I use the Rnd() function, do I need to precede it with the Randomize() initializer?Or can I just use Randomize() once at the beginning of the code?Examples: Do I need to do it this way?
[Code]...
'm attempting a program and need to generate 10 random numbers between 1 and 52. However all the numbers must be different. I'm trying this in a For Loop. I'm not terribly amazing at this so all I have so far is:
Dim B, I, J, max, min, card() As Interger
max = 52
min = 1
Randomise()
[Code].....
What am I doing wrong and what is the ultimately simple solution I know the internet can provide for me?
This code is in VB6.0I have 28 numbers in sequence (eg 1-28), they are randomly generated and displayed in a label. I dont want a duplicate number displayed in the label. Pls how do I do this. Below is how I generate numbers at random. Now I want to make sure there is no duplicate number displayed in the label.[code]
View 12 Repliesi have a few questions about generating random numbers:1) is it possible for the programme to generate a random number that it has previously generated (i.e could it produce the same number more than once?)2) can you specify what numbers to generate? e.g only whole numbers up to 1000?
View 4 RepliesI have a problem regarding the generation of random numbers in vb.net..I have code like this!!it generates the random number but both the numbers are same for my program the should not be same!![code]
View 3 RepliesSo if you have one button and one textbox; whats the code so when you press the button the textbox comes up with a random number?
View 13 RepliesHow can i do a random numbers?.i'm using 3 listbox when i click button generate the result will show into the 3 listbox??
View 10 Replies
