Модераторы: Akina
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Создание теста 
:(
    Опции темы
MagicBlood
Дата 4.9.2009, 20:22 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 5
Регистрация: 10.12.2008

Репутация: нет
Всего: нет



Помогите создать тест для проверки английских глаголов, глаголов будет много, около 100 с тремя формами глаголов. Суть программы такова, выводится случайный перевод одного из глагола, и дается написать 3 формы этого глагола, если ввод правильный программа должна выдать след глагол, если нет то дать шанс исправить... Я еще новичок в этом и не знаю что да как. Знаю что через Rnd можно выводить случайные числа, а вот насчет слов не знаю,как я понимаю тут легче библиотеку создать? вот в простом виде я написал программу, только тут уже глаголы будут всегда в одном порядке идти, и программа будет очень большая(((

Код

Private Sub Command1_Click()
Dim a As String
Dim b As String
Dim c As String
Text1.Text = "Быть"
1
a = InputBox("Введите первую форму глагола")
b = InputBox("Введите вторую форму глагола")
c = InputBox("Введите третью форму глагола")
If a = "be" And b = "was" And c = "been" Then
Print "Правильно"
GoTo 2
Else
Print "Неправильно"
GoTo 1
End If
2
Text1.Text = "Возникать"
a = InputBox("Введите первую форму глагола")
b = InputBox("Введите вторую форму глагола")
c = InputBox("Введите третью форму глагола")
If a = "arise" And b = "arose" And c = "arisen" Then
Print "Правильно"
GoTo 3
Else
Print "Неправильно"
GoTo 2
End If
3
Text1.Text = "Будить"
a = InputBox("Введите первую форму глагола")
b = InputBox("Введите вторую форму глагола")
c = InputBox("Введите третью форму глагола")
If a = "awake" And b = "awoke" And c = "awaked" Then
Print "Правильно"
Else
Print "Неправильно"
GoTo 3
End If
End Sub


Это сообщение отредактировал(а) Akina - 4.9.2009, 21:03
PM MAIL   Вверх
Akina
Дата 4.9.2009, 21:08 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20570
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 453



Модератор: Используйте тег "Код".

Пока прекратите практику и перейдите к теории - вернее к изучению самых основ. Массивы, подпрограммы и пр.
http://www.intuit.ru/department/pl/vb/


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

PM MAIL WWW ICQ Jabber   Вверх
Naghual
Дата 4.9.2009, 21:12 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1893
Регистрация: 15.5.2004
Где: Украина, Днепр

Репутация: 26
Всего: 49



под Прочим, вероятно, следует понимать Базы Данных




--------------------
Я желаю всем Счастья!
PM ICQ Skype   Вверх
Akina
Дата 4.9.2009, 21:45 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20570
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 453



Это следующий шаг. Сначала синтаксис и пунктуация алгоритмика. 


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

PM MAIL WWW ICQ Jabber   Вверх
MagicBlood
Дата 4.9.2009, 21:56 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 5
Регистрация: 10.12.2008

Репутация: нет
Всего: нет



хорошо, пойду читать), я думал может кто тут на пальцах объяснит?)))
PM MAIL   Вверх
iff
Дата 13.9.2009, 20:38 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Администратор
**


Профиль
Группа: Участник
Сообщений: 949
Регистрация: 23.3.2007

Репутация: -1
Всего: 16



Вот пример. В архиве лежит сам проект и ещё файл verbs.dat В этом файле записаны все глаголы. Я уже записал туда 7 глаголов. Запись ведётся по такому принципу: на первой строчке файла перевод, на второй первая форма гл., на 3-тей строчке вторая форма гл., но четвертой строчке третья форма гл., на пятой строчке перевод гл. (уже следующего глагола), на 6-ой строчке ... и т.д.
Т.е. файл verbs.dat ваглядет таким образом:
Код

Быть
be
was/were
been
Делать
do
did
done
...

Файл verbs.dat можно редактировать с помощью блокнота.
P.S. максимальное кол-во глагол, которое можно использовать - 300
И ещё, не применяйте в файле verbs.dat запятые.

Это сообщение отредактировал(а) iff - 13.9.2009, 20:42

Присоединённый файл ( Кол-во скачиваний: 5 )
Присоединённый файл  Test.rar 2,17 Kb


--------------------
DOS... Синей пеленой экран заполнил чистый DOS 
Мышь... Стала вдруг квадратной, потеряла форму мышь... 
Я разбил окно, девяностопятое мастдайное окно, 
И поставил DOS, и тогда увидел: Это счастье, — вот оно.  
PM MAIL WWW   Вверх
neic
Дата 14.9.2009, 09:20 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 839
Регистрация: 28.1.2007

Репутация: нет
Всего: 7



