Объектно-ориентированная модель программирования

Result - это какая-либо переменная, которой присваиваем значение.

После выполнения Result будет = +1, если строка «1» > строки «2»; 0, если строки равны; -1, если строка «1» < строки «2».

Пример:

StrComp (“Фёдоров”,”ФЁДОРОВ”,1)=0

5.11 Логические проверки

Логические проверки используются для проверки различных величин Visual Basic. Эти функции используются, чтобы проверять, является ли величина, величиной нужного нам типа, перед тем как использовать её в вычислениях.

Функции логических проверок:

IsArray ( ) = True, если аргумент массив.

IsDate ( ) = True, если аргумент дата.

IsEmpty ( ) = True, если аргумент пустая строка.

IsError ( ) = True, если аргумент код ошибки.

IsMissing ( ) = True, если аргумент опущен.

IsNull ( ) = True, если аргумент не имеет никакого значения.

IsNumeric ( ) = True, если аргумент число.

IsObject ( ) = True, если аргумент объект.

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

5.12 Выполнение многоблочных структур

Формат:

If выражение_1 Then

блок операторов_1

Else If выражение_2 Then

блок операторов_2

Else If выражение_3 Then

блок операторов_3

End

Оператор выбора Select Case. Формат оператора выбора Select Case:

Select Case величина

Case сравнение_1

блок операторов

Case сравнение-2

блок операторов

.

.

.

End Select - полная форма Select Case.

Величина - это переменная или выражение.

Сравнение - это список из одного или более значений, с которыми сравнивается величина.

Допустимые списки в Case (примеры):

А.) Case 25

Б.) Case 1, 3, 5, 7

В.) Case 1, 3, 7 to 9, 11

Элемент может иметь вид: Is операция величина_1, где операция - любая операция сравнения, кроме Is и Like.

Г.) Case 3,5, Is >= 7

Д.) Case Is <0, 1, 3, 5 to 7, Is>10

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

Для этого необходимо:

1. Удалить из строки все ведущие и завершающие пробелы, которые пользователь может ввести случайно. Это осуществляется с помощью функции Trim$ (строка).

2. Преобразовать текст к одному регистру: к верхнему - Ucase$ (строка) или к нижнему - Lcase$ (строка).

Например:

If Trim$ (Ucase (txt1.text)) = “Да”

Then…

End If

Пример вывода текущего времени и использование управляющего элемента OLE.

1. В Caption ввести «текущее время»

2. Разместить на форме часы.

3. В секцию General в форме FrmMain добавить описание переменной:

Private Old As String

4. Для события загрузки формы ввести код:

Private Sub Frmmain_Load()

Old = Mе.Caption

End Sub

5. Для таймера ввести процедуру:

Private Sub Tmr_Timer()

Dim m As String

m = Old & ":" & Time$

Frmmain.Caption = m

End Sub

Timer - это событие , срабатывающее по истечению срока заданного интервала.

Time$ - выдаёт текущее время.

Добавление на форму объекта OLE.

При помещении на форму объекта OLE появляется окно диалога, в котором вы можете выбрать файл, который хотите внедрить в своё приложение. Закладка «создать из файла», иначе путь к файлу можно задать в свойстве SourceDoc.

После размещения этого элемента, на форме появится иконка вставленного файла. В режиме выполнения двойной щелчок по иконке раскрывает данный файл.

5.13 Циклы и повторяющиеся структуры

5.13.1 Цикл с параметром

Формат:

For I = начальное значение (НЗ) To конечное значение (КЗ) Step шаг

операторы

Next I

I - счётчик цикла, который меняется от НЗ до КЗ с шагом указанным после слова Step, если шаг равен 1, то «Step шаг» можно не писать. Next I - I здесь можно не указывать, если один оператор.

Пример:

For I=1 to 1000 Step 2

S=S+I

Next

I - это счётчик, который должен иметь тип Integer или Long.

Exit For - это выход из цикла до достижения счётчиком конечного значения.

Например:

For I=1 to 100 Step 5

X=I*10

If x>100 then

