Вопрос № 39995: Здравствуйте, уважаемые эксперты!
Подскажите, пожалуйста, как заставить программу на VB 6.0 или VB.NET воспроизвести через звуковую карту звук, заданной частоты и длительности?
Dumon_e...Вопрос № 40011: Здравствуйте!!! Я хочу написать программу, которая будет подсчитывать количество букв,количество предложений и количество слов. Текст будет вводится через TextBox, как это сделать, можете написать пример, может есть какая-то функция или процедура под...
Вопрос № 39.995
Здравствуйте, уважаемые эксперты!
Подскажите, пожалуйста, как заставить программу на VB 6.0 или VB.NET воспроизвести через звуковую карту звук, заданной частоты и длительности?
Dumon_e
Отправлен: 11.04.2006, 14:59
Вопрос задал: Dumon_e (статус: 1-ый класс)
Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)
Отвечает: Залетин Виталий Викторович
Здравствуйте, Dumon_e!
Почитайте вот это:
http://hom.com.ua/hardware/library/video/iXBT_What's_DirectX.htm
http://www.sources.ru/vb/vb_directSound.shtml
http://www.ishodniki.ru/base/vbasic/vb_directSound.zip
--------- Учиться никогда не поздно. Особенно программированию!
Здравствуйте!!! Я хочу написать программу, которая будет подсчитывать количество букв,количество предложений и количество слов. Текст будет вводится через TextBox, как это сделать, можете написать пример, может есть какая-то функция или процедура подсчёта символов или что-то вроде такого как в Паскале?
Отправлен: 11.04.2006, 17:56
Вопрос задал: ataman (статус: Посетитель)
Всего ответов: 3 Мини-форум вопроса >>> (сообщений: 1)
Отвечает: EPDSota
Здравствуйте, ataman!
CharsCount=LEN(TextBox.Text)
--------- Открыть глаза навстречу солнцу
Ответ отправил: EPDSota (статус: Специалист)
Ответ отправлен: 11.04.2006, 18:04 Оценка за ответ: 5
Отвечает: Филатов Евгений Геннадьевич
Здравствуйте, ataman!
Создаем новый проект.
На форме создаем TextBox с опцией MultiLine=True почти на всю форму.
Внизу создаем Label.
В код формы вставляем программу:
Public b As Long
Public s As Long
Public p As Long
Public s1 As Boolean
Public p1 As Boolean
Public i As Long
Private Sub Form_Load()
Form1.Label1 = ""
Form1.Text1 = ""
End Sub
Private Sub Text1_Change()
Dim simv As String * 1
b = 0
s = 0
p = 0
p1 = False
s1 = False
'В состав набранного текста входят буквы, символы пунктуации, из которых нам важна точка
'как символ разделения между предложениями, и пробелы, которые разделяют слова.
'Правило написания предложений:
'1. Слова разделяются пробелами
'2. Первое слово, заключенное в скобки (кавычки), пишется без пробела после кавычек
'3. Закрывающая скобка (кавычка) пишется без пробела после слова
'4. После знаков пунктуации перед началом слова ставится пробел
'5. Точка, восклицательный и вопросительный знаки используются только как признак конца предложения
'6. При обработке начальные и конечные пробелы обрезаются
If Len(Trim(Form1.Text1)) > 0 Then
'Если длина текста ненулевая, есть первое слово и первое предложение
p = 1
s = 1
'Проверяем содержимое посимвольно
For i = 1 To Len(Trim(Form1.Text1))
simv = Mid(Trim(Form1.Text1), i, 1)
If p1 And Not (simv = "." Or simv = "!" Or simv = "?") Then
'если после точки еще есть символы кроме знаков препинания, значит следующее предложение
p = p + 1
p1 = False
End If
If s1 And Not simv = " " Then
'если после пробела еще есть символы кроме пробела, значит следующее слово
s = s + 1
s1 = False
End If
Select Case simv
Case ".", "!", "?"
'признак возможного начала следующего предложения
p1 = True
Case " "
'признак возможного начала следующего слова
s1 = True
Case "A" To "Z", "a" To "z", "А" To "Я", "а" To "я", "Ё", "ё"
b = b + 1
End Select
Next
End If
Form1.Label1 = "предложений - " & p & " слов - " & s & " букв - " & b
End Sub
Ответ отправил: Филатов Евгений Геннадьевич (статус: 1-ый класс)
Ответ отправлен: 11.04.2006, 19:14 Оценка за ответ: 5 Комментарий оценки: Крутая программа, я бы никогда так бы не сделал, все операции прокоментированные и понятные, СУПЕР!!!!!!!!
