Добавить материал и получить бесплатное свидетельство о публикации в СМИ
Эл. №ФС77-60625 от 20.01.2015
Инфоурок / Информатика / Другие методич. материалы / Практическая работа в Visual Basic
ВНИМАНИЮ ВСЕХ УЧИТЕЛЕЙ: согласно Федеральному закону № 313-ФЗ все педагоги должны пройти обучение навыкам оказания первой помощи.

Дистанционный курс "Оказание первой помощи детям и взрослым" от проекта "Инфоурок" даёт Вам возможность привести свои знания в соответствие с требованиями закона и получить удостоверение о повышении квалификации установленного образца (180 часов). Начало обучения новой группы: 26 апреля.

Подать заявку на курс
  • Информатика

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

библиотека
материалов

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

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

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

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

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

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

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

Автор
Дата добавления 02.04.2016
Раздел Информатика
Подраздел Другие методич. материалы
Просмотров89
Номер материала ДБ-002977
Получить свидетельство о публикации

"Инфоурок" приглашает всех педагогов и детей к участию в самой массовой интернет-олимпиаде «Весна 2017» с рекордно низкой оплатой за одного ученика - всего 45 рублей

В олимпиадах "Инфоурок" лучшие условия для учителей и учеников:

1. невероятно низкий размер орг.взноса — всего 58 рублей, из которых 13 рублей остаётся учителю на компенсацию расходов;
2. подходящие по сложности для большинства учеников задания;
3. призовой фонд 1.000.000 рублей для самых активных учителей;
4. официальные наградные документы для учителей бесплатно(от организатора - ООО "Инфоурок" - имеющего образовательную лицензию и свидетельство СМИ) - при участии от 10 учеников
5. бесплатный доступ ко всем видеоурокам проекта "Инфоурок";
6. легко подать заявку, не нужно отправлять ответы в бумажном виде;
7. родителям всех учеников - благодарственные письма от «Инфоурок».
и многое другое...

Подайте заявку сейчас - https://infourok.ru/konkurs


Выберите специальность, которую Вы хотите получить:

Обучение проходит дистанционно на сайте проекта "Инфоурок".
По итогам обучения слушателям выдаются печатные дипломы установленного образца.

ПЕРЕЙТИ В КАТАЛОГ КУРСОВ


Идёт приём заявок на международный конкурс по математике "Весенний марафон" для учеников 1-11 классов и дошкольников

Уникальность конкурса в преимуществах для учителей и учеников:

1. Задания подходят для учеников с любым уровнем знаний;
2. Бесплатные наградные документы для учителей;
3. Невероятно низкий орг.взнос - всего 38 рублей;
4. Публикация рейтинга классов по итогам конкурса;
и многое другое...

Подайте заявку сейчас - https://urokimatematiki.ru

Похожие материалы

Включите уведомления прямо сейчас и мы сразу сообщим Вам о важных новостях. Не волнуйтесь, мы будем отправлять только самое главное.
Специальное предложение
Вверх