7.12. Методы Print и Cls
Метод Print применяется для вывода данных в форму или на принтер. Для вывода на принтер используется метод Printer.Print, а для вывода в текущую форму достаточно просто написать Print.
Метод Cls убирает с формы весь текст, выведенный ранее. Если его не вызвать, после нескольких вызовов Print текст исчезает под нижним краем формы.
7.13. Программирование циклов
В VISAUL BASIC существуют три циклические конструкции операторов:
-
For … Next
-
While … Wend
-
Do … Loop
Оператор цикла For … Next
Оператор цикла For…Next имеет формат:
For счетчик = начало To конец [Step приращение]
операторы
Next [счетчик]
Рассмотрим пример решения задачи, использующей цикл со счетчиком. Требуется найти сумму 10 чисел.
Private Sub Command1_Click()
Dim b(10) As Integer, s As Integer
s = 0
For i = 1 To 10
b(i) = Val(InputBox("Введите число"))
s = s + b(i)
Next
Print s
End Sub
Оператор цикла WHILE…WEND
Используется для организации циклов с предусловием и имеет следующий формат:
While условие продолжения цикла
операторы тела цикла
Wend
Например, выведем в форму все значения, большие 1, причем каждое последующее значение получается путем деления предыдущего пополам:
Private Sub Command1_Click()
Dim y As Single
y = InputBox("Введите число")
While y > 1
'MsgBox y
Print y
y = y / 2
Wend
End Sub
Оператор цикла DO…LOOP
Используется для организации циклов с неопределенным числом повторений (с предусловием и с постусловием).
Этот оператор для организации цикла с предусловием может использоваться в двух модификациях:
а) Do While условие продолжения цикла
операторы тела цикла
Loop
б) Do Until условие прекращения цикла
операторы тела цикла
Loop
Для организации цикла с постусловием этот оператор также может быть использован в двух модификациях:
в) Do
операторы тела цикла
Loop While условие продолжения цикла
г) Do
операторы тела цикла
Loop Until условие прекращения цикла
На рис. 61 приведен пример использования цикла с постусловием для решения задачи сортировки одномерного массива по возрастанию элементов.
Рис. 61. Пример использования цикла с постусловием
7.14. Модульный принцип построения проекта и программного кода.
В языке VISAUL BASIC создание Windows-приложения - это почти то же самое, что и создание проекта. Проект - это совокупность экранных форм и программных кодов, с помощью которых решается некоторая задача.
Windows-приложение - это исполняемый exe-файл.
При построении проекта в среде проектирования VISAUL BASIC используются методы модульного программирования:
-
Метод модульной организации.
Суть метода заключается в разбиении программного кода на отдельные компактные модули, хранящиеся в отдельных файлах. Существуют модули трех видов: модули формы, стандартные модули и модули класса.
В файле модуля формы (frm) содержится программный код, относящий к форме и объектам этой формы.
В стандартном (универсальном) модуле (bas) содержатся программные коды, которые могут использоваться не в одной, а в нескольких формах (и даже в нескольких проектах).
VISAUL BASIC позволяет создавать новые объекты, разрабатывать для них свойства и методы и описывать их в модулях класса (cls).
-
Метод функциональной декомпозиции (метод).
Суть метода “top-down” – программный модуль логически разбивается на отдельные процедуры (функции). Процедура (функция) скрывает выполняемую последовательность действий и действует как единая абстрактная операция.
Принятая в VISAUL BASIC классификация процедур показана на рис.62.
Процедуры
Подпрограммы Функции
(SUB) (FUNCTION)
Процедуры Общие
обработки событий процедуры
(Event) (General)
Рис.62. Классификация процедур