100 слов

[RRAFFF]

Мужики! А другану моему не поможете? Нужно написать через VB прогу-переводчик для 100 слов(любых)... Если не затруднит, помогите пожалуйста!

[Ramzes]

Поставь задачу корректно, может кто и поможет

[АндрейБ]

Если нужен просто поиск по критерию (одного слова) - это очень простая задача.
Например есть таблица с двумя полями, в первом руское, во втором англиское. Поиск (перевод) можно делать в любом направлении.
Если нужен переводчик теста - это сложная задача, проще купить профессионалный переводчик.

[RRAFFF]

Если быть точным, то нужна программа-переводчик на 100 абсолютно любых слов с английского на русский или наоборот - без разницы

[RRAFFF]

Это курсовая работа по информатике! Но сами посудите, ребята, зачем звукорежиссеру программирование? :?

[KDima]

И что сложного?
Перебираем массив, проверяем первые буквы, если совпали переходим на это место....

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

for i = 1 to WordsCount
if left$(EnglishWords(i),len(txtSearch)) = txtSearch then
lstRussian.ListIndex = i
end if
next i


[A.A.Z.]

Сложность в том, что человеки - "0" в VB

[RRAFFF]

Спасибо! Выручили!

[Zer]

Мдя.... Ерунда получается... А VB никогда не дишним будет знать... Пригодится...

[RRAFFF]

Блин, мужики! А как открыть этот файл заzipованный?

[Ramzes]

WinZip-oм, WinRar-oм, Windows Commander-oм, Total Commander-oм

Выбирай как тебе больше нравиться

[RRAFFF]

Да неееее..... ты не понял! Так то я его скачал, но он не открывается в VB

[Ramzes]

ВСе он нормально открываеться

VB6

А у тебя какой?

[hCORe]

Сначала скачанный файл надо распаковать

[RRAFFF]

У меня 6-ой, только я тупил страшно - я еще после вчерашней пьянки не отошел...

[A.A.Z.]

Так работает?
Если нет, то:
- Распаковать zip файл в какую-нибудь папку
- Открыть Project1.vbp
- Зайти в код формы Form1
- Найти процедуру Form_Load
- Заполнить оставшиеся 98 слов по шаблону (мне было ЛЕНЬ =))
- Готово! F5 - и все работает

[Zer]

Ну, ладно, чоть не ZIP начал в VB открывать...