Практическая работа в Visual Basic

Автор публикации:

Дата публикации:

Краткое описание: ...


Практическая работа № 1

«Программирование в среде Visual Basic»

  1. Запустите редактор Visual Basic 6.

  2. Откройте (если нет) окно Проекта, окно Свойств, окно Программы (или Кода) и окно Отладки.

  3. Ознакомьтесь с командной строкой. Ознакомьтесь с панелью инструментов.

  4. Создайте проект для расчета арифметического выражения y = sinx2+cos2x для x=2 .

  5. В появившемся окне Формы добавьте элементы управления. С панели Элементов управления (если ее нет , то включите с помощью [pic] ) перетащите на форму следующие элементы: два элемента Надпись (Label), два элемента Поле (TextBox), два элемента Кнопка (CommandButton).

  6. Измените названия элементов. Окно Свойств Caption новое имя

    Элемент

    Свойство

    Значение

    Form1

    Caption

    Решение уравнения

    Label1

    Caption

    X

    Label2

    Caption

    Y

    Text1

    Text

    Пусто

    Text2

    Text

    Пусто

    Command1

    Caption

    Вычислить

    Command2

    Caption

    Выход

  7. Назначьте кнопкам процедуры-события. Кнопке Вычислить процедуру-событие запуска программы расчета, для этого дважды щелкнуть на элементе и ввести текст программы

Private Sub Command1_Click()

x% = Text1.Text

y! = Sin(x% ^ 2)+Cos(x%) ^ 2

Text2.Text = y! ' Можно и так Label1.Caption = y

End Sub


Кнопке Выход - Окончание работы с формой.

Private Sub Command2_Click()

End

End Sub

8. Запустите форму на выполнение. Запуск (Run)

9. Сохраните проект. Предварительно создайте папку с названием группы, в ней папку с вашей фамилией, а в ней файл с именем Lab1-1.

10. Измените код для кнопки Вычислить следующим образом:

Private Sub Command1_Click()

Dim x As Integer, y As Single :Rem Описание типов данных

x = Text1.Text

y = Sin(x ^ 2) + Cos(x) ^ 2

Text2.Text = y

Debug.Print y ' Вывод в окно Отладки

End Sub

11. Запустите на выполнение, дополнительно вывод результата появляется в окне Отладки.

12. Измените код для кнопки Вычислить следующим образом, чтобы данные вводились и выводились в диалоговых окнах:

Private Sub Command1_Click()

Dim x As Integer, y As Single

x=Val(InputBox("Введите значение x", "Окно ввода данных"))

x = Text1.Text

y = Sin(x ^ 2)+Cos(x) ^ 2

Text2.Text = y

Debug.Print y

MsgBox "Проверка", vbInformation, "Окно сообщения"

MsgBox "x=" & x & Chr(13) & "y=" & y, , "Окно вывода"

End Sub

13.Запустить на выполнение. 14. Сохраните проект. Завершите работу.