Висновок
Даний програмний продукт був розроблений в середовищі програмування Borland Delphi 7 Enterprise, так як це система найбільш підходить для розробки цього додатка.
Програма призначена для графічного відображення графіків функцій.
Розробка даного програмного продукту завершена, але ця програма може бути змінена і доповнена за бажанням користувачів.
Поставлені цілі і завдання навчання користувача і тестування його знань були максимально виконані.
Список використаних джерел
1) Фленов, М.Є. Біблія Delphi. М.Є. Фленов, - СПб.: 2004.- 884 с.
) Фаронов, В.В. Програмування баз даних в Delphi 7. Навчальний курс. В.В. Фаронов, - СПб .: Питер, 2006-261 с.
) Глушаков, С.В. Програмування в середовищі Delphi 7.0-2-е видання, доповнене і перероблене/С.В. Глушаков, А.Л. Клевцов.- Харків: Вид-во «Фоліо», 2003. - 528с
Додаток
Лістинг програми
Form1
unit Unit1;
interface
, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms ,, StdCtrls, Buttons, ExtCtrls, Menus, XPMan, shellapi;
=class (TForm): TMainMenu ;: TMenuItem ;: TMenuItem ;: TMenuItem ;: TMenuItem ;: TMenuItem ;: TLabel ;: TXPManifest ;: TLabel ;: TRadioGroup ;: TBitBtn ;: TMenuItem ;: TMenuItem ;: TLabel; N4Click (Sender: TObject); FormClose (Sender: TObject; var Action: TCloseAction); N5Click (Sender: TObject); FormActivate (Sender: TObject); BitBtn1Click (Sender: TObject); RadioGroup1Click (Sender: TObject ); N7Click (Sender: TObject); FormKeyUp (Sender: TObject; var Key: Word ;: TShiftState); N6Click (Sender: TObject);
{Private declarations}
{Public declarations} ;: TForm1 ;, help2: string; Unit2, Unit3, Unit4, Unit5;
{$ R * .dfm} TForm1. BitBtn1Click (Sender: TObject);// Вибір функціі.mediaplayer1. FileName:=ExtractFilePath (ParamStr (0)) + base/click.wav raquo ;;. Mediaplayer1. Open; .mediaplayer1.play ;. Show ;. Hide ;; TForm1. RadioGroup1Click (Sender: TObject);// Блокування далі непотрібних переходовRadioGroup1. ItemIndex of
: begin N4. Enabled:=true ;. LabeledEdit1. EditLabel. Caption:= Мінлива k raquo ;;. LabeledEdit2. EditLabel. Caption:= Мінлива b raquo ;;. LabeledEdit1. Show ;. LabeledEdit2. Show ;. LabeledEdit3.hide ;. LabeledEdit1. Clear ;. LabeledEdit2. Clear ;. UpDown1. Show ;. UpDown2. Show ;. UpDown3.hide; end;
: begin N4. Enabled:=true ;. LabeledEdit1.hide ;. LabeledEdit2. Hide ;. LabeledEdit3.hide ;. UpDown1.hide ;. UpDown2.hide ;. UpDown3.hide; end;
: begin N4. Enabled:=true ;. LabeledEdit1. EditLabel. Caption:= Мінлива a raquo ;;. LabeledEdit2. EditLabel. Caption:= Мінлива b raquo ;;. LabeledEdit3. EditLabel. Caption:= Мінлива c raquo ;;. LabeledEdit1. Show ;. LabeledEdit2.show ;. LabeledEdit3.show ;. LabeledEdit1. Clear ;. LabeledEdit2. Clear ;. LabeledEdit3. Clear ;. UpDown1. Show ;. UpDown2.show ;. UpDown3.show; end;
: begin N4. Enabled:=true ;. LabeledEdit1. EditLabel. Caption:= Мінлива a raquo ;;. LabeledEdit1. Show;// Провал. LabeledEdit2. Hide ;. LabeledEdit3. Hide ;. LabeledEdit1. Clear ;. UpDown1. Show ;. UpDown2.hide ;. UpDown3.hide; end;
: begin N4. Enabled:=true ;. LabeledEdit1. EditLabel. Caption:= Мінлива a raquo ;;. LabeledEdit1. Show ;. LabeledEdit2.hide ;. LabeledEdit3.hide ;. LabeledEdit2. Clear ;. UpDown1.show ;. UpDown2.hide ;. UpDown3.hide; end;
: begin N4. Enabled:=true ;. LabeledEdit1. Hide ;. LabeledEdit2. Hide ;. LabeledEdit3. Hide ;. UpDown1.hide ;. UpDown2.hide ;. UpDown3.hide; end;
: begin N4. Enabled:=true ;. LabeledEdit1. Hide ;. LabeledEdit2.hide ;. LabeledEdit3.hide ;. UpDown1.hide ;. UpDown2.hide ;. UpDown3.hide; end;
: begin N4. Enabled:=true ;. LabeledEdit1. Hide ;. LabeledEdit2.hide ;. LabeledEdit3.hide ;. UpDown1.hide ;. UpDown2.hide ;. UpDown3.hide; end;
: begin N4. Enabled:=true ;. LabeledEdit1. Hide ;. LabeledEdit2.hide ;. LabeledEdit3.hide ;. UpDown1.hide ;. UpDown2.hide ;. UpDown3.hide; end;
: begin N4. Enabled:=true ;. LabeledEdit1. Show ;. LabeledEdit2. Hide ;. LabeledEdit1. Clear ;. UpDown1.show ;. UpDown2.hide; end ;;;
TForm1.N4Click (Sender: TObject);// Перехід до побудови графіка (в меню). Show ;. Hide ;;
...
