Главная Случайная страница Контакты | Мы поможем в написании вашей работы! | ||
|
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
Дата публикования: 2014-10-30; Прочитано: 324 | Нарушение авторского права страницы | Мы поможем в написании вашей работы!