Отчет по практике в «ООО Белфорт КпопиКомпани»

Спроектированный  интерфейс (эскиз) изображен на рисунке  4 

Рисунок 4 – Эскиз интерфейса, выполненный в Delphi 
 

17

3.3 Спецификация типовых  объектов 

Таблица 1 - Спецификация типовых объектов 

Наименование объекта    Функциональная характеристика объекта 

русское    английское   

метка    label    постоянный текст, не подлежащий изменению  при работе пользователя с экранной формой

Поле ввода    Edit    стандартный управляющий  элемент Windows для ввода. Он может  быть использован для отображения  короткого фрагмента текста и позволяет пользователю вводить текст во время выполнения программы.

Мое меню    MainMenu    позволяет поместить главное  меню в программу. При помещении MainMenu на форму это выглядит, как  просто иконка. Создание меню включает три шага: (1) помещение TMainMenu на форму, (2) вызов Дизайнера Меню через свойство Items в Инспекторе Объектов, (3) определение пунктов меню в Дизайнере Меню.

Кнопка    Button    позволяет выполнить какие-либо действия при нажатии кнопки во время  выполнения программы.

Флажок    RadioButton    позволяет выбрать только одну опцию  из нескольких. (это достигается  путем метки нужной опции флажком)

Окно группы    GroupBox    используется для визуальных целей и для указания Windows, каков  порядок перемещения по компонентам на форме (при нажатии клавиши TAB)

Управляющая кнопка    BitBtn    кнопка вроде TButton, однако на ней можно разместить картинку (glyph). BitBtn имеет несколько предопределенных типов (bkClose, bkOK и др), при выборе которых  кнопка принимает соответствующий вид.

Образ    Image    отображает графическое изображение  на форме. Воспринимает форматы BMP, ICO, WMF.

18

     В Turbo Vision интерфейс программы разрабатывается с помощью написания кода программы.

     В Delphi интерфейс программы разрабатывается с помощью помещения объектов на форму и прописывания им значения. Следовательно, создание в среде Delphi экономит время, нежели написания в Turbo Vision. В Delphi интерфейс программы получается намного красочный, что больше подходит к современным программам. В Turbo Vision меньше возможностей, чем в среде программирования Delphi, к примеру, в Turbo Vision нельзя загрузить картинку, нет таких компонентов как календарь, кнопок с картинками, и многое другое.

    Следовательно, данную программу лучше всего будет создавать в среде программирование Delphi

19

     Производственную практику по профилю специальности прошел на предприятии «ООО Белфорт КпопиКомпани»

    Задача  практики заключалась в создании интерфейса программы с помощью модуля Turbo Vision или Turbo Professional и в среде Delphi.

       За данный период практики закрепили знания по предмету ТРПП (Технология разработки программного продукта ) и по предмету ООП (Объектно-Ориентированное Программирование ), а также усовершенствовали свои знания в программах:

1. Microsoft Word.
2. Delphi.
3. Turbo Pascal

20

        Список использованных источников 
 

1. Конспекты лекций по предметам «Технология  разработки программного продукта», «Объектно-ориентированное  программирование».
2. Кенин А. «Самоучитель для пользователя IBM PC». Практическое руководство. Екатеринбург: Литур, 2003. – 608 стр.
3. Под общей ред. А.Д. Хомоненко. «Delphi 7».Учебник. СПб.: БХВ-Петербург, 2004.-1216 с.: ил.
4. Гофман В.Э., Хомоненко А.Д. Delphi 7.- СПб.: БХВ-Петербург,2003. – 1152 с.
5. Культин Н.Б. Основы программирования в Delphi 7. – СПб.: БХВ -Петербург, 2003. – 608 с.
6. Delphi 7 / Под общей ред. А.Д. Хомоненко. – СПб.: БХВ-Петербург, 2004.-1216 с.: ил.
7. Рудаков А.В. «Технология разработки программного продукта». Учеб. пособие для студ. сред.проф.образования. – М.: Академия, 2005-208с.

21

График  прохождения практики по профилю специальности 

    1 неделя (19.01-25.02)

    1. Сбор материала для составления  технического задания на программирование

    1.1 Постановка задачи

    1.2 Основные характеристики функциональных  задач

    - цель  и назначение задачи ее место,  связь с другими задачами;

    - условия  решения задачи с использование  средств ВТ;

    - содержание  функций обработки входной информации  при решении задач

    - требования  к периодичности решения задачи;

    - ограничения  по срокам и точности выходной  информации;

    - состав  и форма представления выходной  информации;

    - источники  входной информации;

    - пользователи  задачи (кто осуществляет ее решение  и пользуется результатами решения);

    - разработка  схемы взаимодействия входной  и выходной информации

    2. Разработка материала к выполнению  технического проекта

    2.1 Разработка обобщенного алгоритма  решения задачи

    2.2 Разработка интерфейса пользователя  с помощью модуля Turbo Professional или Turbo Vision. 

    2 неделя (26.01-1.02)

    1. Проектирование и разработка  интерфейса пользователя в среде  Delphi

    - диалоговый  режим;

    - графический  интерфейс (эскиз, спецификация  типовых объектов, управление графического  интерфейса);

    2. Сравнительный анализ разработанных интерфейсов и сред разработки 

    3 неделя (2.02-9.02)

    1. Оформления отчета по практике

    2. Подготовка документов (отзыв с  предприятия, ежедневные записи)

    3. Защита практики

