Informatika_Voytushenko

$B ! 8.4.

1	2				3
2	$!	& !
			Caption :
		= 200 + * !.
		( 8.9)
3	$A ! -	& ' , (
			’: ) ! % B-
		, # ,.
4	* ! ! -	&			, A -
	! -	!, ! -
	!
		!
5	! -		+ Properties Name Label4
	! ! -		Mes, Caption #
	!
6	@ ! -	$ !
	-
	! -		KeyPress. ’! !: !		:
			Sub a_KeyPress (KeyAscii As Integer)
			End Sub
			' % # KeyAscii
			B ! ! ! -
		% .
		@
		! # :
			Private Sub a_KeyPress(KeyAscii As Integer)
			Select Case KeyAscii
			Case 0, 8, 13, 45, 46, 48 To 57
			‘0, 8 – Delete, Backspace, 13 – Enter,
			’45 – «-», 46 – «.», 48 – 57 –
			’ 0 9
			Case Else
			KeyAscii = 0
			Mes.Caption = “& !_
			^ ”
			End Select
			End Sub
			$ – & ! -
			-
			44, – 46.

381

$B ! 8.4.

1	2		3
7	@ ! -	@ ! ! -
	-	# !? !
	! -	Select case End select		:
		$ Edit Copy;
		, -
		KeyPress, -
		Edit Paste.
8	@ ! -	Private Sub Line_Change()
	!	a.Text = Line
	-	Mes.Caption = "^		3 _
		-1000 : 1000"
		End Sub
9	@ ! -	Private Sub Line_Change()
	!	.Text = L n
	-	Mes.Caption = "^		3 _
		-500 : 500"
		End Sub
10	@ ! -	1) J
	-	!	(CommandButton) -
	Y	! !
		.
		2) < ! %
		Properties; , A
		:, CommandButton1;
		Caption,
		CommandButton1 Y; -
		Name
		CommandButton1 Och.
11	! -	$ ! Y
	! -	Code, -
	Y	# A !
		! ! ': Och l:
		a.Text = “ “
		c.Text = “ “
		y.Text = “ “
		mes. ption = “ “
12	$ -	$ Run Start;
		# ,
		.
13	B ! -	$ File Save Project
		'! «y = 200 + a*c -
		».

382

$ – \ A ! -, ! ! -

– 44.

$ , ! -! .exe – .

@ ! % # # -

% ! B.
$ 8.5 –	-
B . ) 8.10.
* ,		, >= 0
=
+ ,		, < 0

' 8.5 «$ B !» -8.5, % ! – 7.2.

8.9 – H – « = 200 + * - !»

8.10 – H 8.5 – «$ B !»

383

" ! 8.5. – ' 8.5 – «$ - B !»

Œ
/
1	2	3
1	* ! -	@ # .
	!	Name -
	-	Y – Och.
		% -
		– Text1, Text2, Text3.
2	! # -	! -
	! -	Text1, Click,
	!	:
		Sub Text1_Click ()
		'$ Text1 -
		! !
		Mes.Caption = «^	3 a»
		End Sub
3	& !	+ ! ! Text1 KeyPress,
	!	:
		Sub Text1_KeyPress (keyAscii As Integer)
		‘& !
		Select Case keyAscii
		Case 0, 8, 13, 45, 46, 48 To 57
		Case Else
		keyAscii = 0
		Mes.Caption= «^ !»
		End Select
		End Sub
4	! # -	+ , A :,
	! -	': Text2,
	! ,	Click, :
		Sub Text2_Click ()
		‘$ Text2
		‘ ! !
		Mes.Caption = «^	3 x»
		End Sub
5	& !	+ Text1 KeyPress
	!	! Select case End select -
	,	:
		Edit Copy;
		Text2,
		KeyPress,

384

$B ! 8.5.

1	2	3
		: Edit
		Paste.
6	! -	': Vixod ! Click -
	,	:
		Private Sub V , d_Click()
		End
		End Sub
7	!	': Och ( Name :
	Y	'! Och) ! Click :
		Private Sub Och_Click()
		Text1.Text = “ “
		Text2.Text = “ “
		Text3.Text = “ “
		Mes.Caption = “ “
		End Sub
8	!	': Rachet ! Click
	' ,	:
		Private Sub Rachet_Click()
		Dim a, x As Single
		a = Val(Text1.Text)
		x = Val(Text2.Text)
		If x >= 0 Then Text3.Text = a * x Else
		Text3.Text = a + x
		’– If
		!
		End Sub
