Войтюшенко Н.М., Остапець А.І. Інформатика і комп’ютерна техніка
Подождите немного. Документ загружается.
361
$:
1) Form1.Hide; 2) Form1.Show; 3) Printer.Print “y= “;y.Text
'':, A ( -
), :! . '! : ':, A -
. & B ! ! ! ! % ':
B . " ': , TextBox, -
! . #! !
'!, A :! !
– Text1, Text2, Text3. $ # B -
':.
+ Visual Basic B % :! !!
':. % – ':, ': '!, -
# '! ': . $ -
B B Visual Basic 6 , .#. Forms
Controls. Forms – # B , Controls –
# ! . &# B
, .
'
3 * , VB,
, :
1) : ( %
–
, A ! # # -
. +B! B #
A % .
2) : % &
–
!, A : ! #.
8.3 ' "*
J ! #:
1. * #, ! # -
!, A % ( !, -
, #!, ..).
2. * .
362
3. # ': ( %
!) – % ! -
.
$ ! -
. @!
, -
% # %! -
. % , -
(), ! # ':-
. ': (),
%. $ '!! !,
A . $ % B#
% ! B A ':,
– .
% % ': -
, % Delete
$ 8.1. –
* ! !
:
= 200 + *
!
: J %!
! !! # , B !
. , ! !, , -
% ! (, ). -
! ',, , – -
:! %! .
1. J !
( 8.5), ! B !
'.
2. B Visual Basic.
3. + Visual Basic '!! B! -
Form1. \A ! #,
() , ! # .
363
8.5 – ! : = 200 + *
+ -
8.1.
"! 8.1. – $ !
= 200 + *
/
1
2 3
1 @ '! -
.
1). Properties, !A :
: View o Properties Windows;
2). Caption, #
Form1 G$$ *.
2.
.
1).J !
(Label – ), '!-
! ! Label1. $! -
!
( 8.5). #
, B% Label2, Label3.
2).< ! %
Properties;
, A :
,
Label1; Caption,
# Label1 : &-
.
3). + Properties, A :,
Label2 Caption : &-
.
364
$B! 8.1.
1 2 3
4). + Properties, A :,
Label3 Caption : '-
.
3. *! -
!
! -
.
1).J !
(TextBox – ) ! -
! Text1. $! -
! (
8.5). # , B-
% Text2 Text3.
2).< ! % Properties;
, A :,
Text1; Name,
Text1 (
).
3). $
Text % # Text1.(+ -
B).
<# Text2 '! ,
Text3 –
( )* Text
Text2 Text3.
4. *! -
1).J !
(CommandButton – )
! ! -
, # ! B!
.
2). < ! % Properties;
, A :,
CommandButton1;
Caption, CommandButton1 '-
,; Name
CommandButton1 Rachet.
3). + Properties, A :,
CommandButton2; Caption -
,, Name Vixod.
* – ': B % , A
', !
B # #! : %. "
% ( ) # ':, !
365
! . "
.
+ , !
.
$% #(% & .
x 8 :! = 2 –
%! .frm.
x 8 :! = -
%! .vbp.
, = :
$ File o Save Project o '! (G$$
*) o OK o '! (G-
$$ *) OK.
8.4 ' **
$ # ! !
! % ', # -
B! . " ! «!» (Click) #-
:! ! – % & -
.
$! :!
(Code Window), A :! ! % -
':. $ ! ! , # !
# . " ! -
Visual Basic.
8.4.1 9
< :! , , B
.
J, # , A
:! -
! #! ; ! ! -
#: ! B! !.
366
+ !:
x ! ! !
– ^, * , / , \ – ! ! # -
, +, – ;
x ! – < , > , = , >= , <= , <> ;
x ! – And, Or, Not, Xor .
$% – '! . @!
B :! ! ( + ), A
!: : .
J:
“*” + “” + “” = * .
@! Visual-Basic 8.2.
"! 8.2. – "
n/n
K &-
.
q ,
1 Integer % # -32768 +32768, 2
2 Single precision ! # # #-
, 4 (:! #-
!)
3 Long Integer & , 4
4 Double precision # # # #-
, 8
5 String $ ! 65535 . %
B
6 Currency @ # (15 . #
4 # , 8 )
7 Variant , ! ! . -
% !, # ! % .
+ , A : , B
() . & %-
!
# -! !:
x – Const,
x – Dim.
) Const :
367
[Global] Const <'> = = [,<'> = =]...
1
$: const Pi = 3.1415
const Max% = 250
const Clovo$ = “”
" B, A ! , -
!. # B! -
! ! .
) Dim :
Dim <' 3>[([ ,])] [As[New]
type][, <' 3>[([ ])][As[New]type]...
@:
As type – #: (Integer, Long,...) # ':.
J:
Dim a As Integer,
Dim Temper As Single,
Dim d, b, rakurc – #! Variant,
Dim FIO <s String – -! B -
,
Dim Street <s String*75 – ! B
(75 – -
).
New – :! ! ! -
':, ! Form1.
'
#: B -
:
Dim A(8,3);
Dim A(0 To 8, 0 To 3)
Dim A(8,0 To 3)
Dim A(-4 To 10)
( # – 60.
*! % # B
– . '%!
.
1
+ #!: {} –
#, [ ] – B , < > –
#!.
368
@! %! (& :! -
(General), A # #:! -
! A:! % .
J:
General
Option Explicit
Dim X As Integer
Dim I,Y
\A ! #, #-
! B: Variant. D #, A #-
:! B ,
A % A.
J% : %.
) :
<> = =
J:
Y = 0
Z = (x + 7) / 2
8.4.2 ^ – ,
;% &
:! # # – -
!, # ! (), (). +-
! :! -
#! ! % Enter; ! %
, , # OK .. $ -
! B (), A
%! #.
3 &
B , , .
:!, , :! # # -
!, # !.
@! Print.
*:
[']Print [{Spc(n),Tab(n)}][=][{;I,}] ,
:
' – (Printer);
#! B! # -
:! #
369
Spc(n) Tab(n) – n ! #
# # ;
= – , A :! ;
; , – : B !!
# 14 .
J:
Printer.Print “y = “;y.Text
@! #
- – Format.
*:
Format[$] (expression [,fmt]),
:
$ – ,
expression – # B!,
frm – :! B!:
0 – : !, , 000000 –
# % 6 , !A % 6 , !
.
# – : #.
. – : ! ! ,
, ####.##.
% – # , B! %-
:! 100%.
, – B B! 1000.
H – # # .
$ – “ “.
: – #.
/ – .
$ B -
! : ! %
. J, -
! :! , #-
! # .
0% & & :! -
Val.
*:
Val ( =) – .
J:
370
+ ! 5 ( 5 :! !
). @! # #! !
#.
Val(a.Text) = 5
0% & & :! -
Str.
*:
Str ( ) – =
J: y.Text = Str(S) + “”
$ 8.2 –
@! , 8.1,
.
!
:
1). G$$ *:
$ File o Open Project o '!
o .
J '!! . +
! ! :
View o Project Explorer o , A !,
Project1 (= ) ( Forms ( #
Form1.
2). @# ', '!! -
(Code), !:
x , Y :, (Object) – !
,
x , Y :, (Procedure) – -
.
Rachet, – -
Click. :! , A # , -
– #! Y ( 8.6).