4) Работа с бинарными файлами

Теория

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

Open ("имя_файла") For Binary As #Номер_файла

Считывание данных из бинарного файла производится оператором Get:

Get #Номер_файла, Байт, Переменная

Запись данных в бинарный файл производится оператором Put:

Put #Номер_файла, Байт, Переменная

Практика

Для примера создадим на диске C:\новый файл mybf.txt, в который занесем данные из переменной usr:

Dim MyFile

Dim usr As String

usr = "Hello!"

MyFile = FreeFile

Open ("C:\mybf.txt") For Binary As #MyFile

После выполнения этого кода на диске C:\ должен появится файл mybf.txt, открыв который вы увидите строку "Hello!". Теперь, давайте, в операторе Put изменим 1 на 10:

Dim MyFile

Dim usr As String

usr = "Hello!"

MyFile = FreeFile

Open ("C:\mybf.txt") For Binary As #MyFile

Put #MyFile, 10, usr

Close #MyFile

После этого, открыв файл mybf.txt, вы увидите нечто вроде этого "Щ Ђ Ё Hello!". Как вы видите, слово "Hello!" начинается с 10 символа, а поскольку в файле было 0 символов, то автоматически были добавлены еще символы в начале файла.

А теперь, давайте, из файла mybf.txt занесем 12 байт в переменную usr:

Dim MyFile

Dim usr As String * 1

MyFile = FreeFile

Open ("C:\mybf.txt") For Binary As #MyFile

Get #MyFile, 12, usr

Close #MyFile

MsgBox usr

5. Cls Dim i As Integer, j As Integer, n As Integer, m As Integer Dim min As Integer INPUT "Kolichestvo strok:", n INPUT "Kolichestvo stolbtsov:", m Dim t(n, m), p(m) As Integer Randomize Timer For i = 0 To n - 1 For j = 0 To m - 1 t(i, j) = Int(Rnd * 10 - 5) Print t(i, j); Next j Print Next i Print For j = 0 To m - 1 p(j) = 1 For i = 0 To n - 1 p(j) = p(j) * t(i, j) Next i Print p(j); Next j min = p(0) For j = 0 To m - 1 If p(j) < min Then min = p(j) Next j Print Print "min="; min

6. Dim st As Long Do Until rs.EOF = True st = st + Len(rs.Fields(1).Value) rs.MoveNext Loop MsgBox st

Билет 20

1)Логічні вирази, вирази відношення, логічні операції.

Прості логічні вирази. Простий логічний вираз – це два арифметичні

вирази, з’єднані символом відношення (порівняння). Символи відношень між

величинами у мовах програмування записуються так: > - більше, < - менше,

>= - більше або дорівнює (не менше), <= - менше або дорівнює (не

більше), = - дорівнює, <> - не дорівнює.

Складені логічні вирази. Складені логічні вирази – це прості логічні

логічні вирази. Складені логічні вирази – це прості логічні

вирази, до яких застосовані логічні операції

Пріоритет логічних операцій.

Для логічних операцій запроваджено такій пріоритет (черговість)

виконання :

not (найвищий),

and,

or.

Операції одного пріоритету виконуються по черзі зліва направо.

Наприклад, 1).Нехай х – змінна цілого типу. Складений вираз

(x = 0) or (x > 1) and (x < 3) істинний лише для двох значень х: 0 і 2.

2).Переконайся, що складений логічний вираз

(x = 5) or not (x < 0) and (x <= 2) істинний, якщо х набуде одного з

значень 0, 1, 2, 5. Послідовність виконання логічних операцій можна змінити за допомогою

круглих дужок, наприклад, вираз (x = 5) or not ((x < 0) and (x <= 2))

істинний для всіх додатних значень змінної х.

2)Вибір імен для елементів управління.

Каждый элемент управления имеет свойство Name (Имя), где указыва­ется его имя. Причем оно должно быть уникальным (если этот элемент не является частью массива элементов управления). Когда создается тот или иной управляющий элемент, Visual Basic присваивает ему имя по умолча­нию. Так, например, первая кнопка будет названа Command1, следующая кнопка - Command2 и т. д. Это имя может сообщить, что данный элемент яв­ляется кнопкой и никакой другой информации не несет. Имена по умолча­нию подходят для выяснения порядка, в котором создавались элементы управления, но не вызывают никаких разумных ассоциаций относительно того, для чего они предназначены.

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

Следующее соглашение об именах используется для идентификации элементов управления большинством программистов на Visual Basic: ctlName,

где ctl - префикс, определяющий тип управляющего элемента;

Name - имя элемента управления (информативное с точки зрения функ­ционального назначения).

Таким образом, имя cmdExit однозначно указывает на кнопку выхода из программы, а имя txtPassword - на текстовое поле для ввода пароля.

Следует обратить внимание на то, что первая буква информативной час­ти в синтаксисе имени является прописной, и таковыми являются первые бу­квы всех слов, входящих в эту часть имени (например, txtFirstName). Это сде­лано для того, чтобы отделить имя от префикса, а также разделить слова в имени.

3)Використання властивості CancelError, приклад.

CancelError - Данное свойство выключает ошибку в том, случае, если пользователь нажал "Отмена"

Private Sub Form_Load() Picture1.Height = Form1.Height 'Длина PictureBox равна длине формы Picture1.Width = Form1.Width 'Ширина PictureBox равна ширине формы 'Настроим диалоговое окно: CommonDialog1.CancelError = False CommonDialog1.DialogTitle = "Открыть картинку" 'заголовок диалогового окна CommonDialog1.Filter = "Bitmap(*.bmp)|*.bmp|JPEG(*.jpg, *.jpeg)|*.jpg;*.jpeg" & _ "|*.gif(без анимации)|*.gif|Все поддерживаемые типы|*.bmp;*.jpeg;*.jpg;*.gif|Все файлы (*.*)|*.*" CommonDialog1.Flags = 4100 'Глюк с несуществующим файлом обойдён 'Картинка по умолчанию: Picture1.Picture = LoadPicture("C:\Windows\Облака.bmp") End Sub