Силаенков А.Н. Лекции по технологии программирования

Подождите немного. Документ загружается.

var

b:integer;

code:integer;

begin

label4.Caption:='Ввод второго числа';

val(Edit1.Text,b,code);

end;

7.Создаем обработчик события при щелчке на кнопке OK

procedure TForm1.BitBtn1Click(Sender: TObject);

var

a,b,c:integer;

code:integer;

begin

c:=a+b;

Label3.Caption:=IntToStr(c);

end;

8. Создаем обработчик события при щелчке на кнопке

Добавить

procedure TForm1.Button1Click(Sender: TObject);

begin

ListBox1.Items.Add(Label3.Caption);

end;

9. Создаем обработчик событий при щелчке на кнопке

Очистить

procedure TForm1.Button2Click(Sender: TObject);

begin

ListBox1.Clear;

end;

2.Компоненты панели Стандартная (Standart)

2.1.TButton

TButton позволяет выполнить какие-либо действия при нажатии кнопки

во время выполнения программыПоместив TButton на форму, по

двойному щелчку можно создать заготовку обработчика события нажатия

кнопки. Далее нужно заполнить заготовку кодом:

procedure TForm1.Button1Click(Sender: TObject);

begin

end;

2.2.TcheckBox (Флажок)

TcheckBox (Флажок) отображает строку текста с маленьким окошком

рядом. В окошке можно поставить отметку, которая означает, что что-то

выбрано. Например, если посмотреть окно диалога настроек компилятора

(пункт меню Сервис | Опции среды), то можно увидеть, что оно состоит

преимущественно из CheckBox’ов.

Назначение: данный компонент используется для фиксации одного из

двух возможных состояний («установлен» или «сброшен»).

Создание

Разместить компонент Флажок на форме

1. Создать подпись к элементу в свойстве Caption.

Рис.19. Подпись к компоненту Флажок

2. Расположение подписи определяется свойством Alignment: значение

taRightJustify означает расположение надписи справа ;

значение taLeftJustify – слева.

Главное свойство флажка называется Checked.

Оно доступно для изменения и на этапе проектирования, и на этапе работы

программы. Это свойство принимает значение True, если значок установлен,

и False, если он сброшен.

3. Некоторые флажки могут находиться в « частично приглушенном»

состоянии, когда признак установки отображается приглушенным цветом.

Дополнительное состояние сообщает пользователю о неполном соответствии

указанному статусу.

4. Если для свойства AllowGrayed задано значение true, то флажок при

последовательных щелчках последовательно принимает состояния

«сброшен», “установлен частично” ,” установлен”. Определить текущее

состояние или задать новое значение можно, проверив или изменив свойство

State.

Значение Состояние флажка

cbUncheced сброшен

CbGrayed установлен частично

CbCheced установлен

Использование

Пример . Рассмотрим пример, когда при изменении

состояния флажка его текущее состояние выводится в

надпись Label1. Для этого разместим на форме

соответствующий компонент, установим значение свойства

AllowGrayed true , сформируем обработчик события OnClick и

запишем оператор выбора текущего состояния флажка.

procedure TForm1.CheckBox1Click(Sender: TObject);

begin

case CheckBox1.State of

cbUnchecked:label5.Caption:='Выключено';

cbGrayed:label5.Caption:='Затемнено';

cbChecked:label5.Caption:='Включено';

end;

2.3.TRadioButton

TRadioButton позволяет выбрать только одну опцию из нескольких.

Назначение: для выбора одного значения из ряда возможных.

Создание

Для создания группы переключателей на форме необходимо

расположить несколько компонентов TradioButton. Название переключателя

задается в свойстве Caption.

Расположение надписи определяется свойством Alignment: значение

taRightJustify означает расположение надписи справа , а значение taLeftJustify

– слева. Cвойство Checked – состояние объекта (true – если переключатель

включен).

Рис.20. Компонент TradioButton

Использование

1. На форме нужно разместить несколько

переключателей.

Рис.21. Размещение на форме нескольких переключателей

2. После компиляции программы будет всегда выделен только один.

3. Во время проектирования один из переключателей желательно

включить , а все остальные оставить выключенными.

4. Если требуется отслеживать состояние переключателей динамически,

то нужно создать обработчик событий OnClick для каждого из них. О

новом статусе переключателя можно сообщать, например, с помощью

надписи Label.

procedure TForm1.RadioButton2Click(Sender: TObject);

Название изменено в свойстве Caption

begin

If RadioButton2.Checked Then Label7.Caption:='Включен второй';

end;

procedure TForm1.RadioButton1Click(Sender: TObject);

begin

If RadioButton1.Checked Then Label7.Caption:='Включен первый';

end;

TradioGroup

Назначение

Если в программе необходимо использовать несколько групп

переключателей, то нужно выделить для каждой группы переключателей

выделить панель, а затем использовать компоненты TradioGroup.

Создание

1. Разместить на форме компоненты TradioGroup.

Рис. Компонент TradioGroup

2. В свойстве Items ввести названия

переключателей, например,

