193218 (Автоматизированная система изучения тепловых режимов устройств ЭВС), страница 16
Описание файла
Документ из архива "Автоматизированная система изучения тепловых режимов устройств ЭВС", который расположен в категории "". Всё это находится в предмете "коммуникации и связь" из , которые можно найти в файловом архиве . Не смотря на прямую связь этого архива с , его также можно найти и в других разделах. Архив можно найти в разделе "остальное", в предмете "коммуникации и связь" в общих файлах.
Онлайн просмотр документа "193218"
Текст 16 страницы из документа "193218"
nacac_izm.ramka5.Visible = False
nacac_izm.ramka4.Visible = True
End Sub
‘обработчик события «Таймер»
‘свойство «Interval» установлено «At Design Time» в 60000
Private Sub timer1_Timer()
Static tim As Byte ‘ переменная для подсчета событий «Таймер»
Select Case nacac_izm.combo1.Text
Case "2 минуты"
If tim = 2 Then GoTo ready Else tim = tim + 1
Exit Sub
Case "3 минуты"
If tim = 3 Then GoTo ready Else tim = tim + 1
Exit Sub
End Select
ready:
Animation1.AutoPlay = False ‘ «выключение» анимации, символизирующей процесс ‘измерения
MSChart1.Title = "Измерения окончены"
timer1.Enabled = False ‘запрещение таймера
ReDim arrPrices(MSChart1.ColumnCount, MSChart1.RowCount) ‘определение границ динамического массива
‘ подготовка к визуализации численных значений
For i = 1 To MSChart1.ColumnCount
For j = 1 To MSChart1.RowCount
a = arrPrices(i, j)
stroka = stroka + Str(a)
Next j
Next i
MSChart1.ChartData = arrPrices ‘ передача данных в диаграмму
ramka1.Visible = False
data.Enabled = True ‘ разрешение кнопки «Численные значения»
End Sub
‘обработчик кнопки «Закрыть»
Private Sub Zakryc_Click()
Unload Me
Unload nacac_izm
End Sub
‘визуализация графической модели теплового поля в среде «Matlab 5.2»
surf(d); % вывод переданного массива данных от модуля средствами %функции surf (построение трехмерной параметрической поверхности)
colormap(jet); % Установка цветности по умолчанию
% Подписи к осям координат
xlabel('X');
ylabel('Y');
zlabel('Temperature');
% масштабирование осей координат согласно передаваемым параметрам
axis([0 X 0 Y 0 Z])
‘Ниже приведены фрагменты кода формы «nacac_izm»
Dim time
Dim i, j As Byte ‘ общие переменные для циклов
Private Sub Coord_Click() ‘ обработчик кнопки «Координаты»
ramka5.Visible = True
Coord.Visible = False
nacac_izm_ok.Enabled = True ‘разрешение кнопки «ОК»
End Sub
Private Sub Form_Load()
nacac_izm.WindowState = 0
‘ добавим элементы в список окна «Режим измерений»:
combo1.AddItem ("Немедленно")
combo1.AddItem ("1 минута")
combo1.AddItem ("2 минуты")
combo1.AddItem ("3 минуты")
ramka5.Visible = False ‘поля для ввода координат невидимы
End Sub
Private Sub nacac_izm_cancel_Click()
Unload Me
End Sub
Private Sub nacac_izm_ok_Click()
Dim canal As Byte
Dim diag As Object
Set diag = form2_child.MSChart1 ‘ связали с диаграммой
‘ проверка заполнения полей координат для каналов, по которым выбраны флажки
For i = 0 To 11
If flag(i).Value = vbChecked Then
If (coordinate(i).Text = "") Or (coordinate(i + 12).Text = "") Then
MsgBox "Координаты датчиков введены некорректно", vbExclamation, "Ошибка"
GoTo b
End If
End If
Next
‘ если выбран флажок «Все», то необходимо заполнить все поля координат
If flag(12).Value = vbChecked Then
For i = 0 To 11
If (coordinate(i).Text = "") Or (coordinate(i + 12).Text = "") Then
MsgBox "Задайте все координаты", vbExclamation, "Ошибка"
Exit Sub
End If
Next
End If
‘ определение количества столбцов и строк диаграммы:
canal = 0
For i = 0 To 11
If flag(i).Value = vbChecked Then
canal = canal + 1
End If
Next
If flag(12).Value = vbChecked Then canal = 12
Select Case canal
‘ ошибка, если ни один канал не выбран:
Case 0
MsgBox "Выберите требуемые каналы", vbExclamation, "Ошибка"
form2_child.Visible = False
GoTo b
Case 2
diag.ColumnCount = 2
diag.RowCount = 1
Case 4
diag.ColumnCount = 2
diag.RowCount = 2
Case 6
diag.ColumnCount = 2
diag.RowCount = 3
Case 8
diag.ColumnCount = 4
diag.RowCount = 2
Case 9
diag.ColumnCount = 3
diag.RowCount = 3
Case 10
diag.ColumnCount = 2
diag.RowCount = 5
Case 12
diag.ColumnCount = 4
diag.RowCount = 3
‘ иначе –по умолчанию
End Select
‘ вызов обработчика таймера:
If combo1.Text = "Немедленно" Then
form2_child.Show
If combo1.Text = "Немедленно" Then’
form2_child.MSChart1.Title = "Измерения окончены"
ReDim arrPrices(diag.ColumnCount, diag.RowCount)
For i = 1 To diag.ColumnCount
For j = 1 To diag.RowCount
arrPrices(i, j) = arrayFromADC(i, j) ‘ считать от модуля по готовности данные
a = arrPrices(i, j)
stroka = stroka + Str(a) ‘ подготовка визуализации численных
‘ результатов исследования
Next j
Next i
diag.ChartData = arrPrices ‘передача данных в диаграмму
form2_child.ramka1.Visible = False
form2_child.data.Enabled = True
Exit Sub
Else
form2_child.Animation1.Visible = True ‘разрешение анимации
form2_child.timer1.Enabled = True ‘разрешение таймера
form2_child.data.Enabled = False ‘запрещение кнопки «Численные значения»
nacac_izm.Visible = False
With form2_child.Animation1
.Open ("c:\Pragram Files\ASITR\Findcomp.avi") ‘путь к файлу анимации,
‘установленный дистрибутивом
.AutoPlay = True
End With
form2_child.MSChart1.Title = "Подождите окончания измерений"
b: End Sub
‘обработчик кнопки «Закрыть»
Private Sub zacryc_Click()
form2_child.data.Enabled = False
Unload Me
End Sub
‘Ниже приведены код формы «form_o_proge»
‘свойство «ToolTipText» установлено «At Design Time» в «Закрыть»
Private Sub form_o_proge_Ok_Click()
Unload form_o_proge
End Sub
ЛИТЕРАТУРА
1. В. В. Шерстнев. Конструирование и микроминиатюризация ЭВА. :Учебник для вузов. – М.: Радио и связь, 1984.
2. Преснухин Л. Н., Шахнов В. А. Конструирование электроных вычислительных машин и систем. Учебник для втузов по специальностям «ЭВМ» и «Конструирование и производство ЭВА». – М.: Высшая школа., 1986.
3. Савельев А. Я., Овчинников В. А. Конструирование ЭВМ и систем: Учеб. Для вузов по специальности «Вычислительные машины, комплексы, системы и сети». – М.: Высшая школа, 1989
4. Сопряжение датчиков и устройств ввода данных с компьютерами IBM PC: Пре с англ./Под ред. У. Томпкинса, Дж. Уэбстера. – М.: Мир. – 1992
5. Design – In. Reference Manual. Analog Devices Inc., 1994
6. Колесниченко О.В., Шишигин И.В. Аппаратные средства PC /3-е изд., перераб. и доп.— СПб.: БХВ — Санкт-Петербург, 1999.
7. Федорков Б.Г., Телец В. А., Дегтяренко В. П. Микроэлектронные цифро-аналоговые и аналого-цифровые преобразователи. – М.: Радио и связь, 1990.
8. Макс М. Методы и техника обработки сигналов при физических измерениях. – М.: Мир, 1983.
9. Яншин Л. А. Теоретические основы конструирования, технологии и надежности ЭВА. – М.: Радио и связь, 1983.
10. Лярский В. Ф., Мурадян О. Б. Электрические соединители: Справочник. – М.: Радио и связь, 1988.
11. Применение интегральных микросхем в электронной вычислительной технике: Справочник/ Р. В. Данилов, С. А. Ельцова, Ю. П. Иванов и др. ; Под ред. Б. Н. Файзулаева, Б. В. Тарабрина. – М.: Радио и связь, 1987.
12. Ушаков Н. Н. Технология производства ЭВМ: Учебник для студентов ВУЗов по специальности «Вычислительные машины, комплексы, системы и сети». - М.: Высшая школа, 1991.
13. Цифровые интегральные микросхемы: Справочник/М. И. Богданович, И. Н.
Грель, В. А. Прохоренко, В. В. Шалимо. – Мн.: Беларусь, 1991.
14. Visual Basic 6.0: пер. с англ. – СПб.: БВХ – Санкт – Петербург, 1998.
15. ОСТ4 ГО.091.219 «Узлы и блоки радиоэлектронной аппаратуры. Методика оценки и нормативы показателей технологичности конструкций».
16. Охрана труда на предприятиях связи. Под ред. Н.И. Баклашова. –М.: Радио и связь, 1983.
17. Санитарные нормы проектирования промышленных предприятий (СН-245-71). – М.: Издательство стандартов, 1974.
18. ГОСТ 12.1.007-76 «Вредные вещества. Классификация и общие требования безопасности» – М.: Издательство стандартов, 1978.
19. Технология и автоматизация производства РЭА. Под ред. А. П. Достанко и др.- М.: Высшая школа, 1989.
20. Охрана труда в машиностроении. Под ред. Е. Я. Юдина, С. В. Белова. – М.: Машиностроение, 1983.