сначала, пожалуйста, посмотрите прилагаемый проект для лучшего понимания.
нажмите здесь, чтобы загрузить
посмотреть изображение здесь
вы можете скачать проект и поиграть, хотя он не работает должным образом
Я пытаюсь написать приложение, которое будет печатать все ключевые скучные вероятности внутри списка в форме, чтобы я мог после генерации импортировать его в базу данных.
приложение запустится, спросив пользователя, какова длина вашей вероятностной переменной.
например, пользователь будет писать 8 символов в текстовом поле в форме.
после этого пользователь нажмет кнопку «Рассчитать», как только он нажмет на нее
он будет генерировать вероятности всех скучных букв (26 заглавных букв, 26 строчных букв, 10 цифр и 13 символов в скучном ключе), принимая все это во внимание при расчете вероятностей 8 символов, которые пользователь написал выше ,
Я знаю, что это может протечь процесс и заморозить процессор, ну
Я ищу правильный способ для достижения этого, было бы неплохо, если есть индикатор загрузки, показывающий продолжительность процесса.
Любое предложение будет высоко оценено
вот мой текущий код:
</p>
<pre><code> Private Function AnyTextBoxEmpty() As Boolean
AnyTextBoxEmpty = Text1.Text = ""
End Function
Private Sub Command5_Click()
Form1.Refresh
End Sub
Private Sub Timer1_Timer()
Timer1.Interval = Rnd * 300 + 10
ProgressBar1.Value = ProgressBar1.Value + 2
loader.Caption = ProgressBar1.Value & "%"
If loader.Caption = 100 & "%" Then
MsgBox ("Probabilities have been generated successfully")
End If
End Sub
Private Sub Command2_Click()
Dim i As Long
Dim x As Long
i = 1
If AnyTextBoxEmpty Then
MsgBox ("You need to write the length of your password")
Text1.Text = ""
Text1.SetFocus
Else
Dim CapitalLetter As String
CapitalLetter = "A"
x = Text1.Text
ProgressBar1.Value = i + 1
loader.Caption = ProgressBar1.Value & "%"
If Text1.Text = Text1.Text Then
loader.Caption = 100 & "%"
MsgBox ("Probabilities have been generated successfully")
End If
End If
Do While (i <= x)
List1.AddItem (i & CapitalLetter) + CapitalLetter
i = i + 1
Loop
End Sub
Private Sub Form_Load()
If Text1.Text = "" Then
Text1.BackColor = &H80000003
Else
Text1.BackColor = &HC0FFFF
End If
If Text2.Text = "" Then
Text2.BackColor = &H80000003
Else
Text2.BackColor = &HC0FFFF
End If
If Text3.Text = "" Then
Text3.BackColor = &H80000003
Else
Text3.BackColor = &HC0FFFF
End If
If Text4.Text = "" Then
Text4.BackColor = &H80000003
Else
Text4.BackColor = &HC0FFFF
End If
If Text5.Text = "" Then
Text5.BackColor = &H80000003
Else
Text5.BackColor = &HC0FFFF
End If
If Text6.Text = "" Then
Text6.BackColor = &H80000003
Else
Text6.BackColor = &HC0FFFF
End If
End Sub
Private Sub Text1_Change()
If Text1.Text = "" Then
Text1.BackColor = &H80000003
Else
Text1.BackColor = &HC0FFFF
End If
End Sub
Private Sub Text1_Click()
Text1.BackColor = &HC0FFFF
If Text1.Text = "" Then
Text1.BackColor = &H80000003
Else
Text1.BackColor = &HC0FFFF
End If
End Sub
Private Sub Text2_Click()
Text2.BackColor = &HC0FFFF
If Text2.Text = "" Then
Text2.BackColor = &H80000003
Else
Text2.BackColor = &HC0FFFF
End If
End Sub
Private Sub Text2_Change()
If Text2.Text = "" Then
Text2.BackColor = &H80000003
Else
Text2.BackColor = &HC0FFFF
End If
End Sub
Private Sub Text3_Click()
Text3.BackColor = &HC0FFFF
If Text3.Text = "" Then
Text3.BackColor = &H80000003
Else
Text3.BackColor = &HC0FFFF
End If
End Sub
Private Sub Text3_Change()
If Text3.Text = "" Then
Text3.BackColor = &H80000003
Else
Text3.BackColor = &HC0FFFF
End If
End Sub
Private Sub Text4_Click()
Text4.BackColor = &HC0FFFF
If Text4.Text = "" Then
Text4.BackColor = &H80000003
Else
Text4.BackColor = &HC0FFFF
End If
End Sub
Private Sub Text5_Change()
If Text5.Text = "" Then
Text5.BackColor = &H80000003
Else
Text5.BackColor = &HC0FFFF
End If
End Sub
Private Sub Text5_Click()
Text5.BackColor = &HC0FFFF
If Text5.Text = "" Then
Text5.BackColor = &H80000003
Else
Text5.BackColor = &HC0FFFF
End If
End Sub
Private Sub Text6_Change()
If Text6.Text = "" Then
Text6.BackColor = &H80000003
Else
Text6.BackColor = &HC0FFFF
End If
End Sub
Private Sub Text6_Click()
Text6.BackColor = &HC0FFFF
If Text6.Text = "" Then
Text6.BackColor = &H80000003
Else
Text6.BackColor = &HC0FFFF
End If
End Sub
спасибо