UCOZ Реклама
На сайте art-code.com.ua успей записаться на курсы по программированию

Урок 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 Мб)

Возврат в оглавление

Hosted by uCoz