Ход работы

Next

End Sub

Next

Next

Next

'ординаты

Picture1.Line (0, -9)-(0, 9)

For i = -15 To 15

Picture1.PSet (0, i)

Picture1.Print i

'график по точкам

For x = -10 To 10 Step 0.005

y = 1 / x

DrawWidth = 7 'толщина линии графика

Picture1.PSet (x, y), QBColor(14)

6. Сохраните проект (выбрав File – Save frmГрафик2.frm и Save График2.vbp).

7. Проверьте работоспособность проекта, запустив его на выполнение.

8. Добавьте к коду программы (в конце, перед ключевыми словами End Sub) следующие строки и проанализируйте результат:

For x = -10 To 10 Step 0.005

y = 1 / (-x)

DrawWidth = 7

Picture1.PSet (x, y), QBColor(12)

9. Обработчики событий для кнопок «Очистить» и «Выйти» напишите самостоятельно.

10. Сохраните изменения в проекте.

11. Создайте exe-файл программы с помощью команды File → Make График2.exe.

12. Выйдите из среды Visual Basic, запустите на выполнение файл График2.exe и убедитесь, что проект работает автономно, как любые другие Windows-приложения.

Задание 5. Составить программу рисования гиперболоида

Постановка задачи.

Требуется составить программу, которая при щелчке на кнопку рисует в графическом окне гиперболоид. Исходные данные задаются пользователем. Примерный внешний вид формы представлен на Рис.11.5.

1. Создайте в папке Лабораторная_работа_№11 папку 11.5.

2. Расположите на форме 1 компонент PictureBox, 2 компонента CommandButton, 3 компонента Label, 3 компонента TextBox для ввода данных.

3. Свойству формы Name задайте значение frmГиперболоид, а свойству Caption – «Гиперболоид». Остальные свойства формы и остальных компонентов установите самостоятельно, по своему усмотрению, ориентируясь на внешний вид формы (Рис.11.5)

4. Объявите переменные в разделе глобальных объявлений:

Dim a As Single, b As Single, c As Single

Dim x As Single, y As Single

Dim i As Integer

5. Щелкнув мышью два раза на кнопке «Построить график», напишите обработчик события Click (необходимые комментарии приведены после знака апострофа):

Private Sub Command1_Click()

Picture1.Scale (-5, 8)-(5, -8)

'Считываем коэффициенты уравнения

a = Val(Text1.Text)

b = Val(Text2.Text)

c = Val(Text3.Text)

'Ось абсцисс

Picture1.Line (-5, 0)-(5, 0)

For i = -5 To 5

Picture1.PSet (i, 0)

Picture1.Print i

Дата добавления: 2014-12-23