Войтюшенко Н.М., Остапець А.І. Інформатика і комп’ютерна техніка
Подождите немного. Документ загружается.
421
12. .11 ) 3.4, %
B! ! ) , )
(! ).
13. \ , #, #
#?
14. \ ! ': Picture?
15. @ .
8.8 ' 2$
+ # % :! #-
:! . " !: -
, A # !
.
+ Visual Basic !! – -
( # # ; !
– !), ( ; -
! – ) ( ). $-
#:! !
. B :
. @! ! -
.
) : -
:! – # , A -
. @ :!
. &# B -
. @!
Type -
.
@! ! :! :
Project o Add module o New o #
Module o .
) Type:
Type <'! >
<'! !> As < >
……………
<'! !> As < >
End Type
422
@! B -
(), : FIO as String*50, 50 – B
$..O.
$
8.15 – ' :: %-
(5 .), (15 .), () (25 .),
(20 .), ! (20 .), (5.), (3.).
!
.
(. Project o . Add module o . New o # Module o
.
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;
423
[Zapnum] – # B!, A
;
Pzap – , A : B -
.
B '!!! .
+ ! ! Put.
3. '
.
Get Fnum, [Zapnum], Pzap ,
# Put. +
#:! %, B # . *
8.25.
8.25 – *
4. ' .
Close [ Fnum]
@: [ Fnum ]- , A !. \A
#, ! .
5. )!, A :
Lof(< 2$>)
' Put
' #! Get
)
% .
1
2
………
n
O
’! ! ! :
'
’!.
$ 1
$ 2
……………….
$
k
$-
1
$-
2
………
…
$-
k
424
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 « »
425
8.27 – * %! 8.15
$ B!
$#
1. I=1
2. !
3. &
?
4. S=K*C
5.
6. I= I + 1
7. " A
?
8. !
! #!
9. _!
10. " A
#?
12. _!
15. &
?
16.
Bcego
&
2
12
&#
&#
&#
$ !
$
$ {
$ ',-
$ ,
13. Bcego=Bcego+K*C
14. I= I + 1
11. I=1
426
"! 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 & !
C
Private Sub C_KeyPress(KeyAscii As_
Integer)
Select Case KeyAscii
Case 0, 8, 46, 48 To 57
427
$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 & !
5
Private Sub K_KeyPress(KeyAscii As_
Integer)
Select Case KeyAscii
Case 0, 8, 13, 46, 48 To 57
Case Else
KeyAscii = 0
Mes.Caption = "&! ^_
"
End Select
End Sub
7 '%! -
( Project o Add module o
New o # Module o -
Type zapic
Kod As Long
Nam As String * 30
Ed As String * 20
K As Single
C As Single
End Type
'! « -
»
428
$B! 8.14.
1 2 3
8 '%! -
!
#
+ '! , A ZapicBox
I ! !,
% -
:
': General -
! Declaration,
Dim ZapicBox As zapic
Dim i As Integer
9 + #
#! # -
( -
B )
Private Sub Form_Load()
i = 1
End Sub
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_
429
$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 '!
«' 2$»
( File o Save Project o
'! .
14 J
( Run o Start, -
, ! B %-
! . $
# -!
!, #
{. $ ! -
.
#!
* .
15 JB
( File o Save Project.
& $ $*
1. \ ! !! Visual Basic ? @! #
?
2. ! B ?
3. J ! .
4. \ ! : ?
5. @ '!!! , ! ! -
?
6. @! # :! ?
7. J ! & 3. *
: , , $..O , , !
– , # -
. $ ! # -! , -
430
. @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.