Войтюшенко Н.М., Остапець А.І. Інформатика і комп’ютерна техніка
Подождите немного. Документ загружается.
371
8.6 – – “= ”
' !! # ,
#! #, :! ! -
! # – Val.
3). + , A :, Vixod,
– Click. + #! – End.
4). :
Run o Start o &, #
5, & – # 6 o ',
o ' # 230.
+ A :! !
!:! . -
:
Run o Continue
5) %! :! !
,.
8.4.3 K 2 $
* 2$
$ %
%! # .
J , ! 8.5, B
'’: $!
372
% # – B -
%() , , ! :! -
, ( 8.7).
, ': B , # -
! # ': % Ctrl !
%.
8.7 – ) «= » ': Picture, OLE -
':.
J, ! ( $ !! -
:
1) ! % ':;
2) Properties BackColor
#, A :, ( Palette) -
.
+ B -
!. @! Aligment B ': -
#, A :: 2 – center.
@! A # -
, ,
Picture !
Load Picture, ! (,
ClipArt) . !:!
. ( :! , !A
373
% , . %# , B
% # .
– # ! Picture.
B -
': Picture Image (!! -
# % !
':).
': Picture B !, Image –
B. @ :! Picture :! B
, A ! . < B -
, , % ': Picture Image, :
$ Edit o Paste.
@! ': % B -
OLE ( OLE ). + -
OLE (':),
, Microsoft Equations.
$! ! B -
:
File o Print o Form Image
(! ), Code ( ), Form
As Text ( ': ). (B
, B -! #!.
* :! A Visual Basic.
B A, -
# ( %! exe). Exe-2$ B -
! Windows ! . @ Windows ! -
! #. \A # #
# , -
Icon ! : (
# -
#). J, ! G$$ *
vb98\ icons\misc 2$ face03.
$ – + icons B -
! K$ & % %! .ico.
374
$! : File o Make exe File. + -
, A :!, # '! ,
5. Exe-2$ .
8.4.4 $
@! # #
#! #! B -
%. { B
:
- (HScrollBar);
- (VScrollBar).
$A! #! -
Value. D! #: # !
( #!), A ! , -
! Max Min
( #!
).
#! '! !:
Change – : !
B , ! -
! A!;
Scroll – !: B #! Value -
A Change.
& A!
:!
SmallChange, B
– LargeChange.
$ 8.3
– *
! #! Y = 230 + a * c , !A
a c: -1000 < a <= 1000 -500 < c <= 500
!:
1. , 8.1, -
#! ! # . ( – 8.8).
$ -
! 8.3.
375
8.8 – ! 8.3
"! 8.3. – $ % 8.3 –
“Y = 230 + a * c ! #!”
/
1
,
8.1
$ ! ! . -
1 $ 8.2.
2 *!
! #
.
1. J -
! – HscrollBar, -
#!
! 8.8.
2. < Properties -
! :
Name – Ln
Max – 1000
Min – -1000
Value – 0
SmallChange – 1
LargeChange – 10
3 *!
! #
c.
1. J -
! HscrollBar, -
#! !
8.8.
2. < Properties -
! :
Name – Ln
Max – 500
Min – -500
Value – 0
SmallChange – 1
LargeChange – 5
376
2. ! :
1). $ ! % (
) #! Code.
@! ': Ln Change ,
, !A B ! ! – A! -
.
Private Sub LineA_Change()
a.Text = LineA
End Sub
2). @! ': Lin!
Scroll -
, # A! :
Private Sub LineA_Scroll()
LineA_Change
End Sub
3). <# 1 2 ! ':
Lin.
Private Sub LineC_Change()
c.Text = LineC
End Sub
Private Sub Line_Scroll()
Ln_Change
End Sub
3. , # #! !
%! A! #!.
4.
'! G$$ .
& $ $*
1. @ ': – :
Visual Basic.
2. ': Visual Basic, ':.
3. \ ': ! !?
4. _ !! !! «!» «» Visual Basic,
.
377
5. $!! «» ! ! !! «':» ?
6. \ ! :?
7. * # (S), !A
(c) (k) !.
8. * ! (),
!A ($) # ()) .
9. # m, !A ,
A % % !# % ' .
& '! : 43% : %. J
56 : 97 .
10. # ! -
:
S * D
1
*(100 – R) * P * T
D = – ————----------——— ,
100*N
:
N=12 – ! ;
R – # ;
D1 – # (321 );
S – # !;
" – # !;
– !.
8.5 ' *=, *
+ % : -
, # # . @ !!:
&, .
x * , – GoTo
* :
GoTo <>
– #! % 40 . & -
, ! # !, !
, -
#:! .
J: Go To M1
:1: …...
378
x * ,:
* :
1) :
If Then [Else ]
$ 7.2 ( 7) B :
If x >= 0 Then y = a * x + b Else y = a * x – b,
: y, a, x, b – .
$ – \A A:! ! ,
B !, #
! _ .
2) :
If 1 Then
[]
[Elseif 2 Then
[]
[Else []]
End if
B # . B
:! # #:!
End if.
$ – \A ! !!
# Then Else, ! -
.
+ ! B ! If
.
J ( - 7.3):
x / a – x / b a <= 5 x > 6,
y = (a + b) / x a <= 5 x = 6,
a
3
+ b *
2,5
", ,
379
$ # % , # , -
#, A
z
0,
z
0 . "
!:
If Val(a.Text) <= 5 And Val(x.Text) = 6 Then
y = (Val(a.Text) + Val(b.Text)) / Val(x.Text)
ElseIf Val(a.Text) <= 5 And Val(x.Text) > 6 And Val(a.Text) <> 0 And
Val(b.Text) <> 0 Then
y = Val(x.Text) / Val(a.Text) – Val(x.Text) / Val(b.Text)
Else
y = Val(a.Text) ^ 3 + Val(b.Text) * exp(2.5)
End If
$ # #!, A y, a, x, b –
(Textbox),
2,5 –
!.
2) @! ! : # -
:
Select Case <>
[Case !! 1
[]]
[Case !! 2
[]]…
[CaseElse
[]]
End select
#:! #! # , -
:! , # ! Case. \A -
!! ,
! ! Case Else. + -
!! B .
J:
Select Case alfa
Case 1
‘
Case 2 To 4, 7 To 9,11,13, alfa > Max
'#! alfa :! 2,3,4,7,8,9,11,13 Max.
‘\A #! !-
380
‘# :! !!,
‘ End Select.
b.Text=alfa + MaxA
Printer.Print “b= “, b.Text
Case Else
alfa=0
End Select
& *=, *
$ 8.4.
– + # y = 200 + a * c
( 8.3) #A -
!/, # B ! ! -
#! (!A # !! -
# ), # ; -
! # ( -
! #, % !
).
!
: & ! -
. &# B , + –
, % Delete Backspace, # !
% Enter, % !
. $ # % '-
, ! B ! . <
A ! , A
Select case. $ !
#, #! – % Enter. J
8.4
"! 8.4. – ' – «= -
#!»
/
1
2 3
1 !
$ $ o # o
'! o -
# .