End If End Sub

4.20. В проекте «Дата» присвоить переменной dtmB дату рождения.

4.21. Проект «Время и дата» хранится в папке prjZ4-21

1. Поместить на форму два текстовых окна txtTime (для вы­вода текущего времени) и txtDate (для вывода текущей даты), две метки lblTime и lblDate и кнопку cmdTD.

2. Создать событийную процедуру вывода в текстовые поля текущих времени и даты:

Private Sub cmdTD_Click()

txtTime.Text = Time$

txtData.Text = Date
End Sub

Ответы я указания к решению

3. Запустить проект и щелкнуть по кнопке Сейчас и сегодня. В текстовых окнах появятся значе­ния времени и даты, которые уста­новлены на вашем компьютере.

4.22. Проект «Графический редактор» хранится в папке prjZ4-22.

1. Поместить на форму четыре текстовых поля для ввода ко­ординат: txtXl, txtYl, txtX2 и txtY2. Присвоить свой­ству Text значение 0.

2. Поместить на форму четыре текстовых поля для ввода чис­ловых кодов цвета: txtC, txtR, txtG и txtB. Присвоить свойству Text значение 0.

3. Поместить на форму четыре текстовых поля для ввода па­раметров рисования окружности: txtRad (радиус), txtAngl и txtAng2 (начальный и конечный углы дуги) и txtAsp (степень сжатия). Присвоить свойству Text поля txtAng2 значение 6,28, а поля txtAsp — значение 1.

4. Поместить на форму 12 меток для обозначения текстовых полей.

5. Создать событийные процедуры рисования графических примитивов так, чтобы параметры считывались из тексто­вых окон. Предусмотреть с помощью оператора условного перехода возможность задания цвета с использованием функции QBColor или функции RGB.

Например, событийная процедура рисования закрашенно­го прямоугольника запишется следующим образом:

Private Sub cmdL i ne В F_C L i с k()

bytXl = Val(txtXl)

bytYl = Val(txtYl)

bytX2 = Val(txtX2)

bytY2 = Val(txtY2)

If Val(txtC.Text) > 0

Then IngC = QBColor(Val(txtC))

Else bytR = Val (txtR): bytG = Val (txtG):

bytB = Val (txtB): IngC = RGB (bytR, bytG,

bytB)

picPaint.Line (bytXl, bytYl)-(bytX2, bytY2),

IngC, BF