Visual Basic, .NET, ASP, VBScript
Новости | Примеры | Библиотека кодов | НеЧаВо | VBA | Справочник по VB | Справочник по WinAPI | ActiveX контролы | Статьи по VB | Мастерская разработчика | Форум VBNet | Яndex bar! | Голосование | Полезные программы | Магазин VBNet | Рассылка | Конкурсы | Юмор | Чат | Реклама на VBNet | Автора! | Ссылки | Бета-тестирование | Послать пример на сайт
 

   
   
     

Форум - Общий форум

Страница: 1 | 2 |

 

  Вопрос: Форма Добавлено: 07.06.05 00:13  

Автор вопроса:  Локо-мэн
Здрасте. У меня вопрос:
Имеется форма, на ней расположены след. Элементы:
Labael1, Option1(0), Option1(1), Option1(2), CommandButton.

Label1 - свойство Caption «Вопрос_1 (типа как вас зовут)»
Option1(0) - свойство Caption «Ответ_1 (типа меня зовут Вася)»
Option1(1) - свойство Caption «Ответ_2 (типа меня зовут Саша)»
Option1(2) - свойство Caption «Ответ_3 (типа меня зовут Миша)»
CommandButton. - свойство Caption «Следующий вопрос»

Так вот, нужно что бы при нажатии на CommandButton менялся вопрос (ну типа «Вопрос_2 Ваша Фамилия») и менялись варианты ответа. Всего должно быть 10 вопросов, то бишь свойство Caption у Label1 и Option1(0), Option1(1), Option1(2) должны меняться при нажатии на кнопку CommandButton.

Ответить

  Ответы Всего ответов: 22  

Номер ответа: 1
Автор ответа:
 HACKER


 

Разработчик Offline Client

Вопросов: 236
Ответов: 8362
  Профиль | | #1 Добавлено: 07.06.05 00:34
Здрасте, странные у вас вопросы однако, или то у меня уже крышу рвануло :) Но вроде если я со своей больной башней тебя правельно понял, то:

Private Sub Command1_Click()
Label1.Caption = "Вопрос"
Option1(0).Caption = "Ответ 1"
Option1(1).Caption = "Ответ 2"
Option1(2).Caption = "Ответ 3"
End Sub

Ответить

Номер ответа: 2
Автор ответа:
 sergee



ICQ: 345653131 

Вопросов: 10
Ответов: 23
  Web-сайт: webserge.no-ip.info
 Профиль | | #2 		Добавлено: 07.06.05 00:41
Можно, например, создать целочисленную переменную, которой будешь присваивать номер текущего вопроса (от 1 до 10), а потом в зависимости от номера вопроса делать выбор нужных значений свойств элементов оператором select case

Ответить

Номер ответа: 3
Автор ответа:
 kikushin



Вопросов: 3
Ответов: 5
  Профиль | | #3 Добавлено: 07.06.05 00:47
slushai syuda...

Dim q
Dim i

Private Sub Command1_Click()
For q = 1 To i

Select Case q
Case 1
Label1.Caption = "Q1"
Option1.Caption = "a1"
Option2.Caption = "a2"
Option3.Caption = "a3"
Case 2
Label1.Caption = "Q2"
Option1.Caption = "b1"
Option2.Caption = "b2"
Option3.Caption = "b3"

Case 3
Label1.Caption = "Q3"
Option1.Caption = "c1"
Option2.Caption = "c2"
Option3.Caption = "c3"

Case 4
Label1.Caption = "Q4"
'...
Case 5
Label1.Caption = "Q5"
'...
Case 6
Label1.Caption = "Q6"
'...
Case 7
Label1.Caption = "Q7"
'...
Case 8
Label1.Caption = "Q8"
'...
Case 9
Label1.Caption = "Q9"
'...
Case 10
Label1.Caption = "Q10"
'...
End Select
Next
i = i + 1
End Sub

esli nuzhno to mozhesh esche dobavit' chtoby posle kazhdogo otveta Default control byl by Option_button1
k primeru

Ответить

Номер ответа: 4
Автор ответа:
 HACKER


 

Разработчик Offline Client

