Visual Basic

Christian Graus28-May-07 0:45

28-May-07 0:45

Set up your percentage, then use a random number generator. In the example above, get a number between 1 and 100. 1-20 is item1, 21-50 is item2, 51-75 is item3, 76-100 is item4.

Christian Graus - Microsoft MVP - C++
Metal Musings - Rex and my new metal blog
"I am working on a project that will convert a FORTRAN code to corresponding C++ code.I am not aware of FORTRAN syntax" ( spotted in the C++/CLI forum )

samerh28-May-07 1:44

samerh

28-May-07 1:44

Christian Iam still confused about setting up items. The case is that i dont have a fixed number of items to set up percentages, the items may vary from one time to another. If this is the case how it is this doable?

Lets suppose i fixed my winning item number to 4 items with percentages (40,30,20,10)and i used the random function
Dim RandomNumber1 As Integer
RandomNumber1 = RandomClass.Next(0, 40)
Dim RandomNumber2 As Integer
RandomNumber2 = RandomClass.Next(41, 70)
Dim RandomNumber3 As Integer
RandomNumber3 = RandomClass.Next(71, 90)
Dim RandomNumber4 As Integer
RandomNumber4 = RandomClass.Next(91, 100)

Then what?
Then only if i chosed a number between 91 & 100 i win an item4 and so on, which is not my case. I want a ratio of (40,30,20,10) of the four existing items and a ratio of (35,25,15,15,10) of my five items and so on.
Any ideas and thanks

Christian Graus28-May-07 11:07

28-May-07 11:07

If the list is random, how is the spread going to be set ? If it's not also random, then you can store a list of values to compare against, to get the same end result.

samerh wrote:
RandomNumber4 = RandomClass.Next(91, 100)

This is not what I said. Take ONE random number between 1 and 100, then work out which interval it fits into. That's how you get your percentage spread. This make not give you any hits at all.

CPallini28-May-07 1:47

CPallini

28-May-07 1:47

if you want to assign to each item a random percentage, dynamically, use the following:

(1) Assign to each item ratio a random number
(2) rescale the assigned ratios to sum up to 100 (i.e. normalize).

Smile | :)

If the Lord God Almighty had consulted me before embarking upon the Creation, I would have recommended something simpler.
-- Alfonso the Wise, 13th Century King of Castile.

Christian Graus28-May-07 11:07

28-May-07 11:07

Yeah, that's what I said.

progress bar

charchabil0328-May-07 0:05

28-May-07 0:05

Hello
Can you provide me a simple function of how to use Progress bar while pulling an unknown number of data from a database
thx

Regards
Ramy

Christian Graus28-May-07 0:10

28-May-07 0:10

Quite plainly, if you don't know how much data you are getting, there's no way you can show a real progress bar. You should also try to make your database call all in one go, not breaking it up into many calls if you can help it.

Your best bet is to set a progress bar to just show indeterminate progress ( the bar moves over and over ) and leave that showing while a thread does your DB call.

Xandip28-May-07 0:23

28-May-07 0:23

ya tats right.. i had posted the same question days ago, and got the same answer from the members of this group. Any ways, try to loop the value of the progressbar with the number of recordsets you want to load. Place the function in a timer with an interval of say 1000 ms.

hope this works..

The name is Sandeep

charchabil0328-May-07 0:59

28-May-07 0:59

Kindly,Provide me a simple code for that Smile | :)

thank you

Regards
Ramy

Christian Graus28-May-07 1:03

28-May-07 1:03

What he has suggested is plain not going to work. Set your progress bar Style property to Marquee and do what I said, there is just no way you can show a progress bar for an unknown number of items.

charchabil0328-May-07 1:11

28-May-07 1:11

Thx for ur help
I really appreciate it. ( and i m not complaining)
all what i ask is a simple code please
thx

Regards
Ramy

Christian Graus28-May-07 1:24

28-May-07 1:24

If you set the progress bar style to marquee, it will display itself automatically. Just put one on your form, and then do your database call in a thread. When the thread ends, get rid of the progress bar. I'm sorry, but I don't write VB, and really, there's no code that I can show you, you need no code for the progress bar, and I don't know how your database call is written.

