.., .., .
Visual Basic
c II
-
3
.
: Satm2 , :
,
( 0 15000 ),
, ,
"OK",
.
:
, ,
,
, , ,
,
.
:
, ,
,
,
If.Then,
.
Debug (), . . , .
Step Into (). . , .
Run To Cursor ( ). , , . ( ).
Add Watch ( ). , , .
Toggle Breakpoint (/ ). .
Clear All Breakpoints ( ). .
Visual Basic
Visual Basic, . .
|
|
|
Visual Basic :
Boolean () , : True False.
Integer () - ( ) 32768 32767.
Single ( ) - , . 1.401298E-45 3.402823E+38.
String () ASCII- 0 . , , .
Variant () (, , ).
. .
.
, - . :
:
[Public/Private] Const [As ] =
:
Public/Private/Dim [As ]
, :
Dim - , , ,
Private - ,
Public - : , ,
Static , , ( ) , .
, :
, ( 1.1.),
,
, - _,
Visual Basic.
255 .
1.1.
,
| () | |
| Boolean | bin |
| String | str |
| Integer | int |
| Single | sng |
| Variant | vnt |
| General ( ) | g |
, :
_ =
, , , (, ..). .
Visual Basic :
- (+), (-), (*), (/), (^), - ,
: (>) , (<) , (=>) , (<=) , (=) , (<>) , - , , - True False,
|
|
|
- : Not - "", And - "", Or - "". .
And True, True. False, And False. and ( ).
Or True, True False. .
, (+) (&) "" - , . , .
.
CSng () - Single.
Val (C) - . .
() - .
Sqr () - .
Format (, $) . :
"#", - ,
"0" - ,
(, Scientific, Fixed).
( )
, .
:
If Then
, True.
:
If Then
Else
End If
, True, False.
. :
,
, ( ) .
Visual Basic :
(') ( ),
Rem.
Visual Basic . Visual Basic (_). :
(_) ,
.
2.1 satm2, .
2.2 , , .
2.2.1 , , , . , :
|
|
|
| gsngH_r | |
| gsngP_h | |
| gsngR_h | |
| gsngT_h | |
| gsngA_h |
,
,
Option Explicit,
(General), Declarations,
gsngH_r ,
Public gsngH_r As Single
: gsngR_h, gsngP_h, gsngT_h, gsngA_h.
2.2.2 cmdOK_Click() . , :
| sngP0 | ||
| ... /2 | 133,322 | sngCfnP |
| 1.225 | sngR0 | |
| *c2/4 /3 | 9,80665 | sngCfnR |
| 288.15 | sngT0 | |
| 11000 | 216,7 | sngTh11000 |
cmdOK_Click(),
, Del (Delete),
- Private Sub cmdOK_Click()
Rem
-
Const sngP0 As Single = 101325
.
2.2.3
- cmdOK_Click()
Rem
sngGradTempH
Dim sngGradTempH As Single
( sngStpn)
Dim sngStpn As Single
, -
Dim Msg1, Msg2, Msg3, Style, Title, vbYesOnly, vbDefaultButton1, vbCritical
2.4
- cmdOK_Click()
Rem
sngGradTempH = 0.0065
Msg1 = "1. "
Msg2 = "2. 0 15000 "
Title =
gsngH_r ( Val) -
gsngH_r = Val(txtHn.Text)
2.5 cmdOK_Click()
End Sub
if gsngH_r < 0 OR gsngH_r > 15000 Then
Rem
Else
Rem
End If
2.6 ,
( Msg3)
Msg3 = Msg1 & vbCrLf & Msg2
, Style -
|
|
|
Style = vbYesOnly + vbDefaultButton1 + vbCritical
MsgBox Msg3, Style, Title
-
TxtHn.Text = "" '
2.7
VB5.0,
17000,
Enter. ,
,
-10,
Enter,
,
, [X] .
2.8
2.8.1 : .
Rem
If gsngH_r< 11000 Then
End if
If gsngH_r > 11000 Then
End if
2.8.2
( gsngP_h)
gsngP_h = sngP0*(1- gsngH_r / 44300)^5.256
, .
2.8.3
sngStpn
sngStpn = -(gsngH_r - 11000)/6340
( gsngP_h)
gsngP_h = 169.4*Exp(sngStpn)*sngCfnP
, .
2.9 cmdOK_Click()
End if
gsngH_r
txtHr.Text = Str(gsngH_r)
gsngP_h
txtP.Text = Format(gsngP_h, "Scientific")
gsngR_h
txtRo.Text = Format(gsngR_h, "0.000")
gsngT_h
txtT.Text = Format(gsngT_h, "###.#")
gsngA_h
txtA.Text = CSng (gsngA_h)
2.10 . .
VB5.0,
0,
Enter. , . ( ) .
11000,
Enter. . , ,
| 1,225 | 340,28 | |||
| 0,364 | 216,6 | 294,3 | ||
| 0,194 | 216,6 | 294,3 |
15000,
OK,
. ,
, [X] .
2.11
2.11.1
Debug Step Into ( F8),
11000,
Enter. , ,
F8 cmdOK_Click(). , .
2.11.2
,
If gsngH_r < 11000 Then
Debug Toggle Breakpoint ( F9). ,
,
11000,
|
|
|
Enter. ,
gsngH_r :
gsngH_r =11000.
. , , 11000,
If gsngH_r <= 11000 Then
F8. , ,
, End Run,
,
11000,
Enter. ,
, [X ] .
2.12 .
2.13 satm3.
2.14
4
: 0 15000, :
(H) (H) , (H) ( 1),
(H H 0 15000, H<H, H< H),
,
( 2).
1 :
Cancel, OK, Help Table,
, , ,
2 Table,
Help.
2 :
;
;
Exit 1 2;
2 1.
:
, ,
;
:
,
,
: DoLoop, For Next,
