Вот пример с другим голосовым движком Maxim-русский Joey-английский. Словари все отключены! Озвучивает "как есть" в режиме мультилингва в Демагоге.
► Показать
{{Maxim,0,0,100}}Задача 4: В компьютер один за другим вводятся произвольные символы. Ввод заканчивается символом "/". Подсчитать, ка-кой процент от общего числа введенных символов составляют символ {{Joey,0,0,100}}"W" {{Maxim,0,0,100}}и символ ":" по отдельности.
Здесь мы организуем три счетчика одновременно: {{Joey,0,0,100}}сW - {{Maxim,0,0,100}}для подсчета букв {{Joey,0,0,100}}W, сDv - {{Maxim,0,0,100}}для подсчета двоеточий, а также {{Joey,0,0,100}}i - {{Maxim,0,0,100}}счетчик общего числа введенных символов, кроме "/".
Программа:
{{Joey,0,0,100}}Private Sub Command4_Click()
Dim i As Integer, cW As Integer, cDv As Integer
Dim procent_W As Integer, procent_Dv As Integer
Dim simvol As String
i {{Maxim,0,0,100}}= 0: {{Joey,0,0,100}}cW {{Maxim,0,0,100}}= 0: {{Joey,0,0,100}}cDv {{Maxim,0,0,100}}= 0 'Обнуляем все три счетчика
{{Joey,0,0,100}}Do simvol {{Maxim,0,0,100}}= {{Joey,0,0,100}}InputBox("Введи {{Maxim,0,0,100}}символ")
{{Joey,0,0,100}}If simvol {{Maxim,0,0,100}}<> "/" {{Joey,0,0,100}}Then i {{Maxim,0,0,100}}= {{Joey,0,0,100}}i {{Maxim,0,0,100}}+ 1 'Если это не /, то "посчитай" его
{{Joey,0,0,100}}Select Case simvol
Case "W" {{Maxim,0,0,100}}'Если это {{Joey,0,0,100}}W, {{Maxim,0,0,100}}то {{Joey,0,0,100}}cW {{Maxim,0,0,100}}= {{Joey,0,0,100}}cW {{Maxim,0,0,100}}+ 1 'увеличь счетчик символов {{Joey,0,0,100}}W
Case {{Maxim,0,0,100}}":" 'Если это : , то {{Joey,0,0,100}}cDv {{Maxim,0,0,100}}= {{Joey,0,0,100}}cDv {{Maxim,0,0,100}}+ 1 'увеличь счетчик символов :
{{Joey,0,0,100}}Case {{Maxim,0,0,100}}"/" 'Если это /, то
{{Joey,0,0,100}}Exit Do {{Maxim,0,0,100}}'завершай работу цикла
{{Joey,0,0,100}}End Select
Loop procent_W {{Maxim,0,0,100}}= {{Joey,0,0,100}}Round(100 * cW / i) {{Maxim,0,0,100}}'Вычисляй процент символов {{Joey,0,0,100}}W procent_Dv {{Maxim,0,0,100}}= {{Joey,0,0,100}}Round(100 * cDv / i) {{Maxim,0,0,100}}'Вычисляй процент символов :
{{Joey,0,0,100}}Debug.Print procent_W, procent_Dv
End Sub
