Tools () , : , , .
Add Procedure ( ). , , , . Add Procedure, , . , , , .
Procedure Attributes (). .
Menu Editor ( ). , .
Options (). ( ), .
, , Visual Basic .
Visual Basic :
, , . , , .
, , , .
- , .
-. (, ) , , , .
, . . , .
[1, 2,]
Call. .
Call (1, 2,)]
Visual Basic . :
[Private/Public/Priend] [Static] Sub [()]
[]
[Exit Sub]
[]
End Sub
:
[Private/Public/Friend] [Static] Function [()] [As ]
[]
[ = ]
[Exit Function]
[]
|
|
|
[ = ]
End Function
:
Public - , .. .
Private - , .
Friend - .
Static -. .
/ , .
- .
- . , , . , Variant.
, .
- .
Exit Sub/Exit Function - .
, , :
[Optional][Val/Ref][m] [()]
[As ][=]
Optional. () , . . (ParamArray).
ByVal. , , . , .
ByRef. , , . . , , . Visual Basic .
ParamArray. . , Variant, . . Optional, ByVal ByRef.
. , .
. , , .
. (. . , Optional). , . Object, Nothing.
2.1 Satm4.
2.2
2.2.1
Project Explorer frmSa,
|
|
|
,
Tools Add Procedure,
Name Sa_Tropo - ,
, Sub Public,
Ok Sa_Tropo
Public Sub Sa_Tropo()
End Sub
Sa_Strato .
2.2.2
Private Sub CmdOk_Click(),
( ' ) Ctrl+X. .
Sa_Tropo() ,
Ctrl+V. ,
Private Sub CmdOk_Click(),
(sngP0, sngR0, sngT0) (sngGradTempH) Sa_Tropo().
, , , Sa_Strato.
2.2.3
Sa_Tropo
j As Integer,
Sa_Strato
j As Integer,
Private Sub CmdOk_Click(),
If gsngSa(1, j) <= 11000 Then -
Call Sa_Tropo(j)
If gsngSa(1, j) > 11000 Then -
Call Sa_Strato(j)
End If
2.3 Satm5.
Project Explorer frmSa,
File Save satm4-1.frm As,
File name ( ) Satm5-1 Save (),
Project Explorer frmTabl,
File Save satm4-2.frm As,
File name Satm5-2 Save,
File Save Project As,
File name Satm5 Save.
2.4 .
2.4.1
VB5.0,
0,
asdf. , ,
100.
Enter. .
Debug . , , , ,
, End Run.
2.4.2
VB5.0,
asdf,
100,
0.
Enter. . , .. .
2.5
2.5.1 ( )
|
|
|
, frmSa ,
Private Sub CmdOk_Click(),
gsngH_pr = Val(TxtHpr.Text)
Select Case gsngH_pr
Case Is >= gsngH_k
MsgBox "1. " _
+" "
Case Is = 0
MsgBox "1. 0" _
+ vbCrLf + "2. "
TxtHn.Text = "" '
TxtHk.Text = ""
TxtHpr.Text = ""
GoTo M1 Private Sub CmdOk_Click()
End Select
- End Sub M1:
2.5.2 ( , Private Sub CmdOk_Click())
. 2.5.1 .
2.6 ( 15000 ) -.
2.6.1
Project Explorer , frmSa ,
,
Tools Add Procedure,
Name ErVvod_1, ,
, Functin Private,
Ok ErVvod_1
Private Function ErVvod_1()
End Function
2.6.2 ErVvod_1()
Private Sub CmdOk_Click(),
Rem Else
Ctrl+X.
ErVvod_1() ,
Ctrl+V
2.6.3
Private Sub CmdOk_Click(),
TextErVvod ,
Rem -
TextErVvod = ErVvod_1()
2.7 .
2.7.1
Project Explorer , frmSa ,
,
Tools Add Procedure,
Name Prov,
, Functin Private,
Ok Prov
Private Function Prov ()
End Function
2.7.2
Prov KeyAscii
Prov
Static DecPoint As Integer
Select Case KeyAscii
Case Asc("0") To Asc("9")
Case Asc(".")
If DecPoint Then
KeyAscii = 0: Beep
Else
DecPoint = True
End If
Case Asc(",")
KeyAscii = 0
Case Else
KeyAscii = 0: Beep
End Select
Prov = KeyAscii
2.8 Prov TxtHn
, frmSa ,
Public KeyAscii As Integer
TxtHn,
|
|
|
KeyPress.
Private Sub TxtHn_KeyPress(KeyAscii As Integer)
End Sub
Dim Simv
Simv = Prov(KeyAscii)
2.9
VB5.0,
asd. , ,
, End Run.
2.10 Prov TxtHpr TxtHk
. 2.8 .
2.11 .
2.12 .
2.13
6
: Satm5 Satm6 :
ü - 3,
ü - 4,
ü - 5.
3 Graph , frmSa.
3 :
,
Next 4 3;
Exit 1 3;
Cancel ;
4 :
,
Next 5 4;
Exit 3 4;
Cancel ;
;
5 :
,
;
Exit 4 5;
Cancel ;
Next 1;
:
VB;
VB, ;
:
Picture Box ;
Picture Box , .
