Informatika_Voytushenko

12. .11 ) 3.4, %B ! ! ) , )( ! ).

13.\ , # , # # ?

14.\ ! ': Picture?

15.@ .

8.8' 2$

+ # % : ! #- : ! . " ! : -, A # !.

+ Visual Basic ! ! – -( # # ; !

– ! ), ( ; - ! – ) ( ). $ -# : ! !

. B :
. @ ! !	-
.
) : -
: ! – #	, A -

. @ : !. & # B -. @ ! Type -.

@ ! ! : ! :Project Add module New #

Module .

) Type: Type < '! >

< '! !> As < >

……………

< '! !> As < >

End Type

421

@ ! B -( ), : FIO as String*50, 50 – B $. .O.

$ 8.15 – ' : : %-(5 .), (15 .), ( ) (25 .),(20 .), ! (20 .), (5 .), (3 .).

!.

(. Project . Add module . New # Module.

J :

Type Adres

Indekc As Integer

Country As String*15

Region As String*25

Punkt As String*20

Street As String*20

House As String*5

Flat As Integer

End Type

$ ! -:

1. ' .

Open Fname [ For Random] as Fnum Len = Dlina

@ : Fname – '! ;

[ For Random] – B – : ! # ! ;

Fnum – , , 1 #1;

Dlina – B . \ A B - , B # Len ( ! - B ! ).

2.' .

Put Fnum, [Zapnum], Pzap

@ : Fnum – , # Open;

422

[Zapnum] – # B !, A

;

Pzap – , A : B - . B '! ! ! . + ! ! Put.

3. ' .

Get Fnum, [Zapnum], Pzap ,

# Put. +# : ! %, B # . *8.25.

						'			Put
											'
)
														’! .
% .
			O								$ 1
1			’! ! ! :
											$ 2
2														……………….
………		$ -			$ -			………		$ -				$ k
n		1			2			…		k

' # ! Get

8.25 – *

4. ' .

Close [ Fnum]

@ : [ Fnum ]- , A !. \ A# , ! .

5. ) !, A :

Lof(< 2$>)

423

6. ) ! !

Kill(< 2$>)

$ 8.16. – * # ! -'! Tovar. * -: ( '! Kod) – 5 , !(Nam) – 30 , (Ed) – 20 , -( K ) (C ) – 10 .

$ ! ! % Enter ! (Sum) - , %(Bcego).

!. $ - ! . # ! - ! % ( 8.26). $ !' ,. * % ! 8.27,– 8.14.

8.26 – H 8.16 « »

424

$#

1. I=1

2. !

3. &?

4. S=K*C

5.

6. I= I + 1

27. " A ?

8. !! # !

9. _!

10. " A # ?

11. I=1

12. _!

13. Bcego=Bcego+K*C

14. I= I + 1

	Bcego	15. &
		?

&
	12

$ B !

& #

$ !Š

$

& #