Вопросов: 236
Ответов: 8362
  Профиль | | #4 Добавлено: 07.06.05 01:24
2 Shagan Чё за муть? Тебя страшно слушать! Ето кривой способ и непонятный, нафиг цикл, в конце i+1 ??? Вообще тебе что больше напостить не где?

Ответить

Номер ответа: 5
Автор ответа:
 HACKER


 

Разработчик Offline Client

Вопросов: 236
Ответов: 8362
  Профиль | | #5 Добавлено: 07.06.05 01:26
Вообще это не так делается, создаётся БД (или хотя бы файл) с вопросами и вариантами ответа. Читается всё, обрабатывается, а всё что предложено выше - бред

Ответить

Номер ответа: 6
Автор ответа:
 Doomsday



Вопросов: 30
Ответов: 54
  Профиль | | #6 Добавлено: 07.06.05 01:33
If Option(0).Cheked Then Option(1).Cheked
И так далее...

Вроде как... Если я правильно понял...
Прошу прощения если не совсем правильно...
Я давно на VB не писал... (очень давно)...
Я уже года два как на C#...

Короче примерно так...

Ладно, я вообще пьяный, так что из меня программист еще тот :-))))

Ответить

Номер ответа: 7
Автор ответа:
 Doomsday



Вопросов: 30
Ответов: 54
  Профиль | | #7 Добавлено: 07.06.05 01:33
If Option(0).Cheked Then Option(1).Cheked
И так далее...

Вроде как... Если я правильно понял...
Прошу прощения если не совсем правильно...
Я давно на VB не писал... (очень давно)...
Я уже года два как на C#...

Короче примерно так...

Ладно, я вообще пьяный, так что из меня программист еще тот :-))))

Ответить

Номер ответа: 8
Автор ответа:
 kikushin



Вопросов: 3
Ответов: 5
  Профиль | | #8 Добавлено: 07.06.05 01:39
vo pervyx ty mne ne tych' salaga, vidno chelovecheskogo yazyka ne ponimaesh, to zhe samoe mog skazat' po drugomu,
i voobsche kakogo xrena, pishesh sebe i pishi otvet na vopros i ne voznikai

Ответить

Номер ответа: 9
Автор ответа:
 AASoft



Вопросов: 86
Ответов: 920
  Профиль | | #9 Добавлено: 07.06.05 03:43
Neeee, Shagan, druzhok, tak ne pishut......vo pervyh, cikl tam ne nuzhen; vovtoryh, luchshe na samom dele iz bazy dannyh ili iz fajla dannye prat`....nu a vtret`yih, TY NE SAMYJ TUT GLAVNYJ CHTOBY UKAZYVAT` KOMU S KEM I KAK GOVORIT`!!!ESLI PONYAL CHTO NE PRAV, TAK PRIZNAJ SVOYU OSHIBKU I VSE, A NE UPREKAJ VSEH OSTAL`NYH.....


------------------------------------------------------

tak, prosto, poe mnenie

Ответить

Номер ответа: 10
Автор ответа:
 AASoft



Вопросов: 86
Ответов: 920
  Профиль | | #10 Добавлено: 07.06.05 03:43
Neeee, Shagan, druzhok, tak ne pishut......vo pervyh, cikl tam ne nuzhen; vovtoryh, luchshe na samom dele iz bazy dannyh ili iz fajla dannye prat`....nu a vtret`yih, TY NE SAMYJ TUT GLAVNYJ CHTOBY UKAZYVAT` KOMU S KEM I KAK GOVORIT`!!!ESLI PONYAL CHTO NE PRAV, TAK PRIZNAJ SVOYU OSHIBKU I VSE, A NE UPREKAJ VSEH OSTAL`NYH.....


------------------------------------------------------

tak, prosto, moe mnenie

Ответить

Номер ответа: 11
Автор ответа:
 AASoft



Вопросов: 86
Ответов: 920
  Профиль | | #11 Добавлено: 07.06.05 03:43
