ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Программка для Randomize чисел не идёт... помогите.
13 сообщений из 13, страница 1 из 1
Программка для Randomize чисел не идёт... помогите.
    #35695041
Фотография -=GeX=-
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
-=GeX=-
Участник
Помогите, выдаёт ошибку компиляции:
Only comments may appear after End Sub, End Function, or End Property
Что ему не нравится? :(

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
Option Explicit
Dim a As Integer
Dim b As Integer
Dim c As Integer

Private Sub Command1_Click()
Randomize Timer
a = Int(Rnd *  100 )
MsgBox "Число от 1 до 100 загадано!", vbExclamation, "Готово!"
End Sub

Private Sub Command2_Click()
If a =  0  Then MsgBox "Сначала необходимо загадать число!", vbCritical, "Ошибка!": Exit Sub
If Not IsNumeric(Text1.Text) Then MsgBox "Это не число!", vbCritical, "Ошибка!"
End Sub
Else
b = Text1.Text
If b >  100  Or b <  1  Then MsgBox "Это не число от 1 до 100!": Exit Sub
If a > b Then MsgBox "Загаданное число меньше :)": c = c +  1 
If a = b Then MsgBox "ПОЗДРАВЛЯЮ!!! ВЫ УГАДАЛИ ЧИСЛО ЗА " + Str(c +  1 ) + "ПОПЫТОК", vbExclamation, "!!!ПОБЕДА!!!": c =  0 : a =  0 
End If
End Sub
...
Рейтинг: 0 / 0
05.12.2008, 01:03
| Ответить | Цитировать | Написать  
Программка для Randomize чисел не идёт... помогите.
    #35695045
White Owl
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
White Owl
Участник
-=GeX=-Что ему не нравится? :(
Строки которые написаны вот так:
Код: plaintext
IF aaa THEN bbbb : cccc
Делают совсем не то, что ты думаешь они должны делать.
...
Рейтинг: 0 / 0
05.12.2008, 01:08
| Ответить | Цитировать | Написать  
Программка для Randomize чисел не идёт... помогите.
    #35695047
Фотография -=GeX=-
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
-=GeX=-
Участник
White Owl-=GeX=-Что ему не нравится? :(
Строки которые написаны вот так:
Код: plaintext
IF aaa THEN bbbb : cccc
Делают совсем не то, что ты думаешь они должны делать.

Подскажите, пожалуйста, как будет правильнее, мозг запутался...
...
Рейтинг: 0 / 0
05.12.2008, 01:12
| Ответить | Цитировать | Написать  
Программка для Randomize чисел не идёт... помогите.
    #35695225
AndreyMp
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AndreyMp
Участник
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
End Sub
Else
b = Text1.Text
If b >  100  Or b <  1  Then MsgBox "Это не число от 1 до 100!": Exit Sub
If a > b Then MsgBox "Загаданное число меньше :)": c = c +  1 
If a = b Then MsgBox "ПОЗДРАВЛЯЮ!!! ВЫ УГАДАЛИ ЧИСЛО ЗА " + Str(c +  1 ) + "ПОПЫТОК", vbExclamation, "!!!ПОБЕДА!!!": c =  0 : a =  0 
End If
End Sub
Неправда ли странно. После End Sub увидеть еще кусок кода и еще раз Edn Sub.
...
Рейтинг: 0 / 0
05.12.2008, 09:10
| Ответить | Цитировать | Написать  
Программка для Randomize чисел не идёт... помогите.
    #35696029
Фотография -=GeX=-
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
-=GeX=-
Участник
AndreyMp, очень странно... Но мне необходимо, чтобы код действовал именно так... Ну, подскажите, плиз!
...
Рейтинг: 0 / 0
05.12.2008, 13:22
| Ответить | Цитировать | Написать  
Программка для Randomize чисел не идёт... помогите.
    #35696095
piterblinov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
piterblinov
Участник
End Sub это конец процедуры, понимаешь вообще конец
А что писать
Код: plaintext
1.
2.
3.
If ... Then
   ...
   ...
End If
Уже ломы чтоли.
...
Рейтинг: 0 / 0
05.12.2008, 13:38
| Ответить | Цитировать | Написать  
Программка для Randomize чисел не идёт... помогите.
    #35697674
Фотография -=GeX=-
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
-=GeX=-
Участник
спасибо, конечно... не работает тогда кнопка "отгадать число"...
Ребята, если вас не затруднит, отпишите полностью этот код, как он должен быть написан... Эту программу я писал 5 лет назад... ВБ сейчас забыл наглухо :( Помогите, будьте добры.
...
Рейтинг: 0 / 0
06.12.2008, 13:01
| Ответить | Цитировать | Написать  
Программка для Randomize чисел не идёт... помогите.
    #35698603
Фотография big-duke
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
big-duke
Участник
-=GeX=-,


Код: plaintext
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.
Dim a As Integer
Dim b As Integer
Dim c As Integer

Private Sub Command1_Click()
Randomize Timer
a = Int(Rnd *  100 )
MsgBox "Число от 1 до 100 загадано!", vbExclamation, "Готово!"
End Sub

Private Sub Command2_Click()
    If a =  0  Then
        MsgBox "Сначала необходимо загадать число!", vbCritical, "Ошибка!"
        Exit Sub
    End If
    If Not IsNumeric(Text1.Text) Then
        MsgBox "Это не число!", vbCritical, "Ошибка!"
    Else
        b = Text1.Text
    End If

    If b >  100  Or b <  1  Then
        MsgBox "Это не число от 1 до 100!"
        Exit Sub
    End If
    If a > b Then
            MsgBox "Загаданное число меньше :)"
            c = c +  1 
            Exit Sub
    End If
    
    If a = b Then
        MsgBox "ПОЗДРАВЛЯЮ!!! ВЫ УГАДАЛИ ЧИСЛО ЗА " + Str(c +  1 ) + "ПОПЫТОК", vbExclamation, "!!!ПОБЕДА!!!"
        c =  0 
        a =  0 
    End If
End Sub
...
Рейтинг: 0 / 0
07.12.2008, 17:59
| Ответить | Цитировать | Написать  
Программка для Randomize чисел не идёт... помогите.
    #35701431
Фотография -=GeX=-
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
-=GeX=-
Участник
Спасибо... Но не работает :(
...
Рейтинг: 0 / 0
09.12.2008, 01:53
| Ответить | Цитировать | Написать  
Программка для Randomize чисел не идёт... помогите.
    #35701622
Фотография big-duke
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
big-duke
Участник
-=GeX=-,

Я вам исправил синтаксис, а логику проверяйте сами.
Например, в программе нет проверки a<b .
...
Рейтинг: 0 / 0
09.12.2008, 09:04
| Ответить | Цитировать | Написать  
Программка для Randomize чисел не идёт... помогите.
    #35704242
Фотография -=GeX=-
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
-=GeX=-
Участник
ну вот я сделал, а он всё-равно выдаёт неправильные параметры...
Какое бы число я не писал, - всегда выдаёт - "Загаданное число больше :)"



Код: plaintext
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.
Option Explicit
Dim a As Integer
Dim b As Integer
Dim c As Integer

Private Sub Command1_Click()
Randomize Timer
a = Int(Rnd *  100 )
MsgBox "Число от 1 до 100 загадано!", vbExclamation, "Готово!"
End Sub

Private Sub Command2_Click()
    If a =  0  Then
        MsgBox "Сначала необходимо загадать число!", vbCritical, "Ошибка!"
        Exit Sub
    End If
    If Not IsNumeric(Text1.Text) Then
        MsgBox "Это не число!", vbCritical, "Ошибка!"
    Else
        b = Text1.Text
    End If
    If b >  100  Or b <  1  Then
        MsgBox "Это не число от 1 до 100!"
        Exit Sub
    End If
    If a > b Then
            MsgBox "Загаданное число меньше :)"
            c = c +  1 
            Exit Sub
    End If
    If a < b Then
            MsgBox "Загаданное число больше :)"
            c = c +  1 
            Exit Sub
    End If
    If a = b Then
        MsgBox "ПОЗДРАВЛЯЮ!!! ВЫ УГАДАЛИ ЧИСЛО ЗА " + Str(c +  1 ) + "ПОПЫТОК", vbExclamation, "!!!ПОБЕДА!!!"
        c =  0 
        a =  0 
    Exit Sub
    End If
End Sub
Private Sub Command3_Click()
End
End Sub
...
Рейтинг: 0 / 0
10.12.2008, 02:13
| Ответить | Цитировать | Написать  
Программка для Randomize чисел не идёт... помогите.
    #35704312
SG-1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
SG-1
Гость
Попробуй вот так: У меня всё работало:
Добавил ещё один Exit Sub. В проверке число это или нет. И просто поменял слова больше и меньше:
Private Sub Command2_Click()
If a = 0 Then
MsgBox "Сначала необходимо загадать число!", vbCritical, "Ошибка!"
Exit Sub
End If
If Not IsNumeric(Text1.Text) Then
MsgBox "Это не число!", vbCritical, "Ошибка!"
Exit Sub
Else
b = Text1.Text
End If
If b > 100 Or b < 1 Then
MsgBox "Это не число от 1 до 100!"
Exit Sub
End If
If a > b Then
MsgBox "Загаданное число больше :)"
c = c + 1
Exit Sub
End If
If a < b Then
MsgBox "Загаданное число меньше :)"
c = c + 1
Exit Sub
End If
If a = b Then
MsgBox "ПОЗДРАВЛЯЮ!!! ВЫ УГАДАЛИ ЧИСЛО ЗА " + Str(c + 1) + "ПОПЫТОК", vbExclamation, "!!!ПОБЕДА!!!"
c = 0
a = 0
Exit Sub
End If
End Sub
...
Рейтинг: 0 / 0
10.12.2008, 06:18
| Ответить | Цитировать | Написать  
Программка для Randomize чисел не идёт... помогите.
    #35705564
Фотография -=GeX=-
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
-=GeX=-
Участник
УРА!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
СПАСИБО БОЛЬШУЩЕЕ!!!!!!!!!!!!!! СУПЕР!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! ВСЁ РАБОТАЕТ КАК ЧАСЫ!!!!!!!!!!!!!!!!!!
...
Рейтинг: 0 / 0
10.12.2008, 14:51
| Ответить | Цитировать | Написать  
13 сообщений из 13, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Программка для Randomize чисел не идёт... помогите.
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&fpage=172&tid=2161537]:
 0ms
get settings:
 6ms
get forum list:
 15ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 27ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 34ms
get tp. blocked users:
 1ms
others: 230ms
total:  330ms
созд. / загр.: 330ms
x
x
Закрыть


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