Основи Visual Basic 5.0

У додатках VB 5.0 виконувані рядки повинні розміщуватися всередині процедур або функцій. Оператори в VB рідко використовують номери рядків, а будь-які з них зазвичай починаються з нового рядка. Строки обмежені довжиною в 1023 символу. можна розширювати рядка, використовуючи символ "_" після пробілу в кінці рядка. Кілька операторів можна поєднувати в одному рядку, розділяючи їх ":".

Коментарі задаються верхній лапками ( '), або оператором REM. Коментар може бути виведений окремим рядком, або в кінці рядка. У другому випадку краще використовувати лапки ( '), ніж REM, тому що REM тут потребує роздільник (:). Наприклад,

DIM FARENG 'мінлива для обчислення t0 за Фаренгейтом

або

DIM FARENG: REM мінлива для обчислення t0 за Фаренгейтом

Оператор End - програма зупиняється. Після оператора End закриваються всі вікна, відкриті програмою, а сама вона стирається з пам'яті. Всередині програми VB може бути скільки завгодно операторів End, але звичайно краще використовувати тільки один оператор End у процедурі обробки подій QueryUnload для основної форми. У цьому випадку всі оператори End замінюються на Unload Me, який викликає собі QueryUnload для форми.

Одним з основних операторів є присвоювання значення змінним і установка значень властивостей.

Наприклад,

1) Result = 0.5? 20

ім'я значення

змінної

Можна використовувати оператор LET

2) об'ект.свойство = значення

txtDisplay.Text = ""

Властивості за замовчуванням

У будь-якого об'єкта VB є властивість за замовчуванням. Наприклад, для текстового поля це властивість Text. При посиланні на даний властивість можна не вказувати його ім'я.

Наприклад, txtDisplay = "Привіт!"

Деякі властивості можуть приймати значення TRUE або FALSE. У VB5 є вбудовані константи для позначення даних властивостей, наприклад, cmdExit = False буде приховувати командну кнопку, поки не з'явиться вираз cmdExit = True.

Всередині себе VB використовує значення 0 для False і -1 для True (чи будь-яке нульове значення).

Можна використовувати наступне вираз для зміни властивості на протилежне

cmdExit.Visible = Not (cmdExit.Visible).

Змінні. Імена змінних менше 255 символів починаються з літери, за якою йдуть інші літери, цифри або символ "_". Регістр значення не має. В якості імен змінних можна використовувати зарезервовані слова, наприклад, Print. Прийнято використовувати змішаний регістр при завданні імен змінних, що складаються з декількох слів, наприклад, CurrentValue.

Типи змінних. Використовується 14 стандартних типів змінних. Можна визначити і власний тип. Основні типи:

String - рядкові змінні. Для позначення цього типу можна додати символ "$" до кінця імені.

Наприклад, Message $ = txtDisplay.Text

Integer - цілочисельних мінлива в діапазоні -32768? 32767. Для позначення в кінці імені додається "%" арифметичний оператор виконується швидко.

Наприклад, IntVar% = 5

LongInteger - довге ціле від -2147483648 до 2147483647. Позначається "&".

LongInt & = 123456789.

SinglePrecision зберігає дробові числа з точністю до 7 цифр. Для на чисел може досягати 38 знаків з позначенням "!". Обчислення ч даними змінними буде приблизними.

DoublePrecision "#". Числа з точністю до 16 цифр і довжиною до 300 символів. Обчислення теж приблизні, а швидкість невелика. Використовується для наукових розрахунків.

Currency - використовується під час перетворення десяткових чисел в двійкову форму і навпаки. Позначення - "@". Може мати до 14 цифр до коми і до 4 цифр - після. Використовується для фінансових розрахунків.

Date - значення дати і часу від 00 час.1 января.100 року до 00час.31 декабря.9999 р. Значення позначається "#".

Time = # May 5, 1999 #

Byte - для зберігання цілих чисел від 0 до 255. Заощаджує оперативну пам'ять і розміри масивів. Використовується також при роботі з двійкової сумісності.

Variant - дані будь-якого типу. Якщо VB не знає тип прийнятих даних, використовується цей тип. Використання його уповільнює роботу програм, тому що вимагає часу і ресурси для операцій перетворення типів.

На відміну від інших версій Basic в одній програмі не можна використовувати одні й ті ж імена змінних, що відрізняються тільки типом. Наприклад, A% і А!

При першому використанні змінної VB тимчасово привласнює змінної тип Variant і пусте значення. Це значення зникає в той момент, коли змінної привласнюється реальне. Будь-який тип даних має своє "порожнє" значення. Для String це рядок нульової довжини "". Для чисельних змінних це 0.

Можна не використовувати ідентифікатори для позначення типу змінної, а використовувати оператор Dim. Оператор Dim служить для оголошення типів змінних.

Dim Years As Integer

Dim Amount As Currency

. . . .

Оголошення можна комбінувати в одному рядку.

