Pr11.

   Проект рисунок машины.

На форме  внизу кнопка управления со словом    рисунок.

Рисовать будем на форме.

 

Private sub button1_click()

Draw.begin (form1)

Draw.forecolor=0

Draw.fillcolor=0

Draw.fillstyle=1

Draw.ellipse(100,150,50,50)

Draw.ellipse(250,150,50,50)

Draw.fillcolor=255

Draw.rect(50,100,350,50)

Draw.rect(100,50,200,50)

Draw.line(100,50,200,50)

Draw.end

End

 

 

 

   Проект демонстрирует методы и свойства объекта рисунок.

Методы графики.