9		$ File Save Project
	'! «& *-	!
	=»	B !.
10	J	$ Run Start,
		:
		% ! – = 2, , = 8,
		= 16. $
		Y –	= 10,
		, = 0,	= 0
		$ # A ! !
		! – = 7, , = -2, -
		# ! = 5. $ !
		.
11	J B	$ File Save Project
	-
	.

385

$ 8.6 – - B :

x / a – x / b

y = (a + b) / x a3 + b * 2,5

a <= 5 x > 6,a <= 5 x = 6," , ,.

!. * # ( . 8.11).

! : ! -Word, # Image.

< % ! ! 7 –

7.3.

$ 8.6 «* - B !» 8.6.

8.11 – H ! 8.6 – “* B !”

" ! 8.6. – ' 8.6 – «* - B !».

Œ
/
1	2	3
1	* !	@ # (-
	! -	8.11). -
		% .
2	& ! -	+ ! ! Text1 -
	Text1	KeyPress, :
		Sub Text1_KeyPress (keyAscii As Integer)

386

$B ! 8.6.

1	2	3
		‘& !
		Select Case keyAscii
		Case 0, 8, 13, 45, 46, 48 To 57
		Case Else
		keyAscii = 0
		Mes.Caption= «^ !»
		End Select
		End Sub
3	& ! -	+ Sub Text1_KeyPress
	Text2	(keyAscii As Integer) -
		Edit Copy
		! ! Text2
		KeyPress Edit
		Paste.
4	& ! -	+ ! ! Text3
	Text3	KeyPress Edit
		Paste.
5	!	': Vixod ! Click
	,	:
		Private Sub V , d_Click()
		End
		End Sub
6	! -	': Och ( Name :
	Y	'! Och) ! Click :
		Private Sub Och_Click()
		Text1.Text = “ “
		Text2.Text = “ “
		Text3.Text = ” “
		Text4.Text = “ “
		Mes.Caption = “ “
		End Sub
7	! -	': Rachet ! Click -
	' ,	:
		Private Sub Rachet_Click()
		Dim a,b,x As Single
		a = Val(Text1.Text)
		b = Val(Text2.Text)
		x = Val(Text3.Text)
		If a <= 5 And x = 6 Then ’
		Text4.Text = (a + b) / x ’

387

$B ! 8.6.

1	2	3
		ElseIf a <= 5 And x > 6 And a <> 0 And_
		b <> 0 Then	’
		Text4.Text = x / a – x / b ’
		Else	’
		Text4.Text = a ^ 3 + b * exp(2.5) ’
		End If
		End Sub
8	'!	$ File Save Project
	« * =-
	»	! B !.
9	J	( Run Start,
		:
		! !
		= 2, b = 5, , = 10, -
		= 3.
		$ Y
		% ! –
		= 2, b = 10, , = 6;
		= 2.
		$ # A ! !
		3- –
		= 10, b = 4, , = 2	$ -
		1048,73.
		$ ! -
		.
10	J B	$ File Save Project.
	.

8.6 ( ), ,

# % # «- » – B . + , A -– # . ( B # %# % ! – B -! # . @ ! % ! # - ! # , ! ( ),

388

, , ! B -:

- ( #) (OptionButton)

– (Frame)

– (CheckBox)

& , # A Windows, # - B ! % ! . { B B Visual Basic MsgBox.

( :

MsgBox “ ”

+! B #

, ': # : (+ &). \ A -# # , -Str ( ). J ,! MsgBox “& ! ^ ” '! ! ( . 8.12 ), - ! MsgBox “& $ “ & Str(P) – -( . 8.12 ). ' – , ! ¢ - ! .

)	)
8.12 – , MsgBox
%	: !

, -! B

	. @ ! : Value, A -
# :	# ! # ! :

-. @ ! # ! Value True (0).

389

- . @ ! -# ! Value False (K ).

< # # ! Value, : -( # ) ! % !.

Š ': - , # B -Frame. @ : ! - A ! # ! , ': ! .

$ 8.7 – ' # # ! - :

y = x / 6 , y = x * 5 y = x / 4

! 0 < x <= 100

@ ! # . # ! , # !.

!:

1. * ( 8.13)

8.13 – ! 8.7 – “ ”

$ 8.7

390