charchabil0328-May-07 1:35

28-May-07 1:35

thx for ur help Smile | :)

Regards
Ramy

Xandip28-May-07 2:45

28-May-07 2:45

Christian Graus wrote:
I'm sorry, but I don't write VB

then start writing and THEN give your suggestions...

So whats the idea?? Changing the style of the progress bar? wats the matter if u get the count of the records that has to be processed..(as i said earlier)

Christian Graus wrote:
there's no code that I can show you

but i can show you..

With flxTest
.Clear
.Rows = 1
.Cols = 5

Call GetConnection 'Function
Set Gadors = New ADODB.Recordset
GNewQuery = "SELECT * FROM test"
Gadors.Open GNewQuery, Gadocn
Gadors.MoveFirst
Dim i As Long
pg.Min = 0 'setting values of progressbar
pg.Max = Gadors.RecordCount
MousePointer = vbHourglass
While Gadors.EOF = False
i = .Rows
.Rows = .Rows + 1
.TextMatrix(i, 0) = Gadors.Fields(0)
.TextMatrix(i, 1) = Gadors.Fields(1)
.TextMatrix(i, 2) = Gadors.Fields(2)
.TextMatrix(i, 3) = Gadors.Fields(3)
.TextMatrix(i, 4) = Gadors.Fields(4)
If pg.Value <> Gadors.RecordCount Then pg.Value = pg.Value + 1
Gadors.MoveNext
flxTest.Refresh
Wend
MousePointer = vbDefault
End With

try this one....

The name is Sandeep

Dave Kreskowiak28-May-07 6:16

Dave Kreskowiak

28-May-07 6:16

Your updating the progress bar AFTER the records have been returned, not during. Your only updaating the progress bar during the processing of each record.

For a long running stored procedure that returns a set of records, or for an unknown size of the set, this won't work at all.

A guide to posting questions on CodeProject[^]

Dave Kreskowiak
Microsoft MVP
Visual Developer - Visual Basic
2006, 2007

Christian Graus28-May-07 11:00

28-May-07 11:00

Xandip wrote:
then start writing and THEN give your suggestions...

Most of the questions here are framework questions, which is why I can answer them. I *can* write VB, but I'd prefer not to.

Xandip wrote:
but i can show you..

Like Dave said, this won't work. What I explained, will.

Xandip28-May-07 17:56

28-May-07 17:56

In the case of stored procedures, I admit what Dave said. But I dont understand why you are saying to display a progressbar in the screen just for a Show sake. Whats the use of it, if it doesnt show even the approximate time taken for loading the set of records..?
The progressbar loading is used for making the user wait upto some time, till the data shows up. If its the case of stored procedures, my code can be inserted during the data loading time, because stored procedures still shows the recordcount. At least, the user can see the time spent in the data showup process.

Christian Graus wrote:
What I explained, will.

I really dont like the idea of fooling a user with your 'just for show' progressbar. I admit that my idea is not the appropriate solution, but still I can't stand with yours.
The amount of time for presenting the data in front of the user can be precisely split up into the
time for data retrieval + time for data viewing
time for data retrieval -> this one, i admit, cannot be done
time for data viewing -> but you have to admit, this one can be done

The name is Sandeep

Xandip28-May-07 1:31

28-May-07 1:31

Is This for VB6 or VB.NET??

The name is Sandeep

charchabil0328-May-07 1:34

28-May-07 1:34

guys
it's a vb.net application

fdbcon.Open()
fdbcmd.CommandText = "select * from table"
dr = fdbcmd.ExecuteReader
fdbcon.Open()

that is all

Regards
Ramy

Christian Graus28-May-07 1:39

Fade out effect in my form...??

28-May-07 1:39

So use the BackgroundWorker class to do this in a thread, and in it's finished event, hide the progress bar. Your only other problem is, do you also disable the rest of the UI during the call ? The easiest way to do that is have a modal call on a progress dialog, which calls the thread, and then closes itself when the call is done.

Xandip27-May-07 23:11