22

Текст программы, выполненной в Borland Pascal 

    Uses Dos,StdDlg,App,Objects,Menus,Drivers,Views;

    const cmWork=203;

          cmDos=204;

          WinComl:TCommandSet=[cmSave,cmWork];

          cmNewWin=199;

          WinCount:integer=0;

          cmNewDialog=200;

    Type

         TNotebook=Object(TApplication)

    Procedure HandleEvent(Var Event:TEvent);virtual;

    Procedure InitStatusLine;virtual;

    Procedure InitMenuBar;virtual;

    end; 

    Procedure TNotebook.InitMenuBar;

    Var R:TRect;

    begin

    GetExtent(R);

    R.B.Y:=succ(R.A.Y);

    MenuBar:=New(PMenuBar,Init(R,

    NewMenu( 
 

    Procedure TNotebook.InitStatusLine;

    Var R:TRect;

    begin

    GetExtent(R);

    R.A.Y:=pred(R.B.Y);

    StatusLine:=New(PStatusLine,Init(R,

    NewStatusDef(0,$FFFF,

    NewStatusKey('Выход  (~Alt+X~)',kbAltX,cmQuit,

25

    NewStatusKey('Открыть (~F3~) ',kbF3,cmOpen,

    NewStatusKey('Меню (~F10~) ',kbF10,cmMenu,

    NewStatusKey('Закрыть  (~Alt+F3~) ',kbAltF3,cmClose,

    nil)))),nil)))end; 

    Procedure FileOpen;

    Var Pf:PFileDialog;

        Control:Word;

        S:PathStr;

    begin

    New(Pf,Init('*.txt','Выберите нужный файл:','имя файла',FdOpenButton,0));

    Control:=Desktop^.ExecView(Pf);

    case Control of

         StdDlg.cmFileOpen,cmOk:

begin

    Pf^.GetFileName(S);

    end;end;

         Dispose(Pf,Done);end; 

    Procedure FileSave;begin end; 

    Procedure ChangeDir;begin end; 

    Procedure DosCall;begin end; 

    Procedure Work;begin end;

    Procedure TNotebook.HandleEvent(Var Event:TEvent);

    begin

    Inherited HandleEvent(Event);

    if Event.What=evCommand then

    case Event.Command of

         cmOpen:FileOpen;

         cmSave:FileSave;

         cmChangeDir:ChangeDir;

         cmDossHell:DosCall;

         cmWork:Work;

26

    else Exit;

    end;

        ClearEvent(Event);end; 

    Var Notebook:TNotebook;

    begin

         Notebook.Init;

         Notebook.Run;

         Notebook.Done;

    end.

27

Приложение  Д 

                            Текст программы, выполненной в Delphi

    unit Unit1; 

    interface 

    uses

      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

      Dialogs, Menus, jpeg, ExtCtrls, StdCtrls; 

    type

      TForm1 = class(TForm)

        Image1: TImage;

        MainMenu1: TMainMenu;

        N1: TMenuItem;

        N2: TMenuItem;

        N3: TMenuItem;

        N4: TMenuItem;

        N5: TMenuItem;

        N6: TMenuItem;

        N7: TMenuItem;

        N8: TMenuItem;

        N9: TMenuItem;

        N10: TMenuItem;

        N11: TMenuItem;

        N12: TMenuItem;

        N13: TMenuItem;

        N14: TMenuItem;

        N15: TMenuItem;

        N16: TMenuItem;

        N17: TMenuItem;

        Label1: TLabel;

        procedure N2Click(Sender: TObject);

    procedure N12Click(Sender: TObject);

        procedure N7Click(Sender: TObject);

      private

        { Private declarations }

      Public

    { Public declarations }

      end; 

    var

      Form1: TForm1;

28

    implementation 

    uses Unit2, Unit3; 

    {$R *.dfm} 

    procedure TForm1.N2Click(Sender: TObject);

    begin

    form2.show;

    end; 
 
 

    procedure TForm1.N12Click(Sender: TObject);

    begin

     form3.Show;

    end; 

    procedure TForm1.N7Click(Sender: TObject);

    begin

    Close;

    end; 

    end.

29