10. Операторы цикла. Цикл со счетчиком и цикл с условием. Примеры использования циклических операторов на языке Visual Basic.

Цикл For…Next циклической конструкцией Visual Basic. Фрагмент блок-схемы, который реализует оператор For…Next, можно представить следующим образом:

Cинтаксис оператора For…Next следующий:

For Cчетчик=Начальное значение To Конечное значение [Step шаг]

Операторы блока S

Next [счетчик]

Операторы блока S называется телом цикла. Строка, начинающаяся с ключевого слова For, – заголовком цикла, строка с ключевым словом Next – концом цикла.

В начале выполнения цикла значение Счетчик устанавливается в Начальное значение. При каждом “проходе” цикла переменная Счетчик увеличивается на величину шага. Если она достигает Конечное значение, то цикл завершается и выполняются следующие за ним операторы.

С помощью оператора Do…Loop на языке Visual Basic можно реализовать цикл с предусловием и цикл с послеусловием.

Формат цикла с предусловием следующий:

Do [{While/Until} условие]

[Операторы блока S]

Loop

Формат цикла с послеусловием следующий:

Do

[Операторы блока S]

Loop [{While/Until} условие]

Цикл с предусловием никогда не выполняется в случае невыполнения условия. Цикл с послеусловием выполняется обязательно как минимум один раз, независимо от того, выполняется условие или нет.

Например, можно использовать цикл для вычисления значения выражения 2^N, где N задает пользователь на форме.

For i = 1 To n - 1

TwoPower = 2 * TwoPower

Next i

11. Графические методы в системе проектирования и программирования VB 6. Пример циклического использования графических методов Scale, Print, Line и PSet при создании приложения «Построение графика функции». Примеры использования графических методов при создании графических Windows-приложений «Прямоугольная диаграмма» и «Круговая диаграмма». Реализация ввода и редактирования данных в указанных приложениях с помощью Редактора Меню и элемента управления Окно списка (List Box).

На форме или в графическом окне можно рисовать графические примитивы с использованием графических методов.

Графический метод - это такой метод, который позволяет изображать на объекте геометрический элемент: точку, отрезок, прямоугольник, окружность.

Метод Scale назначает объекту(форме или графическому полю) новую систему координат, так как абсолютные координаты выражаются очень большими числами, что очень неудобно.

[ИмяОбъекта.] Scale (Х1, Y1) — (Х2, Y2)

ИмяОбъекпга может отсутствовать. В этом случае по умолчанию метод Scale используется Экранной формой.

(XI, Y1) — новые координаты левого верхнего угла Объекта, а (Х2, Y2) — новые координаты правого нижнего угла Объекта.

Сразу после выполнения метода Scale старые (абсолютные) координаты Объекта будут заменены новыми. Например:

Picture1.Scale (-7,5) – (7,-5).

Метод Pset рисует точку с заданными координатами и цветом

[ИмяОбъекта.] PSet (X, Y) [, Цвет].

ИмяОбъекта может отсутствовать. В этом случае по умолчанию метод PSet используется Экранной формой.

(X, Y) — координаты “точки” (говоря более точно — маленького цветного пятна на экране), которую (которое) Вы хотите изобразить на Объекте.

Цвет — это выражение, значением которого является число типа Long. Этим числом в Visual Basic кодируется тот или иной цвет. Удобно в качестве цвета использовать константы Visual Basic: vbWhite, vbRed, vbGreen, и т.д.Цвет может отсутствовать. В этом случае по умолчанию его значением будет 0 — код чёрного цвета.

Метод Line позволяет:

• чертить на объекте, к которому этот метод применяется, отрезки прямых линий.

• изображать на этом объекте закрашенные или незакрашенные прямоугольники.

[ИмяОбъекта.] Line (Х1, Y1) — (Х2, Y2) [, Цвет ] [,B ][ F].

Параметр (XI, Y1) -- (Х2, Y2) -- это координаты границ отрезка или двух углов прямоугольника — левого верхнего и правого нижнего (или наоборот — правого нижнего и левого верхнего).

Параметр Цвет - это выражение, значением которого является число типа Long, которым в Visual Basic кодируется тот или иной цвет.

Флажок B- задаёт рисование прямоугольника.

Флажок F – задаёт рисование закрашенного прямоугольника.

Пример реализации программы «Построение графика функции»

 

Function Example(ByVal x As Double)

y = 0.002 + x

      Debug.Print y

    Example = y

End Function

 

 

Function Example1(ByVal x1 As Double)

    Y1 = 1 + x1

     Debug.Print Y1

       Example1 = Y1

End Function

 

 

Private Sub Form_Resize()

    Refresh

End Sub

 

 

Private Sub mnuDraw_Click()

   

    Form1.BackColor = &H8000000F

    DrawWidth = 3

    Scale (-3, 3)-(3, -3)

    Form1.ForeColor = &H0&

    Line (-3, 0)-(3, 0)

    Line (0, -3)-(0, 3)

    DrawWidth = 4

    Form1.ForeColor = &H8000000D

    For x = 0.35 To 0.75 Step 0.05

         Line -(x, Example(x))

         Next

     

     For x1 = 1 To 2.7 Step 0.05

         Line -(x1, Example1(x))

        Next

           

End Sub

Пример реализации программы «Прямоугольная диаграмма»

