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

   
   
     

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

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

 

  Вопрос: Че то не получается Добавлено: 11.02.10 21:00  

Автор вопроса:  ηikolaŠ~rus | ICQ: 604058327 
здрасте!
Dim qw As Variant
Dim ball As Long
Dim Nom As Variant


Private Sub Command1_Click()
Nom = Nom + 1
 If Option1.Value = 1 Then ball = 5
 If Option2.Value = 1 Then ball = 0
 If Option3.Value = 1 Then ball = 0
Select Case Nom
Case 1
 Option1.Value = 0
  Option2.Value = 0
   Option3.Value = 0
Label1.Caption = "×òî òàêîå ñâîéñòâî BackColor îáúåêòà? "
Option1.Caption = "Ýòî öâåò ôîíà "
Option2.Caption = "Ýòî öâåò øðèôòà òåêñòà"
Option3.Caption = "Äà îòñòàíü òû îò ìåíÿ !! "
 Option1.Value = 0
 If Option1.Value = 1 Then ball = 5
 If Option2.Value = 1 Then ball = 0
 If Option3.Value = 1 Then ball = 0
Case 2
 Option1.Value = 0
  Option2.Value = 0
   Option3.Value = 0
Label1.Caption = "Êàêîå ñâîéñòâî ïîçâîëÿåò ñäåëàòü îáúåêò íåâèäèìûì âî âðåìÿ èñïîëíåíèÿ ïðîãðàììû?"
Option1.Caption = "Visible"
Option2.Caption = "Enabled"
Option3.Caption = "Style"
 If Option1.Value = 1 Then ball = 5
 If Option2.Value = 1 Then ball = 0
 If Option3.Value = 1 Then ball = 0
Case 3
 Option1.Value = 0
  Option2.Value = 0
   Option3.Value = 0
Label1.Caption = "Êàêîå ñâîéñòâî ó îáúåêòà Form ìîæåò çàäàòü ðàçìåð ôîðìû?"
Option1.Caption = "TabIndex"
Option2.Caption = "OLEDropMode"
Option3.Caption = "WindowState"
 If Option1.Value = 1 Then ball = 0
 If Option2.Value = 1 Then ball = 0
 If Option3.Value = 1 Then ball = 5
Case 4
 Option1.Value = 0
  Option2.Value = 0
   Option3.Value = 0
Label1.Caption = "×òî íàäî ñäåëàòü ÷òîá â îáúåêò Image êàðòèíêà ãðóçèëàñü è ñðàçó ìàñøòàáèðîâàëàñü ïîä ðàçìåð Image "
Option1.Caption = "Ïîñòàâèòü ñâîéñòâî Stretch = true"
Option2.Caption = "Ïîñòàâèòü ñâîéñòâî MousePointer = 99 - Custom"
Option3.Caption = "Íåçíàþ"
 If Option1.Value = 1 Then ball = 5
 If Option2.Value = 1 Then ball = 0
 If Option3.Value = 1 Then ball = 0
Case 5
Label1.Caption = "Òåñò îêîí÷åí ïîäâåäåì èòîãè!"
Text1.Text = ball
Option1.Visible = False
Option2.Visible = False
Option3.Visible = False
End Select
End Sub


мне надо чтоб в тексбоксе выводилось значение переменной
пробовал ball=ball+5 , тоже не идет помогите
Пожалуста!

Ответить

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

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



Вопросов: 1
Ответов: 4
  Профиль | | #1 Добавлено: 11.02.10 21:09
Do
' Код
Loop

Ответить

Номер ответа: 2
Автор ответа:
 Боцман



ICQ: 295725312 

Вопросов: 53
Ответов: 830
  Web-сайт: Rus-Skipper.narod.ru
 Профиль | | #2 		Добавлено: 11.02.10 21:12
Вы есть китаец?
Хуя хуа де до муди?

Ответить

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



Вопросов: 5
Ответов: 344
  Профиль | | #3 Добавлено: 12.02.10 08:55
OptionX.Value имеет тип Boolean (0 или -1), поэтому
  1. If OptionX.Value = 1 then
в любом случае не выполняется,
так что будет странно, если приведенный код будет что-то делать.


Ответить

Номер ответа: 4
Автор ответа:
 ηikolaŠ~rus



ICQ: 604058327 

Вопросов: 50
Ответов: 287
  Профиль | | #4 Добавлено: 12.02.10 14:30
так а как его исправить?

Ответить

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



Вопросов: 5
Ответов: 344
  Профиль | | #5 Добавлено: 12.02.10 16:57
  1. If Option1.Value = 1 Then ball = 5

и подобные заменяешь на
  1. If Option1.Value = true Then ball = 5

а лучше на
  1. If Option1 Then ball = 5

- где-то так.

