Informatika_Voytushenko

% # – 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

372

% , . % # , B % # .

– # ! Picture.

Š B -': Picture Image ( ! ! -# % ! ': ). ': Picture B !, Image – B . @ : ! Picture : ! B , A ! . < B - , , % ': Picture Image, :

$ Edit Paste.

@ ! ': % B -OLE ( OLE ). + -OLE ( ': ), , Microsoft Equations.

$! ! B -:

File Print 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.

373

$! : File 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 , ! Aa c: -1000 < a <= 1000 -500 < c <= 500

!:

1., 8.1, - # ! ! # . ( – 8.8).

$ -

! 8.3.

374

8.8 – ! 8.3

" ! 8.3. – $ % 8.3 – “Y = 230 + a * c ! # !”

375

2. ! :

1). $ ! % ( ) # ! Code.

@ ! ': L n 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() L n_Change

End Sub

3. , # # ! !% ! A ! # !.

4. '! G$ $ .

& $ $*

2.Š ': Visual Basic, ': .

3.\ ': ! !?

4._ ! ! ! ! « !» « » Visual Basic, .

376

5.$! ! « » ! ! ! ! « ': » ?

6.\ ! : ?

"– # !;

– !.

8.5' * = , *

+% : - , # # . @ ! !:& , .

* , – GoTo

* :

GoTo < >

– # ! % 40 . & - , ! # ! , ! , - # : ! .

377

* ,:

* :

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):

378

$ # % , # , -# , A 0, 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 # ! !-

379

‘# : ! ! !, ‘ 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 ! , ASelect case. $ ! # , # ! – % Enter. J8.4

" ! 8.4. – ' – «= - # ! »

380