Private Sub Command1_Click()

Dim m(10) As Integer

Randomize

For i = 0 To 9

m(i) = Int(70 * Rnd) + 30

Next i

Picture1.Scale (-2, 110)-(12, -10)

Picture1.Line (0, 0)-(0, 100)

Picture1.Line (0, 0)-(10, 0)

For i = 0 To 9

Picture1.Line (i, m(i))-(i + 1, 0), , B

Next i

End Sub

Построение круговой диаграммы:

Const d = 1

Const pi = 3.142

Dim m(1 To 9) As Byte

Dim Color(1 To 9) As ColorConstants

Dim Sum As Single

Private Sub Command1_Click()

  Dim i As Byte

  Dim Fi As Single, duga As Single

  Form1.Scale (0, 100)-(30, -50)

   

  For i = 1 To 9

      Line (i, m(i))-(i + d, 0), Color(i), BF

      'Line (i, m(i))-(i + d, 0), Color(i), B

     

  Next i

  FillStyle = 0 'стиль заливки объекта (формы)

   

  Fi = -0.000001

    For i = 1 To 9

        duga = (-2 * pi * (m(i) / Sum))

        FillColor = Color(i)

        Circle (20, 50), 5, vbRed, Fi, Fi + duga

        Fi = Fi + duga

     Next i

End Sub

Private Sub Form_Load()

  Dim i As Byte

 

  m(1) = 66

  m(2) = 77

  m(3) = 11

  m(4) = 13

  m(5) = 88

  m(6) = 96

  m(7) = 45

  m(8) = 43

  m(9) = 55

 

  Color(1) = vbBlue

  Color(2) = vbGreen

  Color(3) = vbRed

  Color(4) = vbYellow

  Color(5) = vbBlack

  Color(6) = vbMagenta

  Color(7) = vbWhite

  Color(8) = vbCyan

  Color(9) = vbGreen

 

  Sum = 0

  For i = 1 To 9

     Sum = Sum + m(i)

  Next i

 

 

End Sub

12. Массив объектов. Пример создания и использования массивов объектов – элементов управления на экранной форме приложения «Калькулятор». Программный массив как обобщение понятия переменной. Пример обработки одномерного массива в приложении «Пузырьковая сортировка». Динамический массив в языке VB 6. Пример циклического ввода данных в одномерный динамический массив. Пример использования динамического двумерного массива в приложении «Сканирование и обработка изображений».

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

Dim students(6) As Integer

Dim numbers = New Integer() {1, 2, 4, 8}

Dim doubles = {1.5, 2, 9.9, 18}

Массив позволяет ссылаться на эти связанные значения по одному имени и используя номер, называемый индексом или подиндексом, чтобы отличить элементы друг от друга. Отдельные значения, называются элементами массива. Они представляются непрерывной последовательностью от индекса 0 до наибольшего значения индекса.

Пример реализации программы «Сортировка методом пузырька»

Dim i As Long, tmp As Long, t As Boolean

t = True

Do While t

t = False

For i = 0 To UBound(Mus()) - 1

If Mus(i) > Mus(i + 1) Then

tmp = Mus(i)

Mus(i) = Mus(i + 1)

Mus(i + 1) = tmp

t = True

End If

Next

Loop

Массивы, не меняющие число своих элементов, называются статическими массивами. Примером такого массива может служить вышеприведенный массив My_Array, содержащий 10 элементов.

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

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

Dim Mass () as String

Некоторые массивы имеют два измерения. Например, количество офисов на каждом этаже каждого здания на территории предприятия. Спецификация элемента требует одновременно указания номера здания и этажа. Каждый элемент содержит счетчик для этой комбинации. Таким образом, такой массив использует два индекса. В следующем примере объявляется переменная для хранения двумерного массива из счетчиков офисов для зданий от 0 до 40 и этажей от 0 до 5.

Dim officeCounts(40, 5) As Byte

13. Средства языка VB 6 для работы с файлами – текстовыми файлами, бинарными файлами и файлами произвольного доступа. Использование пользовательского типа данных. Использование объектов Общий диалог (Common Dialog) и Rich Textbox для открытия и сохранения файлов RTF, выбора шрифта и выбора цвета на примере создания простейшего текстового редактора в системе VB 6. Использование объектов Общий диалог (Common Dialog) и графических методов для открытия, редактирования и сохранения графических (BMP) файлов на примере создания простейшего графического редактора в системе проектирования VB 6.

14. Создание таблиц базы данных Access с помощью встроенного Диспетчера баз данных системы проектирования VB 6. Заполнение полей таблиц базы данных с помощью привязки текстовых полей к элементу управления Данные (Data).

15. Отображение содержимого таблиц баз данных Access с помощью элемента управления Гибкая сетка данных (Flex Grid) системы проектирования VB 6. Пример использования выражения языка SQL в качестве значения свойства «Источник данных» элемента управления Данные. Отображение на экранной форме виртуальной таблицы, представляющей результат запроса на языке SQL к реальным таблицам файла Access. Создание анимации и реализация звуковых эффектов средствами языка и системы проектирования VB – элементов управления Animation, Picture Clip, Multimedia Control.

16. Использование элемента управления Web Browser для создания приложений, на экранную форму которых могут загружаться страницы Интернета.