Практические задания

8. Создание кнопок.

Создайте кнопку «Выход» (из формы). Нажмите кнопку Command Button (Командная кнопка) на панели инструментов Form Controls (Элементы управления формы) и щелкните мышью в нужном месте формы.

Откройте окно Properties.

Для создания надписи на кнопке, используйте свойство Caption (Надпись). Введите «Выход» (без кавычек).

Определите реакцию кнопки на Click (Щелчок мышью). Для этого в окне Properties (Свойства) выберите вкладку Methods (Методы).

Установите курсор на метод Click (Нажатие) и щелкните мышью. На экране откроется окно процедур.

Создайте процедуру, используемую для выхода из формы.

* Запрос перед выходом из формы

IF MESSAGEBOX ("Выходить из формы?", 4+32+256, "Выход")=6

_screen.ActiveForm.Release()

ELSE

_screen.ActiveForm.Refresh()

ENDIF

Закройте окно процедур. Кнопка создана.

10. Решение квадратного уравнения ax² + bx + c = 0

Корни уравнения находят по формулам:

,

input 'Input A' to A

input 'Input B' to B

input 'Input C' to C

D1=-B + SQRT( B^2-4*A*C)

D2=-B - SQRT( B^2-4*A*C)

X1=D1/4

X2=D2/4

?’Корень Х1= ’, X1

? ’Корень Х2= ’, X2

12. Программа для вычисления

x=3

Y=(1.4*x^2+x)/sqrt(exp(x)-log(x))

?Y

13. Работа с функциями времени

1. выведите на экран сообщение вида: «Датой, отстоящей от сегодняшнего дня на 100 дней, будет ………….»

?’Датой будет ' , (DATE() +100)

? 'Днем недели будет '+CDOW(DATE() +100)

?’Месяцем будет’, cmonth(DATE()+100)

2. используя функции VFP, выведите на экран сообщение: «Сегодня исполнилось…. дней с момента моего рождения»

? "Сегодня исполнилось" + STR(DATE()-{^1987.11.20}) + "дней с момента моего рождения"

или просто:

? "Сегодня исполнилось", DATE()-{^1987.11.20}, ‘с моего рождения’

3. установите день недели для дня выпускного вечера.

? 'Выпускной вечер приходится на' + CDOW({^2007.06.28})

30