Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: Пред. 1 2 3
RSS
Программа для запоминания англ. слов
 
При открытии файла вылетает ошибка.
 
У меня работает все четко. Даже не знаю.
Может кто-то подскажет в чем причина?
 
Попробуйте на другом компьютере.
 
Подредактировал. Попробуйте.
 
Класс! Теперь себе можно задавать лимит, чтобы вспомнить слово. Так же можно попробовать загнать слова себе в подсознание, увеличив скорость. Никогда не делал, нужно обязательно попробовать. Ну и просмотр выученных слов теперь займет гораздо меньше времени. Программа вышла на новый уровень!
Скрытый текст
Изменено: Денис Зуев - 2 Май 2018 20:20:14
 

Добрый день. Всех с наступившим Новым Годом!

Пытаюсь в программе учить нормы. Если в какой-либо ячейке «Вопросов» (столбец А) более 255 символов, то при нажатии на кнопку «Перевод» (т.е. показать ответ) программа выдает ошибку.  Может кто-нибудь знает, как обойти ограничение в 255 символов?

p.s. Для любителей гор. клавиш: повесил на Alt+Z,X,C - слово, перевод, транскрипцию...

Изменено: Денис Зуев - 6 Янв 2019 11:10:54
 
Денис Зуев,  Какой смысл использовать поиск если вы ищите значение, которое имеет предопределенный и известный индекс (номер строки)? Храните его или просто значение перевода берите сразу в переменную и выводите её значение по кнопке.
 
БМВ, А можно показать в файле?
 
Код
Private Sub CommandButton5_Click()
    If OptionButton1 Then
        Me.TextBox1 = Sheets("List of words").Cells(RowNow, 3).Value
    Else
        Me.TextBox1 = Sheets("List of words").Cells(RowNow, 1).Value
    End If
End Sub


А если увлекаться минимизацией букв, то
Код
Private Sub CommandButton5_Click()
    Me.TextBox1 = Sheets("List of words").Cells(RowNow, IIf(OptionButton1, 3, 1)).Value
End Sub
Изменено: БМВ - 7 Янв 2019 14:40:29
 
Спасибо большое! А вы еще не подскажите, как можно исправить код кнопки "Не выучил", чтобы ячейку (также более 255 символов) программа могла копировать на лист "Учить"?
 
Мне в целом не нравится как написано, но не мне судить, для того чтоб уйти от ненужного поиска достаточно изменить Set Rng.
Код
Private Sub CommandButton4_Click()
Dim FreeRow As Long, Rng As Range
    If OptionButton1 Then OB_1 = 1
    If OptionButton2 Then OB_1 = 3
    With Sheets("Ó÷èòü")
        FreeRow = .Cells(Rows.Count, 1).End(xlUp).Row + 1
        Set Rng = Sheets("List of words").Cells(RowNow, OB_1) 
'….
Изменено: БМВ - 8 Янв 2019 09:56:34
 
Спасибо еще раз. Теперь не ругается на большие ячейки. Программа получается - "народная", каждый вносит в нее что-то свое. Спасибо всем, кто участвовал и участвует в ее создании.  
 
Денис Зуев, главное, чтоб эта "народность" Не стала похожа на письмо дяди Федора, Матроскина и Шарика. А к этому все идет.
 
Добрый день. Возможно... Подчистил программу. Пришлось добавить кнопку для перевода трудных слов. С Рождеством всех!
p.s. юбилей программы  - 10т просмотров...
Изменено: Денис Зуев - 9 Янв 2019 20:35:41
 
Привет всем,

щаметила, что если переводить трудные слова, то транскрипция неправильная.
Как и где это поправить?

Заранее спасибо!
 
Off
Цитата
Leborham написал:
щаметила
- похоже это первые последствия изучения. ENG еще не выучен, а RUS уже забывается :-)
Изменено: БМВ - 10 Янв 2019 17:24:22
 
Цитата
БМВ написал:
похоже это первые последствия изучения. ENG еще не выучен, а RUS уже забывается :-)
Русский начинаю забывать - это верно,
но в связи с тем, что по-русский почти не говорю уже, тк живу в другой стране и клавиатура не русскоязычная...

ЗЫ: есть ли возможность эту программу настроить на перевод 3/4 языков, тк у нас 3 официальных языка и диалекты?

Спасибо заранее
 
Цитата
Leborham написал:
если переводить трудные слова, то транскрипция неправильная
Сначала вы изучаете в программе все слова, которые скопировали на лист «List of words» (в идеале, даже не в форме, а просто смотрите сам список на листе), в том числе транскрипцию. Потом их все прогоняете в программе (там также можно смотреть транскрипцию). К моменту повтора трудных слов, по идее, транскрипцию вы должны уже знать.

Цитата
Leborham написал:
есть ли возможность эту программу настроить на перевод 3/4 языков
Слова (фразы) на каких языках вставите, то программа и покажет (хоть иероглифы).

 
Цитата
Денис Зуев написал:
Слова (фразы) на каких языках вставите, то программа и покажет (хоть иероглифы).
Тогда метки OptionButton при инициализации формы надо брать из таблицы с настройками.
 
Цитата
Leborham написал:
есть ли возможность эту программу настроить на перевод 3/4 языков, тк у нас 3 официальных языка и диалекты?
Если имелось ввиду: перевод одного слова на несколько языков сразу, то да, нужна будет некая таблица, чтобы программа понимала на какой язык переводить. Либо обвешивать ее кнопками перевода, но это уже извращение. На данный момент программа проста и не вижу смысла ее менять. Учить 3 языка одновременно - это круто...
Изменено: Денис Зуев - 10 Янв 2019 22:02:46
 
Цитата
Денис Зуев написал:
Учить 3 языка одновременно - это круто...

Изменено: Денис Зуев  - 10 Янв 2019 22:02:46
Круто, но невыносимо трудно, особенно когда один язык не нравиться, но он обязателен в работе..
 
Leborham, что круто? То, что Денис Зуев изменил 10 января?
Смотрите, что цитируете.
 

Добрый всем. Программа нехило (или не хило) переработана, за что большое спасибо Андрею KAIU.
Что нового:
1.      Изменен интерфейс программы, он стал более лаконичным. Цвет надписей кнопок сделан однотонным, цветными оставлены только: слово, перевод, транскрипция – для лучшего запоминания, чтобы ничего не отвлекало.
2.      Кнопки «Не выучил» и «Выучил» появляются в зависимости от того, учишь ты обычный список или уже трудные слова.
3.      Управление стрелками (вверх, вниз, вправо, влево) – сделало программу гораздо удобнее.
4.      Программа теперь показывает транскрипцию и при изучении трудных слов.
5.      На листах «List of words» и «Учить» появилась кнопка «Копировать для вставки в Гугл переводчик». Можно выделить сразу несколько иностранных слов, н-ть эту кнопку, вставить в Гугл переводчик и прослушать как они звучат.
6.      Во 2-ой форме, запускаемой кнопкой «Words of auto», появилась задержка показа перевода слова, чтобы попытаться успеть вспомнить самому.
Скрытый текст
Изменено: Денис Зуев - 1 Мар 2019 20:43:05
 
Денис Зуев,не так давно под себя написал аналогичную запоминалку с "мощным словарным запасом"..  возможностью перевода через API Yandex.Translate..
да еще и слова проговаривает :)  с Вашего позволения оставлю здесь.. вдруг кому будет полезна или понравилась идея ;)  
Страницы: Пред. 1 2 3
Читают тему (гостей: 3)
Наверх