Adding Random Movement In While Loop?
Apr 29, 2009
I've made a program where a picture of a bee buzzes around the form in random movements (using random number generator code) and have put it in a while loop so that whilst the bee is visible on the form (hasn't flown off the sides) it moves randomly:
While (picBee.Top > 0 And picBee.Top < 725) And (picBee.Left > 0 And Timer1.Enabled = True)
Application.DoEvents()
For i = 1 To 3000000
Next
picBee.Top = picBee.Top - 2 + 4 * Rnd()
picBee.Left = picBee.Left - 2 + 4 * Rnd()
End While
So far the bee does stop moving when it meets one of the four edges of the form but I need to code it so when the be reaches the edges and stops a message box appears declaring the game over.
View 3 Replies
ADVERTISEMENT
Sep 27, 2010
This is another question about my galaga like game. I want the enemies to move to a random spot one pixel away at each tick of a timer. How would I go about doing this?
View 6 Replies
May 3, 2010
I have written a function that gets the alexa ranking of a given url, now this function works perfectly but I want to loop through a ListView of urls and grab the alexa rank of each item (url) with my function.The code works great if I put a MessageBox in the loop to test that the function is returning a value but when I remove the MessageBox the loop does not work.I need it to loop through adding each result without a MessageBox stop in each loop.
vb
For Each Item In ListView1.Items
Dim result As Integer
result = GetAlexaRank(Item.Text)
[code].....
View 12 Replies
Mar 1, 2009
I am using the following code to create a dummy file of a specific size. RemSpace declared as a Long value and is returned in bytes from a separate function in my applciation. I have verified that it returns the correct # in bytes. However, when I execute the following routine, the dummyfile is created, but it never stops the loop. I have to kill it from task manager or it would fill up the HDD. The line:
For i As Integer = 1 To RemSpace
should tell the For loop to stop when it reaches the value of RemSpace, which is a long value in bytes. Here is my complete code.
Public Sub Create_DummyFile()
Dim RandomClass As New Random()
Dim RandomNumber As Integer
[Code]....
View 9 Replies
Apr 19, 2011
Create an application that allows the user to guess a random number generated by the computer.When the user makes an incorrect guess, the application should move an image either upr or down, depending on how the guess compares to the random number.If the random number is greater than the user's guess,the application should move the image up to indicate that the user needs to guess a higher number.If the random number is less than the user's guess,the application should move the image down to indicate that the user needs to guess a lower number.The game ends when the user guesses the random number.However, the application should allow the user to stop the game prematurely.When that happens the application should siplay the random number.I have tried every which way I can think of including using a textbox instead of an inputbox and playing around with the syntax - but just can't seem to get it right.[code]
View 1 Replies
Apr 9, 2012
I have a random function and a for loop which sets those random numbers to an integer
For i As Integer = 1 To 4
nums(i) = Randomfunc(0, 100)
Next
[code].....
View 5 Replies
Feb 28, 2011
I'm trying to fill a listbox with random alphaNumeric license plate numbers. I've succeeded in the random "plate" generator, but can't quite seem to figure out getting it to loop (500 times).[code]...
View 4 Replies
Feb 21, 2010
I am using some arrays that are pre-filled and I am having a random number generated between 0-10. That random number will then go in to all 5 arrays and pull the item from that location. I think try to take the sentence that is generated into another string. Once that is complete I then go through the final array to pull all the sentences and concatenate them together.
Currently I've only been able to get 1 sentence to print out of 5...a fresh pair of eyes would prob see where I am going wrong...I've been at this for awhile and wouldn't mind some advice to where I am going wrong.
Public Class MainForm
Private Sub MainForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
[CODE]...
View 6 Replies
Oct 3, 2009
I am doing a Coin Toss program for school and I'm getting my butt kicked by this thing. The following are the instructions exactly as my instructor gave them:Use the random number generator (see the code below) to simulate a coin toss. First ask the user for the number of repetitions. Next, set up a For loop to execute that many times. Each time you enter the loop, call the random number next method. Assume that a random value <= 5 is considered a "Heads"; a value >5 is a "Tails". That is, if the random value is <= 5, add one to an accumulator named intNumHeads. If the random value is >5 add one to an accumulator named intNumTails. When the loop finished, output the number of heads and the number of tails in a text field with appropriate labels.Dim intRandom As New Random()Dim intNumber As IntegerintNumber = intRandom.Next(0, 9) In my application I have the click event of the "Flip Coin" button coded as follows:
Public
Class frmToss
Private Sub btnFlip_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
[code].....
View 11 Replies
Feb 16, 2009
I need a random number of 6 (1 ,6), and to loop it 3 times. I tried this but it gives me error for - if myRandom.next(1,6) Then:
Dim myRandom As Random()
For i As Integer = 1, 3
If myRandom.next(1, 6) Then
End If
Next
Also I need to know the code for putting a picture into a picture box.
View 4 Replies
Jun 2, 2011
EDIT: I am so sorry! I have added my thread to the C# discussion thread instinctively wherein in fact I have been creating my application in VB.NET so sorry! Please transfer my thread to the appropriate location! I am currently trying to mess around with a simple mp3 player and am in the process of creating a shuffle list from all the songs in my playlist.
View 2 Replies
Nov 26, 2009
now need to make it slightly more complex by the use of if statements. The concept itself isn't difficult for me, its the implimentation of it in this case.
[Code]...
View 1 Replies
Apr 5, 2010
I have an issue in VB6 that is giving me a major headache. When using a variable defined as a single data type, VB6 will add random numbers to the number i assign to it.
For instance I have a single variable that is manually set to 0.3. Then i create another single variable and set it to 0.25. I have the program add 0.01 to the second variable until it equals the first. But they never equal. I couldn't figure out why when both were showing they equaled 0.3.
[Code]...
View 5 Replies
Mar 25, 2012
Beginning VB 2010, had a project that requires us to create a list box of 25 randomly generated 0s or 1s. Problem is when I put the loop in, it only repeats the same random number, not different one each loop. What am I doing wrong?This is the code I have so far...Code in Question:
'Declare new random object
Dim RandomGenerator As New Random
intRandomNumber = RandomGenerator.Next(0, 2)[code]......
View 4 Replies
Feb 21, 2011
I am a newbie (retired social worker) using Visual Basic 2010 Express edition and need some help with an animation for an eLearning lesson. The animation illustrates a type of white noise (like TV static) called dynamic visual noise. I've got much of the code worked out (with a lot of help) but I discovered that the speed of the animation, using this code is wrong and need some help to fix the code, get it working correctly.You can view a Flash demo of this noise animation at url...More info here about the visual noise animation (even a Delphi source code and Windows demo): url..The animation has a 640 X 640 canvas, with 8 X 8 white and black dots filling it using 80 across and 80 down, for a total of 6400 dots. Some of these (approximately 400) change every second (1000 Ms) from white to black or black to white. These 400 dots need to be selected randomly every second.
The VB code I am using is missing the ability to randomly select the 400 dots per second which are the dots to be changed (white to black or black to white).Here is the current (commented) code that needs an addition of a random generator for the 400 dots every second that will be changed:[code]It would also be a huge help if I can change the specific number of random dots so I can try values ranging from 390-400 dots per second to see which value best replicates the precise animation speed needed.
View 14 Replies
Aug 13, 2010
I'm trying to lern VS 2010 from VB 6 and one of the things i'm hawing a problem whid is control array.In vb 6 if you create a text box it's named "Text1" and if you yust copy it and paste it it renames to "Text1(0)" and the new one's name is "Text1(0)" and the code would lock like this
[code]...
then it would print for each loop the random result in one of the text boxes corresponding to i.
How do i do this in VS 2010?
View 39 Replies
Jun 21, 2010
I'll try to be brief, In short im trying to add together a variable, (name = STRFinValue) within a For loop, I think the syntax should be:
STRTotal = STRFinValue +STRFinValue(f)
But I am very wrong.
Private Sub btnLBTotal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
[code].....
View 2 Replies
Jul 11, 2009
I have a text file (*.txt) with a name in each line, like this:
Joe
Dane
Lisa
Kelly
Now I want each name added with a number from 1 to 99.
Like this:
Joe0
Joe1
Joe2
[code]....
I have folowing code:
For n As Integer = 0 To (numbernames) - 1
strContents = objReader.ReadLine()
For i As Integer = 0 To 100 - 1
[code]....
With this code all happens ok and a new text file is created with the desired name-list with added numbers.The only problem is that the last name doesn't get a number added from 0 till 99 but for example 0 till 17.
View 6 Replies
Feb 15, 2012
I have a parent panel with child panels that contain images. I am looping through the panels to save the images in the order the panels appear in the parent panel. [code] I can also re-arrange the panels via mouse. The problem is that when they are rearranged, they do not retain their order when saved.. They simply are saved in the order they were added to the parent panel.So my question is, does the for loop use the index set when adding the panel? If so, how can I manipulate the index in runtime while arranging the panels via mouse.
View 4 Replies
May 8, 2012
i have an SQL statement which i need to code in vb:
create
table r2 (salesno
bigint, prodno1
[Code]....
Note that in this "2nd loop"
- the table name is now r3 from r2 in the first SQL statement
- there are now prodno1, prodno2 and prodno3 instead of just prodno1 and prodno2
- in the WHERE clause, the p.prodNo becomes p.prodNo2
and so on and so forth.. so for the 3rd loop
- there's going to be r4
- there's going to be prodno4
- in the WHERE clause i will use p.prodNo3
what should i do? is there an array or something that i can use here?
View 5 Replies
Jan 30, 2011
I have this fully working with a massive wall of code and validations, but I want to dynamically add new datatables to shorten my code massively.I am pulling out rows from a database for quotations which are separated into batches. So each batch bring out its quotations and a photo. As I said, I have this working find, but I am not happy with the code.
For Each arow As DataRow In dt.Rows
Dim counter As Integer = 0
While counter < batchmax
[code].....
View 6 Replies
Sep 30, 2010
What I'm trying to do is write a program to store my sports cards collection. Basically, just a forms based program that stores various data into files. Where I am stuck at the moment is I have a piece of code that opens a form to add card brands. It has a text box, and ADD button and a CANCEL button. What I want to do is be able to type a brand into the textbox and have it store it in a array when the ADD button is clicked, then allow another entry for another brand and have it stored into the array when the ADD button is clicked and so on until the CANCEL button is clicked. Then I would like for the data in the array to be written to a file. Where I'm having the problem is I can enter a brand name into the text box but the loop keeps adding that same brand name into the array.
Imports System.IO
Public Class AddCardBrand
Private CallingForm As Object
Private Sub btnAddBrandCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAddBrandCancel.Click
Dim form As New StartScreen()
[Code] .....
View 2 Replies
Sep 3, 2011
Im attempting to loop through the rows in my Access database, and then of course add the results to my listview. Here is what I have tried so far
Dim con As New OleDb.OleDbConnection
Dim dbProvider As String
Dim ds As New DataSet
[code]......
View 14 Replies
Mar 7, 2011
I am trying to understand the do until loop when adding numbers along with a variable to a new line in a textbox, incrementing each time. My current example is very simple but only returns the first value. I require the output to be incremented automatically, so I thought a do until loop would be best.
[Code]...
View 3 Replies
Feb 23, 2010
I have a for loop which goes like this -
for i = 0 as integer to 100
result &= "Name" & sqldr("name")
result &= "Lastname" & sqldr("lastname")
result &= "dob" & sqldr("dob")
next
The sqldr is the sql datareader (not important here)
I want my end result to be
Name1 = Sam
Lastname1 = Davis
dob1 = 01/01/1966
Name2 =
...
Name3 =
And so on depending on how manyrecords are in database. How do I make this happen in this for loop?
View 3 Replies
May 22, 2010
I am using a For Each Next type loop to read a records from a datatable and add records to a second table.Under certain circumstances, I add one or more records to the first table that I want to process.The problem is that the added record is not in the original datatable.The For Each...Next loop goes dutifully until the datatable records are processed, but the added record(s) do no get processed.How can I "refresh" the datatable and process the added records? [code]
View 6 Replies
Oct 25, 2009
I need to change it so that this contains a loop to calculate the earnings.
vb.net
Private Sub btnCompute_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCompute.Click
'Compute total earnings at retirement.
'get 5% raise per year, retire at age 65.
Dim name As String, age As Integer, salary As Double
[Code] .....
View 4 Replies
Jul 12, 2009
How do you add an arbitrary number of controls to a form at run time? With indexed controls I could define the 'seed' control at design time and reference 'clones' of the 'seed' control at run time via the index. Now I must declare each additional instance of the control at run time then set each individual property that differs from the default for that control for each instance. Then I must add the newly declared control to the appropriate container controls collection. I'd like to do this in a loop but how can I get away from using a fixed control name in the declaration:
Dim controlname As New Control
I can't use a string that I can manipulate the contents of for controlname because it sees it as a double declaration. I can't use an array such as Control(index) for controlname. Dim Control(maxindex) As New Control doesn't work. Dim Control(maxindex) As Control works but any assignment based on this such as Control(indexvalue).Name = "ControlName" fails. It didn't address the issue of handling the declaration of new controls in a loop with some kind of variable name for the control.
View 1 Replies
May 5, 2009
I have a class project that I have been working on for a while, and I can't figure out how to add each cost from lstCosts together to show a total cost of the selected workshops in lblTotalCost. Using the current loop that I have, it only adds the last cost in lstCosts. Is there a way to add the indexes together?
Code:
Public Class Form1
' The registration fee for each workshop
Const intSTRESS As Integer = 595 ' handling stress
Const intMANAGEMENT As Integer = 695 ' time management
Const intSKILLS As Integer = 995 ' supervision skills
[Code] .....
View 1 Replies
Jun 1, 2011
if I have the following vb code,
for i = 0 to dTable.Rows(i).Count -1
Dim sql As String = ""
Dim strConn As String = ConnString
[Code]....
View 10 Replies