Exit for

End if

Next

5.13.2 Циклы Do…Loop

1. C постусловием:

Формат:

Do While условие

операторы

Loop

Пример:

Do while x<10

X=x+1

Loop

2. C предусловием:

Формат:

Do until условие

операторы

Loop

Как только выполняется условие, произойдёт выход из цикла.

Например:

X=1

Do Until x=10

X=x+1

Loop

5.13.3 Цикл продолжения While…End

While условие

операторы

Wend

Пример:

X=1

While x<=20

X=x+1

Wend

5.14 Ввод данных с клавиатуры, вывод сообщений на экран

5.14.1 Окно сообщений

Оператор, который позволяет выводить диалоговое окно:

MsgBox “сообщение”, атрибуты, “заголовок”

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

Например, чтобы в окне сообщения присутствовали кнопки «OK» и «Отмена» и значок информационного сообщения, переменной D = 1+64 и MsgBox “Продолжение работы”, D

Окно сообщений можно также вызывать с помощью функции MsgBox, синтаксис которой совпадает с оператором MsgBox, но содержит скобки, результат выполнения функции - код возврата, зависящий от кнопки нажатой пользователем.

Пример:

Dim R As Integer

R = MsgBox (“сообщение”, атрибуты, “заголовок”)

If R=1 Then

…

End if

В переменной R будет находится код возврата, в зависимости от нажатой кнопки.

5.14.2 Окно ввода

Оператор окна ввода:

InputBox “сообщение”, “заголовок”, умолчание

Можно использовать как оператор как функцию:

R = InputBox (“сообщение”, “заголовок”, “умолчание”)

Умолчание - это то, что будет выведено в текстовое поле по умолчанию.

Пример:

Когда пользователь щёлкает по кнопке «ОК» содержимое текстового поля присваивается переменной «R». При нажатии на «Отмена», возвращается строка нулевой длины.

Пример:

Высветить окно ввода имени пользователя, если введено «Администратор», то вывести окно вывода «Здравствуй хозяин!», а иначе окно «Привет и имя».

Dim A As String

A = InputBox("Введите имя:", "Ввод имени", "Администратор")

If A = "Администратор" Then

MsgBox "Здравствуй хозяин!", 1, "Сообщение"

Else

MsgBox "Привет " & A, 1, "Сообщение"

End If

5.14.3 Вывод данных на печать

I. Метод Print применяется для вывода данных на форму и или на принтер.

1. Вывод на форму:

Имя_формы.Print

2. Вывод на принтер:

Printer.Print

Если необходимо вывести данные на текущую форму, то её имя можно не указывать, а просто писать Print и список выводимых параметров

II. Метод CLS убирает с формы весь текст выводимый оператором Print на форму.

Print направляет данные в память, а печать начинается методом EndDoc, для многостраничных документов методом NewPage.

Пример печати двухстраничного документа:

Printer.Print "Первая страница"

Printer.Print "Вторая строка на 1-й странице"

Printer.NewPage

Printer.Print "вторая страница"

Printer.EndDoc

Просмотр ошибок в окне непосредственных вычислений осуществляется с помощью объекта Debug, для которого нужно вызвать метод Print.

Пример:

1. Создать форму.

2. Ввести процедуру:

Private Sub Form_Click ( )

Dim x As Integer

onError gotom1 'запуск обработчика ошибок

Do While x < 100000

x = x + 1

Loop

Exit Sub 'Предварительный выход из процедуры

m1:

Debug.Print "Ошибка!"

Debug.Print "x=" & Str(x)

End Sub

5.14.4 Печать исходного текста программы

Чтобы получить список всех объектов и программного кода можно воспользоваться пунктом меню «Файл» - «Печать», появится окно Print.

Для нерусифицированной версии Visual Basic:

1. Selection - печать выделенного в окне программы фрагмента кода.

2. Current Module - печатается информация о форме, с которой вы сейчас работаете в окне конструктора форм.

3. Current Project - выводит информацию о всех модулях форм, входящих в проект.

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

