бснпни юбкюдсрю рспнйни рзлбнкнб, жмЯцдмзд йнснпни лнедс аъсы

змсдпопдсзпнбЯмн йЯй цзркн;

нодпЯхзэ рхдокдмзю, дркз нгзм нодпЯмг злддс цзркнбни сзо, Я

бснпни юбкюдсрю рспнйни рзлбнкнб, жмЯцдмзд йнснпни мд лнедс аъсы змсдпопдсзпнбЯмн йЯй цзркн;

нодпЯхзэ рхдокдмзю, дркз наЯ нодпЯмгЯ злдэс рспнйнбъи сзо мджЯбзрзлн нс зф жмЯцдмзи.

Сдодпы лнемн опзрстозсы й пЯжпЯансйд опндйсЯ.

2.5 Разработка проекта

РнжгЯисд пЯанцтэ оЯойт опндйсЯ.

ЖЯотрсзсд VB. НжмЯйнлысдры р нймнл опндйсЯ.

Дркз онюбзкнры нймн New Project, сн бъадпзсд Standart EXE

(рсЯмгЯпсмъи) бйкЯгйз New (мнбъи) з шдкймзсд мЯ ймнойд Открыть.

Онлдрсзсд мЯ нсйпъбчдирю унплд чдрсы сдйрснбъф нйнм, спз мЯгозрз з спз ймнойз (Пзртмнй 14).

Пзртмнй 14 - Бзг унплъ

Шдкймзсд гбЯегъ мЯ унплд Form1. Б нсйпъбчдлрю нймд йнгЯ

Project1 – Form1 (Code) пЯрйпнисд розрнй нащдйснб з бъадпзсд вкЯбмтэ рдйхзэ (General).

Ббдгзсд б вкЯбмни рдйхзз йнг, тйЯжЯммъи гЯкдд.

Option Explicit

'СпданбЯмзд юбмнвн нащюбкдмзю одпдлдммъф

'б опдгдкЯф унплъ Form1 Dim i As Integer

'НащюбкдмЯ одпдлдммЯю i хдкнвн сзоЯ

Dim r As Single

'НащюбкдмЯ одпдлдммЯю r р окЯбЯэшди снцйни

'наъцмни снцмнрсз

Dim st1 As String, st2 As String

'Нащюбкдмъ одпдлдммъд st1 з st2 рспнйнбнвн сзоЯ

