purebasic.info

PureBasic forum
Текущее время: Пт окт 19, 2018 11:14 pm

Часовой пояс: UTC + 3 часа




Начать новую тему Ответить на тему  [ 1 сообщение ] 
Автор Сообщение
СообщениеДобавлено: Вт окт 14, 2008 8:20 pm 
Не в сети
МОДЕРАТОР

Зарегистрирован: Вт дек 05, 2006 8:46 am
Сообщений: 6384
Благодарил (а): 20 раз.
Поблагодарили: 198 раз.
Пункты репутации: 48
Это конечно не образец рационального программирования, но зато сделано быстро c использованием инструмента MessageRequester.exe, и нет ни одного GOTO :D

Запускаем и тестируем придуманную проблему:
Код:
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
45
46
47
48
49
50
 
Title$="Инструкция по решению возникающих проблем"
Select MessageRequester(Title$, "Всё нормально?", #MB_YESNO|#MB_ICONQUESTION)
  Case #IDYES
    MessageRequester(Title$, "Ни чего не трогай!", #MB_OK|#MB_ICONINFORMATION)
  Case #IDNO
     Select MessageRequester(Title$, "Ты  ЭТО трогал?", #MB_YESNO|#MB_ICONQUESTION)
      Case #IDYES
        Select MessageRequester(Title$, "Идиот!", #MB_YESNO|#MB_ICONINFORMATION)
          Case #IDYES
            MessageRequester(Title$, "ТЫ Попал", #MB_OK|#MB_ICONWARNING)
              Select MessageRequester(Title$, "Можно всё свалить на другого?", #MB_YESNO|#MB_ICONQUESTION)
               Case #IDYES
                MessageRequester(Title$, "Вот и нет проблемы!", #MB_OK|#MB_ICONINFORMATION)
               Case #IDNO
                MessageRequester(Title$, "ТЫ РЕАЛЬНО ПОПАЛ", #MB_OK|#MB_ICONWARNING)
              EndSelect
          Case #IDNO
            Select MessageRequester(Title$, "Кто нибудь знает?", #MB_YESNO|#MB_ICONQUESTION)
              Case #IDYES
                MessageRequester(Title$, "ТЫ Попал", #MB_OK|#MB_ICONWARNING)
                Select MessageRequester(Title$, "Можно всё свалить на другого?", #MB_YESNO|#MB_ICONQUESTION)
                     Case #IDYES
                      MessageRequester(Title$, "Вот и нет проблемы!", #MB_OK|#MB_ICONINFORMATION)
                     Case #IDNO
                    MessageRequester(Title$, "ТЫ РЕАЛЬНО ПОПАЛ", #MB_OK|#MB_ICONWARNING)
                EndSelect
              Case #IDNO
                MessageRequester(Title$, "Надо спрятять!", #MB_OK|#MB_ICONINFORMATION)
                MessageRequester(Title$, "Вот и нет проблемы!", #MB_OK|#MB_ICONINFORMATION)
            EndSelect
        EndSelect
      Case #IDNO
        Select MessageRequester(Title$, "Тебе это надо?", #MB_YESNO|#MB_ICONQUESTION)
          Case #IDYES
            MessageRequester(Title$, "ТЫ Попал", #MB_OK|#MB_ICONWARNING)
            Select MessageRequester(Title$, "Можно всё свалить на другого?", #MB_YESNO|#MB_ICONQUESTION)
              Case #IDYES
                MessageRequester(Title$, "Вот и нет проблемы!", #MB_OK|#MB_ICONINFORMATION)
              Case #IDNO
                MessageRequester(Title$, "ТЫ РЕАЛЬНО ПОПАЛ", #MB_OK|#MB_ICONWARNING)
            EndSelect
          Case #IDNO
            MessageRequester(Title$, "Притворись, что не видел!", #MB_OK|#MB_ICONINFORMATION)
            MessageRequester(Title$, "Вот и нет проблемы!", #MB_OK|#MB_ICONINFORMATION)
           
        EndSelect
     EndSelect
   
EndSelect



Вернуться наверх
 Профиль  
 
Показать сообщения за:  Сортировать по:  
Начать новую тему Ответить на тему  [ 1 сообщение ] 

Часовой пояс: UTC + 3 часа


Кто сейчас на форуме

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 1


Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете добавлять вложения

Найти:
Перейти:  
Создано на основе phpBB® Forum Software © phpBB Group (блог о phpBB)
Сборка создана CMSart Studio
Русская поддержка phpBB