Урок N 29

Основы программирования в среде Visual Basic 3.0.

Среда программирования Visual Basic (VB) используется для созда-

ния программ, работающих в Windows. Версии VB 1.0-3.0 работают в

Windows 3.1, VB 4.0-6.0 в Windows 95 и выше.

В основе VB лежат идеи объектно-ориентированного программирования.

Для создания простейшей программы в Visual Basic 3.0 необходимо:

 

1) Запустите Visual Basic 3.0, который работает в среде Windows.

2) Щёлкните дважды мышью по инструменту "Метка", имеющему вид

квадратика с буквой A в середине.

3) В появившейся пустой форме со стандартным заголовком Form1

проведите мышью, нажав левую кнопку и начертите прямоугольник

со стандартной надписью Label1 внутри.

4) Щёлкните дважды мышью в любую часть свободного пространства

рабочего поля формы Form1. Появится окно с заголовком Form1.frm.

В теле процедуры Form_Load введите оператор

Label1 = "Я изучаю VISUAL BASIC!":

 

Sub Form_Load ()

Label1 = "Я изучаю VISUAL BASIC!"

End Sub

 

На этом работа по созданию программы, приведенной выше, завершена. Можно сохранить программу (меню File, Save As) и запустить программу на исполнение - нажать F5 или меню Run, Start. Результат работы программы - окно с надписью Я изучаю VISUAL BASIC! Лучше всего создать исполнимый *.exe файл, который может работать автономно в среде Windows. Но для него нужна библиотека vbrun300.dll. Для создания *.exe файла используется меню File, Make EXE. По умолчанию файл получает имя Project1.exe. Но можно задать другое имя и путь для сохранения *.exe файла. В файл с текстом (в форму Form1) можно вставиь картинку *.ico, *.bmp, *.wmf, *.dib (Панель Propertis, Picture). Можно создать *.exe файл, содержащий только картинку, взятую из файлов с указан- ными расширениями. Через буфер обмена Windows в форму Form1 можно вставить (Edit, Paste) вообще любой графичесий файл, текстовый спецэффект и элект- ронную таблицу и формулу из редактора Word, другие объекты. При компиляции мы получим программу Project1.exe, содержащую указанные объекты.   Если в поле формы сделать два прямоугольника Label1 и Label2, то можно сделать программу вида:   Sub Form_Load () Label1 = "Текст 1" Label1 = "Текст 2" End Sub   Программа с циклическим алгоритмом имеет вид:   Sub Form_Activate () For i = 1 To 10 Form1.Print "Привет!" Next i End Sub   Программа с циклическим алгоритмом вычисления функции y=x*x-2*x+1 при x=1...10, шаг 0.5 имеет вид:   Sub Form_Activate () Form1.Print "Вычислить функцию y=x*x-2*x+1 при x=1...10, шаг 0.5." For x = 1 To 10 Step .5 y = x * x - 2 * x + 1 Form1.Print "x="; x, "y="; y Next x End Sub   Программа для рисования семейства концентрических окружностей:   Sub Form_Activate () Form1.Print "Нарисуйте семейство окружностей." For x = 1 To 15 Circle (3500, 2000), 100 * x, 1 Next x End Sub   Программа для создания кнопки (не связанной с приложением):   Sub Command1_Click () End Sub

<

td>

Для создания приложения, запускающего программы, которые указаны

как объекты, внедряемые в файл, необходимо щёлкнуть мышью кнопку с

надписью OLE 2.0, затем на бланке Form1 выделить (обвести) мышью

прямоугольную область (окно).

Появится диалоговое окно Insert Object. Надо выбрать внедряемый

объект из списка в окне Object Type и установить флажок Display As

Icon, чтобы в выделенном окне появилась икона выбранного объекта,

и нажать ОК. Произойдёт загрузка объекта. Икону объекта можно сме-

нить (кнопка Change Icon) до нажатия ОК загрузки объекта.

Теперь можно запустить программу - меню Run, Start (F5) и создать

EXE-файл (меню File, Make EXE-file), чтобы откомпилировать прог-

рамму, имеющую вид:

 

Sub OLE1_Updated (Code As Integer)

End Sub

 

После компиляции программы, достаточно щёлкнуть мышью по

иконе в окне, и внедрённая программа запустится.

Можно сделать несколько окон с иконами и запускать

такие программы, как Word, Excel, Works и другие из списка

объектов, которые можно внедрить в файл.

 

Для кнопки, связанной с приложением:

1) Перед Вами форма (по умолчанию её имя "Form1"),

В левой части экрана находится toolbox ("коробочка с инструментами"),

содержащая ряд стандартных объектов.

Среди них находите кнопку ("Button") и нажимаете на неё.

Теперь на окне Form1 размещаете объект.

2) То же самое делаете и с объектом Text

(в toolbox он выглядит как буквы "Аб").

3) Теперь активизируете кнопку: щёлкаете по ней 2 раза.

Перед Вами появляет код формы и курсор стоит там, где нужно нам.

Теперь пишите (где стоит курсор):

Form1.Text1.Text="Mark"

4) Закрываете окно кода.

5) Запускаете приложение и нажимаете на кнопку,

которую Вы сделали.

Текст программы (Form1):

 

Sub Command1_Click ()

Form1.Text1.Text = "Mark"

End Sub

 

Для запуска приложений в VB (также как и в QB) есть

процедура Shell.

Чтобы запустить программу нужно вызвать её следующим образом:

Shell("путь",число%)

число определяет в каком виде будет открыто

главное окно программы:

1, 5, 9 Стандартное с фокусом.

2 Минимизированное с фокусом (по умолчанию).

3 Максимизированное с фокусом.

4, 8 Стандартное без фокуса.

6, 7 Минимизированное без фокуса.

Программа, запускающая Notepad.exe, при нажатии кнопки:

 

Sub Command1_Click ()

Const NormalFocus = 1

ReturnCode = Shell("notepad.exe", NormalFocus)

End Sub

 

Программа для создания калькулятора:

 

Клавиша "+":

Sub Command1_Click ()

text3.Text = Str(Val(text1.Text) + Val(text2.Text))

End Sub

 

Клавиша "*":

Sub Command2_Click ()

text3.Text = Str(Val(text1.Text) * Val(text2.Text))

End Sub

 

Клавиша "-":

Sub Command3_Click ()

text3.Text = Str(Val(text1.Text) - Val(text2.Text))

End Sub

 

Клавиша "/":

Sub Command4_Click ()

text3.Text = Str(Val(text1.Text) / Val(text2.Text))

End Sub

 

Клавиша Выход:

Sub Command5_Click ()

End

End Sub

 

Для смены надписей на кнопках вместо Command? существует панель "Properties", в которой можно поменять эти значения. Так название кнопки (которое будет на ней написано) именуется Caption, а её имя - Name. Они оба по умолчанию принимают значения "Command?". Пос- леднее определяет названия процедуры, вызываемой событием (напр. Command1_Click () ). Можно присваивать названия типа cmdOpen, cmdHelp, как это принято в других языках. Обучалка по Visual Basic (403 Кб) Дистрибутив Visual Basic 3.0 (zip-архив 4,23 Мб)