Графика (програмирорвания)

11

Text1.Text = 30, Text2.Text = 150, Text3.Text = 165, Text4.Text = 80, Text5.Text = 40.

11. Осталось добавить код вычисления веса детали. Для этого нужно вычислить ее объем и умножить его на удельный вес материала детали. Соответствующий код подпрограммы Button1_Click приведен в листинге 6. Эта подпрограмма при щелчке на кнопке Button1 вычисляет вес детали по удельному весу материала, выраженному в граммах на кубический сантиметр, и по геометрическим размерам детали, выраженным в миллиметрах.

Листинг 6. Код подпрограммы Button1_Click вычисления веса детали

Private Sub Button1_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button1.Click

Const pi As Single = 3.14159 Dim УдельныйВес As Single

УдельныйВес = InputBox _

("Введите удельный вес материала" & _ "в граммах на кубический сантиметр")

Label4.Text = Format((TextBox1.Text _

*pi * TextBox5.Text ^ 2 / 4 + (TextBox2.Text _

-TextBox1.Text) * pi * TextBox4.Text ^ 2 / 4 + _ (TextBox3.Text - TextBox2.Text) * pi * _ TextBox5.Text ^ 2 / 4) / 1000 * УдельныйВес, _ "###0.0 г")

End Sub

Рис. 11. Результат работы проекта

12. Сохраните проект и запустите его. Щелкните на кнопке Button1, введите в

поле функции InputBox значение удельного веса стали (7,8 г/см3) и щелкните на кнопке ОК. Результат работы Вашего приложения должен соответствовать рис. 11. Обратите внимание, в режиме выполнения приложения можно изменять размеры детали, изменяя содержание соответствующих текстовых полей, и пересчитывать вес детали после нового щелчка на кнопке Button1.

12

13.Внесите в проект необходимые изменения, связанные с необходимостью иметь

вдетали отверстие для шпонки диаметра 4 мм (см. рис. 12).

Рис. 12. Результат работы проекта после доработки

14.Остановите приложение и попробуйте ответить на вопросы для контроля.

15.Покажите работу Вашего приложения преподавателю.

16.Удалите свою рабочую папку на диске d.

8. Вопросы для контроля

1.В чем состоит различие между растровыми и векторными изображениями?

2.Как изменяется размер растрового изображения при увеличении разрешения

экрана?

3.Какая точка формы является началом ее системы координат?

4.Для чего предназначена и где размещается инструкция:

Imports System.Drawing, System.Drawing.Drawing2D, _

System.Drawing.Imaging, System.Drawing.Text?

5.Для чего предназначены объекты Pen и Brush?

6.Каково действие инструкций:

Dim G As Graphics

G = Me.CreateGraphics? 7. Каково действие инструкции:

Dim P As Pen = New Pen(Color.Blue, 2)? 8. Каково действие инструкции:

Dim B As New SolidBrush(Color.Red)?

9.Поясните работу подпрограммы Form1_Paint.

10.Поясните работу подпрограммы Button1_Click.

11.Каково действие инструкции:

G.DrawLine(Pens.Black, 310, 170, 310, 115)?

12.Каково действие инструкций:

13

Dim P1 As Pen = New Pen(Color.Blue, 2)?

G.DrawRectangle(P1, 50, 130, 120, 80)?

13. Каково действие инструкций:

Dim P1 As Pen = New Pen(Color.Blue, 2)? G.DrawEllipse(P1, 310, 150, 40, 40)?

14. Каково действие инструкций:

Dim B As New SolidBrush(Color.Red)? G.FillEllipse(B, 10, 40, 100, 50)?