Увага! Зв’язок існуватиме лише тоді, коли запущена програма сервер.
17.3.8 Змінюєте назву кнопки Button1 на „передати в Excel”.
17.3.9 Програмуєте процедуру TForm1.Button1Click для надсилання виміряних розмірів в Excel згідно з варіантом завдання. Процедура повинна після натискання кнопки передавати в Excel вміст поля Edit1 (відповідне значення діаметра) у призначене для нього місце листа Вашої книги, таким чином, щоб сформувати стовпчик даних. Паралельно з цим повинен заповнюватися сусідній стовпчик порядкових номерів досліду та змінюватися Label2 у вікні програми так, щоб користувач бачив порядковий номер досліду, значення з якого він вводить в даний момент. Разом із перенесенням даних в Excel записуйте їх у StringGrid.
Передача даних програмі серверу здійснюється за допомогою функції PokeData:
function PokeData(Item: String; Data: PChar): Boolean;
В даній функції перший параметр описує об’єкт сервера, котрий приймає інформацію. Для програми Excel можна вказати приймаючий елемент (номер комірки) конкретно в форматі RmCn, де m – номер рядка, а n – стовпчика починаючи з 1. Наприклад комірка С2 матиме позначення R2C3, а А10 – R10C1; другий параметр – рядок, який передається серверу.
Основна частина процедури для передачі даних повинна мати такий вигляд:
procedure TForm1.Button1Click(Sender: TObject);
var ToExcel: array[0..100] of char;
begin
StrPCopy(ToExcel, Text);
Form1.DDEClientConv1.PokeData(‘RmCn’, ToExcel);
end;
де Text - рядкова змінна; ‘RmCn’ – номер комірки.
Внаслідок передачі даних Ваша таблиця міститиме два стовпчики: „Номер досліду” та „Діаметр, мм”.
17.3.10 Перейшовши в Excel Вам потрібно на наступному листі даного документу запроектувати нову таблицю, котра міститиме три стовпчики:
Порядковий номер групи |
Емпіричне середнє значення діаметра в групі |
Емпіричне середньо-квадратичне відхилення |
В дану таблицю Ви повинні згрупувати виміряні величини згідно з варіантом завдання (за допомогою вбудованих функцій).
17.3.11
Знаходите величину середнього діаметра
групи за формулою
.
17.3.12
Обчислюєте величину середньоквадратичного
відхилення за формулою
.
17.3.13 Програмуєте кнопку Button2 на отримання даних від програми сервера. Після натискання кнопки програма повинна зчитувати дані з листа Вашої книги і записувати їх в StringGrid. Для прийняття даних від програми-сервера треба використати функцію RequestData, єдиний параметр якої – об’єкт сервера, що містить дані, які приймаються програмою клієнтом (у нашому випадку – це комірка таблиці). function RequestData(Const Item: String): PCar;
Основна частина процедури матиме вигляд:
procedure TForm1.Button2Click(Sender: TObject);
var FromExcel: PChar;
begin
FromExcel:= Form1.DDEClientConv1. RequestData (‘RmCn’);
Text =StrPas(FromExcel);
end;
17.3.14 Створюєте кнопку на закриття програми.
17.3.15 Оформлюєте вікно Вашої програми, надаючи йому естетично привабливого вигляду.