As a brief summary, I have an issue writing a program. A part of the program has a While loop that is supposed to change some labels to random numbers every iteration of the loop. But, instead of all that, the labels just turn blank until the end of the loop is achieved, and only then is the random number written.
While (o < 3000)
r1 = Rnd()
str1 = CStr(r1)
Label1.Text = str1
o = o + 1
End While
[code] I am trying to place random numbers into labels, but the process that i am doing is taking way to long, just wondering if there is an easy way around this? I also need to know the answer to the sums that get placed into the labels and then check that against the answer in the text box.I have looked all over the DIC forums and nothing meets my queries.Please help, this is just a quick program for my son so that he can get some sums into him.
View 14 RepliesI'm designing a program to display 6 random numbers using labels. I know I'll need an array to accomplish this. I am trying to put the integers into the array and displaying them on 6 different labels
View 3 Repliesi making a website for trading in which trading feed coming from a source in excel sheet. i have to show data from excel sheet to gridview. but when i make connection it will lost due to rapidly data( in excel sheet each cell change value 1-3 times in one second).Am using Ajax Timer of interval 1000.
View 1 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 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 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.
I have a label showing Employee ID, First Name and Last.I was wondering how can I change the Employee ID to a forecolor maroon.
Private Sub frmMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'TODO: This line of code loads data into the 'BdSyngentaDataSet.Training' table. You can move, or remove it, as needed.
Me.TrainingTableAdapter.Fill(Me.BdSyngentaDataSet.Training)
[code]....
I am trying to make a class which will take receive a form and then change the labels on said form.
this is the class
Public Class ScanClass
Public Shared Sub UpdateScanHistory(ByVal frm1 As Form)
frm1.lblLastScan5.Text = frm1.lblLastScan4.Text
frm1.lblLastScan4.Text = frm1.lblLastScan3.Text
[Code]...
this does not work as i would expect tho. I was hoping that if several forms had the same label names, then I can just update them all through the class by just passing the form. is there anyway to achieve what I'm trying to do.
on this site it has the word Online and when its not online it says offline is there a way for me to have a label1.text show when it says online or offline
View 5 RepliesBasically, 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?)
im getting flickers almost everywhere in my app.
1. Enlarging form
2. changing label text
3. reloading multiple images
how to correct this. Look terrible
Ive attached a pic of how the labels are missing during the flickering, couldnt get an image of the white flickering
I was wondering how I could randomize a number between a given min/max and have it displayed in a label. And after it's been randomized in 2 different labels, I want to add these 2 integers (labels).
View 5 RepliesI'm making a project that judges contestants. I have 3 labels at the bottom of my form that will keep a running total of the top 3 contestants, and change as the contestants score higher or lower. I'm not sure if I should use a loop or if statement, or where to begin at all.[code]
View 2 RepliesI currently have
Private Sub LabelClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label14.Click, Label15.Click, Label16.Click, Label17.Click
If sender.backcolor = Color.LightGray Then
[Code].....
But there are ALOT of labels (about more than 300) and typing them out (or selecting them in the menu) consumes alot of time. Is there anyway to put the rest of them? I have about 8 groupboxes with these labels that need to be changed (there is another one that doesnt need this) so they are labels inside of groupboxes.
I wanted to make a flow chart with more than 50 labels (see this link for just a small portion of the flow chart [URL]). I looked all around but couldn't find one in VB 2008 with the same problem. but anyway, my questions are:
1. Is there a way to set the color of all the labels instead of just one by one say:
Label1.BackColor = Color.FromKnownColor(KnownColor.Control)
Label2.BackColor = Color.FromKnownColor(KnownColor.Control)
Label3.BackColor = Color.FromKnownColor(KnownColor.Control)
...
...
...
There should be a way to loop through them
2. Is there a way for search through the Labels and find for example Label14? or a label with tagindex of 14? I rather be able to find label 14 but the tag also works.
3. Is there a better way to represent flow charts and stuffs like that in VB 2008?
I am creating a dice game that you try and obtain a straight with.This is my equation for the random roll.
Private Function CreateRnd() As Integer
Randomize()
CreateRnd = CInt(Int(Rnd(1) * 6) + 1)
End Function
This is what I am trying to do
Private Sub RollBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RollBtn.Click
'checkboxes
Dice1.Enabled = True
Dice2.Enabled = True
[code]....
I've made a thing that has several labels that gives a number on each label. And if you press a button next to the label it adds one to the number. But enough about that. I wanna be able to save the numbers in a file. And when I press open and select the file I've saved in the numbers should appear on the same place they were before. To make this easy, lets say I have 5 labels with numbers that's needed to be saved.
View 12 RepliesI have made a program wherein you the labels are dynamically created with a press of a button. if you press on the label, the label would then change color from white to blue. my problem is that how will you make the backcolor of the label change when the button3 is pressed.
here are the codes. placed the whole thing since I dunno if you guys would understand what I mean.
[code]...
PS here is the link to what my program looks like. link to my program . the button3 in the image is Reserve Seat.
I have attached the form in initial state. What you don't see in the initial state is 10 hidden labels. I want the loop(which I am calling as a function??) to compute the numbers and display in the labels. Example, if I input 1 for the first term, 3 for the second term and 4 for the total terms, the first 4 labels should become visible and have in them one solution each:
1 - 1
2 - 3
3 - 4
4 - 7
Am I way off with what I want to do? Cannot use arrays, must be a loop.This is the compute button:
Private Sub BtnComp_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles BtnComp.Click
Try
[code]....
am running VB express (2008 edition). I have a class that holds 2 arrays (1 array represents the digits of the integer side of a number the other holds the decimal digits) I have overloaded all the operators to work with these numbers as if they were one. Each operator has the following format:
[Code].....
whats happening is that the sign of the b variable (and only the b variable) randomly changes. Almost allways at the statement bb=b (bb is in place so when I reach that point I know what the variable had before the calculation). I can watch it change as I step through the code (stepping over the operators) I can watch it change almost allways at the bb=b, but sometimes in other odd places (such as the d=a*yparam statement). I can change the values back to their original and step through the code(stepping into the operator this time) and it will not do it. It NEVER does it when stepping into the operator, only when I dont, and only sometimes. I have spent the last two days working on debugging this one problem, with every other variable in the function it works like it should and I am not sure what to look at next. I know it does you no good without seeing the code but didnt think pasting 8,000 lines of code would go over too well so I would be willing to send the source to anyone
have code to generate a new random number as follows (which is 100% working and generating numbers between 0-9:
Dim randomNumber As Integer
Dim randomNumber1 As New Random
[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 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]...