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

        Writeln(z1,':',z2); {вывод времени на экран}

        Write(g1,':',g2,' ',g3);

        Delay(1000);

        until keypressed;

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

Оконная система диалога.

   Поскольку прошлая моя работа была посвящена диалоговым системам, я учел тот опыт, но в этой программе сделал нововведение, приблизившее программу к современному «оконному» виду.

   Над оформлением окна пришлось посидеть не один час, так как обычное окно в виде квадрата на экране совсем не привлекательно. Я изучил строение окон в среде MS-DOS и попытался воссоздать дизайн окна в своей программе. Если вы когда-либо видели схему окна в MS-DOS, то заметили, что окно обрамляется двойной рамкой, наверху которой находится название окна. Здесь мне помогло хитрое решение. Я заглянул в таблицу символов ASCII и нашел символ двойной рамки! Далее все просто: открывается окно, закрашивается, по краям с помощью циклов рисуется рамка и выводится название окна. Но это еще не все. Внутри окна открывается другое окно того же цвета, чтобы было незаметно. Теперь при вводе или выводе данных рамка не будет двигаться вместе с текстом, разрываться и т. д. Мы получаем полноценное окно.

Я сделал оформление окна в виде процедуры, необходимо лишь ввести координаты окна и его название. Ниже приведен код оформления окна:

Procedure windows(x,y,x1,y1:integer; b:string);

    Var a,t:integer;

    Begin

    Window (x+1,y+1,x1+1,y1+1);   {рисование тени от окна}

    TextBackGround(black);

    clrscr;

    Window(x,y,x1,y1); {рисование окна}

    TextBackGround(blue);

    clrscr;

    TextColor(darkgray); {цвет текста}

    Write(' ');

    Write(chr(201)); {рисование уголка}

    For a:=1 to 4 do Write(chr(205)); {рисование полосы}

    Write(' ');

    TextColor(green); {цвет текста}

    Write(b); {вывод названия окна}

Рекомендуем скачать другие рефераты по теме: allbest, реферат отношения.





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