Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Программка для Randomize чисел не идёт... помогите. / 13 сообщений из 13, страница 1 из 1
05.12.2008, 01:03
    #35695041
-=GeX=-
-=GeX=-
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Программка для Randomize чисел не идёт... помогите.
Помогите, выдаёт ошибку компиляции:
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:08
    #35695045
White Owl
White Owl
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Программка для Randomize чисел не идёт... помогите.
-=GeX=-Что ему не нравится? :(
Строки которые написаны вот так:
Код: plaintext
IF aaa THEN bbbb : cccc
Делают совсем не то, что ты думаешь они должны делать.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
05.12.2008, 01:12
    #35695047
-=GeX=-
-=GeX=-
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Программка для Randomize чисел не идёт... помогите.
White Owl-=GeX=-Что ему не нравится? :(
Строки которые написаны вот так:
Код: plaintext
IF aaa THEN bbbb : cccc
Делают совсем не то, что ты думаешь они должны делать.

Подскажите, пожалуйста, как будет правильнее, мозг запутался...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
05.12.2008, 09:10
    #35695225
AndreyMp
AndreyMp
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Программка для Randomize чисел не идёт... помогите.
Код: 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, 13:22
    #35696029
-=GeX=-
-=GeX=-
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Программка для Randomize чисел не идёт... помогите.
AndreyMp, очень странно... Но мне необходимо, чтобы код действовал именно так... Ну, подскажите, плиз!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
05.12.2008, 13:38
    #35696095
piterblinov
piterblinov
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Программка для Randomize чисел не идёт... помогите.
End Sub это конец процедуры, понимаешь вообще конец
А что писать
Код: plaintext
1.
2.
3.
If ... Then
   ...
   ...
End If
Уже ломы чтоли.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.12.2008, 13:01
    #35697674
-=GeX=-
-=GeX=-
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Программка для Randomize чисел не идёт... помогите.
спасибо, конечно... не работает тогда кнопка "отгадать число"...
Ребята, если вас не затруднит, отпишите полностью этот код, как он должен быть написан... Эту программу я писал 5 лет назад... ВБ сейчас забыл наглухо :( Помогите, будьте добры.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.12.2008, 17:59
    #35698603
big-duke
big-duke
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Программка для Randomize чисел не идёт... помогите.
-=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
| Ответить | Цитировать | Написать  
09.12.2008, 01:53
    #35701431
-=GeX=-
-=GeX=-
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Программка для Randomize чисел не идёт... помогите.
Спасибо... Но не работает :(
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.12.2008, 09:04
    #35701622
big-duke
big-duke
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Программка для Randomize чисел не идёт... помогите.
-=GeX=-,

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



Код: 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, 06:18
    #35704312
SG-1
SG-1
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Программка для Randomize чисел не идёт... помогите.
Попробуй вот так: У меня всё работало:
Добавил ещё один 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, 14:51
    #35705564
-=GeX=-
-=GeX=-
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Программка для Randomize чисел не идёт... помогите.
УРА!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
СПАСИБО БОЛЬШУЩЕЕ!!!!!!!!!!!!!! СУПЕР!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! ВСЁ РАБОТАЕТ КАК ЧАСЫ!!!!!!!!!!!!!!!!!!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Программка для Randomize чисел не идёт... помогите. / 13 сообщений из 13, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 290ms
Закрыть
start [/forum/topic.php?fid=60&mobile=1&tid=2161537]:
 0ms
get settings:
 6ms
get forum list:
 14ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 17ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 47ms
get tp. blocked users:
 1ms
others: 190ms
total:  290ms
x
x
Закрыть


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