Ðåôåðàò: Ñîçäàíèå ïðîãðàììíûõ ïðîäóêòîâ äëÿ ðåøåíèÿ çàäà÷
Next I
‘ÑÎÐÒÈÐÎÂÊÀ
Dim min As Single
Dim max As Single
min = MSFlexGrid1.TextMatrix(7, 4)
‘ÍÀÕÎÆÄÅÍÈÅ MIN
For I = 1 To 7
If MSFlexGrid1.TextMatrix(I, 4) < min Then min = MSFlexGrid1.TextMatrix(I, 4)
Next I
Òåêñò4.Text = CSng(min)
max = MSFlexGrid1.TextMatrix(1, 4)
‘ÍÀÕÎÆÄÅÍÈÅ MAX
For I = 1 To 7
If MSFlexGrid1.TextMatrix(I, 4) > max Then max = MSFlexGrid1.TextMatrix(I, 4)
Next I
Òåêñò6.Text = CSng(max)
End Sub
Private Sub Êîììàíäà5_Click()
'ÇÀÊÎÍ ÑÒÅÔÀÍÀ-ÁÎËÜÖÌÀÍÀ
'V=k*Q^4, ãäå k-ïîñòîÿííàÿ Ñòåôàíà-Áîëüöìàíà: k = 5.67 * 10 ^ -8
Dim z(7) As Single, V(7) As Single
For I = 1 To 7
z(I) = 0.0000000567 * ((MSFlexGrid1.TextMatrix(I, 2) + 273) ^ 4 – 273 ^ 4)
‘V=AZ
V(I) = 0.1 * Òåêñò3.Text * z(I)
'ÂÛÂÎÄ ÑÊÎÐÎÑÒÈ ÎÕËÀÆÄÅÍÈß
Ñïèñîê2.AddItem (Ccur(V(I)))
Next I
End Sub
Private Sub Êîììàíäà6_Click()
End
End Sub
Private Sub Command7_Click()
Dim V(7) As Single, Q(7) As Single
MSFlexGrid1.TextMatrix(0, 0) = “¹ Îïûòà”
MSFlexGrid1.TextMatrix(0, 1) = “ V(I) “
MSFlexGrid1.TextMatrix(0, 2) = “ Q(I) “
MSFlexGrid1.TextMatrix(0, 3) = “ V(I)ðàñ÷.”
MSFlexGrid1.TextMatrix(0, 4) = “V(I), %”
For I = 1 To 7
MSFlexGrid1.TextMatrix(I, 0) = I
Next I
'ÀÂÒÎÌÀÒÈ×ÅÑÊÈÉ ÂÂÎÄ
If Ïðîâåðêà1.Value = 1 Then
Open “A:\Äàííûå.txt” For Input As #1
For I = 1 To 7
Input #1, V(I), Q(I)
MSFlexGrid1.TextMatrix(I, 1) = V(I)
MSFlexGrid1.TextMatrix(I, 2) = Q(I)
Next I
Close #1
End If
‘ÂÂÎÄ ÝËÅÌÅÍÒΠÌÀÑÑÈÂΠÂÐÓ×ÍÓÞ
If Ïðîâåðêà1.Value = 0 Then
For I = 1 To 7
MSFlexGrid1.TextMatrix(I, 1) = InputBox(“ÂÂÅÄÈÒÅ ÝËÅÌÅÍÒ ÌÀÑÑÈÂÀ V(I)”)
Next I
For I = 1 To 7
MSFlexGrid1.TextMatrix(I, 2) = InputBox(“ÂÂÅÄÈÒÅ ÝËÅÌÅÍÒ ÌÀÑÑÈÂÀ Q(I)”)
Next I
End If
Ñïèñîê1.Clear
For I = 1 To 7
Ñïèñîê1.AddItem (Ccur(MSFlexGrid1.TextMatrix(I, 1) / MSFlexGrid1.TextMatrix(I, 2)))
Next I
Dim Summ As Single
Summ = 0
For I = 1 To 7
Summ = Summ + MSFlexGrid1.TextMatrix(I, 1)
Next I
Òåêñò1.Text = CSng(Summ)
Dim Summa As Single
For I = 1 To 7
Summa = Summa + MSFlexGrid1.TextMatrix(I, 2)
Next I
Òåêñò2.Text = CSng(Summa)
‘ÐÀÑ×ÅÒ ÊÎÝÔÔÈÖÈÅÍÒÀ “À”
Dim a As Single
a = Òåêñò1.Text / Òåêñò2.Text
Òåêñò3.Text = CSng(a)
For I = 1 To 7
MSFlexGrid1.TextMatrix(I, 3) = Òåêñò3.Text * MSFlexGrid1.TextMatrix(I, 2)
Next I
For I = 1 To 7
MSFlexGrid1.TextMatrix(I, 4) = Ccur(Sqr((((MSFlexGrid1.TextMatrix(I, 3) – MSFlexGrid1.TextMatrix(I, 1)) / MSFlexGrid1.TextMatrix(I, 1)) * 100) ^ 2))
Next I
‘ÑÎÐÒÈÐÎÂÊÀ
Dim min As Single
Dim max As Single
min = MSFlexGrid1.TextMatrix(7, 4)
‘ÍÀÕÎÆÄÅÍÈÅ MIN
For I = 1 To 7
If MSFlexGrid1.TextMatrix(I, 4) < min Then min = MSFlexGrid1.TextMatrix(I, 4)
Next I
Òåêñò4.Text = CSng(min)
max = MSFlexGrid1.TextMatrix(1, 4)
‘ÍÀÕÎÆÄÅÍÈÅ MAX
For I = 1 To 7
If MSFlexGrid1.TextMatrix(I, 4) > max Then max = MSFlexGrid1.TextMatrix(I, 4)
Next I
Òåêñò6.Text = CSng(max)
'ÇÀÊÎÍ ÑÒÅÔÀÍÀ-ÁÎËÜÖÌÀÍÀ
'V=k*Q^4, ãäå k-ïîñòîÿííàÿ Ñòåôàíà-Áîëüöìàíà: k = 5.67 * 10 ^ -8
Dim z(7) As Single, W(7) As Single
For I = 1 To 7
z(I) = 0.0000000567 * ((MSFlexGrid1.TextMatrix(I, 2) + 273) ^ 4 – 273 ^ 4)
‘V=AZ
W(I) = 0.1 * Òåêñò3.Text * z(I)
'ÂÛÂÎÄ ÑÊÎÐÎÑÒÈ ÎÕËÀÆÄÅÍÈß
Ñïèñîê2.AddItem (Ccur(W(I)))
Next I
End Sub
Private Sub mnuÂêëþ÷èòü_Click()
'ÂÊËÞ×ÅÍÈÅ ÊÀËÜÊÓËßÒÎÐÀ
‘OLE1.SourceDoc = “C:\WINDOWS\CALC.EXE”
OLE1.Action = 7
End Sub
Private Sub mnuÂûõîä_Click()
End
End Sub
Private Sub mnuÎòêðûòü_Click()
Dim V(7) As Single, Q(7) As Single
MSFlexGrid1.TextMatrix(0, 0) = “¹ Îïûòà”
MSFlexGrid1.TextMatrix(0, 1) = “ V(I) “
MSFlexGrid1.TextMatrix(0, 2) = « Q(I) «
MSFlexGrid1.TextMatrix(0, 3) = “ V(I)ðàñ÷.”
MSFlexGrid1.TextMatrix(0, 4) = «V(I), %»
For I = 1 To 7
MSFlexGrid1.TextMatrix(I, 0) = I
Next I
‘ÀÂÒÎÌÀÒÈ×ÅÑÊÈÉ ÂÂÎÄ
Open “A:\Äàííûå.txt” For Input As #1
For I = 1 To 7
Input #1, V(I), Q(I)
MSFlexGrid1.TextMatrix(I, 1) = V(I)
MSFlexGrid1.TextMatrix(I, 2) = Q(I)
Next I
Close #1
End Sub
Private Sub mnuÑêðûòü_Click()
‘ÑÊÐÛÒÜ ÂÐÅÌß
×àñû1.Enabled = False
Òåêñò5.Text = “”
End Sub
Private Sub mnuÏîêàçàòü_Click()
‘ÏÎÊÀÇÀÒÜ ÂÐÅÌß
×àñû1.Enabled = True
×àñû1.Interval = 250
End Sub
Private Sub ×àñû1_Timer()
'ÂÛÂÎÄ ÂÐÅÌÅÍÈ
Òåêñò5.Text = CStr(Time)
End Sub
Çíà÷åíèÿ ñâîéñòâ îáúåêòîâ:
VERSION 5.00
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"
Begin VB.Form Ôîðìà1
Caption = "ÊÓÐÑÎÂÀß ÐÀÁÎÒÀ"
ClientHeight = 4905
ClientLeft = 165
ClientTop = 735
ClientWidth = 6660
LinkTopic = "Form1"
ScaleHeight = 4905
ScaleWidth = 6660
StartUpPosition = 3 'Windows Default
Begin VB.ListBox Ñïèñîê2
Height = 1425
ItemData = "ÊÓÐÑÎÂÀß ÐÀÁÎÒÀ.frx":0000
Left = 3600
List = "ÊÓÐÑÎÂÀß ÐÀÁÎÒÀ.frx":0002
TabIndex = 16
Top = 3240
Width = 1095
End
Begin VB.ListBox Ñïèñîê1
Height = 1425
ItemData = "ÊÓÐÑÎÂÀß ÐÀÁÎÒÀ.frx":0004
Left = 2400
List = "ÊÓÐÑÎÂÀß ÐÀÁÎÒÀ.frx":0006
TabIndex = 15
Top = 3240
Width = 1095
End
Begin VB.TextBox Òåêñò6
Height = 285
Left = 5040
TabIndex = 14
Top = 3480
Width = 1095
End
Begin VB.TextBox Òåêñò5
Height = 285
Left = 5280
TabIndex = 13
Top = 360
Width = 855
End
Begin VB.TextBox Òåêñò 4
Height = 285
Left = 5040
TabIndex = 12
Top = 2880
Width = 1095
End
Begin VB.TextBox Òåêñò 3
Height = 285
Left = 5040
TabIndex = 11
Top = 2280
Width = 1095
End
Begin VB.TextBox Òåêñò 2
Height = 285
Left = 5040
TabIndex = 10
Top = 1680
Width = 1095
End
Begin VB.TextBox Òåêñò 1
Height = 285
Left = 5040
TabIndex = 9
Top = 1080
Width = 1095
End
Begin VB.Timer ×àñû1
Interval = 250
Left = 4800
Top = 3840
End
Begin VB.CommandButton Êîììàíäà6
Caption = "ÂÛÕÎÄ"
Height = 195
Left = 240
TabIndex = 7
Top = 4440
Width = 1575
End
Begin VB.CommandButton Êîììàíäà 5
Caption = "ÏÐÎÂÅÐÊÀ"
Height = 195
Left = 240
TabIndex = 6
Top = 4200
Width = 1575
End
Begin VB.CommandButton Êîììàíäà 4
Caption = "ÏÎÃÐÅØÍÎÑÒÜ"
Height = 195
Left = 240
TabIndex = 5
Top = 3960
Width = 1575
End
Begin VB.CommandButton Êîììàíäà 3
Caption = "Vðàñ÷.=AQ"
Height = 195
Left = 240
TabIndex = 4
Top = 3720
Width = 1575
End
Begin VB.CommandButton Êîììàíäà 2
Caption = "ÐÅØÅÍÈÅ"
Height = 195
Left = 240
TabIndex = 3
Top = 3480
Width = 1575
End
Begin VB.CommandButton Êîììàíäà 1
Caption = "ÂÂÅÑÒÈ"
Height = 195
Left = 240
TabIndex = 2
Top = 3240
Width = 1575
End
Begin VB.CheckBox Ïðîâåðêà1
Caption = " ÀÂÒÎÌÀÒÈ×ÅÑÊÈÉ ÂÂÎÄ"
Height = 375
Left = 120