Программирование в среде VisualBasic (практическая работа)

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

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

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

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

5. В появившемся окне Формы добавьте элементы управления.

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

6. Измените названия элементов. Окно Свойствà Captionàновое имя.Назначьте кнопкам процедуры-события.

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

7. Private Sub Command1_Click()

x% = Text1.Text

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

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

EndSub

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

Private Sub Command2_Click()

End

EndSub

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

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

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

PrivateSubCommand1_Click()

DimxAsInteger, yAsSingle:Rem Описание типов данных

x = Text1.Text

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

Text2.Text = y

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

EndSub

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

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

PrivateSubCommand1_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, "Окно вывода"

EndSub

13. Запустить на выполнение.

14. Сохраните проект. Завершите работу.

Весь материал - в документе.

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

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

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

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

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

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

5. В появившемся окне Формы добавьте элементы управления. С панели Элементов управления (если ее нет , то включите с помощью ) перетащите на форму следующие элементы: два элемента Надпись (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. Сохраните проект. Завершите работу.