Informatika_Voytushenko

" ! 8.7. – $ – « - »

Œ			-
/		'
1	2	3	4
1	@ '!	Caption	2 3
2	* # !	Name	Lin q
		Max	100
	! # ,	Min	0
	( HScrollBar)	Value	0
		SmallChange	1
		LargeChange	10
3	* ! -	Caption	2 %
	#
	( Frame)
	* # !	Name	F1
4	1
	( OptionButton)	Caption	1
		Value	True
	* # !	Name	F2
5	2
		Caption	2
	( OptionButton)
		Value	False
	* # !	Name	F3
6	3
		Caption	3
	( OptionButton)
		Value	False
7	* !	Name	OLE1
	y = x / 6
	( OLE)
8	< # .7 %	Name	OLE2
		Name	OLE3
9	* ! -	Name	Label1
	! # ! -	Caption	,
	, ( Label)
10	* ! !	Name	x
	# ! ,	Text
	( Text)
11	* ! -	Name	Label2
	! -	Caption	' y
	y
	( Label)

391

$B ! 8.7.

1	2	3	4
12	* ! !	Name	y
	# !
		Text
	( Text)
13	* !	Name	' ,
	! -	Caption	' ,
	( CommandButton)
14	* !	Name	Y
	# A ! , y	Caption	Y
	( CommandButton)
15	* !	Name	,
		Caption	,
	( CommandButton)

2. * .

1). $ ! % - # !

Code.

@ ! ': Line Change , - , ! A B ! ! – A ! - :

Private Sub LineX_Change()

x.Text = LineX.Value

End Sub

2). @ ! ': Line Scroll - , # A ! :

Private Sub LineX_Scroll()

LineX_Change

End Sub

3). ': ' ,, – -Click. ' , -% «' ,»:

392

Private Sub ' ,_Click()

If F1.Value = True Then

y.Text = Val(x.Text) / 6

ElseIf F2.Value = True Then

y.Text = Val(x.Text) * 5

Else

y.Text = Val(x.Text) / 4

End If

End Sub

4). ': Y, – -Click. ' , -% «Y»:

Private Sub Y_Click() x.Text = " "

y.Text = " " End Sub

5). ': ,, – Click. ' , % «,»

Private Sub ,_Click() End

End Sub

+ 8.7 ! !, ! A B «8 /K»,(. J ! « # » : «8 » ( Value – 1 Checked), – «K » ( Value – 0 Unchecked).

$ 8.8 – * - # ! # !: – - ( (10 ), (50 ), ; !-; # ! - # !, B . $# A !#

393

( – 10 ., – 20 ., – 15 ).

!. $ , ! -A !# ; ! , ! -# . + ! ! -. $ A !# , % . $ -B . H8.14, –8.8. \ - # : .

8.14 – H ! 8.8 – “& # !”

" ! 8.8. – $ ! % ! 8.8 – «&-# !»

Œ
/
1	2	3
1	* ! -	@ # (
	-	8.14). : Š_ , Š-
	!	_%, 5 ,

394

$B ! 8.8.

1	2	3
	-	^ * .
		# -
		# ! ! Š_ – -
		Enabled – False.
		– Min, Full, M_F,
		: '! Check1 (-
		Value – 1 Checked).
