Рисунок 1 - Задание базового адреса устройства (установлено на 31016)
Таблица 2 - Подключение выводов микросхем к шинам питания и земли
| Микросхема | Вывод | |||||
| Цифровая земля | Аналоговая земля | +5В (A) | +5В | |||
| 1 | 2 | 3 | 4 | 5 | ||
| DD2, DD5, DD6, DD8… DD10, DD12, DD15… DD18, DD20, DD 23… DD25, DD27, DD28 | 7 | 14 | ||||
| DD3, DD7, DD9, DD13, DD14, DD29 | 8 | 16 | ||||
| DD19 | 12 | 24 | ||||
| DD1, DD22 | 7 | 14 | ||||
| DD4, DD26 | 8 | 16 | ||||
| DD11 | 12 | 24 | ||||
| DD21 | 8 | 1 | ||||
ПРИЛОЖЕНИЕ 2
Таблица - Технические характеристики исследуемого блока ЭВМ
| Габаритные размеры блока, мм | 413x488x115 |
| Габаритные размеры корзины с ячейками, мм | 270x290x80 |
| Блок позволяет устанавливать 4 платы типоразмера, ммили 8 плат типоразмера, мм | 280x240x12240x135x12 |
| Размеры блока питания, мм | 176x392x95 |
| Напряжение питания ИМС и полупроводниковых приборов, В | +5 +12 |
| Номинальный (максимальный) ток, потребляемый блоком, А:по номиналу «+5В»по номиналу «+12В» | 8 (18)0,8 (2) |
| Мощность, Вт, потребляемая:блоком ячеек (суммарная)ИМС, мВтИМС К555ИР1 (датчик 1)ИМС КР555РТ5 (датчик 2)ИМС К555ИЕ5 (датчик 3)ИМС КР531ЛА3 (датчик 4)ИМС КР556РТ5 (датчик 5)ИМС КР555ЛЕ1 (датчик 6)ИМС К555ИЕ7 (датчик 7)ИМС К555ЛА1 (датчик 8)ИМС К555ТМ8 (датчик 9)ИМС К555ИЕ12 (датчик 10)ИМС К555ТМ2 (датчик 11)ИМС К555ИД2 (датчик 12) | 2431 222612222920812221826 |
| Расстояние, мм, от вентилятора до датчика №123456789101112 | 95125140110220135160120150210195190 |
‘интерфейсная часть управляющей программы состоит из четырех форм – одной ‘MDI – форме («MDIform1») и трех дочерних («nacac_izm», «form2_child», «form_o_proge»), ‘элементов управления, меню и кода
‘В п.5.2 на рис. 5.2.1 представлен внешний вид формы «MDIform1», рис. 5.2.2 –
‘команд меню данной формы, рис. 5.2.3 и 5.2.6 - «nacac_izm», 5.2.4 и 5.2.5 – ‘«form2_child»
‘Код обработчиков ошибок не приведен
‘установки свойств, выполненные «At Design Time» в большинстве не приведены
‘Ниже представлены фрагменты кода формы «MDIform1»
‘по выбору команды меню «Каскадом» выстроить каскадом подчиненные формы
Private Sub kask_okno_Click()
MDIform1.Arrange vbCascade
End Sub
‘по выбору команды меню «Начать» отобразить форму «nacac_izm»
Private Sub nach_izm_Click(Index As Integer)
nacac_izm.Show
End Sub
‘по выбору команды меню «Открыть» отобразить окно «Открытие файла» c
‘соответствующей маской
Private Sub otkr_izm_Click(Index As Integer)
CommonDialog1.Filter = "Тепловые диаграммы (*.tpl)|*.tpl"
CommonDialog1.ShowOpen
End Sub
‘по выбору команды меню «Печать» отобразить окно «Печать»
Private Sub pecac_Click()
CommonDialog1.ShowPrinter
End Sub
‘по выбору команды меню «О программе» отобразить модальную форму ‘«form_o_proge»
Private Sub o_programme_Click()
form_o_proge.Show vbModal
End Sub
‘по выбору команды меню «Сохранить» отобразить окно «Сохранение» c
‘соответствующей маской
Private Sub soxr_izm_Click(Index As Integer)
CommonDialog1.Filter = "Тепловые диаграммы (*.tpl)|*.tpl"
CommonDialog1.ShowSave
End Sub
‘по выбору команды меню «Выстроить значки» упорядочить все
‘значки подчиненных форм
Private Sub vys_znach_okno_Click()
MDIform1.Arrange vbArrangeIcons
End Sub
‘выгрузить форму «MDIform1»
Private Sub vyxod_izm_Click(Index As Integer)
Unload Me
End Sub
‘В качестве вариантов визуализации графической модели изучаемого
‘теплового поля приведем код (VB 6.0), использующий для этой цели элемент управления «Microsoft Chart Control» (Version 6.00.00),
‘а также код, написанный для среды ‘разработки «Matlab 5.2».
‘Интерполяционные преобразования не приведены.
‘Ниже приведены фрагменты кода формы «form2_child».
‘ Объявление общей переменной для хранения численных результатов измерения
‘ и массива, в который передаются данные от модуля
Dim stroka As String
Dim arrPrices(), a As Integer
‘ обработчик нажатия кнопки «Численные значения»
Private Sub data_Click()
nacac_izm.Visible = True
nacac_izm. WindowState = 0 ‘ установка вида визуального отображения окна формы ‘ «nacac_izm» во время выполнения (нормальное положение)
nacac_izm.Caption = "Полученные численные значения" ‘изменение заголовка ‘формы
‘кнопки «ОК»,«Cancel» и «Координаты» делаем невидимыми
nacac_izm.nacac_izm_ok.Visible = False
nacac_izm.nacac_izm_cancel.Visible = False
nacac_izm.Coord.Visible = False
nacac_izm.zacryc.Visible = True ‘кнопку «Закрыть» делаем видимой
nacac_izm.text2.Text = stroka ‘визуализируем численные значения измерений
stroka = " " ‘сбрасываем значение переменной «Stroka»
‘вывод надписей
nacac_izm.ramka1.Caption = "Результаты"
nacac_izm.ramka2.Caption = "Выбранные каналы"
nacac_izm.ramka3.Visible = False
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.