Форум программистов, компьютерный форум, киберфорум
Visual Basic
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
Valera_Velikiy

Тестирование в VB, подкиньте пару идей или просто оцените

16.05.2012, 00:47. Показов 1054. Ответов 5
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Через пару дней мне сдавать Бакалаврскую работу, делаю её который день и голова уже плохо варит так что нуждаюсь в помощи или просто оцените её:
1. в работе в файл записываются баллы и некоторая информация которую можно просмотреть на третей финальной форме, знатоки внимание вопрос: как сделать так что б можно было записать туда инфу в несколько строк? а то в текстовом файле всё идёт в одну строку и места на экране просто не хватает...
2. Хочу на форме frmFinish поставить на кнопку пароль, простенький пароль я умею, но хочется сделать менюшку со сменой логина или просто пароля и последующим его сохранением.
ps. Вопросы в программе на укр. языке и может что то ещё забыл перевести, заранее извиняюсь, просто сдавать я её буду на украинском. если что то будет не понятно я переведу.
psps. 2 форма откроется на весь экран, не пугайтесь так и надо, для того что бы студент не смог закрыть её до завершения тестирования.
Вложения
Тип файла: rar Diplom.rar (18.5 Кб, 24 просмотров)
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
16.05.2012, 00:47
Ответы с готовыми решениями:

Подкиньте пару идей по реализации выпадающего окна
Добрый, с новым годом! Хотелось бы услышать ваши варианты по реализации вот таких вот окон.

Подкиньте идей
Есть задание "Разработать веб-сайт для водителей онлайн ресторана" (ну типо заказываешь и тебе привозят надом) в нем 3 условия: 1.Что-бы...

Подкиньте идей пожалуйста)
Решаю, решаю и толку нет. Помогите, кто знаком с таким явлением, как ДСВ

5
 Аватар для Апострофф
9908 / 3919 / 742
Регистрация: 11.10.2011
Сообщений: 5,902
16.05.2012, 07:32
Valera_Velikiy, оцениваться диплом будет по результатам работы екзешника, или качество и к-во кода тоже имеет значение?

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim f As integer 'Byte
 
 
Private Sub Form_Load()
txtResultat.multiline = true 'ответ на первый вопрос
txtResultat.Text = ""
f = FreeFile '!!!
Open App.Path & "\" & (frmMain.cboGruppa.Text) & "\" & (frmMain.txtImya.Text) & " " & (frmMain.txtFamiliya.Text) & ".txt" For Binary As f '1???
Str = Space(LOF(f)) 'а не 1
Get #f, , Str '1???
'txtResultat.Text = txtResultat.Text & Str 'зачем, если txtResultat.Text = ""
txtResultat.Text = Str
Close f '1???
End Sub
1
 Аватар для Alex77755
11525 / 3812 / 683
Регистрация: 13.02.2009
Сообщений: 11,229
16.05.2012, 07:50
нет слов

Не по теме:

как сделать так что б можно было записать туда инфу в несколько строк? а то в текстовом файле всё идёт в одну строку и места на экране просто не хватает...
Поменяй монитор. Или шрифт поставь помельче!!
Через пару дней мне сдавать Бакалаврскую работу
Блин!! Стыдно за украинских бакалавров! А бакалавру не стыдно кричать на весь мир, что он митрофанушка и не смог осилить учебной программы!



Добавлено через 8 минут
подкиньте пару идей
места на экране просто не хватает
Используй структуры(пользовательский тип данных)
2
 Аватар для Апострофф
9908 / 3919 / 742
Регистрация: 11.10.2011
Сообщений: 5,902
16.05.2012, 08:18
Ещё не мешало бы сделать рандомную (случайную) последовательность выдачи вопросов и ответов на них,
что бы ушлый знаток, первым закончивший тест, не раскидал подсказок остальным, что на 1 вопрос - 1 ответ, на 2 - 3 и т.д.

Visual Basic
1
2
3
4
5
6
7
8
    For i = 0 To 3
      controls("pctotvet" & (i+1)).Visible = True 'сделай так
      'pctotvet1.Visible = True 'или из цикла
      'pctotvet2.Visible = True 'хотя бы вынеси
      'pctotvet3.Visible = True 'а то 4 раза
      'pctotvet4.Visible = True 'одно и тоже повторил
      Opt(i).Caption = Votvet24(i)
    Next i