5. Code - печать листинга всех процедур событий формы и её элементов, процедура упорядочивается в алфавитном порядке по свойству Name объекта.

6. Form as Text - в листинг включаются свойства формы и всех элементов находящихся на ней. Выводятся не все свойства, а те которые были изменены.

В программном коде разделение операторов в одной строке оформляется двоеточием. Продолжение оператора на следующей строке оформляется знаком подчёркивания в конце первой строки.

Например:

StrName = SrtFam_

& “ “ & StrIm & “ “ & StrOtch

5.15 Файлы

В Visual Basic различают 3 типа файлов по способу доступа:

1. Последовательные.

2. С произвольным доступом.

3. Двоичные (обычно это исполняемы файлы, содержащие код).

Файлы последовательного доступа читаются и пишутся только от начала файла. Их можно либо читать, либо писать.

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

Последовательные файлы.

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

Последовательный файл можно отредактировать в текстовом редакторе. Такие файлы не эффективны для хранения числовой информации, так как числа хранятся в символьном формате.

Открытие последовательного файла.

Open “Путь и имя файла” For режим As файловое число

Значения режима: Input - чтение, Output - запись, Append - для до записи.

Файловое число - 0..255

Если открывать несуществующий файл с режимом Input, то выведется ошибка, а с режимом Output, Append - создастся новый.

Если вы не знаете, какое файловое число сейчас свободно, используйте функцию FreeFile.

Пример:

Fn = FreeFile

Open “file1.txt” for output As Fn

Закрытие файла:

Close #файловое число

Пример закрытия нескольких открытых файлов:

Close #1, #3, #4

Запись данных в файл (печать в дисковый файл):

Print #файловое число, список аргументов

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

Format (переменная, “строка форматирования”)

В строке форматирования используют следующие символы:

# - любая цифра

0 - обязательный символ

, - разделитель разрядов

Пример:

Open “Spisok.dat” For output As 1

A=0.1234

Print #1, A, Format (A, “#,###.00”), Format (A, “0.00”)

Пример 2:

Open “Spisok.dat” For Output As 1

A=1234

Print #1, A, Format (A, “#,###.00”), Format (A, “0.0”)

При использовании оператора Print, данные записываемые в файл форматируются для удобного чтения форму. Каждое значение отделяется друг от друга пробелами по 14 символов, поэтому удобнее использовать оператор:

Write #файловое число, список аргументов

При использовании Write каждый элемент данных отделяется запятой и каждая строковая величина заключается в кавычки.

Пример:

A=5

Write #Fn, A

Write #Fn, A, Format (A, “#,# # #.0), Format (A, “#.00”)

5

5, “5.0”, “5.00”

Чтение данных из файла.

Input и Line Input.

Пример:

Input #файловое число, список аргументов

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

Пример:

Input #файловое число, A, B, C

Пробелы и табуляторы, расположенные в начале строки игнорируются, если переменная имеет числовое значение, то Visual Basic первый непустой символ воспринимает как число и читает до тех пор, пока не встретится какой-нибудь символ, который не может быть частью числа.

Например, алфавитный символ, запятая или символ конца строки.

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

Запуск документа в окне программы, создавшее его.

Shell “имя программы путь \ имя файла”

Пример:

Shell “notepad D:\MyDocs\otchet.txt”

Откроется файл otchet.txt в окне программы блокнот.

Файлы с произвольным доступом.

Открытие:

Open “имя файла” For Random As файловое число Len = длина записи

For Random - произвольный доступ.

Длина записи либо кратной размеру дискового сектора либо делить указанный размер нацело. Большинство дисковых накопителей имеют размер сектора 512 или 1024 байт, следовательно, оптимальная длина записи должна быть степенью числа 2 (32, 64, 128, 256, 512).

Пример:

Open “myFile.dat” For random As 10 Len = 256

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

Применение оператора Type при определении записи.

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

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

Пример:

Open “myfile.dat” For Random As 10 Len = 128

Type ZAP

Name As String*25

Adr As String*50

Tf As String*11

Prof As String*20

MestoRab As String*22

End Type

