Работа с окнами

@some_name · Регистрация: 19.02.2013

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

Здравствуйте!

Реализовал примитивный калькулятор.

Теперь необходимо осуществить навигацию между окнами, т.е., к примеру, из окна ввода операндов должна быть возможность перейти в главное меню или в окно выбора операции.

Как сделать не знаю.

Буду рад любой идее.

исходник программы :

Кликните здесь для просмотра всего текста

Prolog

    predicates
        
        nondeterm start     
        nondeterm calculator(integer)
        nondeterm action(integer, integer, integer)      
        nondeterm inputData(integer, integer)
        nondeterm chooseAction(integer)             
        nondeterm result(integer, string, integer, string, real)
        nondeterm question           
        nondeterm repeat
 
    clauses             
        
        chooseAction(ACTION):-           
            makewindow(2, 26, 45, "/*-+ CHOOSE OPERATION +-*/", 10, 0, 10, 50),
            clearwindow,             
            write(" ==-+++ Enter number of action +++-== "), nl,
            write("1.    '/'"), nl,
            write("2.    '*'"), nl,
            write("3.    '-'"), nl,
            write("4.    '+'"), nl,
            write("Your choice:    "),
            readint(ACTION).            
        
        inputData(ARG1, ARG2):-                 
            makewindow(3, 26, 45, "/*-+ INPUT DATA +-*/", 20, 0, 10, 50),
            clearwindow,
            %shiftwindow(1),%
            write(" ==-+++ Input operands +++-=="), nl,         
            write("First operand : "), readint(ARG1),
            write("Second operand : "), readint(ARG2).                  
        
        start:-
            makewindow(1, 26, 45, "/*-+ S I M P L E    C A L C U L A T O R +-*/", 0, 0, 10, 50),             
            clearwindow,
            write(" ==-+++ Main menu +++-== "), nl,
            write("1.    'Go run'"), nl,
            write("2.    'Exit'"), nl,
            write("Your choice:    "), readint(ANSWER),
            calculator(ANSWER).             
        
        calculator(2).  
        calculator(1):-                 
            repeat,         
            chooseAction(ACTION),           
            inputData(ARG1, ARG2),          
            action(ACTION, ARG1, ARG2).                     
                    
        repeat.
        repeat:-  
            shiftwindow(5), removewindow,   
            shiftwindow(4), removewindow,   
            shiftwindow(3), removewindow,   
            shiftwindow(2), removewindow,                                                           
            repeat.          
                        
        action(1, ARG1, ARG2):-                          
            RESULT = ARG1 / ARG2,
            result(ARG1, " / ", ARG2, " = ", RESULT).
            
        action(2, ARG1, ARG2):-                          
            RESULT = ARG1 * ARG2,
            result(ARG1, " * ", ARG2, " = ", RESULT).
                
        action(3, ARG1, ARG2):-                          
            RESULT = ARG1 - ARG2,                
            result(ARG1, " - ", ARG2, " = ", RESULT).
                
        action(4, ARG1, ARG2):-                      
            RESULT = ARG1 + ARG2,                
            result(ARG1, " + ", ARG2, " = ", RESULT).
                    
        result(ARG1, OPERATION, ARG2, EQUALLY, RESULT):-
            makewindow(4, 26, 45, "/*-+ RESULT +-*/", 30, 0, 5, 50),                 
                write(ARG1, OPERATION, ARG2, EQUALLY, RESULT),
                question.
            
            question:-
                makewindow(5, 26, 45, "", 35, 0, 5, 50),                 
                write("1. Go more"), nl,
                write("2. Exit"), nl,           
            write("You choice: "), readint(ANSWER),                 
            ANSWER = 2.                         
    
    goal
    
        start.

Заранее спс!

@some_name · 25.11.2013, 16:08 **[ТС]**

Аууу!!! Народ!!!! 100% кто-то делал навигацию по окнам. Подскажите плз.

@keidin · 25.11.2013, 22:00