Dim Years As Integer, Amount As Currency

Dim Result без типу присвоює змінній тип Variant.

Якщо в програмі використовуються неоголошені змінні, легко допустити помилку при написанні їх імені. У цьому випадку використовується примусове оголошення змінних за допомогою оператора Option Explicit. Цей оператор не використовується в конкретних процедурах обробки подій, а розміщується в розділі General форми, щоб бути доступним всім процедурам обробки подій. Після того, як VB зустрічає оператор Option Explicit, він не дозволяє використовувати неоголошені змінні. Цей оператор можна використовувати для зміни значень за замовчуванням.

Область видимості змінних

У програмах VB5 всі змінні ізольовані усередині процедур. Тобто мінлива Result в одній процедурі не впливає на значення змінної з тим же ім'ям в іншій процедурі. Тобто змінні є локальними по відношенню до процедур, якщо не зазначено інакше.

Іноді необхідно, щоб якась мінлива була доступна всім процедурам форми. Такі змінні називають змінними рівня форми або модуля. Змінні рівня форми також оголошуються в розділі General за допомогою операторів Private або Dim.

У великих проектах, в яких процедури і форми зберігаються в окремих модулях, а не підключаються до форми, можна оголосити глобальну змінну, доступну в будь-якій частині проекту.

Це робиться в розділі Declarations будь-якого модуля коду:

Public Amount As Single

або Global Amount As Single

Коли VB викликає процедуру обробки події, старі значення локальних змінних знищуються. Вони приймають значення за замовчуванням. Такі змінні називаються динамічними. Але в деяких випадках необхідні статичні змінні, які не ініціалізувалися повторно при виклику процедури. Часто такі змінні використовуються для лічильників, їх використовують, щоб зробити елементи управління видимими або невидимими. Щоб оголосити статичну змінну всередині процедури необхідний оператор Dim замінити на Static.

Static Amount As Single, Is_Visible As Boolean.

Якщо необхідно, щоб всі змінні у процедурі були статичними, необхідно додати

Static Private Sub cmdLom_Click ()

Строки

Операція конкатенації для складання кількох рядків + або &

Наприклад, A $ = "Іванов"

B $ = "Іван"

C $ = "Іванович"

D $ = A $ & B $ & C $

або D $ = A $ + B $ + C $

Відмінність. За допомогою "&" можна об'єднувати рядкові та інші види. Наприклад, C = A% & B $, зміниться їх тип на Variant.

Для переходу до нової рядку при друці символів (переклад каретки) використовується вбудована const VbCrLf. Наприклад, щоб розірвати рядок в інформаційній панелі або в многостроковом текстовому полі можна

Message $ = "1-й рядок"

Message $ = Message $ + VbCrLf + "2-й рядок"

MsgBox Message $

Зауваження. Якщо в програмі використовуються числа і вони не присвоюються змінної Variant, то VB вважає:

Якщо число не має десяткового дробу і лежить в діапазоні від -327686 +32767, то це Integer.

Якщо не має десяткового дробу і лежить в діапазоні для Long Integer, то це Long Int.

Якщо має десяткову крапку і лежить в діапазоні для чисел із звичайною точністю (7 цифр), то це Single precision.

Якщо має десяткову крапку, але лежить поза діапазону, то це Double precision.

Такі приблизні розрахунки часто приводять до проблем. Наприклад, VB вважає, що тип результату з двома цілими числами є ціле. Наприклад результат Print 123456? 789 виходить за рамки цілого і виникає помилка переповнення. Тоді необхідно використовувати ідентифікатор хоча б для однієї змінної Print 123456 &? 789.

Можна також використовувати вбудовані функції для перетворення типів, наприклад, LInt - округлює число до цілого, Clong - до довгого цілого, Cvar - перетворить до Var.

Якщо проводяться операції зі змінними Variant, то не виникає проблем з перетворенням типів.

Крім звичайних, десяткових чисел, VB використовує двійкові і шістнадцяткові. Останні позначаються з префіксом & H. Наприклад, число 49 = & H31.

шістнадцяткові цифри використовуються для кодування різних кольорів: будь-який код кольору складається з 6 шістнадцяткові цифр від & H000000 & = 0 до & HFFFFFF & (довге ціле) (16777215).

Взагалі конкретний колір визначається кількістю червоного R, G зеленого і синього кольорів B у всіляких сполученнях. У коді кольору VB дві останні цифри означають кількість червоного, дві середні - кількість зеленого, а два перших - кількість синього, наприклад

& H0000FF & - максимально червоний

& H00FF00 & - максимально зелений

& HFF0000 & - максимально синій

& H000000 & - чорний

& HFFFFFF & - білий

& H00FFFF & - жовтий (червоний + зелений)

& H808080 & - сірий (рівні кількості кольорів)

Константи

