Previous Thread
Next Thread
Print Thread
Rate Thread
Help with VB.net Program
#17539 12/02/04 10:42 PM
Joined: Dec 2004
Posts: 1
L
Lucid Offline OP
Junior Member
OP Offline
Junior Member
L
Joined: Dec 2004
Posts: 1
The purpose of the program is to simulate rolling a six sided die. Then the program keeps track of the frequency of each roll, the number of total rolls and the probability . My problem is that every time my program simulates rolling a one it prints to Frq1 and does not increment correctly. I want it to increment each time by one starting from a value of zero. Any help would be greatly appreciated.
Code:

Private Sub Calculate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Calculate.Click
Dim Frequency As Double
Dim Probability As Decimal
Dim DieNumber As Integer
Dim One, Two, Three, Four, Five, Six As Integer


One = 0

IncrementCounter:

Randomize()
DieNumber = CInt(Int((6 * Rnd()) + 1))
Results.Items.Add(DieNumber)

Select Case True
Case DieNumber = 1
One = One + 1


Frq1.Items.Add(One)
GoTo IncrementCounter

End Select

Re: Help with VB.net Program
#17540 12/12/04 02:33 PM
Joined: Apr 2004
Posts: 34
N
Junior Member
Offline
Junior Member
N
Joined: Apr 2004
Posts: 34
You know, a do loop would work just as well as a goto. People might make fun of you if you use gotos. smile

Look at where your end select is. (wink wink).

Not that your way is wrong, but another way to do what you're doing is to use an array, such as

dim dienumbers(5) as integer

then, you could do

DieNumber = CInt(Int((6 * Rnd()) + 1))
other stuff
dienumbers(dienumber-1) = dienumbers(dienumber-1) + 1
other stuff
Freq1.items.add(dienumbers(dienumber-1))

Since the array starts at 0, all values for one would be stored in dienumbers(0), and all from 6 would be in dienumbers(5). If you didn't mind, you could waste the first element of the array and use dim dienumbers(6) and dienumbers(dienumber) = blah.

The benefit of this way is not as much typing for you smile

This is the first time I've seen vb.net code. Doesn't look too different from vb6. What is with the ") Handles Calculate.Click"? Can you specify the subroutine for an event?


Link Copied to Clipboard
Member Spotlight
Ntd
Ntd
Melbourne, Victoria, Australia
Posts: 217
Joined: January 2003
Forum Statistics
Forums41
Topics33,680
Posts68,696
Average Daily Posts0
Members2,171
Most Online3,253
Jan 13th, 2020
Latest Postings
Animation,
by JohanKaariainen - 08/15/19 01:18 AM
Blackbeard.....
by Gremelin - 10/03/18 07:02 PM
my old account still exists!
by Crime - 08/10/18 02:47 PM
Okay WTF?
by HenryMiring - 09/27/17 01:45 AM
The History Thread...
by Gremelin - 08/11/17 12:11 PM
My friend NEEDS your HELP!
by Lena01 - 07/21/17 12:06 AM
I'm having fun with this guy.
by gabithompson730 - 07/20/17 01:50 AM
I want to upgrade my phone
by gabithompson730 - 07/20/17 01:49 AM
Doom 3
by Cyrez - 09/11/14 08:58 PM
Amazon Gift Card Generator/KeyGen?te
by Gecko666 - 08/22/14 09:21 AM
AIM scene 99-03
by lavos - 09/02/13 08:06 AM
Planetside 2
by Crime - 03/04/13 07:10 AM
Beta Testers Wanted
by Crime - 03/04/13 06:55 AM
Hello Everyone
by Gremelin - 02/12/12 06:01 PM
Tracfone ESN Generator
by Zanvin Green - 01/18/12 01:31 PM
Python 3 issue
by Testing - 12/17/11 09:28 PM
tracfone airtime
by Drache86 - 07/30/11 03:37 AM
Backdoors and the Infinite
by ZeroCoolStar - 07/10/11 03:52 AM
Where and how do you torrent?
by ZeroCoolStar - 07/06/11 07:22 AM
HackThisZIne #12 Releaseed!
by Pipat2 - 04/28/11 09:20 PM
gang wars? l33t-wars?
by Gremelin - 04/28/11 05:56 AM
Consolidate Forums
by diggin2deep - 04/21/11 10:02 AM
LAN Hacking Noob
by Gremelin - 03/12/11 12:42 AM
Top Posters
UGN Security 41,392
Gremelin 7,203
§intå× 3,255
SilentRage 1,273
Ice 1,146
pergesu 1,136
Infinite 1,041
jonconley 955
Girlie 908
unreal 860
Top Likes Received
Ghost 2
Girlie 1
unreal 1
Crime 1
Ice 1
Powered by UBB.threads™ PHP Forum Software 7.7.4