Проект «Рисование домика»

Проект «Рисование домика» 1. разместить на форме frm1 две командные кнопки cmdСтена и cmdКрыша и создат дляних событийные процедуры  рисования стены и крыши: Private Sub cmdСтена_Click() Scale (0,170) – (350,0) Frm1.Line (20,100) – (220,20),,B End Sub Private Sub cmdКрыша_Click() Scale (0,170)­(350,0) Frm1.Line (20,100)­(220,100) Frm1.Line (20,100)­(120,150) Frm1.Line (120,150)­(220,100) End Sub 2. Ввести код глобальной общей процедуры Домик2 в программный код первой формы frm1: Public Sub Домик2 (X1,X2,Y1,Y2 As Single) Frm2.Line (X1,Y1)­(X2,Y2),,B Frm2.Line (X1,Y1) – (X2,Y1) Frm2.Line (X1,Y1)­((X1+X2)/2 , Y1+Y2/2) Frm2.Line ((X1+X2)/2,Y1+Y2/2)­(X2,Y1) End Sub 3. Добавим в проект стандартный программный модуль командой [Project­Add Form]. Поместить на форму frm2  кнопку cmdДомики2. 4. Ввести код событийной процедуры cmdДомики1 в программный код второй формы: Private Sub cmdДомики2_Click() Frm2.Scale (0,170)­(350,0) Call frm1.Домик2(10,50,50,10) Call frm1.Домик2(60,150,100,40) Call frm1.Домик2(160,320,110,50) End Sub 5. Добавить в проект стандартный программный модуль командой [Project­Add Module]. В окне Программный код  определить переменные и ввести процедуру: Global X1, X2 , Y1, Y2 As Single Public Sub Домик2(X1, X2, Y1, Y2 As Single) Frm3.Line (x1,y1)­(x2,y2),,B Frm3.Line(X1,Y1) – (X2,Y1) Frm3.Line (X1,Y1)­((X1+X2)/2,Y1+Y2/2) Frm3.Line ((X1+X2)/2,Y1+Y2/2)­(X2,Y1) End Sub 6. Сохранить программный модуль в папке проекта командой [File­Save Module.bas As…] 7. Добавить в проект форму командой [Project­Add Form]. Поместить на форму frm3 кнопку Домики3. 8. Ввести код событийной процедуры cmdДомики3_Click() в программный код третьей формы frm3: Private Sub cmdДомики3_Click() Frm3.Scale (0,170)­(350,0) Module1. Домик 10 , 50, 50, 10 Module1. Домик 60 , 150, 100, 40 Module1. Домик 160 , 320, 110, 50 End Sub 9. Для показа второй и третьей формы используем метод Show. Поместить на frm1 кнопки cmd2 и cmd3. Создать для них событийные процедуры. Реализующие показ второй и  третьей форм: Private Sub cmd2_Click() Frm2.Show End Sub Private Sub cmd3_Click() Frm3.Show End Sub 10. Запустить проект. Последовательно щёлкнуть по кнопкам событийных процедур. На первой форме будет  нарисован один домик, а на второй и третьей формах по три домика.