Puc. 7.3. Діалогове вікно Options.
Цілі змінні
Цілий тип також належить до фундаментальних типів даних. Цілі змінні частково схожі на байтові, але вони можуть мати знак (тобто бути позитивними або негативними) і належать інтервалу від - 32 768 до 32 767. Цілий тип зручний для простих обчислень, при яких значення свідомо залишаються цілочисельними величинами. Крім того, цілі змінні часто використовуються як лічильники.
Ми розглянемо роботу з цілими змінними на наступному прикладі:
1. Створіть новий проект.
2. Створіть на формі кнопку Задайте її властивості Name значення cmdPush, а властивості Caption - значення Натисни.
3. Двічі клацніть на кнопці, щоб відкрити вікно програми.
4. Додайте наступний фрагмент в процедуру події Click кнопки:
Dim A As Integer
Dim В As Integer
А = 2
У = А + 1
Print В
5. Запустіть програму і натисніть кнопку.
На мал. 7.4 показано вікно програми з приведеним вище фрагментом.
Мал. 7.4. Вікно програми для прикладу.
Останній рядок виводить на поточній формі значення змінної В, рівне 3 (мал. 7.5).
Мал. 7.5. Вікно додатка-прикладу.
Інші приклади роботи з цілими змінними зустрічаються як в цьому уроці, так і в частині книги, що залишилася.
Логічні змінні
Змінні логічного типу можуть мати всього два значення - True і False. Найчастіше вони застосовуються для "включення" або "виключення" деякої ознаки або умови в програмі. Логічні змінні нерідко використовуються для повернення логічних значень з функцій, що викликаються. Код повернення рівний True, якщо робота функції завершилася успішно, і False - у разі невдачі. Ми скористаємося логічним типом для написання функції, яка визначає, чи існує на диску файл із заданим ім'ям,:
1. Створіть новий проект командою File > New Project.
2. У вікні Project Wizard виберіть значок Standard EXE.
3. Створіть на формі Form1 текстове поле і задайте його властивості Name значення txtFilename.
4. Очистите властивість Caption текстового поля - для цього слід двічі клацнути на властивості Caption у вікні властивостей і видалити текст Textl.
5. Створіть на формі кнопку. У вікні властивостей задайте її властивості Name значення
cmdSearch, а властивості Caption - значення &Search.
6. Двічі клацніть на формі Form1, щоб відкрити вікно програми.
7. Введіть у вікні програми початковий текст функції IsFile:
Private Function IsFile(Filename As String) As Boolean
If Len(Dir$(Filename))> 0 Then
IsFile = True
Else
IsFile = False
End If
End Function
8. Виберіть рядок cmdSearch із списку об'єктів (у лівій верхній частині вікна програми), що розкривається. При цьому буде автоматично вибрано подію Click.
9. Додайте наступний фрагмент в процедуру події Click кнопки cmdSearch:
Private Sub cmdSearch_Click()
Dim filename As String
Dim rc As Boolean
filename = txtFilename.Text
rc = IsFile(filename)
If rc = True Then
MsgBox "Файл існує"!
Else
MsgBox "Файл не знайдений"!
End If
End Sub
10.Запустіть програму.
Щоб перевірити, як працює написана функція, введіть в текстовому полі ім'я файлу. Якщо файл існує, IsFile повертає логічне значення True, інакше повертається False. Зверніть увагу на використання строкової змінної filename, передаваній як параметр функції IsFile. Значення filename задається в процедурі події Click кнопки cmdSearch.