Крипто-форум crprogram.16mb.com

Програмування, Delphi, криптографія, криптоаналіз, шифри, вихідні коди, вирішення задач, приклади програм

Часовий пояс: UTC десь + 2 години




Розпочати нову тему Відповісти  [ 9 повідомлень ] 
Автор Повідомлення
 Заголовок повідомлення: Приклад простої програми
СообщениеДодано: 09 гру 2014, 20:48 
Не в мережі

Повідомлень: 502
І так напишемо приклад простої програми.

Коли ви хочете перейти з програмування в середовищі turbo pascal до програмування у середовищі Delphi,
найбільша проблема виникає з розумінням куди саме писати код.

Якщо раніше була послідовна програма, то у Делфі, говорячи простими словами, ви будете мати справу з декількома підпрограмами.
Також дещо ускладнюється введення/виведення інформації.


Повернутися наверх
  
 
 Заголовок повідомлення: Re: Приклад простої програми
СообщениеДодано: 09 гру 2014, 20:48 
Не в мережі

Повідомлень: 502
Приклад,

напишемо програму яка буде обчислювати суму 2-х чисел a,b і запише результат в c
Код:
c=a+b


на pascal-і вона матиме вигляд:
Код:
program Pro1;
var
  a,b,c:integer;
begin
  writeln('a=');
  readln(a);
  writeln('b=');
  readln(b);
  c:=a+b;
  writeln('c=');
  writeln(c);
  readln;
end.


Повернутися наверх
  
 
 Заголовок повідомлення: Re: Приклад простої програми
СообщениеДодано: 09 гру 2014, 20:48 
Не в мережі

Повідомлень: 502
Напишемо це саме на делфі

1. Додамо форму.
2. На форму додаємо кнопку Button1 та три текстових поля Edit1, Edit2, Edit3.
Зображення
3. Клацаємо двічі лівою кнопкою на кнопці button1 відкривається редактор коду.
на місці коду:
Код:
procedure TForm1.Button1Click(Sender: TObject);
begin
end;

пишемо:
Код:
procedure TForm1.Button1Click(Sender: TObject);
var
a,b,c:integer;
begin
a:=strtoint(edit1.Text);
b:=strtoint(edit2.Text);
c:=a+b;
edit3.Text:=inttostr(c);
end;

4. Натискаємо на кнопку Run(F9)
5. Готово.


Повернутися наверх
  
 
 Заголовок повідомлення: Re: Приклад простої програми
СообщениеДодано: 09 гру 2014, 20:48 
Не в мережі

Повідомлень: 502
Після запуску програми у полях Edit 1 та 2 пишемо цілі числа і тиснемо на кнопку, у полі Edit3 буде результат додавання.

Зауваження:

У даному випадку ми використали властивість об"єкта Edit- .text,
тому довелось скористатись функціями:

Код:
strtoedit - перетворити рядок у ціле число.
inttostr - перетворити ціле число у текстовий рядок.


Саме ж додавання залишилось таким же:
Код:
c:=a+b;


Змінено тільки введення/виведення інформації.

Якщо на формі у вас більше однієї кнопки - окремий код можна писати для кожної з них.

Між var та begin описуэмо змінні які будуть дійсні тільки в межах однієї кнопки.
Код:
procedure TForm1.Button1Click(Sender: TObject);
var
a,b,c:integer;
begin


Наш код буде діяти тільки після того як станеться подія
Код:
Click

тобто клацання лівою кнопкою на кнопці.

Для різних об"єктів можуть бути різні події, також деяких об"єктів може бути декілька подій.
Наприклад для Edit
Код:
procedure TForm1.Edit1Change(Sender: TObject);

Код:
Change

- зміна тексту.


Повернутися наверх
  
 
 Заголовок повідомлення: Re: Приклад простої програми
СообщениеДодано: 09 гру 2014, 20:48 
Не в мережі

Повідомлень: 502
Якщо є питання - запитуйте.


Повернутися наверх
  
 
 Заголовок повідомлення: Re: Приклад простої програми
СообщениеДодано: 09 гру 2014, 20:48 
Не в мережі

Повідомлень: 6
Tariq писал(а):
Якщо є питання - запитуйте.

пасяб.
Про обработчики событий можно подробнее?


Повернутися наверх
  
 
 Заголовок повідомлення: Re: Приклад простої програми
СообщениеДодано: 09 гру 2014, 20:48 
Не в мережі

Повідомлень: 502
mobile писал(а):
Про обработчики событий можно подробнее?


Для об'єктів є певний набір подій, при настатнні яких, виконується код, написаний для них.

У вище показаному прикладі виконується код, записаний для події Click(клік) об'єкта Button1 (кнопка).

Події можуть бути різними - клік миші, рух миші, заповення даних, завантаження даних і т.д.

Для початкового навчання - достатньо вивчити OnClick.

Спробуйте повторити той код у себе і подивіться як воно працює наочно.

І як є питання - запитуйте.


Повернутися наверх
  
 
 Заголовок повідомлення: Re: Приклад простої програми
СообщениеДодано: 09 гру 2014, 20:48 
Не в мережі

Повідомлень: 22
Дуже наглядно і зрозуміло


Повернутися наверх
  
 
 Заголовок повідомлення: Re: Приклад простої програми
СообщениеДодано: 09 гру 2014, 20:48 
Не в мережі

Повідомлень: 3
Корисна тема. ;)


Повернутися наверх
  
 
Показати повідомлення за:  Сортувати по:  
Розпочати нову тему Відповісти  [ 9 повідомлень ] 

Часовий пояс: UTC десь + 2 години



cron
Роwеrеd bу рhрВB® аnd Hostinger web hosting