Практические занятие Использование в форме флажков

Практические занятие
Использование в форме флажков
Для размещения в форме полей, которые могут иметь только одно из двух допустимых значений, используются объекты типа checkbox (Флажок), называемые флажками. Объекты данного типа могут использоваться в форме по одному или группами.
Рассмотрим следующий пример. Таблица со списком сотрудников может содержать поле, указывающее, является ли данный сотрудник имеет семья. При установке флажка значение в поле будет соответствовать 1, а при сбросе флажка — 0.
Рассмотрим подробно процедуру создания флажка для редактирования поля, указывающего, является ли сотрудник имеет семья. Это поле имеет тип Logical (Логический) и может принимать значения 0 или 1.

1. 
   Откройте в окне конструктора проекта форму, позволяющую просматривать список сотрудников
   
2. 
   Нажмите кнопку Check Box (Флажок) 0?J на панели инструментов FormControls (Элементы управления формы).
   
3. 
   Щелкните в месте предполагаемого размещения флажка. Объект разместится в форме.
   
4. 
   Откройте окно Properties (Свойства) для объекта типа checkBox(Флажок).
   
5. 
   Для связывания флажка с полем таблицы скорректируйте свойство controlsource (Источник данных), задав в качестве источника данных поле типа Logical (Логический) таблицы ходим.
   
6. 
   Введите в поле свойства caption (Надпись) текст Постоянный покупатель. Данный текст будет размещен справа от флажка в окне конструктора форм, а также в форме.
   
7. 
   Флажок создан. Запустите форму на выполнение. Для установки признака постоянного покупателя установите флажок.
   

Задание

1. 
   При программировании вы можете определить свойство объекта, указав имя объекта и имя свойства, которые разделяются точками. Например
   

frmNew=CREATEOBJECT("FORM")
frmNew. Caption="Заголовок формы"
frmNew.Show()
WITH frmNew
.ForeColor=RGB(0,0,0)
.BackColor=RGB(25,255,0)
ENDWITH
Дополним эти команды командами размещения в форме кнопки, являющейся по отношению к ней вложенным объектом:
frmNew.AddObject("Button", "CommandButton")
cmdButton=frmNew.Button
cmdButton.Visible=1
cmdButton.Top=190
cmdButton.Left=120
cmdButton.Width=70
cmdButton.Height=30
cmdButton.Caption="Выход"
frmNew.AddObject("Button1", "CommandButton")
cmdButton1=frmNew.Button1
cmdButton1.Visible=1
cmdButton1.Top=190
cmdButton1.Left=20
cmdButton1.Width=70
cmdButton1.Height=30
cmdButton1.Caption="PUSK"
на основе этого примера добавьте checkbox1, checkbox2, checkbox3, checkbox4 объект в форму.

2. 
   Создайте проект и программу , который позволяет вычислить количество сотрудников имеющие семья oila=.t.
   
3. 
   Даны три действительных числа:
   

Возвести в квадрат, значение которых отрицательны
Извлечь из корень квадрата , значение которых неотрицательны
Вычислить сумму чисел те из них , значение которых равны 0
Замените абсольютного значения этих чисел