А вот так примерно я бы написал модуль frmTest-
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
Option Explicit
Dim UserOtvet As Variant
Dim PravOtvet As Variant
 
Dim Votvet As Variant
 
Dim Voprosi As Variant
Public N As Byte
Public VV As single 'Currency зачем?
Dim i As byte 'Variant ?
 
Private Sub cmdNext_Click()
lblvopros.Visible = True
If N < 24 Then
    lblvopros.Caption = "Питання №:" & N + 1 '2"
    For i = 0 To 3
      Opt(i).Caption = Votvet(N)(i) 'Votvet1(i)
    Next i
    txtVoprosi.Text = Voprosi(N) '1 vopros
    Opt(0).Value = True
    On Error Resume Next
    Controls("pct" & N & "vopros").Visible = False
    Controls("pct" & N + 1 & "vopros").Visible = True
    On Error GoTo 0
    If N = 23 Then
      pctotvet1.Visible = True
      pctotvet2.Visible = True
      pctotvet3.Visible = True
      pctotvet4.Visible = True
      cmdNext.Caption = "закінчити тестування"
    End If
    If UserOtvet(N) = PravOtvet(N) Then VV = VV + 0.5
Else
  
  Print #1, "Час і дата закінчення тесту "; Date; Time; "кількість балів"; VV;
  Close #1
  frmFinish.Visible = True
  frmFinish.Show
  frmTest.Hide
End If
N = N + 1
End Sub
 
Private Sub cmdPoehali_Click()
N = 0
VV = 0
    cmdPoehali.Visible = False
    Opt(0).Visible = True
    Opt(1).Visible = True
    Opt(2).Visible = True
    Opt(3).Visible = True
    cmdNext.Visible = True
    frmOtveti.Visible = True
    txtVoprosi.Visible = True
    Opt(0).Value = True
    cmdNext.Enabled = True
