Створення програми розрахунку параметрів електричних машин за допомогою середовища Delphi (стр. 4 из 13)
AboutBox. Timer1Timer.
8. Тестування програми
Насамперед перевіряється чи відкривається і закривається програма. Перевіряється два способи закриття програми за допомогою пункту меню “Вихід”. Після кількох повторів не виявлено ніяких неполадок при проведені цих дій.
Далі вибираємо тип генератора чи двигуна, вибрали генератор постійного струму. Заповнюємо поля вводу початковими даними, програма не повинна пропускати введення символів чи від'ємних чисел.
Перевіряємо правильність роботи навігації з допомогою кнопок чи з допомогою головного меню.
Натискаємо Далі та переходимо до перевірки розрахованих параметрів. Підтверджуємо перегляд інформаційної панелі. Перевіряємо правильність розрахованих параметрів.
Натискаємо Далі та переходимо до вибору типу імпорту чи збереження, встановлюємо чергові прапорці та перевіряємо правильність імпорту чи збереження після натиснення клавіші Готово.
Переглядаємо результати імпорту в Word, а також результати в текстовому файлі.
Виконуємо перевірку форми Про програму, запускаємо з головного меню, переглядаємо інформацію та перевіряємо роботу кнопки повернення ОК та роботу функції показу часу.
Виконуємо ті самі дії для перевірки правильності роботи по розрахунку Асинхронного двигуна. Після кількох повторів не виявлено ніяких неполадок при проведені цих дій.
Перевіривши всі можливі дії було виявлено, що помилок в роботі програми немає.
Програма була протестована на різних моделях персональних комп’ютерів та з різними встановленими операційними системами, включаючи такі Windows 95/98/XP/Me/2000.
9. Інструкція з експлуатації програми
1. Завантажити програму запустивши E L E K T R A.exe;
2. Вибрати тип генератора чи двигуна, натиснувши на одній з кнопок чи вибрати пункт головного меню;
3. Ввести початкові данні для розрахунку, для зручного переходу по полям введення використовується клавіша Tab;
4. Натискаємо Далі та виконуємо перевірку розрахованих параметрів.
5. Виконавши перевірку натискаємо Далі та переходимо до вибору типу імпорту чи збереження.
6. Встановлюємо прапорці коли необхідних дій та натискаємо Готово;
7. Переглядаємо результати розрахунків в Word або в текстовому файлі;
8. В головному меню головної форми вибираємо пункт меню "вихід" та виходимо з програми;
9. Для даної програми рекомендовані такі системні вимоги:
Windows 95/98/XP/Me/2000; процесор з частотою 100 МГц; оперативна пам’ять 32 Мб; CD-ROM; клавіатура; миша; звукова карта.
10. Аналіз отриманих результатів
Рисунок 14 – Головна форма програми з вибором розрахунку генератора постійного струму кнопкою.
На Рисунку 14 показана головна форма програми, де вибираємо тип Генератор постійного струму кнопкою, або Рисунок 15, пунктом головного меню.
Рисунок 15 – Вибір генератора пунктом головного меню.
Рисунок 16 – Форма вводу початкових даних з введеними даними.
Рисунок 17 – Форма перевірки розрахованих параметрів з розрахованими параметрами
Рисунок 18 – Форма вибору типу імпорту чи збереження результатів розрахунку
Рисунок 19 – Імпортовані результати розрахунків в Word
Рисунок 20 – Збережені результати розрахунків в текстовому файлі.
Висновок
Під час виконання завдання курсової роботи, було розроблено програму, яка розраховує параметри магнітних ланцюгів генератора постійного струму та асинхронного двигуна, з можливістю імпорту результатів розрахунків в документ типу Word, а також передбачена можливість збереження результатів в текстовому файлі.
В процесі виконання завдання було виконано:
- Була створена аналітична модель програми, процес аналізу завдання розглядається в аналітичному розділі;
- Була побудована інформаційно-математична модель програми, де з точки зору математики було розроблено етапи роботи програми, і всі ці етапи розписані в інформаційно-математичній моделі;
- Був розроблений алгоритм програми, де описано в яких послідовностях повинні виконуватися частини програми, та з якими особливостями;
- Була визначена структура даних, з’ясовані ті змінні, які необхідні для виконання поставленої задачі;
- В процесі роботи був розроблений інтерфейс користувача, який дозволяє легко та без особливих зусиль користуватися програмою;
- Був складений код програми, відповідно до якого програма повинна виконувати всі поставлені перед нею завдання;
- Був проведений аналіз програми, з’ясовані основні події роботи програми та процедури які їх опрацьовують;
- Було проведено тестування програми на наявність помилок та недоліків роботи, при тестуванні помилок та недоліків не виявлено"
- Була складена інструкція до використання програми та встановленні системні вимоги до персонального комп’ютера.
1. Н. Культин. Самоучитель. Программирование в Turbo Pascal 7.0 и Delphi. – СПб.: БХВ-Петербург, 2002.
2. Глинський Я.М. Паскаль. Turbo Pascal&Delphi. – 3-є вид. – Львів: „Деол”, 2002.
3. Сердюченко В.Я. Розробка алгоритмів та програмування на мові Turbo Pascal. –Харків, 1995.
4. За редакцією О.І. Пушкаря. Інформатика. Комп‘ютерна техніка. Комп’ютерні технології. Київ. Видавничий центр „Академія”. 2003.
5. Фараонов В.В. Турбо Паскаль 7.0. Начальный курс. Учебное пособие. Издание 7-е, переработанное. – М.: „Нолидж”. 2000.
6. А.Б. Ставровский. Турбо Паскаль 7.0. Учебник. – К.: Издательская группа BHV, 2002.
Додаток А
Вихідний текст програми:
program Project1;
uses
Forms,
Unit1 in 'Unit1.pas' {Form1},
Unit2 in 'Unit2.pas' {Form2},
Unit3 in 'Unit3.pas' {Form3},
Unit4 in 'Unit4.pas' {AboutBox},
Unit5 in 'Unit5.pas' {Form5},
Unit6 in 'Unit6.pas' {Form6},
Unit7 in 'Unit7.pas' {Form7},
Unit9 in 'Unit9.pas' {Form9};
{$R *.res}
begin
Application.Initialize;
Application.Title := 'E L E K T R A - Генератори та Двигуни';
Application.CreateForm(TForm1, Form1);
Application.CreateForm(TForm2, Form2);
Application.CreateForm(TForm3, Form3);
Application.CreateForm(TAboutBox, AboutBox);
Application.CreateForm(TForm5, Form5);
Application.CreateForm(TForm6, Form6);
Application.CreateForm(TForm7, Form7);
Application.CreateForm(TForm9, Form9);
Application.Run;
end.
Текст модуля Unit1.pas
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, jpeg, ExtCtrls, Menus;
type
TForm1 = class(TForm)
Timer1: TTimer;
Image1: TImage;
Image2: TImage;
Button1: TButton;
Button2: TButton;
Timer2: TTimer;
MainMenu1: TMainMenu;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
Timer3: TTimer;
Label1: TLabel;
N5: TMenuItem;
N6: TMenuItem;
PopupMenu1: TPopupMenu;
N9: TMenuItem;
N10: TMenuItem;
N7: TMenuItem;
N8: TMenuItem;
N11: TMenuItem;
procedure Timer1Timer(Sender: TObject);
procedure Timer2Timer(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Timer3Timer(Sender: TObject);
procedure N5Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure N2Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure N3Click(Sender: TObject);
procedure N4Click(Sender: TObject);
procedure N6Click(Sender: TObject);
procedure N8Click(Sender: TObject);
procedure N11Click(Sender: TObject);
procedure N10Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
uses Unit2, Unit3, Unit4;
{$R *.dfm}
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if image1.Visible=true then image1.Visible:=false
else image1.Visible:=true;
end;
procedure TForm1.Timer2Timer(Sender: TObject);
begin
if image2.Visible=true then image2.Visible:=false
else image2.Visible:=true;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
image1.Visible:=false;
image2.Visible:=true;
end;
procedure TForm1.Timer3Timer(Sender: TObject);
begin
if label1.Visible=true then
label1.Visible:=false
else label1.Visible:=true;
end;
procedure TForm1.N5Click(Sender: TObject);
begin
close;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
form2.show;
form1.Visible:=false;
end;
procedure TForm1.N2Click(Sender: TObject);
begin
form2.Show;
form1.Visible:=false;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
form3.show;
form1.Visible:=false;
end;
procedure TForm1.N3Click(Sender: TObject);
begin
form3.Show;
end;
procedure TForm1.N4Click(Sender: TObject);
begin
aboutbox.show;
form1.Visible:=false;
end;
procedure TForm1.N6Click(Sender: TObject);
begin
form1.Close;
end;
procedure TForm1.N8Click(Sender: TObject);
begin
form2.show;
form1.Visible:=false;
end;
procedure TForm1.N11Click(Sender: TObject);
begin
form3.show;
form1.Visible:=false;
end;
procedure TForm1.N10Click(Sender: TObject);
begin
form1.Close;
end;
end.
Текст модуля Unit2.pas
unit Unit2;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Menus, StdCtrls, ExtCtrls, Buttons;
type
TForm2 = class(TForm)
MainMenu1: TMainMenu;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
N5: TMenuItem;
N6: TMenuItem;
Label1: TLabel;
Timer1: TTimer;
GroupBox1: TGroupBox;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
BitBtn3: TBitBtn;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
Edit5: TEdit;
Edit6: TEdit;
Edit7: TEdit;
Edit8: TEdit;
Edit9: TEdit;
Edit10: TEdit;
Edit11: TEdit;
Edit12: TEdit;
Edit13: TEdit;
Edit14: TEdit;
Edit15: TEdit;
Edit16: TEdit;
Edit17: TEdit;
Edit18: TEdit;
Edit19: TEdit;
Edit20: TEdit;
Edit21: TEdit;
Edit22: TEdit;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
Label9: TLabel;
Label10: TLabel;
Label11: TLabel;
Label12: TLabel;
Label13: TLabel;
Label14: TLabel;
Label15: TLabel;
Label16: TLabel;
Label17: TLabel;
Label18: TLabel;
Label19: TLabel;
Label20: TLabel;
Label21: TLabel;
Label22: TLabel;
Edit23: TEdit;
Label23: TLabel;
Label24: TLabel;
GroupBox2: TGroupBox;
Label30: TLabel;
Label31: TLabel;
Label32: TLabel;
Label33: TLabel;
Label34: TLabel;
Label35: TLabel;
Label36: TLabel;
Label37: TLabel;
Label38: TLabel;
Edit29: TEdit;
Edit30: TEdit;
Edit31: TEdit;
Edit32: TEdit;
Edit33: TEdit;
Edit34: TEdit;
Edit35: TEdit;
Edit36: TEdit;
Edit37: TEdit;
procedure N2Click(Sender: TObject);
procedure N6Click(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure BitBtn3Click(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure N3Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
procedure N4Click(Sender: TObject);
procedure Digitkey(Sender: TObject; var Key: Char);
private
{ Private declarations }