Ответить

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



Вопросов: 80
Ответов: 476
  Профиль | | #6 Добавлено: 13.02.10 00:35
If Option1 Then ball = 5

Звучит смешно: если переменная, то ball = 5 +)

Ответить

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



Вопросов: 5
Ответов: 344
  Профиль | | #7 Добавлено: 13.02.10 07:04
Наверно, ещё смешнее будет при замене трех строк
  1. If Option1.Value = 1 Then ball = 5
  2. If Option2.Value = 1 Then ball = 0
  3. If Option3.Value = 1 Then ball = 0
одной
  1. ball=iif(Option1,5,0)

Ответить

Номер ответа: 8
Автор ответа:
 VβÐUηìt



Вопросов: 246
Ответов: 3333
  Web-сайт: смекаешь.рф
 Профиль | | #8 		Добавлено: 13.02.10 09:04
  1. ball = Option1 * 5

:)

Ответить

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



Вопросов: 5
Ответов: 344
  Профиль | | #9 Добавлено: 13.02.10 09:12
  1. ball = Option1 * -5

Ответить

Номер ответа: 10
Автор ответа:
 ηikolaŠ~rus



ICQ: 604058327 

Вопросов: 50
Ответов: 287
  Профиль | | #10 Добавлено: 13.02.10 09:37
не идет не один код
он в конце теста просто выводит в тесктбоксе 0

Ответить

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



Вопросов: 5
Ответов: 344
  Профиль | | #11 Добавлено: 13.02.10 09:53
  1.  
  2. Option1.Value = 0
  3. Option2.Value = 0
  4. Option3.Value = 0
  5. Label1.Caption = "Чушь1"
  6. Option1.Caption = "Чушь2"
  7. Option2.Caption = "Чушь3"
  8. Option3.Caption = "Чушь4"
  9. Option1.Value = 0
  10. If Option1.Value = 1 Then ball = 5
  11. If Option2.Value = 1 Then ball = 0
  12. If Option3.Value = 1 Then ball = 0
