Picture1.Circle (1250, 1250), 100, vbBlack
'Добавить к светофору:
Picture1.DrawWidth = 5
Picture1.Circle (0, 1700), 150, vbRed, 1, 5
Picture1.Circle (0, 1450), 150, vbYellow, 1, 5
Picture1.Circle (0, 1200), 150, vbGreen, 1, 5
Picture1.DrawWidth = 1
Picture1.FillStyle = 1 'При тестировании установить заливку цветом =1
Picture1.Circle (-1200, -1200), 400, vbCyan, -0.00000000001, -0.4
Picture1.Circle (-1200, -1200), 400, vbCyan, -0.5, -0.9
Picture1.Circle (-1200, -1200), 400, vbCyan, -1, -1.4
Picture1.Circle (-1200, -1200), 400, vbCyan, -1.5, -1.9
Picture1.Circle (-1200, -1200), 400, vbCyan, -2, -2.4
Picture1.Circle (-1200, -1200), 400, vbCyan, -2.5, -2.9
Picture1.Circle (-1200, -1200), 400, vbCyan, -3, -3.4
Picture1.Circle (-1200, -1200), 400, vbCyan, -3.5, -3.9
Picture1.Circle (-1200, -1200), 400, vbCyan, -4, -4.4
Picture1.Circle (-1200, -1200), 400, vbCyan, -4.5, -4.9
Picture1.Circle (-1200, -1200), 400, vbCyan, -5, -5.4
Picture1.Circle (-1200, -1200), 400, vbCyan, -5.5, -5.9
Picture1.Circle (-1200, -1200), 400, vbCyan, -6, -6.283128
'разукасить цветок смешав цвета (ИДЗ)
Мигалка
'Picture1.DrawWidth = 50
'Picture1.FillStyle = 0
'Picture1.Circle (600, -600), 600, QBColor(Int(Rnd() * 15))
's = 0
'Do
'Picture1.FillStyle = 0
'Picture1.FillColor = QBColor(Int(Rnd() * 15))
'Picture1.Circle (600, -600), 300, QBColor(Int(Rnd() * 10 + 5)), s, s + 0.2
's = s + 1
'Loop While s < 7
Не знайшли потрібну інформацію? Скористайтесь пошуком google:
|
|