Чтение онлайн

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

Private Sub Command1_Click

программный код …

End Sub

Запуск программы для отладки выполняется щелчком по кнопке Start панели инструментов или через меню RUN (Start) или клавишей F5. Для выхода из программы можно использовать кнопку панели инструментов: End или закрыть окно программы. Имеются мощные графические отладчики, позволяющие находить и устранять ошибки в коде программ. Можно установить точки останова, щелчком справа от оператора текста программы, проверить ход программы, при помощи пошагового Debug выполнения. Для компиляции созданного приложения необходимо зайти в меню File, сохранить предварительно проект Save Project As, выбрав маршрут и указав имена файлов формы и проекта и затем в меню File выбрать Make ….EXE. Синтаксис языка Visual BASIC имеет некоторые отличия, но во многом совпадает с синтаксисом GWBasic.

Данные языка Visual BASIC

Комментарий в тексте программы начинается знаком апостроф (‘).

КОНСТАНТЫ объявляются в программе с помощью оператора Const, за которым через запятую перечисляются имена величин с их значениями, например: Const M=4,N=3 и т.д.

Оператор Dim объявляет тип переменных, например:

Dim My_Name As String

Dim Tel As String*9 (девять символов содержит переменная Tel)

Dim I As Integer ,J As Integer

Dim K As Double, A As Single

Оператор DIM также объявляет массивы, например:

Dim My_Mass(40) As String

Dim Mass1!(1 To 40)

Dim Mass2(1 To 30) As Double

ИНДЕКСЫ массива – целые выражения, принимающие положительные значения. Минимальное значение равно 0.

Массив с двумя индексами: Dim Ocenka(1 To 5, 1 To 20) As Integer

Удалить из памяти массивы можно оператором Erase с указанием через запятую списка имен массивов.

Для включения возможности изменения размеров массива их объявляют оператором ReDim и в диапазоне индексов можно указать имена переменных, значения которых, например, при решении ввести через текстовые поля. Чтобы при переопределении массива старые значения не были потеряны можно использовать оператор описания в виде: ReDim Preserve .

В случае, если обозначение типа данного отсутствует, то идентификатору присваивается тип Variant – произвольный. Основные обозначения: % -целые (Integer), например: Atip%, от -32768 до 32767, !
– вещественные (Single) от 1.41Е-45 до 3.4Е-38, # -двойной точности (Double) от 4.95Е-324 до 1.79Е-308, $ -символьные (String), обрамляются кавычками.

Для определения переменных используется оператор ПРИСВАИВАНИЯ:

V=A(4)

Itog_sceta=Itog_sceta+Ocenka(I,J)

C= А(6)+В

Ввод вывод данных

Для ввода данных может использоваться элемент текстовое поле (TextBox). Он может быть установлен на экранную форму. Оператор присваивания позволяет считать данные введенные с клавиатуры: A=Dlina.Text , где Dlina это имя поля (Name).

Считывание: В=InputBox("Комментарий","Заголовок окна","Начальное значение") позволяет вводить данные с помощью специального "окна ввода".

Данные можно выбрать из заранее подготовленного или заполняемого при решении задачи "окна списка". Например: Х=ИмяОкнаСписка.List(N).

Для ввода из файла используется оператор ОТКРЫТИЯ ФАЙЛА: OPEN.

Open "A1.TXT" For Input As #K

Открывается файл с именем A1 и расширением TXT, номер его К, затем из файла вводятся данные с помощью оператора Input #K,R переменная R. Оператор Line Input используется для ввода данных из файла построчно.

Оператор ЗАКРЫТИЯ файла: CLOSE #K закрывает открытый #К файл. Для вывода в файл используется оператор с записью ( For Output ) и затем (Print #K, … или Write #K, …).

Вывод на форму осуществляется оператором ВЫВОДА: PRINT со списком выводимых переменных.

Для слитного вывода в ряд числовых значений с комментарием используется разделение точкой с запятой между переменными.

Print “РЕЗУЛЬТАТ А и В =”,A;B

для раздельного вывода по столбцам, запятая:

Print C,D

Оператор PRINT без списка данных выполняет перевод строки.

Функция TAB производит форматирование вывода.

Print Tab(5),X

Перед выводом числа Х будет пропущено 5 пробелов. Функция TAB часто используется для построения графиков или таблиц.

Результат может быть показан в установленном "текстовом поле", например: ИмяПоля.Text=Y.

Нестандартные функции и процедуры

Одно из проявлений модульного принципа построения программ это использование собственных функций и процедур.

Повторяющиеся в программе арифметические выражения, можно представить в виде оператора функции и соответствующей процедуры.

Для описания функции используется например описание:

Public Function AA(A As Single,B As Single,C As Single) As Double

P=(A+B+C)/2

AA=Int(Sqr(P*A*B*C)

End Function

где AA– имя или идентификатор функции, в скобках список ФОРМАЛЬНЫХ ПАРАМЕТРОВ ( имена фиктивных переменных фактических значений, которые должны быть вычислены к моменту выполнения функции, если их несколько, то все они перечисляются через запятую). внутри блока вид описываемой функции. В результате работы блока возвращается вычисленное значение АА. Функции как и процедуры могут быть локальными: Private и глобальными: Public.

Процедура отличается от функции тем, что она возвращает значения переменных описанных в списке параметров, например:

Вызов процедуры: Call ИмяПроцедуры(СписокПараметров)

можно записать без скобок и ключевого слова Call , список параметров это переменные через запятую. ИмяПроцедуры СписокПараметров . Сама процедура имеет описание:

Public Sub ИмяПроцедуры(СписокПараметров)

и операторы для обработки данных или вычислений

End Sub

Cписок параметров это входные или выходные параметры процедуры. Процедура может обращаться к самой себе (рекурсивная).

Некоторые особые стандартные функции

Rnd = случайное число из диапазона 0 – 1 (r!=Rnd) (Для генерации псевдослучайных чисел используется оператор Randomize N, где N любое число, или Randomize Timer старт от счетчика времени).

Fix(X) – отбрасывает числа после запятой;

Сint(X) – определяет наибольшее целое, не превосходящее аргумент;

Int(X) – округляет значение до ближайшего целого;

Sgn(X) – определяет знак аргумента и присваивает результату значение -1, если знак аргумента отрицательный, 0, если аргумент равен нулю, и 1 , если положительный.