Можно объявить массив, состоящий из таких записей:

Dim Mas (100) As ZAP

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

Сохранение данных в файлах произвольного доступа.

Put #файловая переменная, № записи, переменная

Если опустить «№ записи» в операторе Put, то будет использован номер следующий за тем, который был использован в последних из предыдущих операторе Put, Get или Seek.

Чтение данных из файлов произвольного доступа.

Get #файловое число, № записи, переменная

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

Задача:

Запустить Form1 ввести значение текстовых полей, сформированная запись записывается в файл basa.dat, при щелчке на кнопке «поиск» загружается Form2, в которой осуществляется поиск номера человека по его фамилии.

Решение:

В свой модуль сделать записи:

Public Type tz

fn As Integer

fio As String * 20

End Type

Public zap As tz, n As Integer

Код формы 1:

Private Sub Form_Load()

n = 1

Open "BAZA.dat" For Random As 1 Len = Len(zap)

End Sub

Private Sub Cmd1_Click()

If LOF(1) <> 0 Then

Dim kolz As Long

zap.fn = Val(Txt1.Text)

zap.fio = Txt2.Text

kolz = LOF(1)

Put #1, kolz + 1, zap

Txt1.Text = " "

Txt2.Text = " "

kolz = kolz + 1

End If

If LOF(1) = 0 Then

zap.fn = Val(Txt1.Text)

zap.fio = Txt2.Text

Put #1, n, zap 'Запись в файл

Txt1.Text = " "

Txt2.Text = " "

n = n + 1

End If

End Sub

LOF(x) - выдаёт размер в байтах файла, файловое число, которого записана в скобках функции 1 (LOF(1))

Private Sub Cmd2_Click()

Form2.Show

End Sub

Код формы 2:

В раздел General объявляем переменные:

Public K As Integer, Po As String

K - это номер файла, из которого искать.

Ро - поисковый образ.

Private Sub Cmd1_Click()

Txt1.Locked = True

Dim i As Integer

po = Txt1.Text

For i = k To 15

Get #1, i, zap

If InStr(zap.fio, po) > 0 Then

Lbl2.Caption = "Найден №:" & zap.fn

k = i

End If

Next

End Sub

InStr - выдаёт номер символа в строке, с которой начинается поисковый образ.

Новый поиск:

Private Sub Cmd2_Click()

Txt1.Locked = False

Lbl2.Caption = " "

k = 1

Txt1.Text = " "

End Sub

5.16 Библиотеки подпрограмм

DLL - представляет собой компоненты приложений, объединяющие несколько функций в файле, который связывается с программой и используется ею вовремя выполнения.

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

ОС Windows состоит из множества DLL и нескольких программ, которые пользуются услугами этих DLL. Например, диалоговые окна, открытие, сохранение файлов.

Windows API - это набор DLL библиотек с тысячами программ, обеспечивающими функциональные возможности Windows.

Одни DLL находятся в самом каталоге Windows, а другие в его подкаталоге System.

Вызов DLL.

Private Declare Function <имя функции API> Lib “имя файла, в котором находится функция”_

или

Public

Alias <имя функции внутри DLL> (ByVal <параметр> As <тип>,..) As <тип значения возврата>

или

ByRet

ByVal - означает, что при передаче параметра, функция получает текущее значение переменной.

ByRet - передача параметров по ссылки: функция находит в памяти область, в которой находится данная переменная и берёт её значение оттуда.

Этим обеспечивается совместимость с языками программирования С и С++, так как большая часть API описана на этих языках.

По умолчанию параметры передаются по ссылке.

<тип значения возврата> - обычно он бывает типа Long - это код возврата сообщающий, успешно ли была завершена операция «передача вызова DLL», функцией, а в случае неудачи причины сбоя.

При работе с DLL необходимо сохранять проект перед каждым его запуском, так как неверное обращение к DLL может привести к «зависанию» компьютера.

Пример:

Объявление функции API с именем SndPlaySound, предназначенной для воспроизведения WAV файлов.

