Проверка количества монет

@korol1337228 · Регистрация: 06.01.2016

Студворк — интернет-сервис помощи студентам

В моей игре есть момент когда нужно 600 монет и тут возникает вопрос, если у игрока не 600 ,а 607 или 601
Можне без долго писания текста если 601 то, если 602 то.
А просто взять и написать например если от 600 до 1000 то написать в текст1 что нибуть.
Если да, то как?
Прошу написать код.

Добавлено через 5 минут
или например меньше 600

@fever brain · 07.01.2016, 18:12

Visual Basic
1
2
3
4
5
If money>=600 and money <= 1000 then 
    'Можно еще написать так: If money > 600 and money < 1000 then 
    'Ваш код, при положительном условии например:
    text1="money = " & money
end if

второй вариант

Visual Basic
1
2
3
4
5
Select case money
case 600 to 1000
    'Ваш код, при положительном условии например:
    text1="money = " & money
end select

@fever brain · 07.01.2016, 18:31

Сообщение от korol1337228

или например меньше 600

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
Private Sub Command1_Click()
    Do: Money = InputBox("Money ?", , 999)
    Loop Until IsNumeric(Money)
    
    Const x = 600, y = 1000
    
'    If Money >= x And Money <= y Then
'        'Можно еще написать так: If money > 600 and money < 1000 then
'        'Ваш код, при положительном условии например:
'        Text1 = "money = " & Money
'    ElseIf Money < x Then
'        Text1 = "money < " & x & " ! //..  " & Money
'        Beep
'    Else
'        Text1 = "money > " & y & " ! //..  " & Money
'        Beep
'    End If
    
    'Вариант № 2
    
    Select Case Money
    Case x To y
        'Ваш код, при положительном условии например:
        Text1 = "money = " & Money
    Case Is < x
        Text1 = "money < " & x & " ! //..  " & Money
        Beep
    Case Is > x
        Text1 = "money > " & y & " ! //..  " & Money
        Beep
    End Select
End Sub

@fever brain · 07.01.2016, 18:47

Сообщение от fever brain

Case Is > x

Упс.. надо было написать Case Is > y ну ладно .. разберёшься, и пожалуйста
пусть тебя не злит что я пишу подробные программы,
1. это не только для тебя, 2. ты всегда можешь чтото поменять, ориентируясь на рабочий вариант
, 3. ты всёравно переспросишь.. [>> а что дальше делать то ?]
и 4. не люблю оставлять всё абы-как, пусть я лучше 3 часа на тебя одного потрачу, зато выложенный матерьял действительно можно будет назвать знаниями

Новые блоги и статьи Все статьи Все блоги /
модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI	Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .	Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка. Hrethgir 08.04.2026 Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .	Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ
Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики. Hrethgir 07.04.2026 Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .	Горе от ума kumehtar 07.04.2026 Эта мне ментальная установка, что вот прямо сейчас, мол, мне для полного счастья не хватает (нужное вписать), и когда я этого достигну - тогда и полный кайф. Одна из самых сильных ловушек на пути. . . .	Использование значений реквизитов справочника в документе, с определенными условиями и правами Maks 07.04.2026 1. Контроль срока действия договора Алгоритм из решения ниже реализован на примере нетипового документа "ЗаявкаНаРаботу", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если. . .	Доступность команды формы по условию Maks 07.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: сделать доступной кнопку (команда формы "ЗавершитьСписание") при. . .

@korol1337228 4 / 4 / 0 Регистрация: 06.01.2016 Сообщений: 209

	Проверка количества монет 07.01.2016, 17:54. Показов 1546. Ответов 3 Метки нет (Все метки) В моей игре есть момент когда нужно 600 монет и тут возникает вопрос, если у игрока не 600 ,а 607 или 601 Можне без долго писания текста если 601 то, если 602 то. А просто взять и написать например если от 600 до 1000 то написать в текст1 что нибуть. Если да, то как? Прошу написать код. Добавлено через 5 минут или например меньше 600 0

Проверка количества монет

Решение