Dim, . ; . . . -, . -, , .
Visual Basic ReDim, . ReDim , , . , maxSize. Visual Basic (dynamic array); . ReDim :
ReDim [Preserve] nepe (maxSize)
Dim , Preserve, maxSize . ReDim Preserve, (.. ). Preserve, . , , , "" , , .
, , Visual Basic (Control arrays) ( ), , , . "" . , , Click. Visual Basic .
Do.Loop - . :
| Do { While | Until } []... Loop |
| Do []... Loop { While | Until } |
Do , Loop. , Loop; Do. , , Loop. While Until . (loop). , , . .
|
|
|
Visual Basic -. While ( , ), Do, True, , , . False, , , .
While Loop. - . , Loop.
While Until. .
For , . :
For = _ _ [Step ]
[}.
Next [}
For , - ; , - . Step , 1. . , , .
For Do While, , . , Fo r " " Do While ( ) " " ( ). - , .
2.1 :
e Visual Basic, (New Project), Standard.exe.
New Project Open. , Form1,
Properties Window Project Explorer, . , Project Explorer Forms Form1 (Form1).
2.3 2:
Project,
Add Form. Add Form New Form,
Add Form Open. , Form2. , Project Explorer Forms Form2 (Form2).
2.4 Form1 Form2 2.1. Project Explorer.
2.1
| Form1 | Name | frmSa |
| Caption | ||
| Height | ||
| Width | ||
| Top | ||
| BoderStyle | 1- Fixed Single | |
| BackColor | - | |
| Form2 | Name | frmTabl |
| Caption | ||
| Height | ||
| Width | ||
| Left | ||
| Top | ||
| BoderStyle | 1- Fixed Single |
2.5 :
|
|
|
Project Explorer , frmSa,
File,
Save File As:
ü , Z:,
ü satm4-1, Save,
Project Explorer frmTabl,
File,
Save File As:
ü , Z:,
ü satm4-2, Save,
File,
Save Project As,
Save Project As:
ü , Z:,
ü satm4 ( Project1) Save
2.6 1 (frmSa)
Project Explorer frmSa,
Command1, Command2, Command3, Command4 Text1, Text2, Text3,
2.2 2.3:
2.2
| Font** | Arial, () Bold,12 | |
| MousePoiter | NoDrop | |
| Command1 | Name | CmdCnl |
| Caption | &Cancel | |
| Cancel | True | |
| TabIndex | ||
| Command2 | Name | CmdHlp |
| Caption | &Help | |
| TabIndex | ||
| Command3 | Name | CmdOk |
| Caption | &OK | |
| TabIndex | ||
| Default | True | |
| Command4 | Name | CmdTbl |
| Caption | &Table | |
| Enabled | False |
2.3
| Font** | Arial, () Bold,12 | |
| ForeColor | ||
| MaxLenght | ||
| Text1 | Name** | TxtHn |
| Text | ( ) | |
| TabIndex | ||
| Text2 | Name | TxtHpr |
| TabIndex | ||
| Text | ( ) | |
| Text3 | Name | TxtHk |
| TabIndex | ||
| Text | ( ) |
Label1, Label2, Label3 2.4:
2.4
| AutoSize | True | |
| Label1 | Caption | () |
| Label2 | Caption | () |
| Label3 | Caption | () |
2.7 2 (frmTabl)
Project Explorer frmTabl,
2 Command1 2.5:
2.5
| Command1 | Name | CmdExt |
| Caption | &Exit |
2 Text1 ( ) 2.6:
2.6
| Text1 | Name** | TxtTbSa |
| Font** | Arial, () Bold,12 | |
| ForeColor | ||
| ScrollBars | 2-Vertical | |
| MultiLine | True | |
| Text | ( ) |
2.8 Cancel ( 2)
2.9 Table.
Project Explorer frmSa,
Private Sub cmdTbl_Click( )
|
|
|
rmTabl.Show
frmSa.CmdTbl.Enabled = False
2.10 Ok.
Project Explorer frmSa,
Private Sub cmdOk_Click( )
cmdTbl. Enabled = True
2.11 Exit.
Project Explorer frmTabl,
Private Sub cmdExt_Click( )
frmSa.Show
Me.Hide
2.12 .
Project Explorer frmSa,
File Save satm4-1.frm,
Project Explorer frmTabl,
File Save satm4-2.frm,
File Save Project.
2.13
VB5.0,
Ok Enter. Table ,
Table . 2,
Table Enter. 1 .
Esc. , .
2.14 Help,
" ",
:
"1. 0 15000
2. "
"3.
4. - Enter "
2.15 .
2.16 gsngSa(1, 100), 5 , .
| gsngSa(1, 100) | |
| gsngSa(2, 100) | |
| gsngSa(3, 100) | |
| gsngSa(4, 100) | |
| gsngSa(5, 100) |
,
(General), Declarations,
,
Option Explicit,
,
Option Base 1
gsngSa(5, 100),
Dim gsngSa(5, 100) As Single
2.17 cmdOK_Click() .
| sngP0 | ||
| ... /2 | 133.322 | sngCfnP |
| 1.225 | sngR0 | |
| *c2/4 /3 | 9.0665 | sngCfnR |
| 288.15 | sngT0 | |
| 11000 | 216.7 | sngTh11000 |
cmdOK_Click(),
cmdTbl. Enabled = True
Rem
Const sngP0 As Single = 101325
.
2.18
cmdOK_Click()
Rem
Dim sngGradTempH As Single
|
|
|
Dim gsngH_n As Single
Dim gsngH_pr As Single
Dim gsngH_k As Single
Dim sngStpn As Single
Dim j As Integer
Dim k As Integer
Dim m As Integer
2.19
cmdOK_Click()
Rem
sngGradTempH = 0.0065
-
gsngH_n = Val(txtHn.Text)
gsngH_k = Val(txtHk.Text)
gsngH_pr = Val(txtHpr.Text)
-
j = 1
2.20 cmdOK_Click()
cmdTbl.Enabled = True
If gsngH_n < 0 Or gsngH_n > 15000 Or gsngH_k < 0 Or gsngH_k > 15000 Then
Rem
MsgBox "1. " + vbCrLf _
+ "2. 0 15000 "
Else If gsngH_k <= gsngH_n Then
MsgBox "1. "
TxtHn.Text = "" '
TxtHk.Text = ""
TxtHpr.Text = ""
Else
gsngSa(1, j) = gsngH_n 1.
Rem
End If
2.21
VB5.0,
1000,
1000,
1000,
Enter. ,
,
,
Enter,
,
, [X] .
2.22 .
Rem
Do While gsngSa(1, j) <= gsngH_k
If gsngSa(1, j) <= 11000 Then
'
End If
If gsngSa(1, j) > 11000 Then
'
End If
Rem
gsngSa(1, j + 1) = gsngSa(1, j) + gsngH_pr
j = j + 1
Loop
2.23
gsngSa(2, j) = sngP0 * (1 - gsngSa(1, j) / 44300) ^ 5.256
, .
2.24
sngStpn
sngStpn = -(gsngSa(1, j) - 11000) / 6340
gsngSa(2, j) = 169.4 * Exp(sngStpn) * sngCfnP
, .
2.25
cmdOK_Click() CmdTbl.Enabled = True -
TxtHn.Text = "" '
TxtHk.Text = ""
TxtHpr.Text = ""
Rem
2.26 gstrP_sa
Public gstrP_sa As String
cmdOK_Click() Rem
For m = 1 To i
For k = 1 To 5
gstrP_sa = gstrP_sa + Format(gsngSa(k, m), "Scientific") + Space$(2)
Next k
gstrP_sa = gstrP_sa + vbCrLf
Next m
gstrP_sa = " " + " " + " " + "" _
+ " " + vbCrLf + gstrP_sa
2.27 2
Private Sub Form_Activate()
frmTabl.TxtTbSa.Text = frmSa.gstrP_sa
2.28 . .
|
|
|
VB5.0,
0,
1000,
15000,
Enter. Table ,
Table. 2.
| 1,225 | 340,28 | |||
| 0,364 | 216,6 | 294,3 | ||
| 0,194 | 216,6 | 294,3 |
, [X] .
2.29 .
VB5.0,
0,
10,
15000,
Enter. . .
2.30
Dim gsngSa() As Single
Dim i As Integer
i = (gsngH_k - gsngH_n) \ gsngH_pr + 1
ReDim gsngSa(5, i + 1)
2.29 .
2.30 .
2.31
5
: Satm4, :
,
, ,
,
OK, .
:
;
:
,
.