UserOtvet = Array(0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0) 'Otveti usera
PravOtvet = Array(0, 2, 2, 0, 1, 0, 1, 0, 1, 1, 3, 0, 1, 0, 1, 3, 0, 2, 1, 2, 3, 1, 1, 2) 'Pravilnie Otveti
Voprosi = Array("Предикатом Р(х1,...,хn) називають:", "Як позначають предикати:", "На що вказує верхній індекс у предикаті якщо його використовують:", _
"pct4:", "pct5:", "pct6:", "Предметні змінні атомарних формул у численні предикатів є:", _
"pct8:", "Слово в алфавіті логіки предикатів називають:", "Предикати можуть набувати значення:", _
"Яке з наведених правил не є правилом рівносильних перетворень логіки предикатів:", _
"Формули логіки предикатів, в яких із логічних символів є тільки символи &, v, i, Ї,причому символ Ї трапляється лише перед символами предикатів, називають:", _
"pct13:", "pct14:", "pct15:", "pct16:", "pct17:", "pct18:", "pct19:", "pct20:", "pct21:", "pct22:", "Предикат від n аргументів називають:", _
"Що з наведеного є логічними символами логіки предикатів:")
'Voprosi ^^
Votvet = Array( _
Array("n-місну функцію, визначену на деякій множені М, з областю значень {0(хибність),1(істина)};", "відображення: M'' -> M, де М - деяка множина;", "функція{0,1}^n -> (0,1);", "булева функція від n-булевих змінних"), _
Array("арабськими цифрами", "римськими цифрами", "літерами латиньского алфавіту", "будь якими літерами?"), _
Array("на значення предикату", "на тип предикату", "на число аргументів", "у предикатах взагалі індексів немає?"), _
Array("на значення предикату", "на тип предикату", "на число аргументів", "у предикатах взагалі індексів немає?"), _
Array("квантором загальності", "квантором спільності", "квантором рівності", "квантором сталості"), _
Array("квантором поєднання", "квантором існування", "квантором спільності", "квантором рівності"), _
Array("символи предметних змінних", "символи предикатів", "число аргументів", "символи кванторів"), _
Array("зв'язаними", "вільними", "булевими", "істинними"), _
Array("символи предикатів", "символи кванторів", "символи предметних змінних", "логічні символи"), _
Array("висловленням", "предикатом", "аргументом", "словом предикатів"), _
Array("нуля, одиниці, двійки", "істиности або хибності", "тільки одиниці", "інше"), _
Array("Перенесення квантора через заперечення", "винесення квантора за дужки", "перейменування зв'язаних змінних", "усі наведені варіанти є правилами"), _
Array("зведеними формами", "неповними формулами", "зв'язаними формулами", "незведеними формулами"), _
Array("перенесенням квантора через заперечення", "винесенням квантора за дужки", "переставленням однойменних кванторів", "перейменуванням зв'язаних змінних?"), _
Array("перенесенням квантора через заперечення", "винесенням квантора за дужки", "переставленням однойменних кванторів", "перейменуванням зв'язаних змінних?"), _
Array("перенесенням квантора через заперечення", "винесенням квантора за дужки", "переставленням однойменних кванторів", "перейменуванням зв'язаних змінних?"), _
Array("перенесенням квантора через заперечення", "винесенням квантора за дужки", "переставленням однойменних кванторів", "перейменуванням зв'язаних змінних?"), _
Array("перенесенням квантора через заперечення", "винесенням квантора за дужки", "переставленням однойменних кванторів", "перейменуванням зв'язаних змінних?"), _
Array("перенесенням квантора через заперечення", "винесенням квантора за дужки", "переставленням однойменних кванторів", "перейменуванням зв'язаних змінних?"), _
Array("перенесенням квантора через заперечення", "винесенням квантора за дужки", "переставленням однойменних кванторів", "перейменуванням зв'язаних змінних?"), _
Array("перенесенням квантора через заперечення", "винесенням квантора за дужки", "переставленням однойменних кванторів", "перейменуванням зв'язаних змінних?"), _
Array("перенесенням квантора через заперечення", "винесенням квантора за дужки", "переставленням однойменних кванторів", "перейменуванням зв'язаних змінних?"), _
Array("перенесенням квантора через заперечення", "винесенням квантора за дужки", "переставленням однойменних кванторів", "перейменуванням зв'язаних змінних?"), _
Array("n-ним предикатом", "n-місним предикатом", "n-звичайним", "інше"), Array("pct1o", "pct2o", "pct3o", "pct4o"))
 
cmdNext_Click
 
End Sub
 
 
Private Sub Form_Unload(Cancel As Integer)
If MsgBox("Упевнені?", vbYesNo, "вихід") = vbYes Then '"Yvereni?" "Vihod"
  End
Else
  Cancel = 1
End If
End Sub
 
Private Sub Opt_Click(Index As Integer)
UserOtvet(N) = Index
End Sub
Кстати, почему ответов больше, чем вопросов?
1
Valera_Velikiy
16.05.2012, 12:42
Цитата Сообщение от Alex77755 Посмотреть сообщение
Поменяй монитор. Или шрифт поставь помельче!!
Монитор 19 дюймов, шрифт делать ещё мельче это издевательство над проходящими тест

Цитата Сообщение от Alex77755 Посмотреть сообщение
Блин!! Стыдно за украинских бакалавров! А бакалавру не стыдно кричать на весь мир, что он митрофанушка и не смог осилить учебной программы!
Я и не говорил что самый умный украинский студент, в ином случае я не обратился бы за помощью сюда и лучше я услышу критику здесь, чем потом на защите))

Цитата Сообщение от Апострофф Посмотреть сообщение
Valera_Velikiy, оцениваться диплом будет по результатам работы екзешника, или качество и к-во кода тоже имеет значение?
Диплом будут оценивать по экзешнику, но код нужно будет добавить в записку, там есть пара преподавателей которые любят что бы код был красивый и оптимизированный, поэтому я обратился к вам, спасибо за мультилайн! вот про что я забыл)

Добавлено через 1 час 1 минуту
Цитата Сообщение от Апострофф Посмотреть сообщение
Ещё не мешало бы сделать рандомную (случайную) последовательность выдачи вопросов и ответов на них,
что бы ушлый знаток, первым закончивший тест, не раскидал подсказок остальным, что на 1 вопрос - 1 ответ, на 2 - 3 и т.д.
Я думал над этим, но почему то не стал реализовывать. Видимо потому что решил поставить пароль на кнопку "просмотр результатов" что бы студент не мог просмотреть сколько баллов набрал, раньше чем подойдет к нему преподаватель.

