Глава 2. Структура и состав электронного учебника
2.1. Описание электронного учебника В главном окне программы располагаются три кнопки, для вызова окна теоретических сведений (справка), окно примеров использования компонентов WIN 32, окно с перечнем задач. Окно теоретических сведений содержит многострочный компонент Memo для вывода данных. Окно примеров содержит группу вкладок, в пределах каждой вкладки содержится интерфейсная часть для каждого примера. Окно с перечнем задач содержит перечень 17 задач для использования компонентов. Каждое окно пример содержит 4 вкладки позволяющие вернуться к предыдущему меню, на главное меню, закрыть учебник. В третьем окне находится поле Мемо, где представлен список из 17 задач. 2.2. Сборник задач Создать приложение, позволяющее: создать форму с 10 вкладками с компонентом TabControl. Создать приложение, позволяющее: создать форму с 5 вкладками с компонентом PageControl. Создать приложение, позволяющее: отображать содержимое imagelist при нажатии кнопок с компонентом ImageList. Создать приложение, позволяющее: сохранить отредактированный текст RTF с компонентом RichEdit. Создать приложение, позволяющее: совместить TrackBar и ProgressBar компонентом TrackBar. Создать приложение, позволяющее: заполнять прогресс бар каждые 10 секунд на 10% компонентом Progress bar. Создать приложение, позволяющее: управлять прогрессбаром при помощи компонента UPDOWN . Создать приложение, позволяющее: Отображение активного HotKey с компонентом HotKey. Создать приложение, позволяющее: Смену анимации в окне с компонентом Animate. Создать приложение, позволяющее: отображение введенной даты в отдельном окне с компонентом DateTimePicker. Создать приложение, позволяющее:отображать месяц в отдельном окне с компонентом MonthCalendar. Создать приложение, позволяющее: создать дерево с 8 уровнями вложенности с компонентом TreeView. Создать приложение, позволяющее: создавать и удалять колонки с компонентом ListView. Создать приложение, позволяющее: создавать 10 секций с компонентом HeaderControll. Создать приложение, позволяющее: создавать 5 панелей с компонентом Status Bar. Создать приложение, позволяющее: создать 8 кнопок с компонентом Toolbar. Создать приложение, позволяющее: 3 панели с компонентом Coolbar. Список использованной литературы Абрамов А. Г., Трифонов Н. П. Введение в язык Паскаль, - М.-Наука, 1988. Архангельский А. Я., Delphi 2006,-М.-Бином 2006 Архангельский А. Я., 100 компонентов общего назначения библиотеки Delphi 5,-М.-Бином,2004 Баженова И. Ю. Delphi 6, - М.: Кудиц – образ, 2002 Глушаков С. В. Программирование на Delphi 5, - Харьков: ФОЛИО, 2002 Гофман В. Э., Хомоненко А. Д. Delphi 6, – СПб.: БХВ - Петербург , 2001 Климова Л.М., Delphi 7,-М.-кудиц-образ,2005 Культин Н. С. Delphi 6. Программирование на Object Pascal – СПб.: БХВ - Петербург , 2001 . Культин Н. С. Delphi 7. Программирование на Object Pascal – СПб.: БХВ - Петербург , 2001. Марко Кэнту, Delphi 7 для профессионалов,-СПб.-Питер, 2005 Попов В.А., Самоучитель Delphi,-СПб.-Питер, 2002 Ремнев А.А., Федотова С.В., Курс Delphi для начинающих,-М.-Бином,2004 Стивенс Род, Delphi. Готовые алгоритмы,-СПб.-Питер, 2004 Сухарев М.В., Основы Delphi. Профессиональный подход,-М.-Бином, 2003 Фаронов В. В. Система программирования Delphi. – СПб.: БХВ - Петербург , 2003 . Фаронов В. В. Delphi 5. Учебный курс, - М.: Нолидж, 2001 . Фаронов В. В. Delphi программирвание на языке высокого уровня,- Питер,2010 Фленов М.А., Библия Delphi,-М.-Бином, 2007 Хомоненко А. Д. и др. Delphi 7 / Под общ. ред. А. Д. Хомоненко. – СПб.: БХВ – Петербург, 2003. Шпак Ю. А., Delphi 7 на примерах,- СПб.: БХВ - Петербург , 2006 Юркин А. Г. Задачник по программированию, - СПб.: Питер, 2002 . www. Delphi-Forum.ru www.informatik.kz Заключение В электронном учебнике были рассмотрены одни из основных функций используемые в Delphi при работе с панелью Win32. Главной целью являлось знакомство с компонентами в комплексе. Это позволило показать легкость и доступность использования компонентов и дало возможность для дальнейшего, более глубокого изучения компонентов. Это, также ещё раз подтвердило, что Delphi является мощным и универсальным инструментом для разработки приложений, и удобной средой за счет большого и расширяемого набора компонент. Результат работы электронного учебника может говорить о простоте и удобности использования компонентов. В то же самое время, компоненты поддерживают работу протоколов и стандартов передачи данных на полнофункциональном уровне. Благодаря использованию технологий ООП (Объектно-Ориентированное Программирование) компоненты Win32 имеют простую иерархическую структуру и сходную между собой модель, благодаря которой, изучение компонентов делается ещё более простым. Не смотря на то, что проект является открытым (Open Source), это лишний раз доказывает, что можно и нужно использовать программы или библиотеки из таких проектов. Также можно убедиться, что действительно технологии передачи данных по сетям очень доступны и могут быть использованы на самом высоком уровне в собственных разработках. Приложение unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Label1: TLabel; Button1: TButton; Button2: TButton; Button3: TButton; Button4: TButton; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure Button3Click(Sender: TObject); procedure Button4Click(Sender: TObject); procedure FormCreate(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation uses Unit2, Unit3, Unit4; {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin Form2.Show; end; procedure TForm1.Button2Click(Sender: TObject); begin Form3.Show; end; procedure TForm1.Button3Click(Sender: TObject); begin Form4.Show; end; procedure TForm1.Button4Click(Sender: TObject); begin Close; end; procedure TForm1.FormCreate(Sender: TObject); begin end; end. unit Unit2; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm2 = class(TForm) Memo1: TMemo; Button1: TButton; procedure Button1Click(Sender: TObject); procedure FormCreate(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form2: TForm2; implementation {$R *.dfm} procedure TForm2.Button1Click(Sender: TObject); begin form2.Close; end; procedure TForm2.FormCreate(Sender: TObject); begin memo1.Lines.LoadFromFile('ob.txt.'); end; end. unit Unit3; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls, ExtCtrls, ToolWin, ImgList; type TForm3 = class(TForm) PageControl1: TPageControl; Button1: TButton; TabSheet1: TTabSheet; TabSheet2: TTabSheet; TabSheet3: TTabSheet; TabSheet4: TTabSheet; TabSheet5: TTabSheet; TabSheet6: TTabSheet; TabSheet7: TTabSheet; TabSheet8: TTabSheet; TabSheet9: TTabSheet; TabSheet10: TTabSheet; TabSheet11: TTabSheet; TabSheet12: TTabSheet; TabSheet13: TTabSheet; TabSheet14: TTabSheet; TabSheet15: TTabSheet; TabSheet16: TTabSheet; TabSheet17: TTabSheet; Label1: TLabel; Memo1: TMemo; Panel1: TPanel; Label2: TLabel; TabControl1: TTabControl; PageControl2: TPageControl; TabSheet20: TTabSheet; TabSheet21: TTabSheet; TabSheet22: TTabSheet; RichEdit1: TRichEdit; TrackBar1: TTrackBar; ProgressBar1: TProgressBar; UpDown1: TUpDown; HotKey1: THotKey; Animate1: TAnimate; DateTimePicker1: TDateTimePicker; ImageList1: TImageList; MonthCalendar1: TMonthCalendar; TreeView1: TTreeView; ListView1: TListView; HeaderControl1: THeaderControl; StatusBar1: TStatusBar; ToolBar1: TToolBar; CoolBar1: TCoolBar; Label3: TLabel; Edit1: TEdit; Button2: TButton; CheckBox1: TCheckBox; RadioButton1: TRadioButton; RadioButton2: TRadioButton; RadioButton3: TRadioButton; GroupBox1: TGroupBox; ComboBox1: TComboBox; Button3: TButton; Button4: TButton; Label4: TLabel; Label5: TLabel; Button5: TButton; Timer1: TTimer; Label6: TLabel; Button6: TButton; ComboBox2: TComboBox; Label7: TLabel; ToolButton1: TToolButton; ToolButton2: TToolButton; ToolButton3: TToolButton; ToolButton4: TToolButton; ToolButton5: TToolButton; ToolButton6: TToolButton; ToolButton7: TToolButton; ToolButton8: TToolButton; Button7: TButton; Edit2: TEdit; Label8: TLabel; procedure PageControl1Change(Sender: TObject); procedure TabControl1Change(Sender: TObject); procedure Button1Click(Sender: TObject); procedure TabSheet4Show(Sender: TObject); procedure TrackBar1Change(Sender: TObject); procedure Button5Click(Sender: TObject); procedure Timer1Timer(Sender: TObject); procedure UpDown1Changing(Sender: TObject; var AllowChange: Boolean); procedure Button6Click(Sender: TObject); procedure ComboBox2Change(Sender: TObject); procedure FormCreate(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form3: TForm3; implementation {$R *.dfm} procedure TForm3.PageControl1Change(Sender: TObject); var s: string; begin s := PageControl1.ActivePage.Caption+'.txt'; if FileExists(s) then Memo1.Lines.LoadFromFile(s) else Memo1.Text := 'Файл не найден'; Label8.Caption := PageControl1.ActivePage.Caption; Panel1.Parent := PageControl1.ActivePage; end; procedure TForm3.TabControl1Change(Sender: TObject); begin case TabControl1.TabIndex of 0: Label3.Caption := 'Текст вкладки 1'; 1: Label3.Caption := 'Текст вкладки 2'; 2: Label3.Caption := 'Текст вкладки 3'; 3: Label3.Caption := 'Текст вкладки 4'; end; end; procedure TForm3.Button1Click(Sender: TObject); begin Close; end; procedure TForm3.TabSheet4Show(Sender: TObject); begin RichEdit1.Lines.LoadFromFile('RichText.rtf'); end; procedure TForm3.TrackBar1Change(Sender: TObject); begin Label4.Caption := IntToStr(TrackBar1.Position); end; procedure TForm3.Button5Click(Sender: TObject); begin if Timer1.Enabled = true then exit; ProgressBar1.Position := 0; Timer1.Enabled := true; end; procedure TForm3.Timer1Timer(Sender: TObject); begin if ProgressBar1.Position = 100 then Timer1.Enabled := false; ProgressBar1.Position := ProgressBar1.Position + 2; Label5.Caption := IntToStr(ProgressBar1.Position) + '%'; end; procedure TForm3.UpDown1Changing(Sender: TObject; var AllowChange: Boolean); begin Label6.Caption := IntToStr(UpDown1.Position); end; procedure TForm3.Button6Click(Sender: TObject); begin Animate1.Active := not Animate1.Active; end; procedure TForm3.ComboBox2Change(Sender: TObject); begin case ComboBox2.ItemIndex of 0: ListView1.ViewStyle := vsIcon; 1: ListView1.ViewStyle := vsList; 2: ListView1.ViewStyle := vsReport; 3: ListView1.ViewStyle := vsSmallIcon; end; end; procedure TForm3.FormCreate(Sender: TObject); begin end; end. unit Unit4; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm4 = class(TForm) Memo1: TMemo; Button1: TButton; procedure FormCreate(Sender: TObject); procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form4: TForm4; implementation {$R *.dfm} procedure TForm4.FormCreate(Sender: TObject); begin memo1.Lines.LoadFromFile('задачи.txt'); end; procedure TForm4.Button1Click(Sender: TObject); begin form4.Close; end; end.
Популярное: ©2015-2024 megaobuchalka.ru Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав. (169)
|
Почему 1285321 студент выбрали МегаОбучалку... Система поиска информации Мобильная версия сайта Удобная навигация Нет шокирующей рекламы |