Use A Loop To Sum Until Cumulative Total Equals A Specified Figure?
Apr 29, 2010
I am trying to filter a dataset by adding together numbers within a specified field (say field1) within the dataset until i reach a specified number.
The filtered dataset should either be precisley equal to the number or most likley less than. In short if a row exceeds the number it should revert to the previous record.
I have no probs with general filtering and using data adapters to access the data. But im struggerling with the loop side of things.
View 4 Replies
ADVERTISEMENT
Oct 28, 2008
I am working with VB 2008. I want to be able to run this program say in N: and it will show me in an excel sheet the following:
Folder Path Size(GB) Count of Files
N:Clients 0.53 308
where clients contains subfolders and files and the size is the total of all those files within each folder and the count is the total within each folder also.
This works fine as it is but i have to select one by one the top level folders and some of them are huge so it takes forever to give me an answer.
1) I would like to see in my spreadsheet the following by only select the network drive n:
Folder Path Size(GB) Count of Files
N:Clients 0.53 308
N:Software 10.7 15430
N:Billing 0.98 105
2) I would also like to know if this is the faster method.
3) I tried adding a progress bar so that the user can have an idea of how much this will take but i had to remove because it was not working.
4) I would like to see the folder name, size of folder and count of files in the listview.
Here is the code:
Imports Microsoft
Imports Microsoft.Win32
Imports Microsoft.Win32.Registry
Imports System.Collections
[code].....
View 5 Replies
May 23, 2012
I implemented a PagedModel class to wrap around IEnumerable to provide paging data for grids in my MVC app.I used Resharper's auto-generated Equality code telling it to check the data, total rows, page number, and page size fields.[code]I found the call to Equals(other._ModelData, _ModelData) peculiar, as AFAIK, this checks that it is the same object rather than that the contained items are the same. Because my tests were failing anyways, I went ahead and changed it to other._ModelData.Equals(_ModelData) with no success. Then I reflected into it at debug time and found that other._ ModelData.GetType().GetMethod("Equals",{GetType(Object)}).DeclaringType was Object! Obviously, that would result in the failed comparison.I came up with a solution to create a EnumerableEquals method which compares every item in the two enumerables to confirm the are the same, but it seems sloppy. Is there anything I can do to use the normal .Equals method? [code]
View 2 Replies
Nov 25, 2011
How can I add a loop to this sequence to make the program give a total of the figures in the domestic and international columns when the word "ALL" is typed into the month textbox, instead of a number. The domestic total should go into the domestic textbox, the international total should go into the international textbox and the total of the domestic and international should go into the companytotal textbox.
[Code]...
View 1 Replies
Oct 17, 2009
I'm trying to add all of the totals within a list box, which would then be displayed in a label.[code]
View 3 Replies
Jun 28, 2010
Is there any way to create a total row at the last of grid view without using loop
I mean if I want to get the sum of a column of a datatable then can I do it without using loop.
View 2 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 7, 2010
How do I code the total cost to give me a pound sign with the total cost at the moment when the total comes up for an example it gives me 3.6 when I need it to show £3.60 here is the code I have so far. [code]
View 2 Replies
Oct 6, 2010
The pay rates for the project are:
a. Level 1 - $10.00
b. Level 2 - $12.00
c. Level 3 - $14.00
d. Level 4 - $16.00
e. Benefit Deduction Rate - 0.10
f. Overtime Factor - 1.5
For ease of program maintenance, all of the above rates and factors must be stored in module level constants. All references to pay rates in the program must refer to the module level constants.
When the Calculate button is clicked:
a. The value in the Hours text box must be validated to insure that it is numeric value greater than zero.
1. If the value is not valid, a message box must appear as shown below and the user must be offered the option to continue processing or quit the program.
2. If the user chooses to continue processing, the focus must be set to the Hours text box.
3. If the user chooses to quit, the program must close immediately.
b. If the value is valid, the program must calculate and display the total pay in the Total Pay label.
1. The pay rate is determined by which Job Grade radio button is checked.
2. For hours less than or equal to 40, the total pay is the hours times the pay rate.
3. For hours greater than 40, the total pay is 40 hours times the pay rate plus the hours in excess of 40 hours times the pay rate times the Overtime Factor.
4. If the Full Time radio button is selected, the total pay must be reduced by the Benefit Deduction Rate.
5. The value displayed in the Total Pay label must be formatted with a dollar sign and with two decimal
places.
6. The focus must be set to the Hours text box.
Why i get an error when i try to run this code
Code:
Also the message box, both yes and no close the program.....
View 10 Replies
Jun 8, 2011
I am using visual basic 2008 amd creatomg a datagrodview format like below [code] Now I wnat to get total balance in total column after less discount in percentage with ENTER EVENT proceedure and get the whole total column balance in a textbox i.e Net BalanceTextBox. Please tell me how to calculate discount in percent % and get total in total column and also tell me how to move cursor in next cell instead of bottom row in datagridview.
View 2 Replies
Apr 22, 2011
I have 3 columns in a unbound datagridview, "length" "height" and "Total". Total = length x width and the final total in TextBox outside of the Grid. I found question simalar in this forum and tried the code but i am getting errors.The following is the code i am using
Public
Class Form1
Dim UnboundColumn[code]...
View 5 Replies
Nov 21, 2009
I'm new to forums as well as new to VB 2008. I'm in process of making a order calculator which will total any values you selected in combo boxes/checkboxes and then display it in a selected area. There are 3 things that I want to achieve: 1. Be able to add another total to an existing total (currently I'm able to see only one total when I hit "Calculate" button)2. Display how many orders I have made so far (new total counts as one order)3. Be able to add up checkboxes selected to an overall total. (when I try to add up one checkbox with another it seems to be stuck on 1.5 pounds which I assigned for each "side order")
View 4 Replies
Aug 26, 2011
I am comapring 2 contract IDs, one is sent by the caller, the other is in a file and read into a variable. I use a string.Equals method to compare the contract IDs. The contract IDs compare successfully if the number in a contract ID is more than 1 away from the the other for example:
CTSRG0006 & CTSRG0005 = false
However
CTSRG0006 & CTSRG0007 = true
the code I am using for the comparison:
If fileContractID.Equals(calledContractID) Then
isFileValid = True
End If
View 1 Replies
Mar 29, 2010
I'm making a sort of VB.NET calculator that has all of the advanced features. I would also like it to have programming-style tips so that I won't have to build in things like ABS and EQUALS.
For example, ABS is sqrt(x ^ 2) and EQUALS is NOT(OZ(x-y)). NOT is 1 - OZ(x).
(x and y are the variables.)
I've come up with a few, but many rely on OZ(). OZ stands for 1/0. I need a formula that will return 1 if the value is <> 0, but 0 if it is equal to 0. I've worked on this for days but I can't come up with anything. Does anyone know how to do this?
View 39 Replies
Nov 8, 2009
i read it on internet article already, and tested it already. but it didnt show any difference.
View 3 Replies
Nov 24, 2009
My programming days are many years in the past - so I'm trying to get back into it. My current problem is as follows - I have a word document that is set up as a mailmerge document that is merged to email (through outlook). The merge records are in an excel spreadsheet (the email address is in a field called EMAIL). My emails are getting rejected by the recipient domain because they're being sent too fast (so they therefore think that they're spam).
I need to create a VB Program that will use the document called MASTER and merge it with the spreadsheet called RECIPIENTS and send via Outlook. However, I need it to send the first 10 emails, wait 10 minutes, send the next 10, wait another 10 minutes and continue cycling through until all of the emails have been sent.
View 3 Replies
Feb 6, 2012
In code, why wouldn't this work? intMax = intTopValue = 20
View 2 Replies
Jun 10, 2010
What is the difference between Equals and = in LINQ?
Dim list As List(Of Foo) = (From a As Foo In FooList _
Join b As Bar In BarList _
On a.Something = b.Something _
Select a).ToList()
versus Dim list As List(Of Foo) = (From a As Foo In FooList _Join b As Bar In BarList _On a.Something Equals b.Something _Select a).ToList()
View 2 Replies
Dec 8, 2009
I have three classes which implement an Interface iComparesWith, and I wish there to be a single function such that each iComparesWith object of any of the three implementing classes should be able to compare itself with any other iComparesWith object, again, of any of the three implementing classes, and know if the two objects are equal. How can I code this so that the comparison code is only written once? Is it the case that I will have to create a top-level MustInherit class which implements the equality comparison, and have MustOverride methods for all of the methods of iComparesWith?
View 1 Replies
Oct 11, 2011
Is it the best override for Equals (in VB.NET) for an object having an unique ID? [code]I took that example from the MSDN, but not entirely sure if from all points of view (including performance) is the better solution.[code]
View 2 Replies
Feb 13, 2011
In code, why wouldn't this work?
intMax = intTopValue = 20
View 1 Replies
Mar 8, 2012
[URL]It is a sub that is meant to add a user to a group in Active Directory. However, I can't seem to figure out how to use it. Here is the code:
''' <summary>
''' Method to add a user to a group
''' </summary>
''' <param name="de">DirectoryEntry to use</param>
[code]....
I'm not sure what to put for the first argument when calling it. For example:
AddUserToGroup(?, User, Group)
View 1 Replies
Mar 16, 2010
I am trying to write a program where every 30 seconds a jpg file is put in a PictureBox object. So far I am only able to get 1 jpg file every 30 seconds - twice - that is only 2 jpg files and not say 30 jpg files.
View 5 Replies
Jun 22, 2010
I have two text boxes, submit button. and a dropdown list with the items(even, odd, and all). I want to calculate the sum of either all "Even", "Odd" or "All" numbers according the selection. In the code below, I have the "all" section working correctly but I'm trying to figure out a way to get the Even and Odd to work.
Some one suggested me to develope a good formula for determining whether a number is even or odd, then calling that from within the program as needed. I've tried that below with the IsEvenNumber function but got stuck. Protected Sub btnSubmit_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnSubmit.Click
[code]...
View 1 Replies
Jul 15, 2009
Below is the code im using to select fields from a table.I have 6 labels on a form. I want each label to have the value of the field selected.
Example,
I have a label named lblTeacher on the form. Because i'm selecting the Teacher field from the table in the OLE string, i want to be able to assign the value of that to the label. This is the same for all the other fields selected. How would i manage this?
[code...]
View 2 Replies
Aug 5, 2011
I stumbled upon an article regarding the Birthday Paradox and it's implications when overriding the GetHashCode method, I find myself in a bind.In tests, we found that in calls to the ToLookup() Extension, only GetHashcode is used, despite providing the implementation for Equals.
I think I understand why this happens, the internal working of ToLookup, HashSet, Dictionary, etc, use the HashCodes to store and/or index their elements?Is there a way to somehow provide the functionality so that the equality comparison is actual performed using the equals method? Or should I not be concerned with the collisions? I haven't done the maths myself, but according to the first article I linked, you would only need 77,163 elements in a list before reaching a 50% chance of collision.
If I understand this correctly, an Equals() override that compares property by property such as
Return (a.Property1 == b.Property1 && a.Property2 == b.Property2 && ...)
should have a zero chance of collision? So how can I get my ToLookup() to equality compare this way?
In case you need an example of what I mean:
[Code]...
I can get that to work with an override of GetHashcode(), no problems. But I don't want to use GetHashcode because if I have, for example, 109,125 elements in my list, apparently I'm already at 75% chance of collision? If it used aforementioned Equals() override, I think I'd be at 0%?
View 2 Replies
Apr 2, 2011
Well I thought this was going to be easy, then the problem showed up.So I have a structure defined, as follows:
Structure Testing
Dim i as short
Dim j() as short
[code]....
And I need to do the same with all of the T2 array members.Now I get into writing the real code. Something like this:
For i = 1 to 100
Populate portions of T1 'not all values of T1 are used for each value of i
T2(i) = T1
Reset T1 to zero values and empty strings
Next i
So what is going wrong? After I set my T1 components back to zero, my T2(i).j has had all its 1-10 index values set to zero. Note that it is just the array, not the string s or the non-array i.Sure, I could write some code where I set T2(i).i = T1.i, and so on for each variable in the structure. But I have a feeling that is not the right way. There is some kind of equivalence going on between T2(i) and T1 in each loop. And I would would like to understand that more so I know how to really deal with it.
View 9 Replies
Jun 13, 2012
I have an array of a structure and I need to assign an element of this array to a variable of the same type. In vb6 I'd use something like the following pseudo-
View 3 Replies
Feb 17, 2012
i have my project working fine in vb6,,but when i try to convert it ..well you know what happens 99.9% of the time.Anyhow all i have been able to get working is the code below.which basically just throws a textbox up onto the listview where ever the mouse is clicked at..but i can't figure out how to get it to lock into any of the cells,columns etc.can someone just show me the simplest way to get the textbox to lock into the cell that the mouse clicks on..or subitem etc.I have no more hair to pull out..I'd start pulling teeth..but I'm already passed that option too
[Code]...
View 12 Replies
Dec 1, 2009
I'm trying to figure out the 'bytestowrite' command, but I'm not having much luck.I'm sending some info over COM1 to and LED sign, and since it runs at 300 baud it takes a minute or so to transfer. I was trying to use the 'bytestowrite' command to find out how many bytes still needed to be sent, and use that info with a progress bar, but I'm always getting 0 when using 'bytestowrite'
Below is the code I tried to get the bytes left to write into a label box, but I've probably got it wrong (but I like to try to figure things out before I ask for help).
Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
Using com1 As IO.Ports.SerialPort = My.Computer.Ports.OpenSerialPort("COM1", 300, Ports.Parity.None, 8, Ports.StopBits.One)
Label1.Text = com1.BytesToWrite
[code]....
I thought putting it in a timer would keep checking the com port to see if there were any bytes to be written, but it always shows 0.
View 3 Replies