Private Declare Function sndPlaySound Lib "winmm.dll" Alias "SndPlaySoundA"_ (ByVal LpszSoundName_ As String, ByVal uflags As Long) As Long

Параметр LpszSoundName - это переменная , в которой хранится полное имя файла WAV формата.

uFlags - передаёт функции набор флагов, используемых в её работе.

Использование функций API в приложениях.

Можно упростить работу вызова DLL, с помощью вспомогательной программы API Viewer, входящей в состав Visual Basic.

Её можно вызвать из меню «Добавления» > «Менеджер Дополнений» > «VB6» > «API Viewer»

1. В диалоговом окне в поле API Type выбрать Declares и листать список или ввести начальные буквы функции, для более быстрого поиска, когда выбрать функцию (sndPlaySound), в нижнем окне она уже будет описана, как в примере.

2. Щёлкнуть по кнопке «Copy» - объявление функции скопируется в буфер обмена.

3. Закрыть API Viewer.

4. Создать форму и вставить для неё код, в секцию General вставить содержимое буфера обмена. Обычно объявление функции вставляют в отдельный модуль, тогда в строке объявления нужно использовать не Private, а Public.

5. В процедуру Form_Load ( ) добавить код:

Private Sub Form_Load ( )

Dim filename As String

Dim rez As Long

filename = "C:\WINDOWS\Media\tada.wav"

rez = sndPlaySound(filename, 1)

End Sub

Код 1 включает звук.

Результат выполнения: при запуске приложения вы услышите знаменитое «та-да». Таким образом, можно задавать звуковое оформление вашего приложения.

5.17 Разработка и отладка программ

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

5.17.1 Документирование программ

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

