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


перейти к полному списку дипломных проектов

Ссылка на скачивания файла в формате .doc находится в конце странички

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

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).

скачать бесплатно Обзор особенностей обеспечения тепловых режимов в конструкциях ЭВС

Содержание дипломной работы

Однако, как известно, в стандартной комплектации типовой ПЭВМ нет технических средств для решения данной задачи
Программные средства системы должны быть представлены набором системных и прикладных программ, обеспечивающих работоспособность разрабатываемой конструкции
Использование корпусов типа Desktop задает ограничение на размеры плат (встраиваемых модулей): длина — не более 40 см, ширина — не более 16 см
Эффект зависимости pn – перехода от температуры, нежелательный в большинстве применений, широко используется в измерении температуры
Терморезисторы представляют собой термочувствительные резисторы, изготавливаемые из полупроводниковых материалов
Системой используется 3 порта ввода, 3 – вывода и 2 совмещенных порта
Главными требованиями, предъявляемыми к блоку аналого-цифрового преобразования являются точность и время преобразования
Дополнительными критериями при выборе ИМС и ЭРЭ являются: унификация ИМС и ЭРЭ, их масса и габариты, минимальная стоимость стоимость, надежность
Учитывая, то рабочий диапазон температур составляет 1300С, температурный коэффициент у ТМР01 - 10 мВ/0С, а напряжение полной шкалы у применяемого преобразователя (см
На выводе QCC (3) регистра DD11 формируется сигнал завершения преобразования (активный – «0»), который по цепи связи обратной связи запускает ждущий генератор тактовых импульсов
Буфер сигналов шины данных, адреса и управляющих сигналов реализован на микросхемах DD8 (КР580ВА86), DD2 (К1533ЛН1)
Прядок и методика ориентировочного расчета следующие: 1) расчет производится по частям
Базу координат выбирают таким образом, чтобы исключить наличие отрицательных значений координат у отверстий, используемых в печатной плате
Диаметральное значение позиционного допуска (p расположения контактных площадок относительно его номинального положения выбирают по таблице 4
4), следует развивать в свободную сторону с таким расчетом, чтобы ее площадь, без учета площади отверстия, для 1-го и 2-го классов была не менее 2,5 мм2, для 3-го и 4-го классов не менее 1,6 мм2
Вторым этапом расчета ЭПМ является электрический расчет
12) где р — удельное сопротивление проводника, Ом-мм/м; hф, t, lп — соответственно толщина фольги, ширина и длина проводника, мм; Iп — ток через проводник
Если известны резонансные частоты Fi для всех входящих в блок устройств, то резонансная частота блока Fпл
2 Выбор и обоснование пользовательского интерфейса Интерфейс пользователя является одной из самых важных частей приложения – это то, что видит пользователь
Из подменю «Помощь» можно вызвать файл справки, а также форму, содержащую информацию о программе («Вызов справки» и «О программе» соответственно)
0 Professional Editor), который представляет собой мощный аппарат для создания высококачественных Windows – приложений, совмещая при этом широкие возможности с простотой создания кода [14]
Как известно, температура нагрева устройства оказывается выше температуры окружающей среды, в результате чего происходит процесс отдачи тепла в окружающую среду
При построении тепловой модели упрощают рассматриваемые элементы конструкции и идеализируют протекающие в них тепловые процессы
Базовой деталью является плата или другая деталь, с которой начинается сборка
В случае выявления при проверке удвоенного количества элементов хотя бы одного бракованного проверке подвергается вся партия
2) Первое выражение применяется в тех случаях, когда стремление величины а к в соответствует повышению технологичности изделия, второе - когда приближение величины а к в снижает технологичность
2 – Характеристика функций и их объем Общий объем ПС рассчитывается по формуле , (8
Месячная и часовая тарифные ставка инженера-программиста 1-й категории (Тм1, Тс1) и инженера программиста без категории (Тм2, Тс2) соответственно равны [тыс
рублей /1/); Нмв – норматив расхода машинного времени на отладку 100 машинных команд без применения ПС (для задач расчетного характера равен 14,59 ч/100 команд)
25) Оц=(2728,2·2,5)/(100-2,5)=68,2 [тыс
рублей] Объем выполненных работ с использованием нового ПС (100 команд) рассчитывается по формуле [100 команд] (8
Для пользователя в качестве экономического эффекта выступает лишь чистая прибыль – дополнительная прибыль, остающаяся в его распоряжении (Пчп), которая определяется по формуле [тыс
На самочувствие и работоспособность операторов влияют эргономические характеристики эксплуатируемого оборудования и материалов в рабочей зоне, конструкция рабочей мебели и её размерные параметры
Предпочтительным является общее освещение, так как оно не даёт большого перепада яркостей на рабо-чем месте и в помещении при использовании светильников местного освещения
ShowOpen End Sub ‘по выбору команды меню «Печать» отобразить окно «Печать» Private Sub pecac_Click() CommonDialog1
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
Value = vbChecked Then canal = 12 Select Case canal ‘ ошибка, если ни один канал не выбран: Case 0 MsgBox "Выберите требуемые каналы", vbExclamation, "Ошибка" form2_child
timer1
Микроэлектронные цифро-аналоговые и аналого-цифровые преобразователи
Под ред

заработать

Закачай файл и получай деньги