 |
Главная Случайная страница Контакты | Мы поможем в написании вашей работы! | |
End Sub. 6. Запустить проект. Выбрать цвет из списка «Кон станты» двойным щелчком
|
|
|
6. Запустить проект.
Выбрать цвет из списка «Кон
станты» двойным щелчком.
Выбрать цвет путем ввода чис
лового кода в поле «Функция
QBColor».
Выбрать цвет путем ввода числовых кодов в поле «Функция RGB».
4.24. Проект «Графики функций» хранится в папке prjZ4-24.
Ответы и указания к решению
|
| 1. В проекте «Построение графика функции» в цикл построения графика ввести код: picGraph.PSet (sngX, sngX + 2), vbGreen picGraph.PSet (sngX, sngX Л 2), vbRed picGraph.PSet (sngX, sngX Л 3), vbMagenta 4.25. Проект «Треугольники» хранится в папке prjZ4-25. 1. В проекте «Рисование домика» заменить общую процедуруДомик на общую процедуруТреугольник: Public SubТреугольник (XI, Х2, ХЗ, Yl, Y2, Y3 As Single) Y1)-(X2, Y1)-(X3, Y2)-(ХЗ, |
| Y2) Y3) Y3) |
| (XI, (XI, (X2, |
f rml .Line f rml .Line f rml .Line End Sub
| ^РШШ: -Inlxl | |
| l | - 15 58 39 |
| -15 58 40 | |
| -15 5841 | |
| -15 58 42 | |
| -15 58 43 |
4.27. Проект «Массив» хранится в папке prjZ4-27
1. В проекте «Секундомер» в событий
ную процедуру ввести запись теку
щего времени в строковый массив и
его распечатку на форме:
Dim strTime(l To 100) As
String, bytl As Byte
Sub tmrl_Timer()
bytl = bytl + 1
strTime(bytl) = Time$
Print bytl; " - "; strTime (bytl)
Дата публикования: 2014-10-30; Прочитано: 275 | Нарушение авторского права страницы | Мы поможем в написании вашей работы!