Для незмінних значень в програмі використовуються константи. Константи оголошуються аналогічно змінним, за тими ж правилами: ім'я містить не більше 200 символів, перший символ буква. Якщо в програмі використовується лише одна форма, то константу можна оголосити у розділі DeclarationHous для об'єкта General. Або ж можна й безпосередньо у процедурі, але це гірше. Константу оголошують через зарезервовані слова Const. Наприклад,

Const Pi = 3? 14159

Const Course = "Informatics"

VB5 має тільки набір вбудованих констант, наприклад, VbCrLf або VbOrOnly. Їх можна додавати до тексту програми з вікна Object Browser (F2 або меню View). Щоб вставити Const в програмі:

Курсор повинен бути у вікні коду.

У вікні Object Browser клацнути на кнопці Copy to Clipboard.

Перейти в програмі на місце вставки і натиснути Ctrl + V.

Вбудовані функції

Особливе значення мають рядкові функції, тому що в полях введення інформація зберігається в текстовому форматі або в форматі ariant. Використання ж неявних перетворень типів з Variant часто призводить до проблем і є більш повільним.

рядкові функції:

= Space (число пропусків) - видає рядок, що складається з одних прогалин, причому кількість символів в рядку визначається параметром у дужках.

= String (число, рядковий вираз $) - формує рядок, що містить однакові символи.

Наприклад, X $ = String (10, "z") - 10z

= Len (рядковий вираз) - довжина поточного рядка з проблемами і надрукованими символами.

= Mid (рядок, початок [, довжина])

Mid ( "Visual Basic", 1,6) = "Visual"

Mid ( "Visual Basic", 8,6) = "Basic"

Mid ( "Visual Basic", 8) = "Basic"

Приклад. Підрахунок числа точок у рядку

Points% = 0

Length% = Len (Text $)

For I% = 1 to Length%

If Mid (Text $, I%, 1) = "." then

Points $ = Points $ + 1

End If

Next I%

= Left (дані для, № до позиції)

= Right (рядок, с № позиції)

Функцію Mid можна використовувати для зміни змісту всередині поточного рядка. Наприклад

X $ = "Best Basic"

Mid (X $, 1,5) = "Quick"

яку кількість символів

з якого символу буде взято з нового рядка

вставляється нова

рядок поверх старої частини

= Insert ([початкова позиція], рядок для пошуку, підрядок)

чи є даний рядок частиною іншого рядка, видає номер позиції, з якої починається підрядок.

Text $ = "QuickBasic"

X $ = Instr (1, Text $, "Basic") = 6.

Якщо підрядок не знайдено Instr повертає нульове значення (False).

Приклад.

If Instr (Text $, "? ") Then

Print "символ знайдено"

Else

Print "Не знайдено"

End If

= LСase, = UСase - перетворить всі символи рядка в нижній (верхній) регістр

Замість Lcase $ Ucase $

= Str lomp - для порівняння рядків

Нехай X = StrComp (A $, B $)

Якщо A $ або B $ порожня, то х = NULL

Якщо використовувати StrComp (A $, B $, 1) - регістр не враховується, а якщо StrComp (A $, B $, 0) - регістр враховується.

= Trim (рядок $) - знищує прогалини початку і кінці рядка

LTrim (рядок $) - знищує прогалини в лівій частині рядка

RTrim (рядок $) - знищує прогалини в правій частині

Всі рядкові функції, за винятком Mid, не змінюють рядок, а створюють її копію і потім з нею працюють.

Керуючі структури в програмі

Певні цикли

For ___ Next

For I% = 1 to 10 (% - цілочисельний тип для прискорення роботи циклу)

Print I%

Next I%

Цикл завершується, не в той момент, коли значення лічильника дорівнює кінцевому, а коли воно перевищує його.

Приклад. Друк всіма доступними шрифтами екрану.

Private Sub Form_Click ()

Dim I As Integer

For I = 0 to Screen.FontCount - 1

FontName = Screen.Fonts (I)

Print "Це шрифт"; Screen.Fonts (I)

Next I

End Sub

Невизначені цикли

Не виконуються фіксоване число разів. Цикл може виконуватися або ні в залежності від результату, обчислюваного всередині циклу

Вираз

Loop Until виконується умова

Приклад. Перевірка пароля

Private Sub Form_Load ()

X $ = InputBox $ ( "Пароль?")

Loop Until X $ = "VB"

End Sub

Для зупинки нескінченного процесу використовують клавіші "Break" або Run | End або закрити програму. У програмі можна використовувати оператор Exit Do (або Exit For), які переводять програму до оператора наступного після циклу.

Складні невизначені цикли

У невизначених циклах перевірка відбувається в кінці циклу і лічильника збільшується ще на 1. Іноді це викликає зайве оновлення лічильника. Можна пересунути перевірку умови на початок циклу:

Do Until умова

Тіло циклу Вираз

Loop

Do While

Loop Until аналогічний

Loop While умова

Приклад.

Do Do

Loop Until N> 5? Loop While N = 0 and N