Предыдущая страница реферата | 2  3  4  5  6  7  8  9  10  11  12 | Следующая страница реферата



(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) (menufiles))

((eq? ch #2) (menudb))

((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)

(define ch)

(Window-Set-Position! menudbw 5 26)

(Window-Set-Size! menudbw 6 10)

(Window-Clear menudbw)

(Window-Set-Cursor! menudbw 1 1)

(display "1.ADD " menudbw)

(Window-Set-Cursor! menudbw 2 1)

(display "2.DELETE" menudbw)

(Window-Set-Cursor! menudbw 3 1)

Рекомендуем скачать другие рефераты по теме: сборник изложений, тарас бульба сочинение.

Предыдущая страница реферата | 2  3  4  5  6  7  8  9  10  11  12 | Следующая страница реферата

Поделитесь этой записью или добавьте в закладки