$ {

& #

$ ' ,-

$ ,

8.27 – * % ! 8.15

425

" ! 8.14. – ' 8.16 « - »

Œ
/
1	2	3
1	* !	@ #
	! -	( 8.26).
2	!	+ ': , ! Click
	,	:
		Private Sub Vi, d_Click()
		End
		End Sub
3	!	+ ': Y (-
	Y	Name : '! Y ) !
		Click :
		Private Sub Y_Click()
		Kod.Text = " "
		Nam.Text = " "
		Ed.Text = " "
		K.Text = " "
		C.Text = " "
		Mes.Caption = " "
		Sum.Text = " "
		Bcego.Text = " "
		End Sub
4	& !	+ ! ! Kod -
	Kod	KeyPress, :
		Private Sub Kod_KeyPress(KeyAscii_ As
		Integer)
		Select Case KeyAscii
		Case 0, 8, 13, 48 To 57
		Case Else
		KeyAscii = 0
		Mes.Caption = "& ! ^_
		5 – "
		End Select
		End Sub
5	& !	Private Sub C_KeyPress(KeyAscii As_
	C	Integer)
		Select Case KeyAscii
		Case 0, 8, 46, 48 To 57

426

$B ! 8.14.

1	2	3
		Case 13
		If K.Text<>”” Then
		If C.Text<>”” Then
		Sum.Text = Val(K.Text) * Val(C.Text)
		Else
		Mes.Caption = "& ! ^ -
		”
		End If
		Else
		Mes.Caption="& ! ^_
		”
		End If
		Case Else
		KeyAscii = 0
		Mes.Caption = "& ! ^ _
		"
		End Select
6	& !	Private Sub K_KeyPress(KeyAscii As_
	5	Integer)
		Select Case KeyAscii
		Case 0, 8, 13, 46, 48 To 57
		Case Else
		KeyAscii = 0
		Mes.Caption = "& ! ^_
		"
		End Select
		End Sub
7	' % ! -	( Project Add module
		New # Module -
		Type zapic
		Kod As Long
		Nam As String * 30
		Ed As String * 20
		K As Single
		C As Single
		End Type
		'! « -
		»

427

$B ! 8.14.

1	2	3
8	' % ! -	+ '! , A ZapicBox
	!	I ! ! ,
	#	% -
		:
		': General -
		! Declaration,
		Dim ZapicBox As zapic
		Dim i As Integer
9	+ #	Private Sub Form_Load()
	# ! # -	i = 1
	( -	End Sub
	B )
10	$	Private Sub Zap_Click()
		Open "D:\Tovar" For Random As #1
		Len_ = Len (ZapicBox)
		ZapicBox.Kod = Kod.Text
		ZapicBox.Nam = Nam.Text
		ZapicBox.Ed = Ed.Text
		ZapicBox.K = Val(K.Text)
		ZapicBox.C = Val(C.Text)
		Put #1, i, ZapicBox
		i = i + 1
		Close #1
		End Sub
11	$	Private Sub Read_Click()
	{	Open "D:\Tovar" For Random As #1_
		Len = Len(ZapicBox)
		= InputBox("^ _ -
		3_ ")
		Get #1, i, ZapicBox
		Kod.Text = ZapicBox.Kod
		Nam.Text = ZapicBox.Nam
		Ed.Text = ZapicBox.Ed
		K.Text = ZapicBox.K
		C.Text = ZapicBox.C
		Close #1
		End Sub
12	$	Private Sub ' ,_Click()
	' ,	Open "D:\Tovar" For Random As #1_

428

$B ! 8.14.

1	2	3
		Len = Len(ZapicBox)
		Bcego = 0
		For i = 1 To Lof(1)
		Get #1, i, ZapicBox
		Bcego.Text = Val(Bcego.Text) +_
		ZapicBox.K * ZapicBox.C
		Next i
		Close #1
		End Sub
13	'!	( File Save Project
	«' 2$ »	'! .
14	J	( Run Start, -
		, ! B	%-
		!	. $
		# -!
		! , #
		{. $ ! -
		.
		# !
		* .
15	J B	( File Save Project.

& $ $*

1.\ ! ! ! Visual Basic ? @ ! #

?

2.Š ! B ?

3.	J !	.
4.	\ !	: ?

5.@ '! ! ! , ! ! -?

6.@ ! # : ! ?

7.J ! & 3. * : , , $. .O , , !

– , # - . $ ! # -! , -

429

. @ B -# .

8. @ .7 B -B .

G

1.< <., ) <. * # Visual Basic 6.0 – *$: O| – *- $, 2000 – 624 .

2.% J.J.,' <.z. & ! - . _ 2. ' ” ! Visual Basic: +# ! - # # !. – @ : @ /+•", 2002. – 150 .

3.( ( VISIAL BASIC . – (.: OzJ'(, 1996

4.* # ! Visual Basic.

430