исправить ошибку ком-ды Speech1.Speak

[vovan21]

подскажите почему у меня зависает комп при выполнении команды Speech1.Speak Lines(Tell_line).ToolTipText = " AI: " & Fase что я не так сделал?
код

Код: Выделить всё

Sub SayAI(Fase As String)
  If Tell_line = 12 Then
    For t = 1 To 11
      Lines(t - 1) = Lines(t)
    Next t
    Lines(11) = " AI: " & Fase
  Else
    Speech1.Speak Lines(Tell_line).ToolTipText = " AI: " & Fase
    'Lines(Tell_line) = " AI: " & Fase
    Tell_line = Tell_line + 1
  End If
End Sub

[Viper] :: Пользуйся тэгом CODE!

[Viper]

подскажите почему у меня зависает комп

Именно зависает? Вообще-то у тебя на эту строку должна ругаться среда Visual Studio, а до зависание дело дойти не должно.

[vovan21]

исправил, зависал потому что подгружал проц на 99процентов т.к не понимал руск.буквы

Код: Выделить всё

Sub SayAI(Fase As String)
  If Tell_line = 12 Then
    For t = 1 To 11
      Lines(t - 1) = Lines(t)
    Next t
    Lines(11) = " AI: " & Fase
  Else
  заменил на   DirectSS.Speak Lines(Tell_line).ToolTipText = " AI: " & Fase
    Lines(Tell_line) = " AI: " & Fase
    Tell_line = Tell_line + 1
  End If
End Sub

разговаривает только теперь не говорит что мне надо не ловит текст который поевляется из базы

[Хакер]

vovan21, если ты и дальше будешь так же наплевательски относиться к правописанию, ты будешь наказан

[vovan21]

где помощь? и еще
что посоветуете !
надо из микрофона распознать текст и вывести его в текстовое поле
это реально, и как это сделать?
[Viper] :: На этом форуме приветствуется грамотность. Поэтому, запятые, точки и заглавные буквы в начале предложений не рекомендуется забывать. На всякий случай уточняю - это предупреждение. Пока что устное!

[vovan21]

хотелось бы еще раз поднять тему по поводу Распознавание голоса с Direct Speech Recognition уже вроде бы 2011 год может все таки у кого то получилось написать исходник?