Комментарии в программе играют важную роль, они помогают понять, какую задачу выполняет строка программы, процедура, модуль или всё приложение. Признак комментария - символ «апостроф» (`) в начале строки.

Уровень приложения. Часто приложение - это плод работы ни одного программиста, а целой группы, поэтому можно создать отдельный модуль, который будет содержать только сведения о проекте в следующем формате:

`

` Имя приложения:

` Версия:

` Товарные знаки:

` Автор/организация:

` Назначение:

` Требования:

Пример:

` Имя приложения: Программа для работы с файлами журналов

` Версия: 1.2

` Товарные знаки: Нет

` Автор/организация: Иванов И.И./ ABS SoftWare

` Назначение: Приложение читает и анализирует

`файлы журналов.

`Может использоваться для централизованного

`управления системными журналами через

`единый интерфейс с общим набором

`инструментов

` Требования: Клиент: Windows XP/ Windows 2000

` Сервер: MS SQL Server 8.0

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

Рекомендуемый стиль комментариев:

` Имя файла:

` Автор:

` Дата:

` Зависимости:

` Обновления:

Уровень процедуры. Комментарии следует вставлять в начало всех нетривиальных процедур.

Пример:

` Процедура: AddUser ( )

` Автор: Петров П.П.

` Дата: 20 ноября 2009 г.

` Описание: Добавление пользователя в домен

` Требования: Для работы данной функции необходимо

` задать значения свойств UserID и Password

Уровень программы. Комментарии более низкого уровня включаются непосредственно в программу. Можно использовать следующую систему комментариев:

Обозначение	Описание
`	Комментарий общего назначения. Используется для любых пометок, не требующих особого внимания.
`???	Спорный фрагмент программы. Полезен при работе в группе и при отладки чужих программ.
`!!!	Код требует особого внимания! Может использоваться для кода, который необходимо тщательно проверить, удалить или восстановить в прежнем виде.

Соглашения об именах. При выборе имён компонентов следует руководствоваться единым набором правил. Каждый компонент в проекте должен иметь уникальное имя. Лучше объектам давать смысловые названия, а не пользоваться стандартными, принимаемыми по умолчанию, так как если на форме у вас 10 кнопок, то трудно во время написания кода помнить назначение кнопки Command1, Command2, Command3,…

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

Элемент	Префикс	Пример
Форма	Frm	frmMain
Кнопка	Cmd	cmdOk
Надпись	Lbl	lblName
Текстовое поле	Txt	txtVvodA
Переключатель	Opt	optOn, optOff
Флажок	Chk	chkCvet
Рисунок	Img	imgRis
Список	Lst	LstTovar

Написание структурированного кода. Использование символов табуляции и пробелов делают программу более наглядной и понятной.

По умолчанию 1 позиция табуляции = 4 пробелам, изменение этого значения: Tools - Options - вкладка Editor - поле Tab Width.

Пример:

Open filename for input as fileno

Do While Not EOF (fileno)

Input #1, txt

Debug.Print txt

Loop

Close fileno

5.17.2 Повышение надёжности программ в Visual Basic

Параметры повышения надёжности программ находятся в: Tools - Options - вкладка Editor.

Если вставить команду Option Explicit в начале каждого модуля, VB потребует обязательного объявления переменных перед их первым использованием (помните, что использование типа Varianthf работает неэффективно). Чтобы эта команда вставлялась автоматически, установите флажок Recuire Variable Declaration.

Флажок Auto List Members - выводится список свойств и методов объекта при вводе кода. Флажок Auto Quick - отображение информации о функциях и параметрах во время ввода программы. Флажок AutoIndent помогает создавать аккуратно сконструированные программы, если его установить, код автоматически сдвигается на указанное количество пробелов.

5.17.3 Отладочные средства Visual Basic

Панель инструментов отладки вызывается на экран командой View - Toolsbars - Debug.

Добавление точек прерывания позволяет программе остановиться при достижении определённого места. С их помощью можно проследить за состоянием переменных и определить, ведёт ли себя программа так, как ожидалось. Добавить точки прерывания - установить курсор в нужную строку кода и нажать F9 или через меню Debug - Toggle Breakpoint или одноимённая кнопка на панели инструментов отладки.

Снять все точки прерывания: Debug - Clear All Breakpoint или клавишами Ctrl+Shift+F9.

Режим меню Step Info (F8) выполняет одну строку программы.

Пошаговое выполнение помогает следить за работой приложения, последовательно выполняя команду за командой. Режим меню Debug - Step Over (Shift+F8) позволяет вызвать процедуру или функцию без пошагового выполнения каждой строки.

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

Кнопка Immediate Window (Ctrl+G) отображает окно непосредственных вычисления. В этом окне можно проверить работу функций и состояние переменных - как в режиме конструирования, так и во время отладки.

Во время выполнения программы можно в реальном времени следить за состоянием некоторой переменной или объекта в окне просмотра, которое вызывается командой Watch Windows. Кнопка Add включает выражение в окно просмотра, чтобы можно было проследить за его состоянием в будущем.

6. Упражнения

Упражнение 1.

Разработайте программу, аналогичную приведенной на рисунке:

Требования:

1. На форме должны быть расположены текстовое поле и три кнопки - «Показать», «Очистить» и «Выход».

2. При нажатии на кнопку «Показать», в текстовом поле должен появляться какой-нибудь текст.

3. При нажатии на кнопку «Очистить», текст должен быть удален из поля.

4. Кнопка «Выход» должна закрывать программу.

Упражнение 2.

Разработайте программу, аналогичную приведенной на рисунке:

Требования:

1. На форме должны быть расположены текстовое поле, скроллбар и кнопка «Выход».

2. При перемещении ползунка скорллбара цвет фона формы должен меняться

3. В текстовом поле должен изображаться код, соответствующий текущему цвету фона.

4. Кнопка «Выход» должна закрывать программу.

Упражнение 3.

Разработайте программу, аналогичную приведенной на рисунке:

Требования:

1. На форме должны быть расположены текстовое поле, два флажка и кнопка «Выход».

2. При различных положениях флажков в текстовом поле должен появляться различный текст.

3. Кнопка «Выход» должна закрывать программу.

Упражнение 4.

Разработайте программу, аналогичную приведенной на рисунке:

Требования:

1. Меню должно содержать пункт «Настройки», в котором должны быть доступны опции (например, несколько названий цветов).

2. При различных опциях цвет фона формы должен меняться

Упражнение 5.

Разработайте программу, аналогичную приведенной на рисунке:

Требования:

1. Форма должна содержать переключатели (например, несколько названий цветов).

2. При различных положениях переключателей цвет фона формы должен меняться.

3. На форме должна присутствовать группа переключателей «Размер окна», позволяющая разворачивать форму во весь экран, и переключать обратно в компактный вид.

4. Кнопка «Выход» должна закрывать программу.

Упражнение 6.

Разработайте программу, аналогичную приведенной на рисунке:

Требования:

1. Форма должна содержать два скроллбара - «Толщина» и «Форма», две надписи (или метки), любую геометрическую фигуру и кнопку «Выход».

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

3. Кнопка «Выход» должна закрывать программу.

Упражнение 7.

Разработайте программу, аналогичную приведенной на рисунке:

Требования:

1. Форма должна содержать скроллбар, таймер и кнопку «Выход».

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

3. Кнопка «Выход» должна закрывать программу.

Упражнение 8.

Поместите на форму любое изображение и кнопку «Выход».

Требования:

1. При щелчке мышью по рисунку должно появляться текстовое сообщение.

2. Кнопка «Выход» должна закрывать программу.

Упражнение 9.

Поместите на форму любое изображение и кнопку «Выход».

Требования:

1. При двойном щелчке мышью по рисунку должно появляться текстовое сообщение.

2. Кнопка «Выход» должна закрывать программу.

Упражнение 10.

Разработайте программу, аналогичную приведенной на рисунке:

Требования:

1. Программа должна содержать функциональное меню, в котором должен присутствовать пункт «Настройки», а в нем - флажок «Строка состояния».

2. Флажок должен управлять строкой состояния (показать/скрыть).

3. На строке состояния должна быть размещена кнопка «Выход».

Упражнение 11.

Обеспечьте любым программным способом вычисление суммы двух чисел.

Упражнение 12.

Организуйте ввод чисел из внешней формы, с проверкой правильности введенных значений.

Упражнение 13.

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

Упражнение 14.

Разработайте программу-генератор случайных чисел, аналогичную приведенной на рисунке:

Упражнение 15.

Разработайте программу, аналогичную приведенной на рисунке:

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

Упражнение 16.

Разработайте программу, аналогичную приведенной на рисунке:



Требования:

1. При нажатии на кнопку «Ставить случайные точки» должны на форме должны появляться разноцветные точки, в случайном порядке.

2. Надпись на кнопке «Ставить случайные точки» должна соответственно меняться на надпись «Стоп».

3. Кнопка «Стоп» должна прекращать генерацию точек.

4. Кнопка «Выход» должна обеспечивать выход из программы.

Упражнение 17.

Разработайте программу, аналогичную предыдущей, но замените случайные точки случайными геометрическими фигурами.

Упражнение 18.

Организуйте вычисление произведения двух чисел любым программным способом.

Упражнение 19.

Организуйте вычисление значений любой функции.

Упражнение 20.

Разработайте программу, оставляющую любой след на форме, в соответствии с кликами мыши.

Упражнение 21.

Разработайте программу для рисования, аналогичную редактору Microsoft Paint.

Упражнение 22.

Организуйте вывод любого массива программным способом.

Упражнение 23.

Разработайте программу, аналогичную приведенной на рисунке:

Требования:

1. На форме должен быть расположен список.

2. Заполните список произвольными значениями.

3. Обеспечьте возможность редактирования списка любым способом.

4. Обеспечьте возможность переноса значений из списка в текстовое поле.

Упражнение 24.

Разработайте программу, аналогичную приведенной на рисунке:

Требования: обеспечьте возможность переноса значений из ComboBox в текстовое поле любым способом.

Упражнение 25. Разработайте программу «Калькулятор», аналогичную встроенному калькулятору Windows (Пуск - Выполнить - calc).

Требования:

1. Обеспечьте функциональность всех кнопок.

2. Организуйте удобную форму вывода результатов вычислений

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

Размещено на Allbest.ru