Создание программных продуктов для решения задач
| Категория реферата: Рефераты по кибернетике
| Теги реферата: ответы 5 класс, реферат на тему орган
| Добавил(а) на сайт: Sijankin.
Предыдущая страница реферата | 1 2 3 4 5 6 7 8 9 10 11 | Следующая страница реферата
Программный код в среде 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:WINDOWSCALC.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"
Рекомендуем скачать другие рефераты по теме: возрождение реферат, риск реферат.
Категории:
Предыдущая страница реферата | 1 2 3 4 5 6 7 8 9 10 11 | Следующая страница реферата
Главная