Как ускорить процесс поиска перебором - 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