А что ты хочешь получить, если каждый раз перед ball = обнуляются Option`s?

Ответить

Номер ответа: 12
Автор ответа:
 ηikolaŠ~rus



ICQ: 604058327 

Вопросов: 50
Ответов: 287
  Профиль | | #12 Добавлено: 13.02.10 15:38
5-это правильный ответ
0 это не правильный ответ
и мне надо чтоб по окончаниее теста значение балла выводилось в текстбокс
я малька( а может и большка,усложнил свою прогу
  1. код 1 формы
  2. Option Explicit
  3. Dim NomVopros As Variant
  4. Dim Vopros As String
  5. Dim Otvet1 As String
  6. Dim Otvet2 As String
  7. Dim Otvet3 As String
  8. Dim Ball1 As Long
  9. Dim Ball2 As Long
  10. Dim Ball3 As Long
  11. Dim F As Long
  12. Dim Flag As Boolean
  13.  
  14. Private Sub Command1_Click()
  15. Vopros = Text1.Text
  16. Otvet1 = Text2.Text
  17. Otvet2 = Text3.Text
  18. Otvet3 = Text4.Text
  19. Ball1 = Text5.Text
  20. Ball2 = Text6.Text
  21. Ball3 = Text7.Text
  22.  
  23. F = FreeFile
  24. Open App.Path & "\" & NomVopros & ".txt" For Output As #F
  25. Write #F, Vopros
  26. Write #F, Otvet1, Otvet2, Otvet3
  27. Write #F, Ball1, Ball2, Ball3
  28. Close #F
  29. Flag = False
  30. End Sub
  31.  
  32. Private Sub Command2_Click()
  33. If NomVopros > 1 Then
  34. NomVopros = NomVopros - 1
  35. 'Label1.Caption = "Вопрос № " & NomVopros
  36. Loading
  37. End If
  38. End Sub
  39.  
  40. Private Sub Command3_Click()
  41. If Dir(App.Path & "\" & NomVopros & ".txt") = "" And Flag = True Then
  42. Exit Sub
  43. Else
  44. NomVopros = NomVopros + 1
  45. Loading
  46. End If
  47.  
  48. 'Label1.Caption = "Вопрос № " & NomVopros
  49. End Sub
  50.  
  51. Private Sub Form_Load()
  52. NomVopros = "1"
  53. Flag = False
  54. 'Label1.Caption = "Вопрос № " & NomVopros
  55. Loading
  56. End Sub
  57. Private Sub Loading()
  58. Form1.Caption = "Запись теста - только для администратора теста"
  59. Vopros = ""
  60. Otvet1 = ""
  61. Otvet2 = ""
  62. Otvet3 = ""
  63. Ball1 = 0
  64. Ball2 = 0
  65. Ball3 = 0
  66. If Dir(App.Path & "\" & NomVopros & ".txt") <> "" Then
  67. F = FreeFile
  68. Open App.Path & "\" & NomVopros & ".txt" For Input As #F
  69. Input #F, Vopros
  70. Input #F, Otvet1, Otvet2, Otvet3
  71. Input #F, Ball1, Ball2, Ball3
  72. Close #F
  73.  
  74. Else
  75. Flag = True
  76. End If
  77. Text1.Text = Vopros
  78. Text2.Text = Otvet1
  79. Text3.Text = Otvet2
  80. Text4.Text = Otvet3
  81. Text5.Text = Ball1
  82. Text6.Text = Ball2
  83. Text7.Text = Ball3
  84. Label1.Caption = "Вопрос № " & NomVopros
  85. End Sub
  86.  
  87.  
  88. код 2 формы
  89.  
  90. Option Explicit
  91. Dim NomVopros As Variant
  92. Dim Vopros As String
  93. Dim Otvet1 As String
  94. Dim Otvet2 As String
  95. Dim Otvet3 As String
  96. Dim Ball1 As Long
  97. Dim Ball2 As Long
  98. Dim Ball3 As Long
  99. Dim F As Long
  100. Dim SumAns As Long
  101.  
  102.  
  103. Private Sub Loading()
  104. Option1.Value = True
  105. Vopros = ""
  106. Otvet1 = ""
  107. Otvet2 = ""
  108. Otvet3 = ""
  109. Ball1 = 0
  110. Ball2 = 0
  111. Ball3 = 0
  112. If Dir(App.Path & "\" & NomVopros & ".txt") <> "" Then
  113. F = FreeFile
  114. Open App.Path & "\" & NomVopros & ".txt" For Input As #F
  115. Input #F, Vopros
  116. Input #F, Otvet1, Otvet2, Otvet3
  117. Input #F, Ball1, Ball2, Ball3
  118. Close #F
  119.  
  120. Else
  121. End If
  122.  
  123. Option1.Caption = Otvet1
  124. Option2.Caption = Otvet2
  125. Option3.Caption = Otvet3
  126. Text1.Text = Vopros
  127. Label1.Caption = "Вопрос № " & NomVopros
  128. End Sub
  129.  
  130.  
  131. Private Sub Command1_Click()
  132. If Option1.Value = True Then SumAns = SumAns + Ball1
  133. If Option2.Value = True Then SumAns = SumAns + Ball2
  134. If Option3.Value = True Then SumAns = SumAns + Ball3
  135. NomVopros = NomVopros + 1
  136. If Dir(App.Path & "\" & NomVopros & ".txt") = "" Then
  137. Text1.Text = "Тест окончен"
  138.                    ?????????????
  139. ?????
  140. Else
  141. Loading
  142. End If
  143.  
  144. End Sub
  145.  
  146.  
  147.  
  148. Private Sub Form_Load()
  149. Form2.Caption = "Тестирование"
  150.  
  151. SumAns = 0
  152. NomVopros = "1"
  153. Loading
  154. End Sub
  155.  
  156.  
  157. Private Sub Text1_DblClick()
  158. Form1.Show
  159. End Sub

вроде все норм только вот в конце чето запнулся , вместо вопросиков мне надо наверно через иф, зен(или какнибудь по другому выводит значения переменной SumAns и смотреть на правильность ответов пользователя???
но как это сделать?
fAndOrIn- спасибо попробую (у себя в старой проге)
еще если кто знает подскажите как делать например Вы не сдали тест ваша оценка 49%(зачет - 75%, хорошо 85%, отчично 95%)???
и еще одно мне надо но наверно не кто таким не занимался(но может помогут)мне надо чтоб значения переменно(то бишь оценка ) пересылалась по майлу?????

Ответить

Номер ответа: 13
Автор ответа:
 ηikolaŠ~rus



ICQ: 604058327 

Вопросов: 50
Ответов: 287
  Профиль | | #13 Добавлено: 13.02.10 15:44
в этой проге также можно редактировать вопросы ответы , также я еще доделаю чтоб реедактор вопросов вкл, только по паролю,и поставлю уровни тестов кароче у меня много планов!

Ответить

Номер ответа: 14
Автор ответа:
 ηikolaŠ~rus



ICQ: 604058327 

Вопросов: 50
Ответов: 287
  Профиль | | #14 Добавлено: 13.02.10 15:48
 fAndOrIn- не идет

Ответить

Номер ответа: 15
Автор ответа:
 ηikolaŠ~rus



ICQ: 604058327 

Вопросов: 50
Ответов: 287
  Профиль | | #15 Добавлено: 13.02.10 15:56
Помогите пожалуйста !

Ответить

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

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



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