Главная Учебники - Разные Лекции (разные) - часть 33
|
Министерство Образования и Науки Украины Донбасская Государственная Машиностроительная Академия Кафедра КИТ По дисциплине "Системное программирование и операционные системы" раздел "Современные операционные системы и системное программирование в Delphi" Выполнил: Студент гр. ИТ – 01 – 1з Лазебник А.В. Вариант 19 Проверил: Преподаватель Сагайда П.И. Краматорск 2002. СОДЕРЖАНИЕ
Часть I 3 Часть II 5 Часть III 6 Основы работы с многооконным графическим пользовательским интерфейсом операционной системы Windows 95/NT Цель: изучение Учебника и справочной подсистемы Windows 95/NT, получение навыков работы с манипулятором "мышь", манипулирование окнами и значками (пиктограммами) программ и документов, запуска программ в системе Windows 95/NT (далее Системе). Диалоговые окна и их структуры. Всякое диалоговое окно является связанным, т.е. представляет собой разновидность диалогового окна. Оно принадлежит определённой команде определённой программы. Изучите элементы диалоговых окон – командные кнопки, зависимые и независимые переключатели, текстовые поля ввода, списки и падающие списки – и правила работы с этими элементами. Продемонстрируйте свои знания на примере работы с диалоговым окном. Переключатели обычно объединяются в группу, как показано на рис.1. переключатели всегда соответствуют взаимоисключающим состояниям, поэтому из всей группы всегда выбрано ровно одно значение. Установка переключателя делается одинарным щелчком мыши. Командные кнопки (рис.1) служат для принятия или отмены, установленных в диалоговых окнах, нужных значений параметров. Принятие изменений происходит при нажатии кнопки Ок, а отклонение при нажатии кнопки Отмена. Закрытие диалогового окна при помощи кнопки закрытия в правом верхнем углу равносильно отказу от изменений и нажатию кнопки Отмена. Рис.1 Текстовое поле ввода (рис.2) представляет собой область, в которой можно ввести определённый текст. При вводе и редактировании текста используются обычные приёмы. Для активизации поля ввода и установления положения курсора можно использовать мышь. При перемещении указателя мыши над полем ввода он меняет форму, превращаясь из стрелки в вертикальную чёрточку с засечками. Если в это время сделать щелчок, то в поле ввода появится курсор, и текст можно будет вводить. Рис.2. Раскрывающийся список внешне выглядит как и поле ввода, в правой части которого располагается кнопка с направленной вниз стрелкой. Щелчок по этой стрелке раскрывает список. После того как список раскрыт, можно найти и выбрать в нём подходящее значение (рис.2). Прокручивающийся список используется как для задания имён файлов при операциях сохранения и открытия, так и в ряде других операций. Список может снабжаться полосой прокрутки справа и снизу. Как и в раскрывающемся списке, нужное имя или значение выбирается одинарным щелчком мыши, однако в отличие от него прокручивающийся список после этого не закрывается. Основы работы с программами управления и прикладными программами (Windows – приложениями и DOS – приложениями). Цель работы: получение навыков запуска и настройки режима выполнения программ (Windows – приложениями и DOS – приложений) в операционных системах WindowsNT/95, изменения различных параметров операционной системы, работая с файлами и документами в приложениях Windows. Работа в текстовом редакторе MicrosoftWord. Наберите в окне WinWord текст вашей краткой автобиографии в произвольном виде (10-12стр) с использованием TrueType – шрифта ArialCyr, кеглем 10 пунктов, нормального начертания, с межстрочным интервалом 1,5 строки. В тексте должны быть 2 – 3 абзаца с красной строкой, полученной при помощи табуляции со значением 5 ММ. текст должен иметь выравнивание "По ширине". Заголовок " Краткая автобиография " должен быть набран шрифтом TimesNewRomanCyr, кегль 16 пунктов, полужирное начертание, выравнивание по центру, межстрочный интервал 2 строки. Выделите важную часть вашей автобиографии фоном с 10% плотности растра. В верхний левый угол текста вставьте кадр, в который внедрите из Paintbrush свой автопортрет (небольшой рисунок в виде шаржа). Задайте обтекание текстом вокруг кадра, контур вокруг иллюстрации, расстояние от обтекающего текста до иллюстрации. Ниже текста вставьте таблицу следующего вида: Графы которой заполните соответствующим образом. 5. Задайте формат страницы создаваемого документа А4 (210x297), левое поле 25 мм, правое поле 15 мм, верхнее 20 мм и нижнее 30 мм. Войдите в режим Разметка страницы и рассмотрите внешний вид полученного документа. Введите по необходимости коррективы и сохраните файл. "Краткая автобиография" Я, Лазебник Александр Васильевич, родился 18 сентября 1980 года в городе Горловка, Донецкой области. В 1997 году закончил общеобразовательную школу I-III ступеней № 22. В 1998 году окончил Горловскую автошколу ДОСАФ ОСОУ. Министерства Обороны Украины. Гражданская специальность водитель – профессионал (категории B,C). 25 ноября 1998 года был призван на срочную службу в ряды Вооружённых сил Украины. Службу проходил во внутренних войсках.4 апреля 2000 годы был демобилизован. В настоящее время работаю в должности старшего пожарного в СГПЧ-28 ОГПО-8 Пожарного департамента Украины в городе Горловка. Учусь на заочном отделении Донбасской машиностроительной академии, факультет "Компьютерные науки", группа ИТ-01-1з. Разработка простого приложения для Windows при помощи средства разработки Delphi. Цель: получить навыки проектирования и разработки простых приложений с использованием различных компонентов Delphi и программированием подпрограмм обработки событий. Индивидуальное задание: Разработайте приложение – электронный калькулятор для операций +,-,*,/ над вещественными числами. Листинг программы: Calc. dfm object Form1: TForm1 Left = 248 Top = 691 BorderIcons = [biSystemMenu] BorderStyle = bsSingle Caption = #1050#1072#1083#1100#1082#1091#1083#1103#1090#1086#1088 ClientHeight = 187 ClientWidth = 157 Color = clBtnFace Font. Charset = DEFAULT_CHARSET Font. Color = clWindowText Font. Height = - 11 Font. Name = 'MS Sans Serif' Font. Style = [] OldCreateOrder = False Position = poScreenCenter PixelsPerInch = 96 TextHeight = 13 object Bevel1: TBevel Left = 5 Top = 5 Width = 146 Height = 31 end object LabelOperation: TLabel Left = 8 Top = 15 Width = 9 Height = 13 AutoSize = False Caption = ' ' Font. Charset = DEFAULT_CHARSET Font. Color = 11008 Font. Height = - 11 Font. Name = 'MS Sans Serif' Font. Style = [fsBold] ParentFont = False end object Label1: TLabel Left = 18 Top = 7 Width = 131 Height = 13 AutoSize = False end object Label2: TLabel Left = 18 Top = 21 Width = 131 Height = 13 AutoSize = False end object EditCalc: TEdit Left = 5 Top = 40 Width = 146 Height = 21 ReadOnly = True TabOrder = 0 end object BitBtn0: TBitBtn Left = 5 Top = 155 Width = 56 Height = 25 Caption = '0' Font. Charset = DEFAULT_CHARSET Font. Color = clBlue Font. Height = - 11 Font. Name = 'MS Sans Serif' Font. Style = [fsBold] ParentFont = False TabOrder = 1 OnClick = BitBtnNumberClick end object BitBtn1: TBitBtn Left = 5 Top = 125 Width = 26 Height = 25 Caption = '1' Font. Charset = DEFAULT_CHARSET Font. Color = clBlue Font. Height = - 11 Font. Name = 'MS Sans Serif' Font. Style = [fsBold] ParentFont = False TabOrder = 2 OnClick = BitBtnNumberClick end object BitBtn2: TBitBtn Left = 35 Top = 125 Width = 26 Height = 25 Caption = '2' Font. Charset = DEFAULT_CHARSET Font. Color = clBlue Font. Height = - 11 Font. Name = 'MS Sans Serif' Font. Style = [fsBold] ParentFont = False TabOrder = 3 OnClick = BitBtnNumberClick end object BitBtn3: TBitBtn Left = 65 Top = 125 Width = 26 Height = 25 Caption = '3' Font. Charset = DEFAULT_CHARSET Font. Color = clBlue Font. Height = - 11 Font. Name = 'MS Sans Serif' Font. Style = [fsBold] ParentFont = False TabOrder = 4 OnClick = BitBtnNumberClick end object BitBtn4: TBitBtn Left = 5 Top = 95 Width = 26 Height = 25 Caption = '4' Font. Charset = DEFAULT_CHARSET Font. Color = clBlue Font. Height = - 11 Font. Name = 'MS Sans Serif' Font. Style = [fsBold] ParentFont = False TabOrder = 5 OnClick = BitBtnNumberClick end object BitBtn5: TBitBtn Left = 35 Top = 95 Width = 26 Height = 25 Caption = '5' Font. Charset = DEFAULT_CHARSET Font. Color = clBlue Font. Height = - 11 Font. Name = 'MS Sans Serif' Font. Style = [fsBold] ParentFont = False TabOrder = 6 OnClick = BitBtnNumberClick end object BitBtn6: TBitBtn Left = 65 Top = 95 Width = 26 Height = 25 Caption = '6' Font. Charset = DEFAULT_CHARSET Font. Color = clBlue Font. Height = - 11 Font. Name = 'MS Sans Serif' Font. Style = [fsBold] ParentFont = False TabOrder = 7 OnClick = BitBtnNumberClick end object BitBtn7: TBitBtn Left = 5 Top = 65 Width = 26 Height = 25 Caption = '7' Font. Charset = DEFAULT_CHARSET Font. Color = clBlue Font. Height = - 11 Font. Name = 'MS Sans Serif' Font. Style = [fsBold] ParentFont = False TabOrder = 8 OnClick = BitBtnNumberClick end object BitBtn8: TBitBtn Left = 35 Top = 65 Width = 26 Height = 25 Caption = '8' Font. Charset = DEFAULT_CHARSET Font. Color = clBlue Font. Height = - 11 Font. Name = 'MS Sans Serif' Font. Style = [fsBold] ParentFont = False TabOrder = 9 OnClick = BitBtnNumberClick end object BitBtn9: TBitBtn Left = 65 Top = 65 Width = 26 Height = 25 Caption = '9' Font. Charset = DEFAULT_CHARSET Font. Color = clBlue Font. Height = - 11 Font. Name = 'MS Sans Serif' Font. Style = [fsBold] ParentFont = False TabOrder = 10 OnClick = BitBtnNumberClick end object BitBtnPlus: TBitBtn Left = 95 Top = 65 Width = 26 Height = 25 Caption = '+' Font. Charset = DEFAULT_CHARSET Font. Color = clGreen Font. Height = - 11 Font. Name = 'MS Sans Serif' Font. Style = [fsBold] ParentFont = False TabOrder = 11 OnClick = BitBtnOperationClick end object BitBtnMinus: TBitBtn Left = 95 Top = 95 Width = 26 Height = 25 Caption = '-' Font. Charset = DEFAULT_CHARSET Font. Color = clGreen Font. Height = - 11 Font. Name = 'MS Sans Serif' Font. Style = [fsBold] ParentFont = False TabOrder = 12 OnClick = BitBtnOperationClick end object BitBtnMultiple: TBitBtn Left = 95 Top = 125 Width = 26 Height = 25 Caption = '*' Font. Charset = DEFAULT_CHARSET Font. Color = clGreen Font. Height = - 11 Font. Name = 'MS Sans Serif' Font. Style = [fsBold] ParentFont = False TabOrder = 13 OnClick = BitBtnOperationClick end object BitBtnDivide: TBitBtn Left = 95 Top = 155 Width = 26 Height = 25 Caption = '/' Font. Charset = DEFAULT_CHARSET Font. Color = clGreen Font. Height = - 11 Font. Name = 'MS Sans Serif' Font. Style = [fsBold] ParentFont = False TabOrder = 14 OnClick = BitBtnOperationClick end object BitBtnEq: TBitBtn Left = 125 Top = 125 Width = 26 Height = 55 Caption = '=' Font. Charset = DEFAULT_CHARSET Font. Color = clWindowText Font. Height = - 11 Font. Name = 'MS Sans Serif' Font. Style = [fsBold] ParentFont = False TabOrder = 15 OnClick = BitBtnEqClick end object BitBtnReset: TBitBtn Left = 125 Top = 65 Width = 26 Height = 55 Caption = 'C' Font. Charset = DEFAULT_CHARSET Font. Color = clRed Font. Height = - 11 Font. Name = 'MS Sans Serif' Font. Style = [fsBold] ParentFont = False TabOrder = 16 OnClick = BitBtnResetClick end object BitBtnDecimal: TBitBtn Left = 65 Top = 155 Width = 26 Height = 25 Caption = '. ' Font. Charset = DEFAULT_CHARSET Font. Color = clBlue Font. Height = - 11 Font. Name = 'MS Sans Serif' Font. Style = [fsBold] ParentFont = False TabOrder = 17 OnClick = BitBtnNumberClick end end Calc unit Calc; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Buttons, ExtCtrls; type TForm1 = class(TForm) EditCalc: TEdit; BitBtn0: TBitBtn; BitBtn1: TBitBtn; BitBtn2: TBitBtn; BitBtn3: TBitBtn; BitBtn4: TBitBtn; BitBtn5: TBitBtn; BitBtn6: TBitBtn; BitBtn7: TBitBtn; BitBtn8: TBitBtn; BitBtn9: TBitBtn; BitBtnPlus: TBitBtn; BitBtnMinus: TBitBtn; BitBtnMultiple: TBitBtn; BitBtnDivide: TBitBtn; BitBtnEq: TBitBtn; BitBtnReset: TBitBtn; BitBtnDecimal: TBitBtn; LabelOperation: TLabel; Bevel1: TBevel; Label1: TLabel; Label2: TLabel; procedure BitBtnResetClick(Sender: TObject); procedure BitBtnNumberClick(Sender: TObject); procedure BitBtnOperationClick(Sender: TObject); procedure BitBtnEqClick(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; v_NextOperation: boolean; implementation {$R *. dfm} procedure TForm1. BitBtnResetClick(Sender: TObject); begin EditCalc. Text: =''; Label1. Caption: =''; Label2. Caption: =''; LabelOperation. Caption: =' '; end; procedure TForm1. BitBtnNumberClick(Sender: TObject); begin if v_NextOperation then begin EditCalc. Text: =TBitBtn(Sender). Caption; v_NextOperation: =false; end else EditCalc. Text: =EditCalc. Text+TBitBtn(Sender). Caption; end; procedure TForm1. BitBtnOperationClick(Sender: TObject); begin LabelOperation. Caption: =TBitBtn(Sender). Caption; Label1. Caption: =EditCalc. Text; EditCalc. Text: =''; Label2. Caption: =EditCalc. Text; end; procedure TForm1. BitBtnEqClick(Sender: TObject); begin v_NextOperation: =true; if Label1. Caption='' then Label1. Caption: ='0'; Label2. Caption: =EditCalc. Text; if (Label2. Caption='0') and(LabelOperation. Caption [1] ='/') then begin EditCalc. Text: ='??? Деление на 0'; Exit; end; case LabelOperation. Caption [1] of '+': EditCalc. Text: =FloatToStr(StrToFloat(Label1. Caption) +StrToFloat(Label2. Caption)); '-': EditCalc. Text: =FloatToStr(StrToFloat(Label1. Caption) - StrToFloat(Label2. Caption)); '*': EditCalc. Text: =FloatToStr(StrToFloat(Label1. Caption) *StrToFloat(Label2. Caption)); '/': EditCalc. Text: =FloatToStr(StrToFloat(Label1. Caption) /StrToFloat(Label2. Caption)); else EditCalc. Text: ='????????????? '; end; end; initialization DecimalSeparator: ='. '; v_NextOperation: =true; end. Calculat program Calculat; uses Forms, Calc in 'Calc. pas' {Form1}; {$R *. res} begin Application. Initialize; Application. CreateForm(TForm1, Form1); Application. Run; end.
| ||||||||||||||||||||||||||||||