1.2.4. Приступая к программированию
Прежде чем приступить к разработке программ в среде Visual Basic, необходимо выработать общий план. Отсутствие продуманного плана, программирование “с листа”, приводит к неоправданной потере рабочего времени, перерасходу машинного времени и, как правило, снижает качество проекта. Можно предложить следующий порядок работы:
изучите задание и составьте список задач, которые должна выполнять программа;
выберите метод решения задачи;
разработайте математическую модель (совокупность формул, необходимых для решения задачи);
выберите переменные программы и опишите их;
разработайте укрупненную схему алгоритма, указав на ней взаимосвязь отдельных блоков программ;
разработайте детальные схемы алгоритмов;
определите количество и состав форм и модулей;
разработайте эскизы экранных форм с указанием всех элементов и их расположением;
продумайте порядок тестирования программы и варианты тестов;
определите место хранения программы, имена файлов и каталогов;
после разработки программы проведите ее тестирование и оформите их документально. В отчете о тестировании программы необходимо привести исходные данные, указанные в задании или подготовленные в качестве теста, и результаты работы программы при каждом наборе исходных данных;
создайте исполняемый файл программы.
Для простых программ не все эти этапы обязательны, но чем сложнее задача, тем тщательней должна быть проработка плана проекта. Переделка программы, ее интерфейса занимает порой больше времени, чем написание новой программы.
1.2.5. Упражнения: начало работы в Visual Basic
Рассмотрим несколько задач.
Задача 1.1. Изучение событий Click и DblClick.
Требуется написать программу для вывода текстового сообщения при одиночном и двойном щелчке мышью по форме. Результаты выводить непосредственно в форму.
Порядок работы:
Запустите программу Visual Basic.
Откройте новый проект командой File\New Project (если форма не открывается автоматически при запуске программы).
Откройте окно Программы двойным щелчком по форме.
Откройте щелчком мыши список объектов и выберите объект Form1.
Откройте список процедур и выберите свойство Click. В окне программы появляется шаблон процедуры обработки события Click (рис. 1.5.).
Запишите в этой процедуре текст программы, приведенный ниже:
Private Sub Form_Click( )
Cls
Print “ Это реакция на щелчок мыши”
End Sub.
Откройте список процедур и выберите свойство DblClick. Запишите текст программы:
Private Sub Form_DblClick( )
CLS
PRINT ”Это реакция на двойной щелчок мыши”
End Sub.
Оператор CLS очищает форму.
Запустите программу командой Run\Start. После запуска программы на экране появляется пустая форма.
Проверьте правильность работы Вашей программы: щелкните по форме мышью – появится первое сообщение, щелкните дважды мышью по форме – появится второе сообщение.
Сохранить программу на диске командой File\Save Project или File\Save Project as ...
Задача 1.2. Вычисление площади поверхности параллелепипеда и его объема.
Даны размеры сторон параллелепипеда. Требуется вычислить площадь поверхности параллелепипеда и его объем. Результаты выводить по щелчку мыши непосредственно в форму.
Порядок работы:
Разработайте математическую модель для решения данной задачи:
S=2(a+b)h+2ab, V=abh
Подготовьте контрольные данные, например: a=1; b=1; h=2. Ответ: S=10; V=2.
Напишите текст программы в обработчик события Click, чтобы при щелчке мышью по форме программа была выполнена:
Private Sub Form_Click ( )
Let a= 2: Let b=3 : Let h=50
S=2*(a+b)*h+2*a*b
V=a*b*h
Print “a=”;str$(a), “b=’; str$(b), “h=”;str$(h)
Print ”Площадь поверхности равна “;str$(s)
Print ”Объем тела равен “;str$(V)
End Sub
Запустите программу.
Проверьте правильность работы программы по результатам выведенным на форму.
Сохраните программу на диске.
Задача 1.3. Табулирование функции одной переменной.
Протабулировать
функцию Sin x
на отрезке [a,b]
с шагом dx, если а =
/2;
b = 3
/2;
dx=0,1. Для управления
проектом на форму поместить кнопку
Command1 (название и имя кнопке
присваивается по умолчанию).
Порядок работы:
Поместите на форму командную кнопу:
щелкните мышью по значку кнопки на панели ToolBox (кнопка выделяется светлым тоном);
переместите указатель мыши на форму, нажмите левую клавишу мыши и, протягивая мышь, установите требуемые размеры кнопки;
Откройте окно программы двойным щелчком мыши по форме и выберите объект Command1;
Откройте список объектов и выбрите свойство Click этого объекта;
Подготовьте контрольные данные для тестирования программы.
Запишите в обработчик события Click текст программы:
Private Sub Form_Click( )
PI= 4*ATN(1)
a=PI/2: b=3/2*PI
dx=0.1
Print “X”,”Y”
For x=a To b+dx/2 step dx
y=sin(x)
Print x,y
Next x
End Sub
Запустите программу;
Щелкните мышью по кнопке Command1 для выполнения расчетов.
Проверьте правильность работы программы.
Сохраните программу на диске.
В приведенных примерах использованы операторы LET и PRINT . Оператор LET служит для присвоения начальных значений переменным, он может быть опущен. Оператор PRINT выводит результаты вычислений непосредственно в форму.
Задачи к заданию для самостоятельной работы.
Отрезок табулирования и шаг табулирования выберите самостоятельно в области определения функции.
1.
|
2.
|
3.
|
4.
|
5.
|
6.
|
7.
|
8.
|
9.
|
10.
|
11.
|
12.
|
13.
|
14.
|
15.
|
Задача 1.4. Установка объектов на форму и исследование их свойств.
Откройте новый проект командой File\New Project. Присвойте форме имя – свойство Name, и название – свойство Caption.
Установите на форму Надпись, Текстовое поле и Командную кнопку:
выделите щелчком мыши по нужной пиктограмме на панели элементов управления;
переместите указатель мыши на форму, нажмите левую клавишу мыши и протащите мышь по диагонали. Установите требуемые размеры элементов управления с помощью мыши или с помощью окна Свойств.
присвойте объектам имена и названия (свойства Name для всех объектов, свойство Caption - для Надписи и Командной кнопки и свойство Текст – для Текстового поля).
Выпишите свойства объектов по форме (указывать только не “пустые” свойства):
Свойство |
Объект |
|||
Форма |
Надпись |
Текстовое поле |
Кнопка |
|
|
|
|
|
|
Выведите свойства формы и объектов, установленных на ней на печать:
введите команду File\Print;
установите флажок Form AsText и снимите флажок Code.
сравните полученные результаты с Вашей таблицей.
Создайте несколько копий элементов Надпись, Текстовое поле и Командной кнопки.
Исследуйте свойства Alignment, Apperanse, BorderStyle и другие свойства, по Вашему усмотрению.
Исследуйте свойства AutoSize и WordWrap (повторите рис. 1.11).
Сохраните программу на диске.
Задача 1.5. Разработка простейшей формы.
Студент сдавал во время сессии экзамен по четырем предметам: физике, математике, информатике и физкультуре. Создать форму для вычисления среднего балла успеваемости студента за сессию. Данные вводить с клавиатуры в текстовые поля, результаты вычислений выводить в текстовое поле.
Порядок работы:
Уточните состав задач программы.
Программа должна обеспечивать ввод данных с клавиатуры в текстовые поля и вывод данных в текстовое поле. Кроме того, на форму надо поместить элементы управления для управления процессом вычисления и выхода из программы.
Разработайте математическую модель для вычисления среднего балла за сессию: средний балл равен сумме оценок по предметам обучения, деленной на число этих оценок:
СрБалл=(Физика+Математика+Информатика+Физкультура)/4
Опишите переменные (табл.1.2).
Р
азработайте
интерфейс программы. Изобразите форму
и определите состав элементов управления
и их размещение на форме (Рис.1.12).
Здесь “Успеваемость” - название формы. “Введите оценки по предметам обучения”, “Физика”, “Математика”, “Информатика”, ”Физкультура”, “Средний балл” – надписи. Белые прямоугольники - поля ввода. Ввод и Выход - кнопки. Кнопка Ввод служит для выполнения расчетов, а кнопка Выход – для очистки полей ввода и завершения работы.
4. Выполним описание элементов интерфейса.
Описание свойств элементов управления выполним в соответствии с табл. 1.3.
Таблица 1.2.
Описание переменных
Наименование программы ______________ |
Тема проекта: Успеваемость |
Лист ________ |
|
Листов _______ |
|||
Обозначение переменной |
Имя переменной |
Тип |
Примечание |
Физика |
F |
Целая |
Оценка по физике |
Математика |
M |
Целая |
Оценка по математике |
Информатика |
INF |
Целая |
Оценка по информатике |
Физкультура |
FIZ |
Целая |
Оценка по физкультуре |
SB |
SB |
Вещественная |
Средний балл |
Таблица 1.3
Описание свойств элементов управления формы “Успеваемость”
Тип элемента |
Элемент |
Свойство |
Значение |
|
Форма |
Forma1 |
Name Caption |
frmForm1 Успеваемость |
|
Надпись (метка)
|
Label 1 |
Name Caption
Alignment |
lblText Введите оценки по предметам обучения 2 |
|
|
Label 2
|
Name Caption Alignment |
lblFizika Физика 2 |
|
|
Label 3
и т. д. |
Name Caption Alignment |
lblMatematika Математика 2
|
|
Поле ввода |
Text 1
|
Name Caption Alignment |
txtFiz Пусто 1 |
|
|
Text 2
и т. д. |
Name Caption Alignment |
txtMat пусто 1
|
|
Командная кнопка |
Command1
|
Name Caption Alignment |
cmdOK OK 2 |
|
|
Command2
|
Name Caption Alignment |
cmdEnd Выход 2 |
|
5. Запишите в обработчики событий Click кнопок Ввод и Выход тексты программ для этих кнопок:
Private Sub CmdOK_Click ()
Dim Физика As Integer, Математика As Integer
Dim Информ. As Integer, Физкультура As Integer
Dim СреднийБалл As Single
F = Val (txtFiz.Text)
М = Val(txtMat.Text)
INF = Val(txtInf.Text)
FIZ = Val(txtFizkult.Text)
SB = (F + М + INF + FIZ)/4
txtSredBall = Str(SB)
End Sub
-----------------------------------------------------------------------------
Private Sub сmdEnd_Click()
End
End Sub
Примечание: для переноса длинной строки на другую строку необходимо вставить пробел и символ подчеркивания.
6. Порядок разработки формы.
Загрузите программу VB.
Введите имя формы Name – “Успеваемость” и надпись для формы Caption – “Успеваемость”.
Создайте 6 надписей, разместите их в форме в соответствии с рис. 1.12 и установите свойства согласно таблице 1.3.
Создайте пять текстовых полей. Присвоить им имена (Name), похожие на соответствующие надписи. Например: txtF – физика, txtM – математика, txtInf – информатика, txtFiz – физкультура, txtSB – средний балл.
Создайте две кнопки и присвойте им имена и надписи в соответствии с табл. 1.3.
Перейдите в окно Code. Для чего щелкните дважды мышью по полю формы или щелкните мышью по кнопке Code в окне Project.
Выбрите в левом списке объект сmdOK, а в правом списке его свойство Click. Запишите в теле этой процедуры текст программы.
Выбрите в левом списке объект сmdEnd , а в правом списке его свойство Click и запишите текст программы.
6. Сохраните программу на диске.
7. Запустите программу.
8. Проведите отладку программы:
введите в поля текста контрольные данные: 5, 4, 5,4
щелкните по кнопке ОК для получения результата;
сравните полученный результат с контрольной цифрой - 4,5.