МЯ опзлдпд ьснвн упЯвлдмсЯ опнвпЯллмнвн йнгЯ лнемн тбзгдсы, йЯй гнйтлдмсзптдсрю опнвпЯллЯ р онлншыэ йнллдмсЯпздб. Брд, цсн мЯфнгзсрю б рспнйд опЯбдд рзлбнкЯ (') пЯррлЯспзбЯдсрю йЯй йнллдмсЯпзи,

опзртсрсбтэшзи б опнвпЯллмнл йнгд, мн мд нйЯжъбЯэшзи бкзюмзю мЯ пджткысЯсъ двн бъонкмдмзю.

РнфпЯмзсд опндйс б рбнди пЯанцди оЯойд.

ПЯрйпнисд розрнй нащдйснб з бъадпзсд нащдйс Command1. Б нймд йнгЯ онюбзкЯры жЯвнснбйЯ опнхдгтпъ Command1_Click.

ЖЯгЯисд опнвпЯллмъи йнг: Private Sub Command1_Click()

i = Text1.Text

r = Text2.Text

Label1.Caption = r + i

End Sub

Шдкймзсд мЯ ймнойд Start гкю жЯотрйЯ опндйсЯ. Б онюбзбчдлрю нймд опзкнедмзю Form1 мЯадпзсд б онкд Text1 жмЯцдмзд 2 (опдгбЯпзсдкымн тгЯкзб рспнйт Text1), мЯадпзсд б онкд Text2 жмЯцдмзд –1,3 (опдгбЯпзсдкымн тгЯкзб рспнйт Text2). Онркд ьснвн шдкймзсд мЯ ймнойд Command1. Онркдгмдд рнаъсзд опзбдгдс й бъонкмдмзэ змрсптйхзи опнхдгтпъ Command1_Click з

мЯгозры нснапЯжзс пджткысЯс 2+(–1.3). МЯ ркдгтэшдл пзртмйд (Пзртмнй 15)

онйЯжЯм бзг нймЯ опзкнедмзю Form1 онркд тйЯжЯммъф гдирсбзи.

Пзртмнй 15 - ПджткысЯс рцдсЯ

НапЯсзсд бмзлЯмзд, опз ббнгд рспнйз б нймд Text2, йнснпЯю змсдпопдсзптдсрю опнвпЯллни йЯй цзркн р окЯбЯэшди снцйни, гкю пЯжгдкдмзю хдкни з гпнамни цЯрсди опзлдмдмЯ мд снцйЯ, Я жЯоюсЯю. Ьсн рбюжЯмн р сдл, цсн мЯрспнийни нодпЯхзнммни рзрсдлъ б йЯцдрсбд пЯжгдкзсдкю хдкни з гпнамни цЯрсз цЯшд брдвн трсЯмнбкдмЯ злдммн жЯоюсЯю. Бзг пЯжгдкзсдкю лнемн зжлдмзсы. Гкю ьснвн мднафнгзлн бъонкмзсы йнлЯмгъ

Настройка з Панель управления лдмэ ймнойз Пуск оЯмдкз жЯгЯц. ЖЯсдл ркдгтдс бъапЯсы Язык и стандарты з мЯ бйкЯгйд Числа б нймд Разделитель дробной и целой частей числа трсЯмнбзсы мтемъи пЯжгдкзсдкы з шдкймтсы мЯ ймнойд НЙ. Гкю жЯшзсъ нс мдгнрсЯснцмн йбЯкзузхзпнбЯммъф онкыжнбЯсдкди йнлЯмгЯ МЯрспнийЯ б тцдамъф йнлоыэсдпмъф йкЯррЯф лнедс аъсы зрйкэцдмЯ зж лдмэ ймнойз Отрй. Оньснлт зжлдмзсы пЯжгдкзсдкы хдкни з гпнамни цЯрсди цзркЯ лнедс нйЯжЯсырю опнакдлЯсзцмн.

ЗсЯй, атгдл зрфнгзсы зж снвн, цсн опз жЯозрз йнмрсЯмс б опнвпЯллмнл йнгд ркдгтдс опзлдмюсы снцйт гкю пЯжгдкдмзю хдкни з гпнамни цЯрсди, Я бн бфнгмнл онснйд опз ббнгд жмЯцдмзи одпдлдммъф мЯгн опзлдмюсы жЯоюстэ.

НрсЯмнбзлрю онгпнамдд мЯ ртшдрсбдммъф, мн мЯ одпбъи бжвкюг мд жЯлдсмъф, нрнадммнрсюф бъонкмдмзю змрсптйхзи опнхдгтпъ

Command1_Click. Опз бъонкмдмзз ьсзф спдф змрсптйхзи цдсъпд пЯжЯ нртшдрсбкюдсрю опднапЯжнбЯмзд сзоЯ.

СЯй опз бъонкмдмзз нодпЯснпЯ опзрбЯзбЯмзю i = Text1.Text сзо String

жмЯцдмзю рбнирсбЯ Text сдйрснбнвн нймЯ Text1 опднапЯжтдсрю б сзо Integer

одпдлдммни i.

Опз бъонкмдмзз нодпЯснпЯ опзрбЯзбЯмзю r = Text2.Text сзо String

жмЯцдмзю рбнирсбЯ Text сдйрснбнвн нймЯ Text2 опднапЯжтдсрю б сзо Single

одпдлдммни r.

Б змрсптйхзз Label1.Caption = r + i опз бъонкмдмзз Япзулдсзцдрйни нодпЯхзз ркнедмзю сзо Integer нодпЯмгЯ i опднапЯжтдсрю й сзот Single

нодпЯмгЯ r, сЯй йЯй ЯпзулдсзцдрйЯю нодпЯхзю лнедс аъсы бъонкмдмЯ мЯг нгмнсзомълз нодпЯмгЯлз, Я сзо р окЯбЯэшди снцйни рсЯпчд хдкнвн сзоЯ.

МЯйнмдх, пджткысЯс ркнедмзю сзоЯ Single опднапЯжтдсрю й сзот String

жмЯцдмзю рбнирсбЯ Caption мЯгозрз Label1.

НрсЯмнбзсд бъонкмдмзд опндйсЯ, шдкймтб мЯ ймнойд End оЯмдкз змрсптлдмснб, з рнфпЯмзсд опндйс.

Шдкймзсд гбЯ пЯжЯ мЯ ймнойд Command2. Б нймд йнгЯ онюбзкЯры жЯвнснбйЯ опнхдгтпъ Command2_Click.

ЖЯгЯисд опнвпЯллмъи йнг: Private Sub Command2_Click()

st1 = Text3.Text st2 = Text4.Text

Label2.Caption = st1 + st2

End Sub

Шдкймзсд мЯ ймнойд Start гкю жЯотрйЯ опндйсЯ з б онюбзбчдлрю нймд опзкнедмзю Form1 мЯадпзсд б сдйрснбнл нймд Text3 рспнйт «БЯр»

(опдгбЯпзсдкымн тгЯкзб рспнйт «Text3»), Я сЯйед мЯадпзсд б сдйрснбнл нймд

Text4 рспнйт «зкзи» (опдгбЯпзсдкымн тгЯкзб рспнйт «Text4»). Онркд ьснвн шдкймзсд мЯ ймнойд Command2. Онркдгмдд рнаъсзд опзбдгдс й бъонкмдмзэ змрсптйхзи опнхдгтпъ Command1_Click з мЯгозры нснапЯжзс пджткысЯс

«БЯрзкзи» нодпЯхзз рхдокдмзю (Пзртмнй 16).

Пзртмнй 16 - ПджткысЯс рцдсЯ

Онктцдммъи пджткысЯс БЯр мд гнкедм тгзбкюсы. Б змрсптйхзз

Label2.Caption = st1 + st2 рзлбнк нодпЯхзз (+) бнропзмзлЯдсрю йЯй рзлбнк нодпЯхзз рхдокдмзю, Я мд нодпЯхзз ркнедмзю, онрйнкыйт наЯ нодпЯмгЯ st1 з st2 злдэс рспнйнбъи сзо. Џ цсн опнзжнигдс, дркз б сдйрснбъф нймЯф жЯгЯсы цзркЯ?

ТгЯкзсд б сдйрснбнл нймд Text3 рспнйт «БЯр» з мЯадпзсд «25», Я

сЯйед тгЯкзсд б сдйрснбнл нймд Text4 рспнйт «зкзи» з мЯадпзсд «15». Онркд ьснвн шдкймзсд мЯ ймнойд Command2. МЯ опзбдгдммнл мзед пзртмйд

(Пзртмнй 17) онйЯжЯм пджткысЯс.

Пзртмнй 17 - ПджткысЯс рцдсЯ

Ноюсы опнзжнчкн рхдокдмзд нодпЯмгнб. Ьсн ркдгнбЯкн незгЯсы,

онрйнкыйт наЯ нодпЯмгЯ (рбнирсбЯ Text) злдэс рспнйнбъи сзо. Онрлнспзсд,

цсн опнзжнигдс, дркз нгзм нодпЯмг атгдс злдсы рспнйнбъи, Я гптвни – цзркнбни, мЯопзлдп, хдкъи сзо.

НрсЯмнбзсд бъонкмдмзд опндйсЯ, шдкймтб мЯ ймнойд End оЯмдкз

змрсптлдмснб, з рнфпЯмзсд опндйс.

Шдкймзсд гбЯ пЯжЯ мЯ ймнойд Command3. Б нймд йнгЯ онюбзкЯры жЯвнснбйЯ опнхдгтпъ Command3_Click.

ЖЯгЯисд опнвпЯллмъи йнг: Private Sub Command3_Click()

st1 = Text5.Text st2 = Text6.Text

Label3.Caption = 25 + st1 + st2

End Sub

Шдкймзсд мЯ ймнойд Start гкю жЯотрйЯ опндйсЯ з б онюбзбчдлрю нймд опзкнедмзю Form1 мЯадпзсд 2 б сдйрснбнл нймд Text5 (опдгбЯпзсдкымн тгЯкзб рспнйт Text5), Я сЯйед мЯадпзсд 3 б сдйрснбнл нймд Text6

(опдгбЯпзсдкымн тгЯкзб рспнйт Text6). Онркд ьснвн шдкймзсд мЯ ймнойд

Command3. Онркдгмдд рнаъсзд опзбдгдс й бъонкмдмзэ змрсптйхзи опнхдгтпъ Command3_Click з мЯгозры нснапЯжзс пджткысЯс нодпЯхзз

(Пзртмнй 18).

Пзртмнй 18 - ПджткысЯс рцдсЯ

Опз бъонкмдмзз бъцзркдмзю жмЯцдмзю бъпЯедмзю 25 + st1 + st2

одпбни бъонкмюдсрю нодпЯхзю 25 + st1. Б ьсни нодпЯхзз нгзм нодпЯмг

(йнмрсЯмсЯ 25) злддс цзркнбни сзо, Я гптвни (рспнйЯ st1) злддс жмЯцдмзд,

йнснпнд лнедс аъсы змсдпопдсзпнбЯмн йЯй цзркн. Оньснлт жгдры рзлбнк (+)

бнропзмюс йЯй нодпЯхзю ркнедмзю. ПджткысЯс нодпЯхзз ркнедмзю (27) снед злддс цзркнбни сзо, оньснлт рзлбнк (+) б ркдгтэшди нодпЯхзз 27+3 сЯйед

бнропзмюс йЯй нодпЯхзю ркнедмзю з, б йнмхд йнмхнб, онктцдм онмюсмъи пджткысЯс 30.

НрсЯмнбзсд бъонкмдмзд опндйсЯ, шдкймтб мЯ ймнойд End оЯмдкз змрсптлдмснб, з рнфпЯмзсд опндйс.

Шдкймзсд гбЯ пЯжЯ мЯ ймнойд Command3. Б нймд йнгЯ онюбзкрю опнвпЯллмъи йнг опнхдгтпъ Command3_Click.

Зжлдмзсд онпюгнй ркдгнбЯмзю нодпЯмгнб б змрсптйхзз опзрбЯзбЯмзю

Label3.Caption = 25 + st1 + st2. ЖЯлдмзсд дд змрсптйхзди Label3.Caption = st1

+ st2 + 25.

Шдкймзсд мЯ ймнойд Start гкю жЯотрйЯ опндйсЯ з б онюбзбчдлрю нймд опзкнедмзю Form1 рмнбЯ мЯадпзсд 2 б сдйрснбнл нймд Text5 (опдгбЯпзсдкымн тгЯкзб рспнйт Text5), Я сЯйед мЯадпзсд 3 б сдйрснбнл нймд Text6

(опдгбЯпзсдкымн тгЯкзб рспнйт Text6). Онркд ьснвн шдкймзсд мЯ ймнойд

Command3. МЯгозры нснапЯжзс мЯ одпбъи бжвкюг мднезгЯммъи пджткысЯс бъцзркдмзи (Пзртмнй 19)

Пзртмнй 19 - ПджткысЯс рцдсЯ

Зжлдмдмзд онпюгйЯ ркЯвЯдлъф опзбдкн й зжлдмдмзэ жмЯцдмзю пджткысЯснб бъцзркдмзи! Онцдлт? Гдкн б снл, цсн одпбни сдодпы бъонкмюдсрю нодпЯхзю st1 + st2, б йнснпни рзлбнк (+) бнропзмзлЯдсрю йЯй нодпЯхзю рхдокдмзю, онрйнкыйт наЯ нодпЯмгЯ злдэс рспнйнбъи сзо.

ПджткысЯс нодпЯхзз рннсбдсрсбдммн снед злддс рспнйнбъи сзо з пЯбдм

"23".

Опз бъонкмдмзз нодпЯхзз "23" + 25 рзлбнк (+) атгдс бнропзмюс, йЯй

нодпЯхзю ркнедмзю, онрйнкыйт нгзм нодпЯмг (йнмрсЯмсЯ 25) злддс цзркнбни сзо, Я гптвни нодпЯмг ("23") лнедс аъсы змсдпопдсзпнбЯм йЯй цзркн.

НрсЯмнбзсд бъонкмдмзд опндйсЯ, шдкймтб мЯ ймнойд End оЯмдкз змрсптлдмснб, з рнфпЯмзсд опндйс.

ОнйЯезсд пджткысЯс бъонкмдмзю жЯгЯмзю опдонгЯбЯсдкэ.

Онгбдгдл зснвз:

Б VB опдгтрлнспдмн мдрйнкыйн сзонб гкю одпдлдммъф, опзмзлЯэшзф цзркнбъд жмЯцдмзю. ЙЯйни сзо опзлдмюсы б йЯегнл йнмйпдсмнл рктцЯд? Гкю нсбдсЯ мЯ ьснс бнопнр мЯгн тцзсъбЯсы ркдгтэшдд:

Сзо Variant юбкюдсрю тмзбдпрЯкымъл. Двн опзлдмдмзд гдкЯдс опнвпЯллмъи йнг анкдд йнлоЯйсмъл, сЯй йЯй ьснс сзо лнемн мд нащюбкюсы – нм опдгтрлЯспзбЯдсрю он тлнкцЯмзэ. НгмЯйн йЯегнд гЯммнд ьснвн сзоЯ жЯмзлЯдс б оЯлюсз анкычд лдрсЯ. Џ напЯшдмзд й гЯммъл сзоЯ Variant

опнзрфнгзс лдгкдммдд, цдл й гЯммъл опнрсъф сзонб.

Џпзулдсзцдрйзд нодпЯхзз р гЯммълз хдкнвн сзоЯ (Integer, Long)

бъонкмюэсрю аърспдд, цдл р гЯммълз р окЯбЯэшди снцйни (Single, Double).

Џпзулдсзцдрйзд нодпЯхзз р гЯммълз хдкнвн сзоЯ (Integer, Long)

бъонкмюэсрю снцмн, Я р гЯммълз р окЯбЯэшди снцйни (Single, Double) -

опзакзедммн.

Б рннсбдсрсбзз р ьсзлз рннапЯедмзюлз мд пдйнлдмгтдсрю опзлдмюсы сзо Variant б сдф рктцЯюф, йнвгЯ опндйс гнкедм бъонкмюсырю аърспн, Я сЯйед гнкедм жЯмзлЯсы лЯкн лдрсЯ б оЯлюсз.

Хдкъи сзо пдйнлдмгтдсрю опзлдмюсы, дркз гЯммнд лнедс опзмзлЯсы снкыйн хдкъд жмЯцдмзю (мЯопзлдп, йнкзцдрсбн тцЯрсмзйнб зкз мнлдп ькдлдмсЯ мдйнснпни онркдгнбЯсдкымнрсз).

Мднафнгзлн он бнжлнемнрсз зжадвЯсы опднапЯжнбЯмзю сзоЯ.

МдопЯбзкымЯю спЯйснбйЯ ьснвн гдирсбзю опзбнгзс й сптгмн гзЯвмнрсзптдлъл нчзайЯл.