Цитата Сообщение от Апострофф Посмотреть сообщение
Visual Basic
1
2
3
4
5
6
7
8
    For i = 0 To 3
      controls("pctotvet" & (i+1)).Visible = True 'сделай так
      'pctotvet1.Visible = True 'или из цикла
      'pctotvet2.Visible = True 'хотя бы вынеси
      'pctotvet3.Visible = True 'а то 4 раза
      'pctotvet4.Visible = True 'одно и тоже повторил
      Opt(i).Caption = Votvet24(i)
    Next i
В цикле они показываются лишь раз и все сразу(когда N становится 23), с помощью массива эл.упр. который вы описали у меня пока что не вышло, буду пробовать ещё

Цитата Сообщение от Апострофф Посмотреть сообщение
А вот так примерно я бы написал модуль frmTest-
Спасибо что показал как надо, я примерно к этому и стремился но что то пошло не так

Visual Basic
1
2
Option Explicit
Public VV As single 'Currency зачем?
Currency для работы с дробными числами, хоть там и всего 1 число после запятой

Visual Basic
1
Dim i As byte 'Variant ?
Variant - остался от моих экспериментов с кодом, спасибо что заметил
Цитата Сообщение от Апострофф Посмотреть сообщение
Кстати, почему ответов больше, чем вопросов?
Их такое же кол-во, это из-за кривобокости моего кода, 1 вопрос не вошел в цикл т.к. он сразу отображается по нажатии кнопки cmdpoehali.
p.s Хотелось бы ещё добавить что я не ожидал что возникнут такие проблемы со вставкой формул в VB, вот выкручиваться пришлось с помощью вставки картинок =(
Заблокирован
16.05.2012, 13:21
Интересует готовая программа тестирования? Вложенный файл смотри.
Вложения
Тип файла: txt Код.txt (59 байт, 16 просмотров)
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
16.05.2012, 13:21
Помогаю со студенческими работами здесь

Подкиньте парочку идей
Какие формы можно сделать для бд Деканат, что бы смотрелась нормально набросайте пару вариантов плз

Пожалуйста подкиньте идей
Есть задание нарисовать фигуры, внутри которых находится текст, примерно как в блок-схемах. Пробовал в StringGrid'е, картинка и текст...

Подкиньте идей для реализации на кружке в школе.
Доброго времени суток, уважаемые форумчане. Начну издалека: работаю учителем физики и информатики в школе вот уже 4й год. Один из способов...

Структура DXF, обработка в DELPHI. Подкиньте идей доразобраться
В общем, я разобрался в структуре файла .dxf , на фото фрагмент файла. От программы требуется нахождение координат линий (на чертеже были...

Ребята не могу придумать тему для дипломной работы по автоматизации информационной системы подкиньте идей:)
Ребята не могу придумать тему для дипломной работы по автоматизации информационной системы подкиньте идей:)


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
6
Ответ Создать тему
Новые блоги и статьи
Новый ноутбук
volvo 07.12.2025
Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro
Музыка, написанная Искусственным Интеллектом
volvo 04.12.2025
Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .
От async/await к виртуальным потокам в Python
IndentationError 23.11.2025
Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .
Поиск "дружественных имён" СОМ портов
Argus19 22.11.2025
Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .
Сколько Государство потратило денег на меня, обеспечивая инсулином.
Programma_Boinc 20.11.2025
Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .
Ломающие изменения в C#.NStar Alpha
Etyuhibosecyu 20.11.2025
Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .
Мысли в слух
kumehtar 18.11.2025
Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .
Создание Single Page Application на фреймах
krapotkin 16.11.2025
Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .
Фото: Daniel Greenwood
kumehtar 13.11.2025
Расскажи мне о Мире, бродяга
kumehtar 12.11.2025
— Расскажи мне о Мире, бродяга, Ты же видел моря и метели. Как сменялись короны и стяги, Как эпохи стрелою летели. - Этот мир — это крылья и горы, Снег и пламя, любовь и тревоги, И бескрайние. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru