I have a program I'm working on (a chance game) that has 5 random numbers generated. I need to think of an expression to check to see if three of those numbers are equal. The random values are not an array, they are 5 separate variables. I have the code written to compare if there are two matching ones, but am having trouble thinking past that. [Code]
View 3 Repliesi will like to generate four numbers at random, that will total 100 and assign each to a textbox.
View 6 Replieshow can i add two excel sheets with numbers and the equal (similar)numbers to save once
View 1 Repliesi have a textbox and 48 labels in 6 rows 8*6=48 i want when i type a number example 210456 to colorize in red the eual numbers in the labels
View 5 RepliesSub five()
Dim i As Integer
For i = 1 To 14[code].....
I want the numbers that I was comparing similar numbers. I get equal numbers and ELSE giving all series.I like numbers 2 4 6 8 9 10
I am needing to locate a given set of numbers in a string, and have limited success, it is almost always finding the numbers that I want, but I need it to be more reliable.Below is a test program that I am using to test with and also 2 picures that may explain better that I can put into words.
[Code]...
I am trying to create a program that can figure out all the different combinations of numbers in a string.
View 2 RepliesI am trying to do a turn-based battle. I want enemyhit to be a random number between enemyminhit and enemymaxhit, and I want playerhit to be a random number between playerminhit and playermaxhit. The numbers are random, but my problem is that enemyhit and playerhit always seem to be the same, or close to the same.
[Code]...
Does anyone know how to do the following:Get a string with with random characters and numbers in it?I want the string to be 6 characters long.
Basically, when a button is clicked, i want to fetch random letters and numbers and assign them to a string.
i'm programming sudoku game for my vb 8 class.but i don't know how to generate random numbers, i think that i've to use random or randomize, but i don't know how to use them, i've been looking around but i can't find an answer.and i only have this week to program it
View 10 RepliesI am trying to write a program that gives a random number with out repeats the limit is 60 right now. I get a System.StackOverflowException error randomly sometimes it could be 5 numbers in it could be 50. also it will repeat some numbers. Ive been looking over it and it looks like it should work to me idk why its not.
BTNgen calls this sub.
Private Sub gen()
If y = usedcountries.Length - 1 Then
BTNgen.Enabled = False
[Code]....
What would I put when I want it to generate random numbers and text, and has a - at the end. I know it's pretty simple but I can't think of how I would do it.
So 5 random numbers/and or text and a - at the end. So like this
I have done this code but what is a smart way to get rid of repeats?
card1 = random.Next(0, 52)
card2 = random.Next(0, 52)
card3 = random.Next(0, 52)
[Code].....
is there a code for generating random letters and numbers?? like between 0 to 9 and A to F??
I used this code :
[Code]...
How can I make a command button, When clicked, Generate 4 random digit numbers? such as 5545 or 7492, Any random 4 digits.
View 13 RepliesThe 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 RepliesI've a very simple situation, which of course I can overcome with logic, but is there a built in VB function to ensure the following:
Dim price
Dim subsidy
if price - subsidy <= 0 then
price = 0
end if
In practical terms, I've lots of other things going on to calculate price, so I want to simplify this to:
Dim price = calculatedPrice - subsidy
and wrap that into some VB formating that ensures if price ever becomes negative it's forced to zero.
I'm thinking that a simple "Type" conversion might do it, but am not sure which type would suit.
I'm trying to make a program that'll play the card game "War". I've started to code the dealing process, but it doesn't seem to be working. I currently have 3 comboboxes on the form each with numbers representing different cards, 1 that contains all the cards to be dealt, 1 that contains the user's cards, and 1 that contains the computer's cards. I plan to just draw random numbers from these comboboxes for the dealing. However, nothing happens when I click the tool-strip button that's supposed to deal the cards. [Code]
View 5 RepliesI am using Visual Basics 2008 Express edition. I want my program that I am making to generate a random amount of numbers and letters in this form when I click Button1.
WM9RX-GG6J2-4WKD9-FDJWM-TYH76
Is this possible?
Right so my generator is working, but I now want to take the numbers that it generates and add them to a list of generated numbers. So you can monitor what numbers have been generated. then ideally a way to exclude these numbers from being generated again.
[Code]...
So 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 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.
Basically, I want to divide two numbers together and they should be 2 random numbers from 1-12 (I have done that part) but, the answer should be a whole number (i.e. Integer, so no decimal points etc) So, I did the following:
' Initialize the random-number generator.
Randomize()
' Generate random value between 1 and 12.
Dim value5 As Integer = CInt(Int((12 * Rnd()) + 1))
[code]....
but the problem here is that the program crashes after only a few clicks on the button. So I guess the question is: How can I make the program generate two numbers (from 1-12) that when divided become a whole number?(Is there any code that may tell the random generator that I want the numbers to be even?-so all even numbers from 1-12?)
I am supposed to create a program that inputs 3 numbers, takes the two largest and outputs an average of those two numbers using simple ifelse statements and logical operators only. I can't seem to get it. I've messed around for a few hours now and nothing seems to be working.
Here's what I have:
Private Sub btnCalc_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCalc.Click
Dim score1 As Double
[Code].....
Need to calculate Average Plan Duration for the 3 Shipment TypesSo far i haveQuote:
'CALCULATING AVERAGE DURATION FOR STANDARD
Dim iAverage As Integer
Dim iAvgDuration As Integer
[code]....
I uses the information from the list boxes, (lbShipmentDuration) and (lbShipmentMethod) to calcualte the average Duration for each Shipment Type.
i am creating a maths program that works out five number summarys of a range of data. i am having trouble working out the smallest number in a group of numbers. i have used a bunch of if then statements to work out the maximum and i figured that by exchanging a few variables and swapping greater than signs for less than i could use the same code to work out the minimum, but all i get is zero, no matter what i input into my textboxes. below is the code i have used to work out the maximum number
If CheckBox1.Checked = True And CheckBox6.Checked = True Then
max = 0
min = 1000
[Code]......
I enter numbers and Names into a text box and click 'add to list'. THe names go into a seperate listbox to the numbers.I then press 'show me the list' and i get to view my numbers and names listed in the two listboxs. I also have a button which averages the numbers in the numbers list box. But i dont know how to get it to work I will divide by the number of items in the list box.note: The average will be displayed in a label called: lblavg
Here is a picture of my code: http:puu.sh/CsED
I have tried:
For each item In lstListAges.Selecteditems
[code]....
i am creating a maths program that works out five number summarys of a range of data. i am having trouble working out the median in a group of numbers.so far i have used the code below to declare all the the inputs.
dim m as integer
no1 = Val(TextBox1.Text)
no2 = Val(TextBox2.Text)
no3 = Val(TextBox3.Text)
[Code]...
i am completly stuck for how to order the variables, and find the middle no.. as i am using 11 variables, the middle no would be the 6th in the order..
I wrote this sub routine that is running, but it only returns the local Computer name and Serial number. Any one know the why to grab the Computer name and serial by IP address? I am using VB 2010.
[Code]...