Рис.22 Редактор строк для задания названия переключателей

3. Щелкнуть на кнопке OK. Внешний вид группы переключателей

Рис.23. Внешний вид группы

переключателей



Свойство Caption определяет

заголовок группы;

 Свойство Columns задает число

столбцов, образованных переключателями (первоначально 1);

 Свойство ItemIndex (исходное значение 1) содержит номер выделенного

преключателя. Если значение ItemIndex равно –1, то нет выделенного

переключателя.

 Динамически реагировать на выбор нового переключателя в группе можно

с помощью обработчика события OnClick

procedure TForm1.RadioGroup1Click(Sender: TObject);

begin

if RadioGroup1.ItemIndex>-1 then / /Проверка условия на выделение

выключателя

Label9.Caption:='Выбран '+ RadioGroup1.Items[RadioGroup1.ItemIndex]

end;

Рис.24. Фрагмент формы с использованием переключателей

Лекция №7. Программирование ветвлений и циклов

Структура условного оператора передачи управления:

IF <условие> THEN <Оператор1> ELSE <оператор 2>

Если ТО ИНАЧЕ,

где <условие> - это произвольное выражении логического типа, которое

может принимать два значения: истина (TRUE) и ложь (FALSE);

Оператор – любой оператор объектно- ориентированного Pascal.

Сокращенная форма условного оператора

IF <условие> THEN <оператор>.

Оператор выбора CASE позволяет в зависимости от значения какой-

либо переменной или выражения (ключа выбора) выполнить те или иные

операторы, отмеченные соответствующими константами. Структура

оператора:

CASE <ключ выбора> OF

<конст. выбора 1>: <оператор1>

<конст. выбора 2>: <оператор2>

……………………………………

<конст. выбора N>: <операторN>

ELSE <оператор>

end;

Пример 1. Разработать приложение для начисления зарплаты согласно

следующему правилу: если стаж работника менее пяти лет, то зарплата 100 $,

при стаже от пяти до пятнадцати лет - 200$, свыше 15 лет зарплата

повышается с каждым годом на 30$, при стаже превышающем 30 лет она

составляет 1000$ .

Математическая формулировка задачи.

200, если ST < 5;

400, если 5<=ST<=15 ;

ZP 400+ (ST-15)*20, если 15<ST<=30 ;

1000, если ST>30 ;

Рис. 25. Внешний вид формы

Использованы компоненты: Label,Edit,Button, BitBtn,ListBox.

1.Обработчик события Расчет зарплаты:

procedure TForm1.Button1Click(Sender: TObject);

var

st,code:integer;

zp:real;

s:string[40];

begin

val(edit2.Text,st,code);{Ввод стажа}

case st of {Расчет зарплаты в зависимости от стажа}

1..4:zp:=200;

5..15: zp:=400;

16..29:zp:=400+(st-15)*20;

else zp:=1000

end;

str(zp:5:1,s);

listbox1.Items.Add(edit1.text);{Вывод Ф.И.О работника}

listbox1.Items.Add('Зарплата составляет'+s+'$');

end;

Обработчик Очистить

procedure TForm1.Button2Click(Sender: TObject);

begin

edit1.Text:='';

edit2.Text:='';

Listbox1.Clear;

end;

Структура оператора FOR

FOR <пар_цик>:=<нач_знач> TO <кон_знач> DO <оператор>.

Здесь FOR,TO,DO - зарезервированные слова (для, до, выполнить)

9<пар_цик>-параметр цикла

9<нач_знач>-начальное значение

<кон_знач>-конечное значение

9 <оператор>-произвольный оператор.

При выполнении оператора FOR вначале вычисляется выражение

<нач_знач> и осуществляется присваивание <пар_цик>:=<нач_знач>. После

этого циклически повторяется:

 проверка условия <пар_цик><=<кон_знач>;если условие не

выполнено, оператор FOR завершает свою работу;

 выполнение оператора <оператор>;

 наращивание переменной <пар_цик> на единицу.

Другая форма оператора FOR

FOR <пар_цик>:=<нач_знач> DOWNTO <кон_знач> DO <оператор>

Замена зарезервированного слова ТО на DOWNTO, означает, что шаг

наращивания параметра цикла равен (-1).

При использовании оператора FOR необходим ввод чисел в диалоге.

Для этого можно использовать встроенное диалоговое окно

InputBox().синтаксис диалогового окна имеет вид:

Строковая переменная:=InputBox(Заголовок окнабзаголовок строки,строка по

умолчанию);

Пример 2. Разработать приложение для вычисления суммы и произведения

N-чисел.

Рис. 26. Внешний вид формы

1. Обработчик события Сумма

procedure TForm1.Button1Click(Sender: TObject);

var

a: array[1..100]of integer;

i,n,code,s:integer;

number,s1:string;

begin

s:=0; {Начальное значение суммы}

val(edit1.Text,n,code);

for i:=1 to n do

begin

number:=inputbox('Ввод числа','Введите число','0');

val(number,a[i],code);{Ввод очередного числа}

s:=s+a[i];