Монитор 3500/62-03-00 Bently 双通道模块

413 篇文章 0 订阅
377 篇文章 0 订阅
本文介绍了Bently的3500/62-03-00热电偶输入模块,它拥有三个独立通道,进行线性化和冷端补偿,以16位精度传输温度数据,并配备自动校准和故障检测功能,确保数据准确性及冗余设计。
摘要由CSDN通过智能技术生成

产品标题: Монитор 3500/62-03-00 Bently 双通道模块 

型号:3500/62-03-00

品牌:本特利

                                                                              产品详情资料

热电偶输入模块每个热电偶输入模块有三个独立的输入通道。每个输入通道从每个点接收可变电压信号,执行热电偶线性化和冷端补偿,并将结果转换为摄氏度或华氏度。然后,每个通道根据需要向三个主处理器发送表示每个计数0.125度的16位有符号整数。为了确保每次扫描的数据正确,使用中值选择算法选择一个值。现场终端模块上的三重温度传感器支持冷功能补偿。热电偶模块的每个通道使用内部***电压参考,每五秒钟执行一次自动校准和参考接点补偿。在隔离热电偶模块上,冷接点指示器会显示冷接点传感器的故障。在非隔离热电偶模块上,故障指示灯宣布传感器故障。对每个热电偶输入的传感是以防止一个通道上的单个故障影响另一个通道的方式进行的。每个模块对每个通道执行***持续诊断。

                         产品英文详情料:

Thermocouple Input Modules Each Thermocouple Input Module has three independent input channels. Each input channel receives variable voltage signals from each point, performs thermocouple linearization and cold-junction compensation, and converts the result to degrees Celsius or Fahrenheit. Each channel then transmits 16-bit signed integers representing 0.125 degrees per count to the three Main Processors on demand. To ensure correct data for every scan, a value is selected using a mid-value selection algorithm. Triplicated temperature transducers residing on the field termination module support coldjunction compensation. Each channel of a thermocouple module performs auto-calibration and reference-junction compensation every five seconds using internal-precision voltage references. On the Isolated Thermocouple Module, a cold-junction indicator announces the failure of a cold-junction transducer. On the Non-Isolated Thermocouple Module, a Fault indicator announces a transducer fault. Sensing of each thermocouple input is performed in a manner which prevents a single failure on one channel from affecting another channel. Each module performs complete ongoing diagnostics on each channel.

Ниже представлены две части кода VBA, которые могут решить задачу: Первый код используется для создания формы расчета графика платежей по кредиту: ``` Sub СоздатьФормуРасчетаГрафикаПлатежейПоКредиту() Dim ДатаНачалаКредита As Date Dim СрокКредитаВМесяцах As Integer Dim ПроцентнаяСтавка As Double Dim СуммаКредита As Double Dim ДатаПланируемогоПлатежа As Date 'Запросить информацию у пользователя ДатаНачалаКредита = InputBox("Введите дату начала кредита (в формате ГГГГ/ММ/ДД)") СрокКредитаВМесяцах = InputBox("Введите срок кредита в месяцах") ПроцентнаяСтавка = InputBox("Введите процентную ставку по кредиту") СуммаКредита = InputBox("Введите сумму кредита") ДатаПланируемогоПлатежа = InputBox("Введите планируемую дату платежа (в формате ГГГГ/ММ/ДД)") 'Добавить заголовок таблицы Range("A1:F1").Merge Range("A1").Value = "График платежей по кредиту" Range("A1").Font.Size = 20 Range("A1").Font.Bold = True 'Добавить заголовки столбцов таблицы Range("A3").Value = "Дата платежа" Range("B3").Value = "Месяц платежа" Range("C3").Value = "Год платежа" Range("D3").Value = "Сумма платежа" Range("E3").Value = "Основной долг" Range("F3").Value = "Проценты" 'Рассчитать график платежей и заполнить таблицу Dim i As Integer For i = 1 To СрокКредитаВМесяцах Dim ДатаПлатежа As Date Dim МесяцПлатежа As Integer Dim ГодПлатежа As Integer ДатаПлатежа = DateSerial(Year(ДатаПланируемогоПлатежа), Month(ДатаПланируемогоПлатежа), 10) If i > 1 Then ДатаПлатежа = DateAdd("m", 1, Range("A" & i + 2).Value) End If МесяцПлатежа = Month(ДатаПлатежа) ГодПлатежа = Year(ДатаПлатежа) Dim СуммаПлатежа As Double Dim ОсновнойДолг As Double Dim Проценты As Double СуммаПлатежа = WorksheetFunction.Pmt(ПроцентнаяСтавка / 12, СрокКредитаВМесяцах, -СуммаКредита) ОсновнойДолг = WorksheetFunction.PPmt(ПроцентнаяСтавка / 12, i, СрокКредитаВМесяцах, -СуммаКредита) Проценты = WorksheetFunction.IPmt(ПроцентнаяСтавка / 12, i, СрокКредитаВМесяцах, -СуммаКредита) Range("A" & i + 3).Value = ДатаПлатежа Range("B" & i + 3).Value = МесяцПлатежа Range("C" & i + 3).Value = ГодПлатежа Range("D" & i + 3).Value = СуммаПлатежа Range("E" & i + 3).Value = ОсновнойДолг Range("F" & i + 3).Value = Проценты Next i 'Оформить таблицу Range("A3:F" & СрокКредитаВМесяцах + 3).HorizontalAlignment = xlCenter Range("A3:F" & СрокКредитаВМесяцах + 3).Borders.LineStyle = xlContinuous Range("A3:F" & СрокКредитаВМесяцах + 3).Font.Size = 12 Range("A3:F" & СрокКредитаВМесяцах + 3).Font.Name = "Calibri" Range("A" & СрокКредитаВМесяцах + 5).Value = "Подпись:" Range("A" & СрокКредитаВМесяцах + 7).Value = "Дата: " & Format(Date, "ГГГГ/ММ/ДД") End Sub ``` Второй код используется для привязки первого кода к кнопке "ОК" на форме: ``` Private Sub CommandButton1_Click() Call СоздатьФормуРасчетаГрафикаПлатежейПоКредиту End Sub ``` Чтобы использовать код, создайте новый Excel-файл, нажмите на кнопку "Разработчик" в меню, выберите "Вставка формы" и добавьте кнопку "ОК". Щелкните правой кнопкой мыши на кнопке "ОК" и выберите "Просмотр кода", чтобы открыть редактор VBA. Скопируйте второй код в редактор, чтобы связать его с кнопкой. Затем скопируйте первый код в редактор, чтобы создать форму расчета графика платежей по кредиту. Сохраните файл и нажмите на кнопку "ОК" для запуска формы и отображения графика платежей.
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值