iff
И знающий школьник поменяет расширение с dat на txt.

Нужно как минимум защиту сделать от дурака:
1) зашифровать это dat (txt)
2) а, что если файл будет удалён?
Код

ff = FreeFile
Open "verbs.dat" For Input As ff 'открываем файл, в который записаны глаголы
Do Until EOF(ff) 'цикл считования данных из файла до его конца
 v = v + 1 'увеличиваем значение переменной но 1. Эта переменная будет иметь значение числа глаголов в файле
 Input #ff, Verb(v, 0) 'Считываем данные из файла
 Input #ff, Verb(v, 1)
 Input #ff, Verb(v, 2)
 Input #ff, Verb(v, 3)
Loop
Close ff

Конечно же программа зависнет.
3) 
Код

Dim Verb(300, 3) As String

Можно спокойно использовать не 300 глаголов, а 32000 спокойно
Код

Dim Verb(32000, 3) As String

У нас же x и v имеют тип данных Integer

4) 
Код

MsgBox "Не верно!", vbCritical, "Тест"

Зачем пугать человека? vbInformation подойдёт лучше.

Я понимаю, что тебе этот тест не нужен, но нужно хотя бы более и менее сделать программку.

Это сообщение отредактировал(а) neic - 14.9.2009, 09:20
PM MAIL WWW ICQ Skype   Вверх
iff
Дата 14.9.2009, 10:44 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Администратор
**


Профиль
Группа: Участник
Сообщений: 949
Регистрация: 23.3.2007

Репутация: -1
Всего: 16



Эта программа сделана как нужно и прекрасно выполняет свои функции.
1). Ничего шифровать переименовывать не надо. Программа, как вы понимаете создана не для проверки знаний (она ведь и оценки не выставляет), а для тренировки. В обычной жизни мы прекрываем листочком в таблице 3 формы, а по переводу их вспоминаем. Потом убераем листочек от таблицы и сверям себя. Так вот именно эти функции выполняет программа. Она же и конца не имеет, просто потренировался некоторое время и выключил.
2). С таким же успехом Вы можете говорить: "а если  я удалю все файлы из папки Programm Files, то зависнит ....?" или "А если я удалю весь код вашей программы, то она зависнит!"
Конечно зависнит!
Но это проблема тогда в Вас. Не надо удалять системные (или всякие для Вас непонятные) файлы
Вы попробуйте из папки какой нибудь программы (из игры, например) удалить какие-нибудь файлы. Что у Вас получится?
3). В первом сообщении понятливо сказано:
Цитата

 глаголов будет много, около 100 с тремя формами глаголов

Хотя если Вы приследуете цель "программа должна использовать в своей работе как можно больше оперативной памяти", то тогда канечно, и 32000 места под глаголы можно сделать, и 50000, и 1000000000.
Цитата

У нас же x и v имеют тип данных Integer

Конечно, в переменную x записывается случайное целое число от1 до числа всех глаголов
А в переменную v записывается число всех глаголов, а оно как Вы понимаете целое
Ах да, я забыл, если Вы приследуете цель "программа должна использовать в своей работе как можно больше оперативной памяти", то ...
4). А чего ему пугаться? Если это сообщение будет vbInformation, то сообщения "Верно!" и "Не верно!" пользователь будет отличать только по надписи, а надписи очень похожи, они отличаются только 2-мя буквами "не". А так (когда сообщение "Верно!" vbInformation, а сообщение "Не верно!" vbCritical) их можно отличать не только по надписи, но и по звуку и значку. Это гораздо удобнее. Когда ты сделал ошибку, ты слышишь гудок, а когда всё правильно слышишь другой более мелодичный, звук. И не приходится каждый раз искать глазами в сообщении частицу "не" что-бы понять сделал ли ты ошибку.
Думаю, Вы просто не совсем верно поняли задачу и код программы.


--------------------
DOS... Синей пеленой экран заполнил чистый DOS 
Мышь... Стала вдруг квадратной, потеряла форму мышь... 
Я разбил окно, девяностопятое мастдайное окно, 
И поставил DOS, и тогда увидел: Это счастье, — вот оно.  
PM MAIL WWW   Вверх
Akina
Дата 14.9.2009, 10:56 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20570
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 453



Модератор: Прекращаем, граждане.
Хотите обсуждать подобные вопросы - обменяйтесь аськами и спорьте сколько угодно.



--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

PM MAIL WWW ICQ Jabber   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "VB6"
Akina

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по VB обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • Используйте теги [code=vb][/code] для подсветки кода. Используйтe чекбокс "транслит" (возле кнопок кодов) если у Вас нет русских шрифтов.


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Akina.

 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | VB6 | Следующая тема »


 




[ Время генерации скрипта: 0.1437 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.