Регистрация | Вход
Private Sub AI(w) Randomize() Dim r = (Int(Rnd() * 14) + 1) Dim s = "" Dim i = 1, j Dim word = "" Dim wq word = w 'kw((Int(Rnd() * wn) + 1)) Do For j = 1 To 250 Randomize() If (Int(Rnd() * 11) + 1) = 1 Then word = kw((Int(Rnd() * wn) + 1)) wq = Word_Qu(word) If (wq >= 2) Then If ((Int(Rnd() * wn) + 1) <> wq) Then Continue For End If Else Build_Links(word) Dim rlw = links((Int(Rnd() * link_n) + 1)) If (Int(Rnd() * 2) + 1) = 1 And word <> rlw Then word = rlw Else Continue For wq = Word_Qu(word) If (wq >= 2) Then If ((Int(Rnd() * wn) + 1) <> wq) Then Continue For End If End If Exit For Next last_w = word s = s + word + " " i = i + 1 Loop While (i <= r) name_AI = "AI- " AddToLog(name_AI + s) RichTextBox2.AppendText(name_AI + s & vbCrLf) RichTextBox2.ScrollToCaret() TextBegin(s) While TextReadWord() Add_To_Kw(g_text_word) End While Save_KW() CreateObject("SAPI.SpVoice").Speak(s) Label1.Text = wn End Sub
Sub Build_Links(w) link_n = 0 Dim i = 1 Do If kw(i) = w Then link_n = link_n + 1 : links(link_n) = kw(i + 1) i = i + 1 Loop While (i <= (wn - 1)) End Sub
Function Word_Qu(w As String) Dim q = 0 For i = 1 To wn If w = kw(i) Then q = q + 1 Next Return q End Function
Sub TextBegin(text_) g_text = text_ g_text_pos = 1 g_text_word = "" End Sub Function TextReadWord() g_text_word = "" If (g_text_pos > Len(g_text)) Then Return 0 End If While (Mid(g_text, g_text_pos, 1) <> " " And g_text_pos <= Len(g_text)) g_text_word = g_text_word + Mid(g_text, g_text_pos, 1) g_text_pos = g_text_pos + 1 End While g_text_pos = g_text_pos + 1 Return 1 End Function