2	!	+ ': Code
		General, – Declaration, -
		:
		Const &_, = 10,00 ( 10#)
		Const &_ = 20,00 ( # )
		Const &_ = 15,00	------	“	-----
		Const ^ = 45,00	------	“	-----
3	$: ! #-	+ ': Code Form,
	! Š_	– Load ( B ),
	B	:
		Private Sub Form_Load()
		Š_ .Text = ^
		End Sub
4	& !	+ ! ! Š-
	Š-	_% KeyPress, -
	_%	:
		Sub Š_%_KeyPress (keyAscii As
		Integer)
		‘& !
		Select Case keyAscii
		Case 0, 8, 13, 45, 46, 48 To 57
		Case Else
		KeyAscii = 0
		MsgBox “& ! ^ -
		%”
		End Select
		End Sub
5	& !	+ ! ! 5
	5-	! KeyPress, :
		Sub 5_KeyPress (keyAscii As
		Integer)
		Select Case keyAscii

395

$B ! 8.8.

1	2	3
		Case 0, 8, 13, 45, 46, 48 To 57
		Case Else
		KeyAscii = 0
		MsgBox “& ! ^_ ,$
		= %”
		End Select
		End Sub
6	!	+ ': ! Click -
	,	:
		Private Sub , _Click()
		End
		End Sub
7	!	+ ': Y (
	Y	Name : '! Y) ! Click
		:
		Private Sub Y _Click()
		Š_% = “ “
		5 = ” “
		^ * = “ “
		End Sub
8	$! #	+ ': Min, Click. Private
	!	Sub Min_Click()
		MsgBox "Y " +_
	« -	Str(&_, )
	$»	End Sub
9	$! #	+ ': Full, ! Click.
	!	Private Sub Full_Click()
		MsgBox "Y " +_
	« $»	Str(&_ )
		End Sub
10	$! #	+ ': M_F, ! Click.
	!	Private Sub M_F_Click()
		MsgBox "Y " +_
	« -	Str(&_)
	$»	End Sub
11	!	+ ': ' , !
	' ,	Click :
		Private Sub ' , _Click()
		If Check1.Value = 1 And Š_%.Text

396

$B ! 8.8.

1	2	3
		= "" Then MsgBox "^ %":_
		GoTo M1	(
		If Check1.Value = 1 And 5 .Text= ""
		Then MsgBox "^ ,$_ =
		%": GoTo M1
		If Check1.Value = 1 Then ^ * .Text =_
		Val(Š_ .Text) + _
		Val(Š_%.Text) *_
		Val(5 .Text) Else ^ * .Text = _
		Val(Š_ .Text)
		M1: End Sub
12		( File Save Project
	'! «5 -	'! .
	»
13	J -	( Run Start.
14	J B -	( File Save Project
	-	'! 5 5
	.

$ – & ! ! - ! - . $ ! # ! , % % ! B .

& $*

1.Š B ?

2.\ B : ! , A B !?

3.\ # : ! B , ?

4.\ ! B , ! ?

5._ !: ! If … Then … Else ?

6.Š # : If …?

7.@ ! # ! , ! - # # !?

8.$ # ! , .

9.\ $& ! ?

10.@ ! # ! ?

11.* Visual-Basic:

397

) : ! A % 150 - , !. % 150 , % 350 : ! 10% , % 350 – 15% .

	0	Z <= 150,
J =	0,1 * Z	150 < Z <= 350,
	0.15 * Z	>350.
)	a * c + 8.5 * x	x > 7,
y =	a * c	x = 7,
	(a * c – b) / 5 * x	x < 7.
)	5 * + 5 – 4 * x	a = 1,
y =	0.5 * ex – (x – 1)2	a = 2,
	625	% .

) * ! - : # !, ! A ! !:

	& " %	Š		; * %		Š
1.	O A		1.	& –		3,12
%		3,20
2.	Š	2,85	2.	&		5,07
3.	* !# -		3.	B		2,08
%		2,50
4.		2,70		\
5.	* !	2,45	1.	& !		0,50
			2.	& %		0,46
			3.	& % #		0,39
	K 3
1.	_	0,50	1.	*	.	0,25
2.	&	0,60	2.	*		0,30
3.	& .	0,70	3.	*		0,56

B , # , # – # .

8.7 & ,

\ ! 7.3.3, # B -– 2 , $, , - . @ ! ! ! .

398

8.7.1 ! 2 , , 2

! 2 – , ! !# , ! : ! -:

For = # # ! To # ! [Step...]

[Exit For]

Next [ [, ]...]

- # # !, , ! A ,Next, # ! % # ! (Step) , ! A # , –1, : ! - . \ A # , # : ! , A ! Next. Exit For – : ! - .

$ 8.9 – J # ! y = n! (-- 7.4 7.4, – ! 8.9 ,8.15)

8.15 – ! 8.9 – “) ”

399

" ! 8.9. – ' 8.9 – «) »

Œ
/
1	2	3
1	* !	@ # (-
	! -	8.15). n y,
		! ! ! – Mes,
		– Y ,
2	!	+ ': , !
	,	Click
		:
		Private Sub ,_Click()
		End
		End Sub
3	!	+ ’: Y !
	Y	Click :
		Private Sub Y_Click()
		n.Text = “ ”
		y.Text = “ ”
		Mes.caption = “ ”
		End Sub
4	& !	+ ! ! n
	n	KeyPress, :
		Sub n_KeyPress (KeyAscii As Integer)
		Dim i As Integer ‘ % !
		!
		y = 1 ‘ # # !
		‘& !
		Select Case KeyAscii
		Case 0, 8, 46, 48 To 57
		Case 13
		For i = 1 To Val(n.Text)
		y.Text = Val(y.Text) * i
		Next i
		Case Else
		Mes.Caption = “^ _
		“
		End Select
		End Sub
5	’!	( File Save Project -
	« »	’! .

400