powered by simpleCommunicator - 2.0.53     © 2025 Programmizd 02
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Тест на бейсике
17 сообщений из 17, страница 1 из 1
Тест на бейсике
    #37592837
isx
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
isx
Гость
Вообщем цель у меня такого рода... Нужно сделать тест. Всего 100 вопросов. Каждый вопрос появляется после ответа на предыдущий и нажатия кнопки "Следующий". Так вот, как сделать сам процесс появления следующего вопроса в том же окне?
...
Рейтинг: 0 / 0
Тест на бейсике
    #37592879
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Стереть предыдущий текст и вывести туда следующий.

(насколько подробен вопрос - настолько подробен ответ)
...
Рейтинг: 0 / 0
Тест на бейсике
    #37592886
isx
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
isx
Гость
Shocker.Pro,

Я тут немного определился...) К примеру мне надо чтоб текстбокс1 содержал вопрос №1... Делаем массив от 0 до 99, а далее как построить список вопросов, чтобы потом в зависимости от числа в массиве доставать нужный? Там в каждую строку надо писать вопрос и вызывать его по номеру строки или по другому?
...
Рейтинг: 0 / 0
Тест на бейсике
    #37592895
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
isxЯ тут немного определилсяосталось это выразить в виде алгоритма
isxК примеру мне надо чтоб текстбокс1 содержал вопрос №1Text1.Text=Questions(1)
isxДелаем массив от 0 до 99массив, который будет содержать вопросы?
isxчтобы потом в зависимости от числа в массивеили это массив каких-то чисел? Каких?
isxТамГде?isxв каждую строкустроку чего? Массива? Текстбокса?
isxнадо писать вопросчто мешает?isxи вызывать его по номеру строкистроки чего? под строкой имеется ввиду элемент массива?isxили по другому?или по-другому
...
Рейтинг: 0 / 0
Тест на бейсике
    #37592898
Фотография alex77755
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
авторВсего 100 вопросов. Каждый вопрос появляется после ответа
Следующим вопросом будет: я с этим уже разобрался. А как теперь быть в ответами. Как , собственно, узнать, ответ был правильным или нет?
...
Рейтинг: 0 / 0
Тест на бейсике
    #37592920
isx
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
isx
Гость
Private Sub Form_Load()
q01 = "Какое наименование конституция РФ устанавливает для нашего Отечества?"
q02 = "Равнозначны ли по своему содержанию курсы *Конституционное право* и *Государственное право*?"
a01a = "Федерация народов России"
a01b = "Русская Федерация"
a01c = "Российская Федерация"
a01d = "Россия"
a02a = "Да"
a02b = "Нет"
'и так далее....
Text5 = q01
Text6 = a01a
Text7 = a01b
Text8 = a01c
Text9 = a01d
End Sub


Public Sub Command1_Click()
If Check1 = 1 Then
Text1 = "Неправильно"
Else
Text1 = "--"
End If
If Check2 = 1 Then
Text2 = "Неправильно"
Else
Text2 = "--"
End If
If Check3 = 1 Then
Text3 = "Верно"
Else
Text3 = "Неправильно"
End If
If Check4 = 1 Then
Text4 = "Верно"
Else
Text4 = "Неправильно"
End If
End Sub

Дописал наконец то.... Как теперь мне сделать, чтоб при нажатии БУТТОН2 все строки очищались и процесс начинался сначала?
...
Рейтинг: 0 / 0
Тест на бейсике
    #37592928
isx
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
isx
Гость
И ещё.... Почему не работает этот алгоритм?
Private Sub Form_Load()
w2w = "sfdgsdfhg"
a = 2
e = "w" + LTrim(Str(a) + "w")
Text1 = e
End Sub

В текст1 должно выводится содержимое переменной ("sfdgsdfhg"), а вместо этого выводится она сама... Я впринципе понимаю почему так(типо переменная и строковый параметр не совпадают), но как исправить это не знаю....
...
Рейтинг: 0 / 0
Тест на бейсике
    #37592935
Фотография alex77755
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
кавычки указыват, что это строка. Без кавычек бедет переменная
...
Рейтинг: 0 / 0
Тест на бейсике
    #37592999
Фотография Akina
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
isxкак исправить это не знаю....Тебе потребуется функция Eval (или Evaluate) - но в VB её нет, придётся тащить из какой-либо библиотеки (VBS, Office, etc.)
...
Рейтинг: 0 / 0
Тест на бейсике
    #37593093
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
AkinaТебе потребуется функция Eval (или Evaluate) - но в VB её нет, придётся тащить из какой-либо библиотеки (VBS, Office, etc.)но лучше переделать алгоритм, ибо этой функции в такой простой задаче ну нет совершенно никакой необходимости.

Почитал бы учебник для начала что ли... примеры приведенные там порешал
...
Рейтинг: 0 / 0
Тест на бейсике
    #37593572
Фотография BelowZero
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
isx,

в вашем случае используется msflexgrid, чтобы не плодить переменные. сразу вам перейти на грид будет сложно, поэтому прикладываю проект с прогой. ехешник выложу в следующем посте
...
Рейтинг: 0 / 0
Тест на бейсике
    #37593576
Фотография BelowZero
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
isx,
...
Рейтинг: 0 / 0
Тест на бейсике
    #37593651
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
BelowZeroв вашем случае используется msflexgridв вашем случае msflexgrid используется исключительно беловым, который не знает, что такое массив и функция Array

В вашем случае ПО ХОРОШЕМУ используется база данных вопросов и ответов на основе аксессовского файла, ну или хотя бы текстового.
А так, в принципе, можно использовать пример белова, чтобы оттолкнуться от чего-то
...
Рейтинг: 0 / 0
Тест на бейсике
    #37593710
Фотография BelowZero
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Shocker.ProА так, в принципе, можно использовать пример белова, чтобы оттолкнуться от чего-то наивысшая возможная оценка работы, спасибо) msflexgrid - идеальная вещь, если вам нужно частое обращение к данным, удобная связь переменных и строк. меня только неприятно удивило то, что exe файл не запустился после компиляции в связи с отсутствием нужной ocx...
...
Рейтинг: 0 / 0
Тест на бейсике
    #37593741
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
BelowZeromsflexgrid - идеальная вещь, если вам нужно частое обращение к даннымЕсли для забивания гвоздей ты освоил только микроскоп, это не значит, что он идеальная вещь для забивания гвоздей.
...
Рейтинг: 0 / 0
Тест на бейсике
    #37593757
Фотография BelowZero
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Shocker.ProBelowZeromsflexgrid - идеальная вещь, если вам нужно частое обращение к даннымЕсли для забивания гвоздей ты освоил только микроскоп, это не значит, что он идеальная вещь для забивания гвоздей. забьём гвоздь супермеганитро молотком и обычным микроскопом. гвоздь забился. "а если нет разницы, зачем платить больше?" (с) реклама Доси
...
Рейтинг: 0 / 0
Тест на бейсике
    #37593924
TpaBka
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
BelowZeroа если нет разницы, зачем платить больше?" (с) реклама Доси
BelowZeroменя только неприятно удивило то, что exe файл не запустился после компиляции в связи с отсутствием нужной ocx...
...
Рейтинг: 0 / 0
17 сообщений из 17, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Тест на бейсике
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]