a tricky loop?

I have a form (code below) which contains 2 text boxes. The first text box displays the value stored in a variable named 'total_required'. The second text box needs to display the variable declared 'chosen_type', this variable will store a chosen type from the array, i.e. it needs to display either 'A' or 'B' or 'C' etc. The way in which i need to determine the value of the 'chosen_type' variable is by choosing whichever types value( the number associated with each letter, e.g A 105) can be divided into the 'total_required' value and leave the [B]smallest remainder[/B]. However, if the remainder is greater than 50, then i need to add 1 to the number of times that that the type value can be divided into total_required, and then find the 'new' remainder. For example, with a total_required value of 2025: Type A,105 Can be divided 19 times, remainder 30. Type B,120 Can be divided 16 times, remainder 105 (as this is greater than 50 we add 1 to 16 and get 17*120=2040) 2040-2025=15, therefore remainder 15. Type C, 152 Can be divided 13 times, remainder 49. Type D, 101 Can be divided 20 times, remainder 5 Type E, 121 Can be divided 16 times, remainder 89(as 89>50, we add 1 to 16 and have 17*121=2057) 2057-2025=32, therefore remainder 32 Type C gives the smallest remainder(5) and so 'C' would be assigned to the variable 'chosen_type'. I know how to get the remainder, through using Math.IEEERemainder, but i cannot get my head round a loop that i would need to implement in order to do this. Can anyone please help? Public type_data As Object(,) = {{"A", 105}, _ {"B", 120}, _ {"C", 152}, _ {"D", 101}} Public total_required As Single Public chosen_type as string Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load total_required = 2025 Me.TextBox1.Text = total_required Me.textBox2.text = chosen_type End Sub

Had a quick go for you and I think this is what you mean. Its just a standard while loop that adds up the value as you can work out how many times the value goes. I use the same sort of loop all the time to loop round a dataview using a currencymanager. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Try Dim iTotalRequired As Integer = CInt(Me.TextBox1.Text) Dim iA As Integer = CInt(Me.TextBox2.Text) Dim iRemain As Integer Dim iNumber As Integer = CInt(iTotalRequired / iA) Dim i As Integer = 0 While i < iNumber 'Loop while the control i is less than the number of items iRemain += iA 'We no how many we want so add it int i += 1 'Always remember to add one to the loop End While iRemain = iTotalRequired - iRemain 'Work out how many is left Me.Label1.Text = iNumber & " Remainder " & iRemain 'Print it to a label. Catch ex As Exception Me.Label1.Text = "ERROR: " & ex.Message End Try End Sub Cheers, Simeon

1 Reply

Know the answer? Post it — somebody with the same question will find it here.

swilkinson21y ago
Had a quick go for you and I think this is what you mean. Its just a standard while loop that adds up the value as you can work out how many times the value goes. I use the same sort of loop all the time to loop round a dataview using a currencymanager. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Try Dim iTotalRequired As Integer = CInt(Me.TextBox1.Text) Dim iA As Integer = CInt(Me.TextBox2.Text) Dim iRemain As Integer Dim iNumber As Integer = CInt(iTotalRequired / iA) Dim i As Integer = 0 While i < iNumber 'Loop while the control i is less than the number of items iRemain += iA 'We no how many we want so add it int i += 1 'Always remember to add one to the loop End While iRemain = iTotalRequired - iRemain 'Work out how many is left Me.Label1.Text = iNumber & " Remainder " & iRemain 'Print it to a label. Catch ex As Exception Me.Label1.Text = "ERROR: " & ex.Message End Try End Sub Cheers, Simeon