Реферат: Разработка оболочки экспертной системы

((eq? ch #\3) (menucons))

((eq? ch #\4) (exit))

)))

; Меню Файлов

(define (menufiles)

(define ch)

(Window-Set-Position! menufw 5 16)

(Window-Set-Size! menufw 4 8)

(Window-Clear menufw)

(Window-Set-Cursor! menufw 1 1)

(display "1.LOAD" menufw)

(Window-Set-Cursor! menufw 2 1)

(display "2.SAVE" menufw)

(do ((i 0 (+ i 0)))

((> i 5)i)

(Window-Set-Cursor! mainw 22 30)

(display "ВАШ ВЫБОР :" mainw)

(set! ch (read-char mainw))

(Window-Set-Cursor! mainw 22 30)

(display " " mainw)

(cond

((eq? ch #\1) (loading))

((eq? ch #\2) (saving))

((eq? ch #\ESCAPE)

(Window-Delete menufw)

(mainmenu))

)))

; Меню БазыДанных

(define (menudb)

К-во Просмотров: 539
Бесплатно скачать Реферат: Разработка оболочки экспертной системы