Пожалуйста народ помогите создать программу на vb я просто полный прафан тут(( вот задание :Постановка задачи
Человек, работающий с программой, получает набор букв, из которых надо составить все возможные слова
Для того, чтобы букву поместить в слово, надо щелкнуть мышкой по радиокнопке слева от буквы и затем щелкнуть по объекту, в котором должна появиться выбранная буква. Каждую букву можно использовать только один раз. Поэтому после того, как буква выбрана и вставлена в слово, соответствующая радиокнопка становится недоступной
После нажатия на кнопку «Проверка» компьютер открывает новую форму, где можно вывести сообщение о результатах работы: проверить, существует ли такое слово, или же сколько слов еще не составлено. Нажатие на кнопку «Новое слово» делает все радиокнопки снова

это такая программа анаграмма. плизз сделайте программу и скиньте мне исходник на мыло: [email protected]
ПОЖАЛУЙСТА ОЧЕНЬ НАДО!!!!

SkyBreathВообще-то - круто

Цитата

плизз сделайте программу и скиньте мне исходник на мыло

Тебе надо в раздел работа. Никто за тебя для тебя просто так проги писать не будет.

А вообще интересный вопрос возникает. Если я правильно понял суть, то особо трудного здесь нет, но (вопрос для всех) как подключать словарь для проверки слова (или его создавать самому ввиде базы или подключать офисный словарь орфографии)?

Кто знает - откликнитесь!
С уважением.
AMT

Цитата

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

Я могу привести пример, если хочешь как проверять орфографию с пом. средств Office в VB.

Буду очень благодарен.
Суважением,
АМТ

Модератор: Название темы должно отражать ее суть!

да вот с помощю офиса ;)

создайте на форме текстбокс и кнопочку и всё

Код

Private Sub cmdPravopis_Click() Dim objW As Object Set objW = CreateObject("Word.Application") With objW     .Visible = False     .Documents.Add 'открыть документ     .Selection.Text = txtText.Text 'быделит текст в текстбоксе     .ActiveDocument.CheckSpelling 'вызывает диалог на проверки ошибок     txtText.Text = .Selection.Text 'вставит текст который был проверен     .ActiveDocument.Close Savechanges:=wdDoNotSaveChanges 'в ворде незаписыват изминения     .Quit End With Set objW = Nothing 'переменная objW убрать из памяти End Sub

M.E.G.U.S в моем случае было еще и подключение MS Word 8.0 object lib...

Добавлено @ 12:01

Цитата(amt @ 19.6.2005, 16:36)

Буду очень благодарен. Суважением, АМТ

Сейчас не могу, через пару дней покажу... Работы полно.

Цитата(Voldemar2004 @ 20.6.2005, 12:00)

Сейчас не могу, через пару дней покажу... Работы полно.

А... M.E.G.U.S, у тебя тот же код, что и у меня. Не разглядел, извини.

amt, ты можешь посмотреть дополительные свойства в Object Browser, подгрузив перед этим MS Word Lib, вставь в поле Project/Library слово Word. Там есть аналогичная ф-ция ChekGrammar (только нужна немножко для другого) . А готовые примеры есть в Help'e (кнопка "?").

Код

Savechanges:=wdDoNotSaveChanges

Прям как в Pascal :=
Добавлено @ 17:43
Да, грузится эта штука ой-ой-ой... Может MSWORD.OLB сразу записать в папку с проектом для данной проги? Хотя мне кажется, не поможет...

M.E.G.U.S, я смотрю у тебя новый аватарчик. А то был какой-то мрачный, темный. Ну, я тоже обновился.

Это сообщение отредактировал(а) Voldemar2004 - 20.6.2005, 17:52

Я еще заметил кое-что:

Код

Private Sub cmdPravopis_Click()     Dim objW As Object     Set objW = CreateObject("Word.Application")     With objW         .Visible = False         .Documents.Add 'открыть документ         .Selection.Text = txtText.Text 'быделит текст в текстбоксе         .ActiveDocument.CheckSpelling 'вызывает диалог на проверки ошибок         txtText.Text = .Selection.Text 'вставит текст который был проверен         .ActiveDocument.Close Savechanges:=wdDoNotSaveChanges 'в ворде незаписыват изминения         .Quit     End With     Set objW = Nothing 'переменная objW убрать из памяти     End Sub

Если написать Option Explicit, то стоит посмотреть, какая будет ошибка. Более того, даже, если Option Explicit не написать - сначала кажется, что все работает OK. Стоит только написать неправильное слово в textbox'e, то сработает проверка орфографии (как и задумывалось) - однако перед перезагрузкой Windows - система выдает: "Сохранить Документ1?" Да/Нет/Отмена.

Даже строка

Код

Set objW = Nothing

не помогает. Вот так.

Кто-ниб попробует - может у меня одного такой глюк?

Спасибо!
Попробую.
Кстати

Цитата

система выдает: "Сохранить Документ1?" Да/Нет/Отмена.

Ты не пробовал Reset
Я буду пробовать, вот только сейчас VB под рукой нет.

Voldemar2004
Этот код у меня нормально работает и никаких проблем с сохранением файлов.

Код

Private Sub cmdPravopis_Click() Dim objW As Object Set objW = CreateObject("Word.Application") With objW     .Visible = False     .Documents.Add 'открыть документ     .Selection.Text = txtText.Text 'быделит текст в текстбоксе     .ActiveDocument.CheckSpelling 'вызывает диалог на проверки ошибок     txtText.Text = .Selection.Text 'вставит текст который был проверен     .ActiveDocument.Close Savechanges:=wdDoNotSaveChanges 'в ворде незаписыват изминения     .Quit End With Set objW = Nothing 'переменная objW убрать из памяти End Sub

Цитата(amt @ 26.6.2005, 07:45)

Этот код у меня нормально работает и никаких проблем с сохранением файлов.

Поздравляю. Но меня сейчас это уже не беспокоит. Скажи только какая у тебе версия Windows и Office?

Цитата

какая у тебе версия Windows и Office?

Win 98
Office 97
Кстати, можно ли заставить проверять и расстановку запятых и т.д.?

Цитата(amt @ 26.6.2005, 13:59)

Кстати, можно ли заставить проверять и расстановку запятых и т.д.?

Цитата(Voldemar2004 @ 20.6.2005, 17:40)

amt, ты можешь посмотреть дополительные свойства в Object Browser, подгрузив перед этим MS Word Lib, вставь в поле Project/Library слово Word. Там есть аналогичная ф-ция ChekGrammar (только нужна немножко для другого)  . А готовые примеры есть в Help'e (кнопка "?").

Добавлено @ 16:45

Код

ActiveDocument.CheckSpelling ' слова

Код

ActiveDocument.ChekGrammar ' и что-то еще

Добавлено @ 16:47
Функция проверки синтаксиса (запятые перед и после причастного/деепричастного оборотами) появилась только в Office XP, если мне не изменяет RAM.

Еще вопрос. Office может быть и не установлен. Тогда, по-видимому, должна возникать ошибка. Как проверить наличие установленного офиса для предотвращения ошибки?
Заранее благодарен.