Как ускорить процесс поиска перебором - Visual Basic .NET

Узнай цену своей работы

Формулировка задачи:

Как ускорить процесс поиска в программе:
Label2.text Меняется каждые 2 секунды Поиск одной подпрограммы занимает 3 секунды, а если Button1 задействует все 3 подпрограммы, а их там еще больше, то поиск займет много секунд. А мне надо, чтобы поиск занял 1-2 секунды максимум. Заранее спасибо.
Ну может
сравнивать как нибудь по другому

Решение задачи: «Как ускорить процесс поиска перебором»

textual
Листинг программы
Public Class Form1
    Dim A1 As Integer 'A1 от 0 до Максимум 200
    Dim База_20 As String 'База_20 Максимум 100 символов
    Dim kor As Integer 'Максимум 10 цифр от 0 до 10
 
    Private List1 As List(Of String)
    Private List2 As List(Of String)
 
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        List1.AddRange({"Кубанская", "Звёздная", "Воробьева проезд", "Николая Островского", "Михаила Луконина", _
                       "Космонавтов", "Николая Островского проезд", "Юго-восточный проезд", "Кирова"})
 
        List2.AddRange({"Генерала Епишева", "Власова", "Гоголя", "Волжская", "Богдана Хмельницкого", "Южная", _
                         "Пороховая", "Ахшарумова", "Игарская 2-я", "Набережная Приволжского"})
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Select Case kor
            Case 0
                kor = 1
                Button1.Text = "Два"
            Case 1
                kor = 2
                Button1.Text = "Три"
            Case 2
                kor = 0
                Button1.Text = "Один"
        End Select
    End Sub
    'Таймер включен
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        If kor = 0 Then Call odin()
    End Sub
    Sub odin()
        Dim iRes() As String = Strings.Split(Label2.Text, ",")
        If List1.Contains(Trim(iRes(0))) Then Vybraty()
        If kor > 0 Then Call dva()
    End Sub
 
    Sub dva()
        Dim iRes() As String = Strings.Split(Label2.Text, ",")
        If List2.Contains(Trim(iRes(0))) Then Vybraty()
        If kor > 0 Then Call dva()
    End Sub
 
    Sub Vybraty()
 
    End Sub
  
End Class

Оцени полезность:

13   голосов , оценка 4 из 5