Пожалуйста народ помогите создать программу на 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 может быть и не установлен. Тогда, по-видимому, должна возникать ошибка. Как проверить наличие установленного офиса для предотвращения ошибки?
Заранее благодарен.

Посмотреть на сообщение об ошибке и сделать правильное заключение?

Цитата(amt @ 28.6.2005, 09:10)

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

Модуль:

Код

Public Const HKEY_CLASSES_ROOT = &H80000000 Declare Function RegOpenKey Lib "advapi32" Alias "RegOpenKeyA" (ByVal hKey _ As Long, ByVal lpSubKey As String, phkResult As Long) As Long Declare Function RegQueryValueEx Lib "advapi32" Alias "RegQueryValueExA" _ (ByVal hKey As Long, ByVal lpValueName As String, lpReserved As Long, lptype As _ Long, lpData As Any, lpcbData As Long) As Long Declare Function RegCloseKey& Lib "advapi32" (ByVal hKey&) Public Const REG_SZ = 1 Public Const REG_EXPAND_SZ = 2 Public Const ERROR_SUCCESS = 0

ф-ции формы (внутри формы):

Код

Public Function GetRegString(hKey As Long, strSubKey As String, strValueName As String) As String Dim strSetting As String Dim lngDataLen As Long Dim lngRes As Long If RegOpenKey(hKey, strSubKey, lngRes) = ERROR_SUCCESS Then     strSetting = Space(255)     lngDataLen = Len(strSetting)     If RegQueryValueEx(lngRes, strValueName, ByVal 0, REG_EXPAND_SZ, ByVal strSetting, lngDataLen) = ERROR_SUCCESS Then     If lngDataLen > 1 Then     GetRegString = Left(strSetting, lngDataLen - 1)     End If     End If     If RegCloseKey(lngRes) <> ERROR_SUCCESS Then     MsgBox "RegCloseKey Failed: " & strSubKey, vbCritical     End If End If End Function Function FileExists(sFileName$) As Boolean On Error Resume Next FileExists = IIf(Dir(Trim(sFileName)) <> "", True, False) End Function Public Function IsAppPresent(strSubKey$, strValueName$) As Boolean IsAppPresent = CBool(Len(GetRegString(HKEY_CLASSES_ROOT, strSubKey, strValueName))) End Function

Кнопка:

Код

Private Sub CheckOfficeСomponentry_Click() MsgBox "Access " & IsAppPresent("Access.Database\CurVer", "") MsgBox "Excel " & IsAppPresent("Excel.Sheet\CurVer", "") MsgBox "PowerPoint " & IsAppPresent("PowerPoint.Slide\CurVer", "") MsgBox "Word " & IsAppPresent("Word.Document\CurVer", "") End Sub

Цитата(amt @ 22.6.2005, 10:03)

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

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

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

amt, в твоем коде я не нашел Reset. Ты Reset вставлял в свой код? Ну, если у тебя никаких проблем нет перед ребутом, то я за тебя рад. Возможно у меня ошибки все-таки из-за разницы в ОС и Office: у тебя Win98 и Office 97, a у меня Windows 2000 и Office XP Enterprise Edition.

P.S. amt Добавь еще в кнопку

Код

Private Sub CheckOfficeСomponentry_Click()     MsgBox "OutlookExpress " & IsAppPresent("OutlookExpress.MimeEdit\CurVer", "") End Sub

Если хочешь проверить наличие OutlookExpress.
Все работает, только я проверял на Win2K+Office XP EE.

Это сообщение отредактировал(а) Voldemar2004 - 28.6.2005, 13:35

Спасибо, буду работать.