Для перехода между окнами используется gotowindow(integer)

Prolog

1	new_write(N,X):- writedevice(screen), gotowindow(N), write(X).%вывод данных в нужном окне

@some_name · 25.11.2013, 22:46 **[ТС]**

а можно ли обойтись без специальных предикатов?

@keidin · 25.11.2013, 22:59

Без стандартных предикатов не получится переключиться между окнами

@some_name · 25.11.2013, 23:09 **[ТС]**

да нет, я имею ввиду использовать только removewindow, shiftwindow.

т.е. я не могу понять какие предикаты реализовывать и как.

основа вроде есть, но как к этому прикруть дополнительную функциональность, хз

@keidin · 26.11.2013, 00:08

Хороший пример про создание меню при помощи окон

@some_name · 26.11.2013, 00:29 **[ТС]**

Пример хороший. У меня сделало 1 в 1 как там. Но препод требует что бы я добавил навигацию между окнами.

Сейчас у меня окна вызываются друг за другом, типа цикла(Выбрал операцию, Ввел аргументы и по новой).
А мне нужно иметь возможность из окна "Ввод аргументов" вернуться в окно "Выбор операции".

По разному пробовал, ничего не получается.

@keidin · 26.11.2013, 00:52

Может натолкнет на мысль:

Prolog

predicates
 menu(char)
    
clauses
 menu(C):- C='1', gotowindow(1),clearwindow,
       write("1"),nl, readln(Str), write("=>",Str),nl,
       gotowindow(2), readchar(Ch), menu(Ch).
 menu(C):- C='2', gotowindow(1),clearwindow, 
           write("2"),nl,
           gotowindow(2), readchar(Ch),menu(Ch).
 menu(C):- C='3', !.
 
     
goal
makewindow(1,112,112,"Edit",0,0,25,50),
makewindow(2,112,112,"Menu",0,50,25,30),
gotowindow(2),
Write("1 - "),nl,
Write("2 -"),nl,
Write("3 - exit"),nl,
gotowindow(2),readchar(C),menu(C).

@some_name Вежливость-главное оружие 233 / 234 / 86 Регистрация: 19.02.2013 Сообщений: 1,446
	25.11.2013, 16:08 [ТС]	2
	Аууу!!! Народ!!!! 100% кто-то делал навигацию по окнам. Подскажите плз. 0

@some_name Вежливость-главное оружие 233 / 234 / 86 Регистрация: 19.02.2013 Сообщений: 1,446
	25.11.2013, 22:46 [ТС]	4
	а можно ли обойтись без специальных предикатов? 0

@keidin 99 / 99 / 14 Регистрация: 07.02.2013 Сообщений: 128
	25.11.2013, 22:59	5
	Без стандартных предикатов не получится переключиться между окнами 0

@some_name Вежливость-главное оружие 233 / 234 / 86 Регистрация: 19.02.2013 Сообщений: 1,446
	25.11.2013, 23:09 [ТС]	6
	да нет, я имею ввиду использовать только removewindow, shiftwindow. т.е. я не могу понять какие предикаты реализовывать и как. основа вроде есть, но как к этому прикруть дополнительную функциональность, хз 0

@keidin 99 / 99 / 14 Регистрация: 07.02.2013 Сообщений: 128
	26.11.2013, 00:08	7
	Хороший пример про создание меню при помощи окон 0

@some_name Вежливость-главное оружие 233 / 234 / 86 Регистрация: 19.02.2013 Сообщений: 1,446
	26.11.2013, 00:29 [ТС]	8
	Пример хороший. У меня сделало 1 в 1 как там. Но препод требует что бы я добавил навигацию между окнами. Сейчас у меня окна вызываются друг за другом, типа цикла(Выбрал операцию, Ввел аргументы и по новой). А мне нужно иметь возможность из окна "Ввод аргументов" вернуться в окно "Выбор операции". По разному пробовал, ничего не получается. 0

	26.11.2013, 00:52

Опции темы