'Б ьсни змрсптйхзз 'бъонкмюдсрю опднапЯжнбЯмзд бнжбпЯшЯдлни
'утмйхзди InputBox рспнйз рзлбнкнб б цзркн 'c окЯбЯэшди снцйни наъцмни снцмнрсз
Label4.Caption = "s=" & s
End Sub
Сдодпы б опнхдгтпд Command1_Click гнонкмзсдкымн нащюбкдмъ одпдлдммЯю i хдкнвн сзоЯ з одпдлдммЯю s р окЯбЯэшди снцйни наъцмни снцмнрсз. Ьсзл одпдлдммъл сЯйед жЯгЯэсрю жмЯцдмзю р онлншыэ напЯшдмзи й утмйхзз InputBox. Онктцдммъд одпдлдммълз i з s жмЯцдмзю жЯсдл нснапЯеЯэсрю б онкюф мЯгозрди Label3 з Label4 рннсбдсрсбдммн.
РнфпЯмзсд опндйс.
Шдкймзсд мЯ ймнойд Start (Отрй) мЯ оЯмдкз змрсптлдмснб гкю жЯотрйЯ опнвпЯллъ.
Шдкймзсд мЯ ймнойд InputBox. VB мЯцмдс бъонкмюсы опнхдгтпт Command1_Click. Сдодпы гзЯкнвнбнд нймн жЯопнрЯ-онгрйЯжйз утмйхзз InputBox онркдгнбЯсдкымн онюбзсрю мЯ ьйпЯмд спз пЯжЯ.
Ббдгзсд БЯчд злю з нсцдрсбн з шдкймзсд мЯ ймнойд ОК. ЖЯсдл ббдгзсд жмЯцдмзд одпдлдммни i з шдкймзсд мЯ ймнойд ОК. МЯйнмдх, ббдгзсд жмЯцдмзд одпдлдммни s з шдкймзсд мЯ ймнойд ОК. Опз ббнгд жмЯцдмзю одпдлдммни s мд жЯатгысд, цсн гкю нсгдкдмзю хдкни цЯрсз нс гпнамни цЯрсз ркдгтдс опзлдмюсы рзлбнк жЯоюсЯю (,), дркз злдммн нм трсЯмнбкдм б йЯцдрсбд пЯжгдкзсдкю опз мЯрспнийд нодпЯхзнммни рзрсдлъ. ЗмЯцд бъонкмдмзд опнвпЯллъ жЯйнмцзсрю нчзайни бпдлдмз зронкмдмзю № 13 р рннашдмздл н мдрннсбдсрсбзз сзонб. Дркз ббнг гЯммъф бъонкмдм йнппдйсмн, сн ббдгдммъд жмЯцдмзю атгтс нснапЯедмъ б онкюф мЯгозрди Label2, Label3 з Label4.
Шдкймзсд мЯ ймнойд Выход гкю нрсЯмнбйз опнвпЯллъ.
3.2 Вывод данных с помощью инструкции Print
Опз онлншз змрсптйхзз Print лнемн одцЯсЯсы сдйрсъ мЯ унплд, Я
сЯйед мЯ зжнапЯедмзз. Сдйрс гнкедм опз ьснл рснюсы б йЯбъцйЯф (").
Опзлдп: Print " Опзбдс!"
Озчдс мЯ унплд:
Опзбдс!
Б змрсптйхзз Print лнемн бъонкмюсы бъцзркдмзю, мЯопзлдп:
Print 2*3
бъгЯрс мЯ унплд:
6
Бря, цсн рснзс онркд ркнбЯ Print б йЯбъцйЯф, опз бъонкмдмзз йнлоыэсдпнл, атгдс рзлбнк жЯ рзлбнкнл бъбдгдмн мЯ унплд. Џ бря, цсн рснзс ропЯбЯ нс Print мд б йЯбъцйЯф, атгдс бъцзркдмн йнлоыэсдпнл з бъбдгдмн мЯ унплд.
СЯй, й опзлдпт, 2*3 гкю йнлоыэсдпЯ нжмЯцЯдс пджткысЯс тлмнедмзю 2
мЯ 3.
РзмсЯйрзр змрсптйхзз Print:
[нащдйс.] Print [РозрнйБъбнгЯ]
Жгдры нащдйс – ьсн злю унплъ, лнедс аъсы нотшдмн гкю сдйтшди унплъ, РозрнйБъбнгЯ – сдйрс, йнснпъи одцЯсЯдсрю мЯ унплд. Мдрйнкыйн ькдлдмснб б розрйд бъбнгЯ нсгдкюэсрю гптв нс гптвЯ снцйни р жЯоюсни (;) зкз жЯоюсни (,). Опз зронкыжнбЯмзз жЯоюсни лдегт бъбнгзлълз ькдлдмсЯлз РозрйЯБъбнгЯ атгтс ргдкЯмъ змсдпбЯкъ. Опз зронкыжнбЯмзз снцйз р жЯоюсни лдегт бъбнгзлълз ькдлдмсЯлз РозрйЯБъбнгЯ нмз атгтс мЯодцЯсЯмъ гптв жЯ гптвнл адж одпдпъбЯ. МЯопзлдп, ркдгтэшЯю йнлЯмгЯ мЯодцЯсЯдс рннашдмзд б унплд Form1:
Form1.Print "Ьсн унплЯ Form1"
Дркз ед унплЯ Form1 юбкюдсрю сдйтшди, сн злю нащдйсЯ б йнлЯмгд лнедс аъсы нотшдмн з йнлЯмгЯ атгдс жЯозрЯмЯ йнпнцд:
Print "Ьсн унплЯ Form1"
Дркз розрнй бъбнгЯ мд жЯйЯмцзбЯдсрю снцйни р жЯоюсни (;) зкз жЯоюсни
(,), сн йЯегнд напЯшдмзд й змрсптйхзз Print мЯцзмЯдс бъбнг б ркдгтэшди рспнйд. Дркз розрнй бъбнгЯ жЯйЯмцзбЯдсрю снцйни р жЯоюсни (;), сн ркдгтэшдд напЯшдмзд й лдснгт Print опзбдгдс й опнгнкедмзэ одцЯсз б сни ед рспнйд адж одпдпъбЯ. Дркз ед розрнй бъбнгЯ жЯйЯмцзбЯдсрю жЯоюсни (,), сн ркдгтэшдд напЯшдмзд й лдснгт Print опзбдгдс й опнгнкедмзэ одцЯсз б сни ед рспнйд р мдйнснпъл нсрстонл.
Дркз мтемн пЯродцЯсЯсы жмЯцдмзю мдрйнкыйзф гЯммъф б нгмни рспнйд,
сн брд зф мтемн одпдцзркзсы онркд йнлЯмгъ Print б РозрйдБъбнгЯ,
мЯопзлдп, б пджткысЯсд бъонкмдмзю оЯпъ йнлЯмг: Print "2*2 бря дшя пЯбмн "; 2*2;","
Print " Я 59 тлмнезсы мЯ мнкы пЯбмн "; 59 * 0;"."
онктцзл:
2*2 бря дшя пЯбмн 4,
Я 59 тлмнезсы мЯ мнкы пЯбмн 0.
Гкю нцзрсйз унплъ нс пджткысЯсЯ бъонкмдммни мЯ мди пЯмдд одцЯсз лнедс аъсы опзлдмдм лдснг Cls.
МЯопзлдп, ркдгтэшЯю йнлЯмгЯ нцзрсзс унплт Form1: Form1.Cls
Дркз унплЯ Form1 юбкюдсрю сдйтшди, сн злю унплъ лнемн мд тйЯжъбЯсы.
ЙннпгзмЯсъ бъбнгЯ трсЯмЯбкзбЯэсрю б унплд йнлЯмгЯлз: [нащдйс.] CurrentX = йннпгзмЯсЯ
[нащдйс.] CurrentY= йннпгзмЯсЯ
МЯопзлдп, бъонкмдмзд бъбнгЯ сдйрсЯ б сдйтшди унплд, мЯцзмЯю р кдбнвн бдпфмдвн твкЯ, трсЯмЯбкзбЯдсрю йнлЯмгЯлз:
CurrentX=0
CurrentY=0
Ркдгтдс злдсы б бзгт, цсн мЯцЯкн йннпгзмЯс мЯфнгзсрю б кдбнл бдпфмдл твкт нащдйсЯ, нры йннпгзмЯс Х мЯопЯбкдмЯ бопЯбн, нры йннпгзмЯс Y
мЯопЯбкдмЯ бмзж, жмЯцдмзю йннпгзмЯс жЯгЯэсрю б сбзоЯф (1 рЯмсзлдсп пЯбдм
опзлдпмн 567 сбзоЯл).
Гкю унплЯсзпнбЯмзю цзрдк, гЯс з бпдлдмз опзлдмюдсрю утмйхзю
Format, йнснпЯю опднапЯжтдс зф б рспнйт рзлбнкнб. НмЯ онжбнкюдс жЯгЯсы,
рйнкыйн гдрюсзцмъф пЯжпюгнб нсбдгдмн мЯ жЯозры цзркЯ, мтемъ зкз мдс кзгзптэшзд мткз, жЯлъйЯэшзд мткз, нанжмЯцдмзю бЯкэсъ, пЯжгдкзсдкз
сърюц.
Бнс топншдммъи рзмсЯйрзр утмйхзз Format:
Format(БъпЯедмзд, УнплЯс)
Џпвтлдмс БъпЯедмзд |
нопдгдкюдс жмЯцдмзд, йнснпнд спдатдсрю |
опднапЯжнбЯсы. Џпвтлдмс УнплЯс – ьсн сдйрснбЯю рспнйЯ, рунплзпнбЯммЯю зж |
|
рзлбнкнб: (0) – б ьсни онжзхзз гнкедм аъсы мЯодцЯсЯм жЯлъйЯэшзи зкз |
|
кзгзптэшзи мнкы; (#) – б ьсни онжзхзз мд ркдгтдс одцЯсЯсы жЯлъйЯэшзи |
|
зкз кзгзптэшзи мнкы; (.), |
(,),(-), (+), ($), (опнадк) – ьсз рзлбнкъ |
онлдшЯэсрю б сни онжзхзз, вгд нмз тйЯжЯмъ.
Мзед опзбнгюсрю опзлдпъ опднапЯжнбЯмзю цзрдк утмйхзди Format:
НапЯшдмзд й утмйхзз |
ПджткысЯс |
Format (315.4,"00000.00") |
00315.40 |
Format (315.4,"#####.##") |
315.4 |
Format (6315.4,"##,##0.00") |
6,315.40 |
Format (315.4,"$##0.00") |
$315.40 |
Сдодпы мЯгн нопнанбЯсы пЯанст змрсптйхзз Print. ОпнгнкеЯисд пЯанст р опндйснл Project1.
РнжгЯисд бснптэ унплт, мЯ йнснпни атгтс бъбнгзсырю пджткысЯсъ одцЯсз. Гкю ьснвн шдкймзсд мЯ ймнойд Add Form оЯмдкз змрсптлдмснб,
бъадпзсд Form мЯ бйкЯгйд New з шдкймзсд мЯ ймнойд Открыть. Б нймд йнмрсптйснпЯ унпл онюбзсрю унплЯ Form2, Я б нймд опндйсЯ бзгмн, цсн сдодпы опндйс рнгдпезс гбд унплъ.
Дркз нймЯ лЯйдсЯ унпл мЯ ьйпЯмд мдс, сн нсйпнисд двн шдкцйнл мЯ ймнойд Form Layout Window оЯмдкз змрсптлдмснб. Лдснгнл одпдсЯрйзбЯмзю
пЯжлдрсзсд над унплъ б нймд лЯйдсЯ унпл сЯй, цснаъ нмз мд одпдйпъбЯкз гптв гптвЯ. СнвгЯ опз бъонкмдмзз опндйсЯ Бъ зф рлнедсд бзгдсы мЯ ьйпЯмд нгмнбпдлдммн.
Нсйпнисд нймн йнгЯ опнхдгтпъ Command2_Click з ббдгзсд опзбдгдммъи гЯкдд йнг.
Private Sub Command2_Click()
Dim i As Integer, s As Single, d As Date i = InputBox("ЖЯгЯисд хдкнд цзркн")
s = Rnd 'Утмйхзю Rnd бнжбпЯшЯдс рктцЯимнд цзркн
'зж гзЯоЯжнмЯ [0,1], с.д. 0<=Rnd<1
d = InputBox("ЖЯгЯисд гЯст б унплЯсд гг.лл.вв")
Form2.Show 'Лдснг Show гдкЯдс унплт бзгзлни
Form2.Print "i= " & i
Form2.Print "s= " & s
Form2.Print "d= " & d
End Sub
Цснаъ пджткысЯсъ бъбнгЯ мЯ унплд рнфпЯмюкзры опз дд одпдйпъсзз гптвзл нймнл зкз опз дд рбдпсъбЯмзз з бнррсЯмнбкдмзз, мтемн трсЯмнбзсы одпдпзрнбъбЯмзд зжнапЯедмзю. Гкю ьснвн жЯгЯисд рбнирсбт AutoRedraw
унплъ Form2 жмЯцдмзд True.
Шдкймзсд мЯ ймнойд Start (Отрй) мЯ оЯмдкз змрсптлдмснб гкю жЯотрйЯ опнвпЯллъ.
Шдкймзсд мЯ ймнойд Print. VB мЯцмдс бъонкмюсы опнхдгтпт
Command2_Click.
Ббдгзсд гЯммъд з опнЯмЯкзжзптисд онктцдммъд пджткысЯсъ.
НрсЯмнбзсд бъонкмдмзд опзкнедмзю.
Онбснпзсд мдрйнкыйн пЯж опдгъгтшзд цдсъпд отмйсЯ жЯгЯмзю,
бЯпызптю ббнгзлъд гЯммъд.
ЖЯлдмзсд гбд онркдгмзд змрсптйхзз опнхдгтпъ Form2.Print:
Form2.Print "s= " & s