Задачи, решения и ответы

Задача №1

Создать приложение: «Способы ввода данных и использование их для решения задач».

Решение:

Эскиз экранной формы представлен на рис. 1.

1. Расставим имена объектов на эскизе экранной формы.

Рис. 1.

Строим с помощью инструментов Toolbox объекты на экранной форме Form1 в соответствии с эскизом проекта.

2. Разработка интерфейса:

Запуск Visual Basic 6 осуществляется, как правило, из главного меню путём щелчка на пункте Visual Вasic. Появится окно New Project, в нем указан тип программного проекта, объявленный по умолчанию (standard.exe). Затем щелкните на команде Open, после чего откроется новый проект в среде Visual Вasic вместе с некоторыми окнами и инструментами.

Инструменты служат для конструирования новых программ, а строка меню обеспечивает доступ к большинству программ, управляющих средой программирования. Если на Главной панели проекта нет (Окна экранной формы), откройте его. Сделать это можно, выбрав команду меню View.

Далее займёмся составлением интерфейса проекта, представленного на эскизе рис. 1. . Итак, перед нами экранная форма, при помощи окна инструментов Toolbox (рис 2.) помещаем необходимые объекты в форму. Если этого окна ещё нет на Главной панели, следует его открыть, например, выбрав команду меню View.

ВОкне инструментов найдём пиктограмму инструментаТехtВох, с помощью которого создадим Текстовые поля (текстовые окна). Для активации полос прокрутки в элементе TextBox нужно в настройках (в окне свойств) присвоить параметру ScrollBar значение 3-Both. И тогда при переполнении текстового окна полосы прокрутки будут активированы.

–пиктограмма инструмента ТехtВох.

Таким же способом поместим на экранную форму объекты «Командная кнопка». Используем для этого инструмент Command Button.

– пиктограмма инструмента Соттапd Button.

Таким же способом поместим на экранную форму объект «Горизонтальная полоса прокрутки». Используем для этого инструмент HscrollBar. Далее пишем программный код.

Рис.2. – пиктограмма инструмента HscrollBar.

3. Программный код

Dim A, B, C, Z As Single ‘ Описание типа переменных

Private Sub Form_Load() ‘ Загрузка формы

Form1.Show ‘ Открытие формы

MsgBox ("Щелкните мышью на поле А") ‘Вывод текста в окне сообщения

End Sub

Private Sub Text1_Click() ‘ Щелчок в текстовом окне

A = InputBox("Введите число", , "À=") ‘ Ввод числа в окне ввода данных.

Text1.Text = A ‘ Запись числа в текстовое окно с именем ТехtВох1.

End Sub

Private Sub Text2_Change()’ Изменение содержания текстового окна ТехtВох2.

B = Str(Text2.Text) ‘ Содержание текстового окна присваивается переменной В

End Sub

Private Sub HScroll1_Change()

Text3.Text = HScroll1.Value ‘Содержание горизонтальной полосы прокрутки _

выводится в текстовом окне ТехtВох3.

C = Val(Text3.Text)

End Sub

Private Sub Command1_Click()

Z = A * B + C ^ 2

Text4.Text = "Z="+Str(Z)‘Результат вычислений выводится в текстовом окне ТехtВох4.

End Sub

Private Sub Command2_Click()

End ‘ Закрытие приложения

End Sub