Программный код в среде Visual Basic
Option Explicit
Dim I As Integer
Dim a(7) As Single
‘ВВОД ЭЛЕМЕНТОВ МАССИВОВ
Private Sub Комманда1_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
End Sub
'РЕШЕНИЕ A=V/Q, НАХОЖДЕНИЕ MIN (MAX),СУММЫ ЭЛЕМЕНТОВ МАССИВОВ
Private Sub Комманда2_Click()
Список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)
End Sub
‘V(I)РАСЧЕТНАЯ
Private Sub Комманда3_Click()
For I = 1 To 7
MSFlexGrid1.TextMatrix(I, 3) = Текст3.Text * MSFlexGrid1.TextMatrix(I, 2)
Next I
End Sub
‘ПОГРЕШНОСТЬ
Private Sub Комманда4_Click()
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)
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
TabIndex = 1
Top = 240
Width = 2775
End
Begin MSFlexGridLib.MSFlexGrid MSFlexGrid1
Height = 2055
Left = 0
TabIndex = 0
Top = 840
Width = 4935
_ExtentX = 8705
_ExtentY = 3625
_Version = 393216
Rows = 8
Cols = 5
End
Begin VB.OLE OLE1
Class = "Package"
Height = 495
Left = 5280
OleObjectBlob = "КУРСОВАЯ РАБОТА.frx":0008
SourceDoc = "C:\WINDOWS\CALC.EXE"
TabIndex = 24
Top = 3840
Width = 855
End
Begin VB.Label Метка8
Caption = " ПРОВЕРКА"
Height = 255
Left = 3600
TabIndex = 23
Top = 3000
Width = 1095
End
Begin VB.Label Метка 7
Caption = " A=V/Q"
Height = 255
Left = 2280
TabIndex = 22
Top = 3000
Width = 1095
End
Begin VB.Label Метка 6
Caption = " Max V(I), %"
Height = 255
Left = 5040
TabIndex = 21
Top = 2640
Width = 1095
End
Begin VB.Label Метка 5
Caption = " Min V(I), %"
Height = 255
Left = 5040
TabIndex = 20
Top = 3240
Width = 1095
End
Begin VB.Label Метка 4
Caption = " Коэфф-нт А"
Height = 255
Left = 5040
TabIndex = 19
Top = 2040
Width = 1095
End
Begin VB.Label Метка 3
Caption = " Сумма Q(I)"
Height = 255
Left = 5040
TabIndex = 18
Top = 1440
Width = 1095
End
Begin VB.Label Метка 2
Caption = " Сумма V(I)"
Height = 255
Left = 5040
TabIndex = 17
Top = 840
Width = 1095
End
Begin VB.Label Метка 1
Caption = "ТЕКУЩЕЕ ВРЕМЯ"
Height = 255
Left = 3720
TabIndex = 8
Top = 360
Width = 1575
End
Begin VB.Menu mnuФайл
Caption = "Файл"
Begin VB.Menu mnuОткрыть
Caption = "Открыть"
End
Begin VB.Menu mnuВыход
Caption = "Выход"
End
End
Begin VB.Menu mnuВремя
Caption = "Время"
Begin VB.Menu mnuПоказать
Caption = "Показать"
End
Begin VB.Menu mnuСкрыть
Caption = "Скрыть"
End
End
Begin VB.Menu mnuКалькулятор
Caption = "Калькулятор"
Begin VB.Menu mnuВключить
Caption = "Включить"
End
End
End
Attribute VB_Name = "Форма1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Статьи по теме:
Настройка мультизагрузчикаСофт (Программы) Для Counter - StrikeТипизацияРабота Internet: организация, структура, методы Отправка и получение файловАрм Врача Эндоскописта, Арм Врача Функциональной ДиагностикиГенерация сеток конечных элементов в GEOSTARWindows 7 - Окно В БудущееИнтеграция Ibm Rational Clearquest И Microsoft Project - Ключ К Успешному ПланированиюАналоговые и цифровые схемыВход в систему с полномочиями администратораПроцедуры и функции модуля CRTУправление СКСМетод простой итерацииSpyware боя; Используйте предохранение от брандмауэраКорпоративные Информационные Системы (Crm, Erp, Системы Мобильной Торговли)Совместимость Windows VistaЗамечания по региональной системе именПроцесс Разработки Программного Обеспечения, Программы На ЗаказОБСЛУЖИВАНИЕ ДИСКОВAccessКраткий обзор возможностей программы Ехсеl 7.0Хищение компьютерной информацииNetpromoter: Новые Возможности Профессиональной Интернет-СтатистикиКоличества и конфигурация оборудованияЧто составляет Internet?Почему чистка регистратуры Windows необходимаяJava, как объектно-ориентированный языкПередача файлов (ftp)СТАДИИ СОЗДАНИЯ САПРКраткое введение в язык АдаДва формата таблицы FATПРИНЦИП ПОСТРОЕНИЯ КОМПЬЮТЕРНЫХ СЕТЕЙОткрытие документа из командной консоли Обзор возможностей WinRAR 3.70 RU FinalОБЩАЯ ХАРАКТЕРИСТИКА ПРЕСТУПЛЕНИЙ В СФЕРЕ КОМПЬЮТЕРНОЙ ИНФОРМАЦИИСледственный экспериментОсновная особенность Adobe ImageStyler Internet и политикаЛегализация По. Цена Ошибки!СТРУЙНЫЕ ПЛОТТЕРЫ (СП, INK-JET PLOTTER)LEP-дисплеи: день завтрашнийОПЕРАЦИИ СОХРАНЕНИЯ ТЕКСТАЯзык “C”Устройства выводаРасследование нарушения правил эксплуатации ЭВМ: системы ЭВМ или их сетиОбласти применения МПЗагрузка в альтернативном режиме Провайдеры услуг Internet на УкраинеГосударственные дотацииСистемы электронной почтыКомпьютер в сфере образованияПути и фазы моделирования интеллектаКоличество Интернет-Атак На Банки Продолжает РастиКоммерческое использование