Option Explicit												'Явное объявление переменных

Caption = "Звездное небо 2"									'Заголовок формы

AddLabel "headline1", "Программа конструирования 'Звездное небо'", 150,50

NewLine
AddCanvas "cvaMain",22 , 640, 480							'Добавить граф. объект cvaMain

NewLine

BeginBlock													'______Начало первого блока из меток
	AddLabel "headline2", "НАРИСОВАТЬ:", 100,12				'Метка
	AddLabel "headline21", "Маленькую звезду", 100,12
	AddLabel "headline3", "Звездочку большую", 100,12
	AddLabel "headline4", "Звезду с лучиками", 100,12
	AddLabel "headline5", "Звезду с лучами", 100,12
EndBlock													'______Конец блока


BeginBlock													'______Начало первого блока из кнопок
	AddLabel "headline22", "", 12,12						'Пустая метка
	AddButton "cmdPaint1", "",12,12							'Добавить кнопку "Нарисовать"	
	AddButton "cmdPaint2", "",12,12								
	AddButton "cmdPaint3", "",12,12								
	AddButton "cmdPaint4", "",12,12								
EndBlock													'______Конец блока



BeginBlock													'______Начало третьего блока
	AddLabel "headline6", "", 100,12						'Пустая метка
EndBlock													'______Конец блока

BeginBlock													'______Начало четвертого блока из меток
	AddLabel "headline66", "", 100,12						'Пустая метка
	AddLabel "headline10", "Очистить", 100,12
	AddLabel "headline11", "Добавить фон", 100,12
	AddLabel "headline13", "Выход", 100,12
EndBlock													'______Конец блока

BeginBlock													'______Начало пятого блока из кнорок
	AddLabel "headline14", "", 12,12
	AddButton "cmdClear", "",12,12							
	AddButton "cmdBackground", "",12,12							
	AddButton "cmdExit", "",12,12								
EndBlock													'______Конец блока



Sub cmdClear_Click											'Процедура очистки cvaMain
	cvaMain.Clear
End Sub

Sub cmdBackground_Click										'Процедура отрисовки фона
	With cvaMain
		.SetColor RGB(0, 0, 0)
		.DrawRect 0, 0, 640, 480, True
	End With
End Sub

Sub cmdPaint1_Click											'Процедура отрисовки маленьких звезд
Dim i														'Объевление переменной i
Dim x
Dim y
	For i = 1 To 1000										'Начало цикла от 1 до 1000
		x= int(Rnd*640)										'x - присваиваим значение от 1 до 640 
		y= int(Rnd*640)
		cvaMain.moveto x+0,y+0								'Устанавливаем курсор в точку (x,y)
		cvaMain.SetColor rgb(rnd*256, rnd*256, rnd*256)		'Определяем цвет пиксела
		cvaMain.LineTo x+1,y+1								'Рисуем линию из одной точки
	Next													'Конец цикла
End Sub

Sub cmdPaint2_Click											'Процедура отрисовки звездочек
Dim i														'Объевление переменной i
Dim x
Dim y
	For i = 1 To 100										'Начало цикла от 1 до 1000
		x= int(Rnd*640)										'x - присваиваим значение от 1 до 640 
		y= int(Rnd*640)
		cvaMain.moveto x+0,y+0								'Устанавливаем курсор в точку (x,y)
		cvaMain.SetColor rgb(rnd*256, rnd*256, rnd*256)		'Определяем цвет пиксела
		cvaMain.LineTo x+0,y+0								'Рисуем линию из одной точки
		cvaMain.LineTo x+1,y+0
		cvaMain.LineTo x+1,y+1
		cvaMain.LineTo x+0,y+1
		cvaMain.LineTo x+0,y+0
	Next													'Конец цикла
End Sub

Sub cmdPaint3_Click											'Процедура отрисовки звезд с лучиками
Dim i
Dim j														'Объевление переменной i
Dim x
Dim y
	For i = 1 To 15											'Начало цикла от 1 до 1000
		x= int(Rnd*640)										'x - присваиваим значение от 1 до 640 
		y= int(Rnd*640)
		cvaMain.moveto x+0,y+0								'Устанавливаем курсор в точку (x,y)
		
		
		For j = 1 to 5
			cvaMain.SetColor rgb(rnd*256, rnd*256, rnd*256)		'Определяем цвет пиксела
			cvaMain.moveto x+0,y+0								'Устанавливаем курсор в точку (x,y)
			cvaMain.LineTo x+Rnd*8,y+rnd*8
			cvaMain.moveto x+0,y+0
			cvaMain.LineTo x+Rnd*8,y-rnd*8
			cvaMain.moveto x+0,y+0
			cvaMain.LineTo x-Rnd*8,y+rnd*8
			cvaMain.moveto x+0,y+0
			cvaMain.LineTo x-Rnd*8,y-rnd*8							
		Next
	
	Next													'Конец цикла
End Sub

Sub cmdPaint4_Click											'Процедура отрисовки звезд с лучами
Dim i
Dim j														'Объевление переменной i
Dim x
Dim y
	For i = 1 To 7											'Начало цикла от 1 до 1000
		x= int(Rnd*640)										'x - присваиваим значение от 1 до 640 
		y= int(Rnd*640)
		cvaMain.moveto x+0,y+0								'Устанавливаем курсор в точку (x,y)
		For j = 1 to 7
			cvaMain.SetColor rgb(rnd*256, rnd*256, rnd*256)		'Определяем цвет пиксела
			cvaMain.moveto x+0,y+0								'Устанавливаем курсор в точку (x,y)
			cvaMain.LineTo x+Rnd*15,y+rnd*15
			cvaMain.moveto x+0,y+0
			cvaMain.LineTo x+Rnd*15,y-rnd*15
			cvaMain.moveto x+0,y+0
			cvaMain.LineTo x-Rnd*15,y+rnd*15
			cvaMain.moveto x+0,y+0
			cvaMain.LineTo x-Rnd*15,y-rnd*15								
		Next
	Next													'Конец цикла
End Sub

Sub cmdExit_Click											'Процедура выхода из приложения
	Quit
End Sub