Как найти наибольшее число во всех текстовых файлах

Question

Я близок к завершению небольшой программы, которую я начал, но застрял с последней частью. И я только начинаю изучать программирование, так что может быть глупый вопрос.

Как я могу получить текстовое поле с самым высоким номером из 16 ящиков, каждый из которых имеет свой собственный номер, но в то же время отслеживать, какой из них по-прежнему имеет наибольшее число каждую секунду? Вряд ли путают обновление каждой второй части.

Вся помощь приветствуется!

Answer 1

Код предложение

Private Sub findTopTextBox() 

     Dim topValue As Integer 
     Dim topTextBox As TextBox 
     For Each ctrl As Control In Me.Controls 'all the controls on your form 
      If TypeOf ctrl Is TextBox Then 
       Dim thisValue As Integer 
       If Integer.TryParse(DirectCast(ctrl, TextBox).Text, thisValue) Then 
        If thisValue > topValue Then 
         topValue = thisValue 
         topTextBox = DirectCast(ctrl, TextBox) 
        End If 
       End If 
      End If 
     Next 

     Debug.Print(String.Concat(topTextBox.Name, " has the top value at: ", topValue)) 

    End Sub 

Для того, чтобы проверить его каждый второй, вам нужно добавить таймер и вызвать этот метод неоднократно.

Answer 2

Вам не нужно проверять каждый второй только проверить, что изменение было сделано в одном из текстовых
Вы можете обрабатывать все ваши Textboxes LostFocus события (используя тот же метод, чтобы обрабатывать их все); получить его текст, убедитесь, что это число и если оно больше, чем максимальный ток обновить его (вместе с его «место»: контроль текстовое поле)
образом, вы всегда знаете, какой из них является самым большим

Нечто подобное должно сделайте это (набрано прямо здесь, поэтому не проверено):

Dim maxNumber As Integer, maxTextBox As TextBox 

Sub TextBoxes_LostFocus(sender As Object, e As EventArgs) Handles textbox1.LostFocus, textbox2.LostFocus ' ... for all textboxes 
    Dim tbSender = DirectCast(sender, TextBox) 
    Dim number As Integer 

    ' Should we update maxTextBox if number = maxNumber ? (if yes change the > to >=) 
    If Integer.TryParse(tbSender.Text, number) AndAlso number > maxNumber Then 
     maxNumber = number 
     maxTexBox = tbSender 
    End If 
End Sub