Neeee, Shagan, druzhok, tak ne pishut......vo pervyh, cikl tam ne nuzhen; vovtoryh, luchshe na samom dele iz bazy dannyh ili iz fajla dannye prat`....nu a vtret`yih, TY NE SAMYJ TUT GLAVNYJ CHTOBY UKAZYVAT` KOMU S KEM I KAK GOVORIT`!!!ESLI PONYAL CHTO NE PRAV, TAK PRIZNAJ SVOYU OSHIBKU I VSE, A NE UPREKAJ VSEH OSTAL`NYH.....


------------------------------------------------------

tak, prosto, moe mnenie

Ответить

Номер ответа: 12
Автор ответа:
 AASoft



Вопросов: 86
Ответов: 920
  Профиль | | #12 Добавлено: 07.06.05 03:43
Neeee, Shagan, druzhok, tak ne pishut......vo pervyh, cikl tam ne nuzhen; vovtoryh, luchshe na samom dele iz bazy dannyh ili iz fajla dannye prat`....nu a vtret`yih, TY NE SAMYJ TUT GLAVNYJ CHTOBY UKAZYVAT` KOMU S KEM I KAK GOVORIT`!!!ESLI PONYAL CHTO NE PRAV, TAK PRIZNAJ SVOYU OSHIBKU I VSE, A NE UPREKAJ VSEH OSTAL`NYH.....


------------------------------------------------------

tak, prosto, moe mnenie

Ответить

Номер ответа: 13
Автор ответа:
 AASoft



Вопросов: 86
Ответов: 920
  Профиль | | #13 Добавлено: 07.06.05 03:44
ADMINY, SDELAJTE BLOKIROVKU knopki posle posta....tak ved` nevozmozhno

Ответить

Номер ответа: 14
Автор ответа:
 Локо-мэн



Вопросов: 4
Ответов: 6
  Профиль | | #14 Добавлено: 07.06.05 03:52
Мляха муха, что то я с тормозил, это проще пареной репы. Вот у меня теперь другая проблема: Вот код с помощью которого при вводе пользователем информации в Text1 и Text2, выбирает один из предложенных ему вариантов кликнув по Option1(0) или Option1(1), Option1(2).
a = Text1.Text 'Пользователь вводит фамилию
b = Text2.Text 'Пользователь вводит имя
d = Format(Date, "dd.mm.yyyy";)

For i = 1 To 3
If Option1(i - 1).Value = True Then z = i
Next i

Open "c:\registr.txt" For Output As #1
Print #1, "Фамилия", "Имя", "Дата"
Write #1, a, b, d
Print #1, "Номер вопроса", "Правильный ответ", "Ответ пользователя"
Write #1, 1, 3, z
Close #1

Эти данные записываются в текстовый файл. Ну вот значит пользователь ввёл ФИО, выбрал предложенный ему вариант, нажал на кнопку Далее (Commahd1) на форме появляются другой вопрос и другие варианты ответа, нажал далее. Как добавить в уже созданный файл, вариант ответа пользователя на следующий вопрос.
Я попробовал так:
If Command1.Caption = "Далее" Then

a = Text1.Text 'Пользователь вводит фамилию
b = Text2.Text 'Пользователь вводит имя
d = Format(Date, "dd.mm.yyyy";)

For i = 1 To 3
If Option1(i - 1).Value = True Then z = i
Next i

Open "c:\registr.txt" For Output As #1
Print #1, "Фамилия", "Имя", "Дата"
Write #1, a, b, d
Print #1, "Номер вопроса", "Правильный ответ", "Ответ пользователя"
Write #1, 1, 3, z
Close #1

If Command1.Caption = "Далее" Then Command1.Caption = "Продолжить"
If Command1.Caption = "Продолжить" Then

Open "c:\registr.txt" For Append As #1
Write #1, 2, 1, z
Close #1
End If
End Sub

Но ни хрена ничего не вышло, может кто знает?

Ответить

Номер ответа: 15
Автор ответа:
 Genetik



ICQ: 3212009 

Вопросов: 5
Ответов: 33
  Профиль | | #15 Добавлено: 07.06.05 10:08
Используй файлы произвольного доступа а не последовательного, как в твоём примере.

Ответить

Страница: 1 | 2 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам