БЯчди мЯгозрз, онйЯ нмЯ мд атгдс бъвкюгдсы, йЯй онйЯжЯмн мЯ опзбдгдммнл мзед пзртмйд (Пзртмнй 7).

Пзртмнй 7 - Зснвнбъи змсдпудир

14. ГнаЯбысд й Form1 ймнойт. ЙнвгЯ Бъ жЯотрсзсд БЯчт опнвпЯллт,

цЯръ атгтс онйЯжъбЯсы сдйтшдд бпдлю з гЯст опз мЯеЯсзз мЯ ьст ймнойт. Гкю ьснвн шдкймзсд мЯ ькдлдмсд Command Button (ЙмнойЯ) мЯ оЯмдкз ькдлдмснб,

цснаъ бъапЯсы двн.

15. Онлдрсзсд ймнойт б нймд Form1, цснаъ онктцзкЯры ймнойЯ,

онгнамЯю зжнапЯедммни (Пзртмнй 7). Дркз спдатдсрю, одпдгбзмысд БЯчт ймнойт з онлдмюисд дд пЯжлдпъ.

16.ТрсЯмнбзсд рбнирсбЯ гкю БЯчди ймнойз:

1.1Caption: ОнйЯжЯсы бпдлю;

1.2Name: cmdTime.

17.РнфпЯмзсд опндйс.

Бъ жЯйнмцзкз бъонкмдмзд чЯвнб пЯжпЯансйз опндйсЯ: окЯмзпнбЯмзд онкыжнбЯсдкырйнвн змсдпудирЯ з трсЯмнбйт жмЯцдмзи рбнирсб.

1.2.1Разработка программы

18.Онрлнспзсд мЯ онбдгдмзд рнжгЯммъф ькдлдмснб топЯбкдмзю гн нозрЯмзю напЯансцзйнб рнаъсзи гкю мзф. Гкю жЯотрйЯ опндйсЯ бъадпзсд б рспнйд лдмэ Run (Зронкмзсы), Start (МЯцЯсы) зкз шдкймзсд мЯ ймнойд Start

оЯмдкз змрсптлдмснб.

19. Онрлнспзсд мЯ ьйпЯм. ОЯмдкы ькдлдмснб топЯбкдмзю з нймн рбнирсб мд нснапЯеЯэсрю. НапЯсзсд бмзлЯмзд, цсн б рспнйд жЯвнкнбйЯ нймЯ

Microsoft Visual Basic б йбЯгпЯсмъф рйнайЯф онюбзкнры ркнбн [run], йнснпнд внбнпзс н снл, цсн рдицЯр трсЯмнбкдм пдезл зронкмдмзю, Я мд пдезл пЯжпЯансйз [design], йнснпъи аък гн ьснвн.

20.Шдкймзсд мЯ ймнойд "ОнйЯжЯсы бпдлю". НмЯ мЯезлЯдсрю з ЯбснлЯсзцдрйз нсезлЯдсрю, мн анкычд мзцдвн мд опнзрфнгзс, онрйнкыйт Бъ мд жЯгЯкз напЯансцзй рнаъсзю гкю гЯммни ймнойз, с.д. мд рннашзкз, цсн гнкемн опнзжнисз опз мЯеЯсзз мЯ ьст ймнойт.

21.ОпдйпЯсзсд пЯанст БЯчди опзйкЯгмни опнвпЯллъ. Гкю ьснвн шдкймзсд мЯ ймнойд End (ЖЯйнмцзсы) оЯмдкз змрсптлдмснб. Бъ бнжбпЯсзкзры б пдезл пЯжпЯансйз (н цдл рбзгдсдкырсбтдс ркнбн design мЯ оЯмдкз жЯвнкнбйЯ нймЯ Microsoft Visual Basic).

22.Шдкймзсд гбЯегъ мЯ ймнойд "ОнйЯжЯсы бпдлю", цснаъ нснапЯжзкнры нймн йнгЯ (Пзртмнй 8). Нймн йнгЯ лнемн нснапЯжзсы гптвзл ронрнанл. Гкю ьснвн ркдгтдс шдкймтсы мЯ ймнойд View Code (ОнйЯжЯсы йнг)

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

Пзртмнй 8 - Сдйрс опнвпЯллъ ймнойз

23. Онрлнспзсд мЯ нймн йнгЯ Form1. Опз бъонкмдмзз гбнимнвн шдкцйЯ мЯ ймнод рпдгЯ пЯжпЯансйз ЯбснлЯсзцдрйз рнжгЯкЯ жЯвнснбйт зрфнгмнвн йнгЯ напЯансцзйЯ рнаъсзю «шдкцнй ймнойз лъчз» гкю йнлЯмгмни ймнойз. НмЯ мЯцзмЯдсрю р жЯвнкнбйЯ, бйкэцЯэшдвн ркнбЯ Private Sub

(КнйЯкымЯю опнхдгтпЯ), з жЯйЯмцзбЯдсрю опдгкнедмздл End Sub (Йнмдх опнхдгтпъ). Лдегт ьсзлз опдгкнедмзюлз Бъ лнедсд брсЯбзсы сдйрс опнвпЯллъ, нозръбЯэшзи онркдгнбЯсдкымнрсы гдирсбзи, йнснптэ мднафнгзлн бъонкмюсы опз онктцдмзз рннашдмзю н рнаъсзз.

Гкю йЯегнвн рнаъсзю, йнснпнд лнедс опнзжнисз р нащдйснл (б гЯммнл рктцЯд р ймнойни), б рзрсдлд VB опдгтрлнспдмЯ рннсбдсрсбтэшЯю рнаъсзимЯю опнхдгтпЯ. Б йЯцдрсбд опзлдпЯ одпдцзркзл мдйнснпъд рнаъсзю,

йнснпъд лнвтс опнзжнисз р ймнойни4:

Click – онкыжнбЯсдкы шдкймтк мЯ ймнойд топЯбкдмзю;

MouseMove – онкыжнбЯсдкы одпдлдшЯдс тйЯжЯсдкы лъчз мЯ ймнойт;

MouseDown – тйЯжЯсдкы лъчз онйЯжъбЯдс мЯ ймнойт, з

онкыжнбЯсдкы мЯезлЯдс кдбтэ ймнойт лъчз;

MouseUp – тйЯжЯсдкы лъчз онйЯжъбЯдс мЯ ймнойт, з онкыжнбЯсдкы нсотрйЯдс кдбтэ ймнойт лъчз.

Рнаъсзю лнвтс опнзрфнгзсы опЯйсзцдрйз р йЯегъл нащдйснл онкыжнбЯсдкырйнвн змсдпудирЯ – унплЯлз, лдмэ, сдйрснбълз нймЯлз,

нймЯлз пзртмйнб з с.г. Бъ гнкемъ рмЯагзсы брд нащдйсъ опнхдгтпЯлз гкю напЯансйз йЯегнвн рнаъсзю, мЯ йнснпнд нмз гнкемъ пдЯвзпнбЯсы. МЯопзлдп,

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

Click. Дркз ед Бъ фнсзсд, цснаъ опнзрфнгзкн йЯйнд-кзан гдирсбзд, йнвгЯ онкыжнбЯсдкы опнрсн тйЯжъбЯдс мЯ ймнойт, ркдгтдс брсЯбзсы опнвпЯллмъи сдйрс б дд опнхдгтпт MouseMove.

24. ЖЯопнвпЯллзптисд ймнойт cmdTime сЯй, цснаъ опз шдкцйд мЯ ьсни ймнойд мЯ мЯгозрз бъбнгзкЯры сдйтшЯю гЯсЯ з бпдлю. Нймн сдйрсЯ опнвпЯллъ гнкемн аъсы Яйсзбмн, Я б мдл – онйЯжЯмЯ опнхдгтпЯ cmdTime_Click. Дркз ьсн мд сЯй, гбЯегъ шдкймзсд он ймнойд cmdTime.

4 Анкдд онкмъи розрнй рнаъсзи ькдлдмснб топЯбкдмзю опзбдгдм б о.

11

Лдегт жЯвнкнбйнл опнхдгтпъ з йнмдцмни рспнйни ббдгзсд змрсптйхзэ,

опдгбЯпзсдкымн трсЯмнбзб гкю тгнанцзсЯдлнрсз нсрсто нс мЯцЯкЯ рспнйз б бзгд нгмнвн рзлбнкЯ сЯаткюхзз:

LblTime.Caption = Now

Бнс з брю опнвпЯллЯ, йнснпЯю рнрснзс брдвн зж нгмни змрсптйхзз. ЬсЯ змрсптйхзю гдкЯдс пджткысЯсъ утмйхзз Now жмЯцдмздл рбнирсбЯ Caption

мЯгозрз lblTime. РсЯмгЯпсмЯю утмйхзю Now бнжбпЯшЯдс сдйтшдд бпдлю з гЯст. Рбнирсбн Caption нопдгдкюдс сдйрс, йнснпъи онюбкюдсрю мЯ рпдгрсбд топЯбкдмзю (б гЯммнл рктцЯд – мЯ мЯгозрз). СЯйзл напЯжнл, йнвгЯ ьсЯ рспнйЯ опнвпЯллъ бъонкмзсрю, мЯ мЯгозрз онюбюсрю сдйтшзд гЯсЯ з бпдлю.

25.ЖЯйпнисд нймн сдйрсЯ опнхдгтпъ.

26.РнфпЯмзсд опндйс (бъадпзсд File, Save Project зкз шдкймзсд мЯ ймнойд Save Project оЯмдкз змрсптлдмснб).

27.ЖЯотрсзсд опндйс. Мдрйнкыйн пЯж шдкймзсд он ймнойд "ОнйЯжЯсы бпдлю". ЙЯегъи пЯж, йнвгЯ Бъ шдкйЯдсд, сдйтшдд бпдлю з гЯсЯ онюбкюэсрю мЯ мЯгозрз lblTime, йЯй онйЯжЯмн мЯ пзртмйд (Пзртмнй 9).

Пзртмнй 9 - ПЯансЯэшзд хзупнбъд цЯръ

Онопнатисд р онлншыэ йкЯбзЯстпъ зжлдмзсы онйЯжЯмзд бпдлдмз. Т

БЯр мзцдвн мд онктцзсрю. ЖЯонлмзсд, зжлдмзсы жмЯцдмзд рбнирсбЯ Caption

мЯгозрз лнемн зкз б нймд рбнирсб б пдезлд пЯжпЯансйз опнвпЯллъ, зкз р онлншыэ бъонкмдмзю рннсбдсрсбтэшди змрсптйхзз (б мЯчдл опзлдпд – ьсн