Разработка систем сбора и отображения данных систем теплоснабжения

Порядок сбора данных с помощью программного обеспечения "ПРОЛОГ". Языки программирования VBA и HTML, их характерные особенности. Web-сервера Apache, принцип работы серверной системы. Реализация сбора данных и разработка сайта с показаниями приборов.

Рубрика Программирование, компьютеры и кибернетика
Вид дипломная работа
Язык русский
Дата добавления 24.09.2014
Размер файла 4,4 M

Отправить свою хорошую работу в базу знаний просто. Используйте форму, расположенную ниже

Студенты, аспиранты, молодые ученые, использующие базу знаний в своей учебе и работе, будут вам очень благодарны.

Обычно снижение слуха происходит в равной степени на оба уха. Различают три степени снижения слуха: легкую, умеренную и выраженную. Отклонения со стороны центральной нервной системы при длительном воздействии интенсивного шума характеризуются быстрой утомляемостью, снижением работоспособности, эмоциональной неустойчивостью, ослаблением внимания, снижением памяти и др.

За безопасное значение уровня шума, то есть такое, при воздействии которого в течение 8 часов не происходит необратимого изменения органа слуха, принимается равным 85 дБ. В условиях рассматриваемого производственного процесса значение уровня шума колеблется от 80 до 100 дБ, что соответственно в большинстве помещений котельной, превышает установленные санитарно-гигиенические нормы.

Вредное влияние шума приводит к необходимости снижения его уровня до безопасных значений, что достигается разными способами:

- конструкцией оборудования, обеспечивающей минимальный шум;

- звуковой изоляцией источников шума;

- применением средств индивидуальной защиты (СИЗ).

Последний способ в силу относительной простоты и дешевизны получил наибольшее распространение.

Противошумные наушники являются наиболее распространенными СИЗ органа слуха, так как обеспечивают надежную защиту, гигиеничны и удобны в применении. Наушники, как правило, состоят из двух чашек, снабженных амортизаторами из эластичного материала или заполненных жидкостью, держателей и оголовья. Защита от шума обеспечивается за счет звукопоглощающего материала, помещенного в чашки.

9.3.2 Вибрация как вредный производственный фактор

Вибрация - это механическое колебательное движение системы с упругими связями.

Длительное воздействие вибрации высоких уровней на организм человека приводит к развитию преждевременного утомления, снижению производительности труда, росту заболеваемости и нередко к возникновению профессиональной патологии - вибрационной болезни.

По способу передачи различают следующие виды вибрации:

- общую вибрацию, передающуюся через опорные поверхности на тело сидящего или стоящего человека;

- локальную вибрацию, передающуюся через руки или ноги человека, а также через предплечья, контактирующие с вибрирующими поверхностями.

В зависимости от источника возникновения различают следующие виды вибраций:

- локальная вибрация, передающаяся человеку от ручного имеющего двигатель (механизированного) инструмента;

- локальная вибрация, передающаяся человеку от ручного немеханизированного инструмента;

- общая вибрация 1 категории - транспортная вибрация, воздействующая на человека на рабочих местах транспортных средств, движущихся по местности, дорогам;

- общая вибрация 2 категории - транспортно-технологическая вибрация, воздействующая на человека на рабочих местах машин, перемещающихся по специально подготовленным поверхностям производственных помещений;

- общая вибрация 3 категории - технологическая вибрация, воздействующая на человека на рабочих местах стационарных машин или передающаяся на рабочие места, не имеющие источников вибрации;

- общая вибрация в жилых помещениях и общественных зданиях от

внешних источников;

- общая вибрация в жилых помещениях и общественных зданиях от

внутренних источников.

Основными методами борьбы с разного рода вибрацией являются:

- уменьшение вибрации в источнике её возникновения, совершенствование конструкции (расчёт фундамента, системы амортизаторов);

- виброизоляция;

- установка глушителей шума и вибрации, экранов;

- рациональное размещение работающего оборудования и цехов;

- применение средств индивидуальной защиты (виброгасящие рукавицы);

- вынесение шумящих агрегатов и устройств от мест работы и проживания людей, зонирование.

Освещенность рабочего места является одним из основных факторов, оказывающих влияние на утомляемость и работоспособность. Отрицательные последствия может иметь как недостаточное, так и слишком сильное освещение. Принято, поэтому, для обеспечения благоприятных условий работы, нормировать минимальную освещенность на рабочем месте (освещенность на наиболее темном участке рабочей поверхности). Нормы освещенности определяются назначением помещения и характером выполняемых в нем работ. С учетом спецификации работы программиста, ее можно отнести ко 2 или 3 разряду работ, что подразумевает обеспечение на рабочем месте следующих величин освещенности:

- не менее 5 Люкс при верхнем и комбинированном естественном освещении;

- не менее 1,5 Люкс при боковом естественном освещении;

- не менее 750 Люкс при системе комбинированного искусственного освещения;

- не менее 300 Люкс при системе общего искусственного освещения.

Необходимо добавить, что естественное освещение положительно влияет не только на зрение, но также тонизирует организм человека в целом и оказывает благоприятное психологическое воздействие. В связи с этим все помещения в соответствии с санитарными нормами и правилами должны иметь естественное освещение.

9.3.3 Электробезопасность при эксплуатации ЭВМ

Электрические установки, к которым относится практически все оборудование электронных вычислительных машин, представляют для человека большую потенциальную опасность, так как в процессе эксплуатации или проведения профилактических работ человек может коснуться частей, находящихся под напряжением.

Специфическая опасность электроустановок: токоведущие проводники, корпуса, стоек ЭВМ и прочего оборудования, оказавшегося под напряжением в результате повреждения (пробоя) изоляции, не подают каких-либо сигналов, которые предупреждали бы человека об опасности. Реакция человека на электрический ток возникает лишь при протекании последнего через человека.

Проходя через тело человека, электрический ток оказывает на него сложное воздействие, вызывая при этом термическое, электролитическое, механическое и биологическое действие. Термическое действие тока проявляется в ожогах различных участках тела, нагреве ткани и биологических средств, что вызывает в них функциональное расстройство. Электролитическое действие тока выражается в разложение органической жидкости, крови и проявляется в изменении их физико-химического состава. Механическое действие тока приводит к разрыву мышечных тканей. Биологическое действие тока заключается в способности тока раздражать и возбуждать живые ткани организма.

На практике различают следующие виды электрических травм:

- местные электрические травмы, когда возникает местное повреждение организма - электрический ожог, электрический знак, металлизация кожи частицами расплавившегося под действием электрической дуги металла, механические повреждения, вызванные непроизвольными сокращениями под действием тока;

- общие электрические травмы, часто называемые электрическим ударом, когда из-за нарушений нормальной деятельности жизненно-важных органов систем поражается весь организм в целом;

Часто оба вида травм сопутствуют друг другу, но возможна гибель всего организма от общей электрической травмы, когда внешних местных повреждений не видно. Степень воздействия на организм этих явлений может иметь различный характер и зависит от многих факторов, таких как сила, длительность воздействия тока, его род, пути прохождения и другое.

Установлено, что увеличение силы тока ведет к естественным изменениям воздействия его на организм человека.

Электрические тока вызывающие ответную реакцию организма получили название: соответственно ощутимые (сила тока от 0.6 до 6 мА), не отпускающих(от 6 до 100мА) и фибрилляционных (100 и более мА).

Исключительно важное значение для предотвращения электротравматизма имеет правильная организация обслуживание действующих электроустановок, проведение ремонтных, монтажных и профилактических работ.

При этом под правильной организацией понимается строгое выполнение ряда организационных и технических мероприятий и средств.

К организационным мероприятиям относятся:

- оформление работы нарядом или устным распоряжением;

- допуск к работе;

- надзор во время работы;

- оформление перерыва в работе, переводов на другое место, окончания работы.

Применение только одних организационных и технических мероприятий по предупреждению поражению электрических током не может в полной мере обеспечить необходимую электробезопасность при эксплуатации электроустановок. Это возможно если используются следующие технические средства защиты:

а) применение малых напряжений;

Малое напряжение - это напряжение не более 42 В, применяемое в цепях уменьшения опасности поражения электрическим током. Наибольшая степень безопасности достигается при напряжениях до 10 В. В производстве чаще используют сети напряжением 12 В и 36 В. Для создания таких напряжений используют понижающие трансформаторы.

б) электрическое разделение сетей;

Разветвленная электрическая сеть большой протяженности имеет значительную емкость и небольшое сопротивление фаз относительно земли. В этом случае даже прикосновение к 1 фазе является очень опасным. Если единую сеть разделить на ряд небольших сетей такого же напряжения, то опасность поражения резко снижается. Обычно разделение сетей осуществляется путем подключения отдельных электроустановок через разделительные трансформаторы. Защитное разделение сетей допускается лишь для сетей до 1000 В.

в) электрическая изоляция;

Слой диэлектрика, которым покрывают поверхность токоведущих элементов, или конструкция из непроводящего материала, с помощью которой токоведущие части отделяются от остальных частей электрооборудования. Сопротивление изоляции должно быть не менее 0,5 МОм. Выделяют следующие виды изоляции:

- рабочая - электрическая изоляция токоведущих частей электроустановки, обеспечивающая ее нормальную работы и защиту от поражения электрическим током;

- дополнительная - электрическая изоляция, предусмотренная дополнительно к рабочей изоляции для защиты от поражения электрическим током в случае повреждения рабочей изоляции;

- двойная - изоляция, состоящая из рабочей и дополнительной изоляции;

- усиленная - улучшенная рабочая изоляция, которая обеспечивает такую же защиту от поражения электрическим током, как и двойная изоляция;

г) защита от случайного прикосновения к токоведущим частям;

Для исключения опасности прикосновения к токоведущим частям

электрооборудования необходимо обеспечить их недоступность. Это достигается посредством ограждения и расположения токоведущих частей на недоступной высоте или в недоступном месте. Ограждения применяют сплошные и сетчатые с размером ячейки сетки 25x25 мм. Сплошные ограждения в виде кожухов и крышек применяются в электроустановках до 1000 В.

д) защитное заземление;

Заземление - преднамеренное электрическое соединение какой-либо точки сети, электроустановки или оборудования с заземляющим устройством.

Заземляющее устройство состоит из заземлителя (проводящей части или совокупности соединенных между собой проводящих частей, находящихся в электрическом контакте с землей непосредственно или через промежуточную проводящую среду) и заземляющего проводника, соединяющего заземляемую часть (точку) с заземлителем. Заземлитель может быть простым металлическим стержнем (чаще всего стальным, реже медным) или сложным комплексом элементов специальной формы. Качество заземления определяется значением сопротивления заземляющего устройства, которое можно снизить, увеличивая площадь заземлителей или проводимость среды -- используя множество стержней, повышая содержание солей в земле и т.д. Электрическое сопротивление заземляющего устройства определяется требованиями правил устройства электроустановок.

е) защитное зануление;

Зануление - это преднамеренное электрическое соединение открытых проводящих частей электроустановок, не находящихся в нормальном состоянии под напряжением, с глухозаземленной нейтральной точкой генератора или трансформатора, в сетях трехфазного тока; с глухозаземленным выводом источника однофазного тока; с заземленной точкой источника в сетях постоянного тока, выполняемое в целях электробезопасности.

Зануление - основная мера защиты при косвенном прикосновении в электроустановках до 1 кВ с глухозаземленной нейтралью. Поскольку нейтраль заземлена, зануление можно рассматривать как специфическую разновидность заземления.

При пробое фазной цепи электроприбора на зануленный корпус фактически происходит короткое замыкание «фаза-ноль». Сила тока в цепи при этом увеличивается до очень больших величин, что вызывает быстрое срабатывание аппаратов защиты (АЗ), которые быстро отключают линию, в которую включен неисправный прибор. Кроме того, если в этой линии установлено устройство защитного отключения (УЗО), то оно так же срабатывает, но не от большой величины силы тока, а потому, что сила тока в фазном проводе становится неравна силе тока в нулевом рабочем проводе, так как бомльшая часть тока имеет место в цепи защитного зануления мимо УЗО. Если на этой линии установлены и УЗО и АЗ, то сработают, либо они оба, либо что-то одно, в зависимости от их быстродействия и величины тока замыкания.

Использование этих средств в различных сочетаниях позволяет обеспечить защиту от прикосновения к токоведущим частям, от опасности перехода на металлические не токоведущие части, напряжений тока.

9.4 Меры пожарной безопасности при эксплуатации ЭВМ

Все работники (пользователи ЭВМ) должны быть проинструктированы по вопросам пожарной безопасности при эксплуатации ЭВМ и ПК.

Помещения с ЭВМ должны быть оснащены автоматическими установками пожаротушения и пожарной сигнализации, с дымовыми пожарными извещателями и переносными углекислотными огнетушителями, из расчета 2 штуки на каждые 20 м2 площади помещения. Подходы к средствам пожаротушения должны быть свободными.

Во время монтажа и эксплуатации линий электросети необходимо полностью сделать невозможным возникновение электрического источника возгорания, в результате короткого замыкания и перегрузки проводов, ограничивать применение проводов с легковоспламеняющейся изоляцией и, по возможности, перейти на несгораемую изоляцию.

Линии электросети для питания ПК, периферийных приспособлений ПК и оборудования для обслуживания, ремонта и наладки ПК выполняются как отдельная групповая трехпроводная сеть, путем прокладки фазового, нулевого рабочего и нулевого защитного проводников. Нулевой защитный проводник используется для заземления (зануления) электрооборудования. Использование нулевого рабочего проводника в качестве нулевого защитного проводника запрещается.

ЭВМ, периферийные приспособления ЭВМ и оборудования, ремонта и наладки ЭВМ подключаются к электросети только с помощью исправных штепсельных соединений и электророзеток заводского изготовления. Штепсельные соединения и электророзетки, кроме контактов фазового и нулевого рабочего проводников, должны иметь специальные контакты для подключения нулевого защитного проводника. Конструкция их должна быть такой, чтобы подсоединение нулевого защитного проводника происходило раньше, чем подсоединение фазового и нулевого рабочего проводников. Порядок разъединения при отключении должен быть обратным. Необходимо сделать невозможным соединение контактов фазовых проводников с контактами нулевого защитного проводника.

Недопустимым является подключение ЭВМ, периферийных приспособлений ЭВМ и оборудования для обслуживания, ремонта и наладки ЭВМ к обычной двухпроводной электросети, в том числе - с использованием переходных приспособлений (переносок).

Монтаж, обслуживание, ремонт и наладка ЭВМ, замена деталей, приспособлений, блоков должны осуществляться только при полном отключении питания. Запрещается соединять и разъединять кабели при включенном напряжении. Во время выполнения ремонтных работ следует пользоваться электроинструментом, напряжение питания которого не превышает 36 В.

Лица, связанные с эксплуатацией, профилактическим обслуживанием, наладкой и ремонтом ЭВМ и ПК, проходят проверку знаний по вопросам пожарной безопасности. Допускать к работе лиц, не прошедших обучение, инструктаж и проверку знаний по пожарной безопасности запрещается.

Эвакуационные выходы и проходы должны содержаться постоянно свободными и ничем не загромождаться.

После окончания рабочего времени все рабочие места должны быть убраны, из помещений удалены горючие отходы и выключены все токоприемники, сделана запись в журнале осмотра помещений.

10. Обоснование эффективности проекта

Наиболее простым методом расчетов экономической эффективности автоматизированной обработки информации является определение эффективности решения отдельных локальных задач или комплексов задач. В этом случае оценивают стоимость решения задачи двумя методами: новым (автоматизированным) и старым, конкурирующим (ручную).

Стоимость решения задачи новым способом (Сн, р) определяется по формуле

Сн = t Сr Кд Кн.р, (1)

где t - трудоёмкость работы программиста при разработке программы, ч;

Сr - часовая тарифная ставка работы программиста (Сr=100 р);

Кд - коэффициент, учитывающий дополнительную зарплату, отчисления на социальные нужды, премии из фонда зарплаты и поясной коэффициент (Кд=1,8);

Кн.р - коэффициент накладных расходов к зарплате программиста (Кн.р=1,8).

Трудоемкость работы программиста при разработке программы определяется по формуле

t = tи + ta + tп + tотл + tд, (2)

где tи - затраты труда на исследование алгоритма решения задачи, ч;

ta - затраты труда на разработку блок-схемы алгоритма, ч;

tп - затраты труда на программирование по готовой блок-схеме, ч;

tотл - затраты труда на отладку программы, ч;

tд - затраты труда на подготовку документации по задаче, ч.

Составляющие затраты определяются через условное число операторов в разработанном программном обеспечении. Условное число операторов в программе можно определить по формуле

Q = q c (1 + p), (3)

где q - число операторов в программе (q = 107);

с - коэффициент смежности программы (с = 1,2);

p - коэффициент коррекции программы в ходе ее разработки (р = 0,1).

Таким образом, условное число операторов в программе равняется:

Q = 107 1,2 (1 + 0,1) = 141,2

Затраты труда па исследование алгоритма решении задачи с учетом уточнения описания и квалификации программиста определяется по формуле

tи = Q B / 80 K, (4)

где В - коэффициент увеличения затрат (B = 1,1);

К - коэффициент квалификации разработчика. Определяется в зависимости от стажа работы (для работающих до 2 лет К=0,8).

Затраты труда на разработку блок-схемы алгоритма рассчитываются по формуле

ta = Q / 25 K (5)

Затраты труда на программирование по готовой блок-схеме рассчитываются по формуле

tп = Q / 25 K (6)

Затраты труда на отладку программы на персональном компьютере рассчитывается по формуле

tотл = Q / 7 К (7)

Затраты труда на подготовку документации по задаче определяются по формуле

tд = Q / 15 K (8)

Исходя из имеющихся данных, высчитывается итоговая трудоемкость работы программиста при разработке программы:

tи = 141,2 1,1 / 80 0,8 = 2,4

tа = 141,2 / 25 0,8 = 7

tп = 141,2 / 25 0,8 = 7

tотл = 141,2 / 7 0,8 = 25,2

tд = 141,2 / 15 0,8 = 11,8

t = 2,4 + 7 + 7+ 25,2 + 11,8 = 53,4

Следующим шагом является определение стоимости решения задачи новым способом, исходя из формулы 10.1:

Сн = 53,4 100 1,8 1,8 = 17302

Стоимость решения задачи конкурирующим способом (вручную) определяется по формуле

Сруч = to Cr1 Кд Кн.р, (9)

где to - трудоемкость работы при решении задач вручную, ч;

Cr1 - часовая тарифная ставка работника предприятия, выполняющего работы (Cr1 = 106,25 р).

Трудоемкость работы при решении задач вручную определяется по формуле

to = Qо Kдоп / qо, (10)

где Qo - объем обрабатываемой информации (Qо = 10240 байт);

Кдоп - коэффициент дополнительной трудоемкости при выполнении вспомогательных операций (Кдоп = 4);

qo - среднечасовая выработка работника (qo = 1500 операций в час).

Исходя из этого, трудоемкость и стоимость работ при решении задач вручную соответственно равняются:

to = 20480 4 / 1500 = 54,6

Сруч = 54,6 106,25 1,8 1,8 = 18796

Расчетный коэффициент экономической эффективности (Eр) показывает величину годовой экономии от перевода решения данной задачи на ПК, приходящуюся на 1 рубль единовременных капитальных вложений. Он определяется по формуле

Ер = (Сруч - Сн) / К, (11)

где К - единовременные капитальные затраты, р, определяемые по формуле

К = Цсвт Куд, (12)

где Цсвт - цена внедренных средств вычислительной техники. Всё необходимое аппаратное и программное обеспечение, кроме Microsoft Office 2003, приобретено заводом задолго до начала разработки данного дипломного проекта, то оно не может быть отнесено в данном случае к капитальным затратам. Поэтому за цену внедренных средств вычислительной техники следует принять стоимость Microsoft Office 2003, то есть Цсвт = 2500 р;

Куд - коэффициент удорожания, учитывающий транспортировку, монтаж и настройку ВТ (Куд = 1,1).

Таким образом, единовременные капитальные затраты и, следовательно, расчетный коэффициент экономической эффективности будут соответственно равны:

К = 2500 1,1 = 2750

Ер = 18796 - 17302 / 2750 = 0,54

Значение расчетного коэффициента эффективности капитальных вложений сопоставляется с нормативным значением коэффициента (Ен = 0,4). В случае, когда Ер > Ен перевод решения задачи на ПК считается эффективным.

Расчетный срок окупаемости капитальных вложений в программные средства (Ток, г) показывает, за какой период времени окупятся вложенные в проект средства. Он определяется по формуле

Ток = 1 / Ер (13)

Ток = 1 / 0,54 = 1,85

При эффективном использовании капитальных вложений соблюдается условие

Ток < Ток. н, (14)

где Ток. н - нормативный срок окупаемости, равный 2,5 годам.

Из имеющихся данных видно

0,54 > 0,4

1,85 < 2,5

Выполнение двух этих условий является доказательством общей экономической эффективности проекта. Капитальные вложения, являющиеся при этом величиной незначительной для предприятия, окупятся приблизительно за год и десять месяцев вместо двух с половиной лет по нормативным показателям.

Реализация данного проекта позволит отказаться от визуального съема данных и их ручной обработки. Кроме того появляется возможность визуализации всех получаемых данных, а также доступ к ним по локальной сети, что позволит заметно ускорить документооборот и делопроизводство в цехе.

Также появляются возможности по расширению функционала системы. На ее основе легко спроектировать реализовать простую в обслуживании локальную вычислительную сеть с применением технологии "Клиент - Сервер", а параллельно с уже существующими серверами возможен запуск еще нескольких, например принт-сервера.

11 Заключение

Задача, поставленная в начале дипломного проекта, была выполнена.

Был предложен вариант реализации верхнего уровня автоматизированной системы контроля и учета энергоресурсов, с использованием выбранного для этого комплекса программных продуктов.

Разработанная серверная система предоставляет предприятию возможность оперативного контроля над состоянием газовой инфраструктуры завода. Предложенный вариант легко реализуем в условиях реального предприятия. Данная серверная система представляет собой гибкую платформу для расширения функционала ЛВС цеха в целом.

Исходя из расчетов, можно также сделать вывод об экономической эффективности предлагаемого решения. Капитальные вложения окупятся за 1,85 года, что соответствует предъявляемым требованиям.

Всё это подтверждает высокую эффективность данного варианта и возможность его внедрения у заказчика.

12 Литература

1 ГОСТ 19003-80. Единая система программной документации. Схемы алгоритмов и программ. Обозначение условные графические. - Введ. 01.07.1980 - Государственный стандарт Союза ССР: Изд-во стандартов, 1980. - 9 с;

2 Руководство пользователя "Программа ПРОЛОГ" - Изд-во: ЗАО НПФ ЛОГИКА, 2009. - 14с;

3 Рассел, Ч. Microsoft Windows Server 2003. Справочник администратора / Ч. Рассел, Ш. Кроуфорд, Д. Джеренд. - Изд-во: ЭКОМ Паблишерз, 2004. - 1360 с;

4 Гуртовцев, А. Комплексная автоматизация энергоучета на промышленных предприятиях и хозяйственных объектах;

5 Филатова, А. Ю. «Разработка компьютеризированной подсистемы анализа и прогнозирования потребления природного газа в условиях ОАО "Донецкгоргаз"»;

6 Главная страница. Научно-производственная фирма ЛОГИКА [Электронный ресурс] / ЗАО НПФ ЛОГИКА - Электрон. дан. - Санкт-Петербург. : 2010 - Режим доступа: http://www.logika.spb.ru, свободный - Загл. с экрана. - Яз. рус.;

7 Справочник VBA [Электронный ресурс] / vba-help.ru., 2003-2009 - Электрон. дан. - Москва. : 2009 - Режим доступа: http://vba-help.ru, свободный. - Загл. с экрана. - Яз. рус.;

8 Apache.RU - Russian Apache Web-Server [Электронный ресурс] / Apache.ru., 1999-2008 - Электрон. дан. - Москва. : 2008 - Режим доступа: http://www.apache.ru, свободный - Загл. с экрана - Яз. рус.;

9 Википедия - свободная энциклопедия [Электронный ресурс] / Wikimedia Foundation, Inc.; Электрон. дан. - Сан-Франциско. :2001 - Режим доступа: http://www.ru.wikipedia.org, свободный. - Загл. с экрана. - Яз. многоязычный.;

Приложение (информационное)

Программный код макроса экспорта данных из базы данных программы "ПРОЛОГ"

Public Sub exec()

Dim i As Integer

Open "CC:\Program Files\Apache\htdocs\Часовой_архив_узла_СПТ961_.html" For Output As #1

Open "C:\Program Files\Apache\htdocs\Суточный_архив_узла_СПТ961_.html" For Output As #2

Open "C:\Program Files\Apache\htdocs\Месячный_архив_узла_СПТ961_.html" For Output As #3

Print #1, "<html>"

Print #1, "<head>"

Print #1, "<title>Часовой архив узла СПТ961</title> <LINK REL=STYLESHEET TYPE='text/css' HREF='1.txt'></head>"

Print #1, "<body>"

Print #1, "<Table Border='1' Cellpadding='4' Cellspacing='1'>"

Print #1, "<tr>"

Print #1, "<td class='ThRows'>Время</td>"

Print #1, "<td class='ThRows'>Tхв(°C)</td>"

Print #1, "<td class='ThRows'>Pхв(кгс/cм2)</td>"

Print #1, "<td class='ThRows'>T_т1(°C)</td>"

Print #1, "<td class='ThRows'>P_т1(кгс/cм2)</td>"

Print #1, "<td class='ThRows'>M_т1(т)</td>"

Print #1, "<td class='ThRows'>W_т1(ГКал)</td>"

Print #1, "<td class='ThRows'>tи_т1(ч)</td>"

Print #1, "<td class='ThRows'>tк_т1(ч)</td>"

Print #1, "<td class='ThRows'>V_т1(м3)</td>"

Print #1, "<td class='ThRows'>dM_п1(т)</td>"

Print #1, "<td class='ThRows'>dW_п1(ГКал)</td>"

Print #1, "<td class='ThRows'>T_т2(°C)</td>"

Print #1, "<td class='ThRows'>P_т2(кгс/cм2)</td>"

Print #1, "<td class='ThRows'>M_т2(т)</td>"

Print #1, "<td class='ThRows'>W_т2(ГКал)</td>"

Print #1, "<td class='ThRows'>tи_т2(ч)</td>"

Print #1, "<td class='ThRows'>tк_т2(ч)</td>"

Print #1, "<td class='ThRows'>V_т2(м3)</td>"

Print #1, "<td class='ThRows'>dM_п2(т)</td>"

Print #1, "<td class='ThRows'>dW_п2(ГКал)</td>"

Print #1, "<td class='ThRows'>T_т3(°C)</td>"

Print #1, "<td class='ThRows'>P_т3(кгс/cм2)</td>"

Print #1, "<td class='ThRows'>M_т3(т)</td>"

Print #1, "<td class='ThRows'>W_т3(ГКал)</td>"

Print #1, "<td class='ThRows'>tи_т3(ч)</td>"

Print #1, "<td class='ThRows'>tк_т3(ч)</td>"

Print #1, "<td class='ThRows'>V_т3(м3)</td>"

Print #1, "<td class='ThRows'>T_т4(°C)</td>"

Print #1, "<td class='ThRows'>P_т4(кгс/cм2)</td>"

Print #1, "<td class='ThRows'>M_т4(т)</td>"

Print #1, "<td class='ThRows'>W_т4(ГКал)</td>"

Print #1, "<td class='ThRows'>tи_т4(ч)</td>"

Print #1, "<td class='ThRows'>tк_т4(ч)</td>"

Print #1, "<td class='ThRows'>V_т4(м3)</td>"

Print #1, "<td class='ThRows'>T_т5(°C)</td>"

Print #1, "<td class='ThRows'>P_т5(кгс/cм2)</td>"

Print #1, "<td class='ThRows'>M_т5(т)</td>"

Print #1, "<td class='ThRows'>W_т5(ГКал)</td>"

Print #1, "<td class='ThRows'>tи_т5(ч)</td>"

Print #1, "<td class='ThRows'>tк_т5(ч)</td>"

Print #1, "<td class='ThRows'>V_т5(м3)</td>"

Print #2, "<html>"

Print #2, "<head>"

Print #2, "<title>Суточный архив узла СПТ961</title> <LINK REL=STYLESHEET TYPE='text/css' HREF='1.txt'></head>"

Print #2, "<body>"

Print #2, "<Table Border='1' Cellpadding='4' Cellspacing='1'>"

Print #2, "<tr>"

Print #2, "<td class='ThRows'>Время</td>"

Print #2, "<td class='ThRows'>Tхв(°C)</td>"

Print #2, "<td class='ThRows'>Pхв(кгс/cм2)</td>"

Print #2, "<td class='ThRows'>T_т1(°C)</td>"

Print #2, "<td class='ThRows'>P_т1(кгс/cм2)</td>"

Print #2, "<td class='ThRows'>M_т1(т)</td>"

Print #2, "<td class='ThRows'>W_т1(ГКал)</td>"

Print #2, "<td class='ThRows'>tи_т1(ч)</td>"

Print #2, "<td class='ThRows'>tк_т1(ч)</td>"

Print #2, "<td class='ThRows'>V_т1(м3)</td>"

Print #2, "<td class='ThRows'>dM_п1(т)</td>"

Print #2, "<td class='ThRows'>dW_п1(ГКал)</td>"

Print #2, "<td class='ThRows'>T_т2(°C)</td>"

Print #2, "<td class='ThRows'>P_т2(кгс/cм2)</td>"

Print #2, "<td class='ThRows'>M_т2(т)</td>"

Print #2, "<td class='ThRows'>W_т2(ГКал)</td>"

Print #2, "<td class='ThRows'>tи_т2(ч)</td>"

Print #2, "<td class='ThRows'>tк_т2(ч)</td>"

Print #2, "<td class='ThRows'>V_т2(м3)</td>"

Print #2, "<td class='ThRows'>dM_п2(т)</td>"

Print #2, "<td class='ThRows'>dW_п2(ГКал)</td>"

Print #2, "<td class='ThRows'>T_т3(°C)</td>"

Print #2, "<td class='ThRows'>P_т3(кгс/cм2)</td>"

Print #2, "<td class='ThRows'>M_т3(т)</td>"

Print #2, "<td class='ThRows'>W_т3(ГКал)</td>"

Print #2, "<td class='ThRows'>tи_т3(ч)</td>"

Print #2, "<td class='ThRows'>tк_т3(ч)</td>"

Print #2, "<td class='ThRows'>V_т3(м3)</td>"

Print #2, "<td class='ThRows'>T_т4(°C)</td>"

Print #2, "<td class='ThRows'>P_т4(кгс/cм2)</td>"

Print #2, "<td class='ThRows'>M_т4(т)</td>"

Print #2, "<td class='ThRows'>W_т4(ГКал)</td>"

Print #2, "<td class='ThRows'>tи_т4(ч)</td>"

Print #2, "<td class='ThRows'>tк_т4(ч)</td>"

Print #2, "<td class='ThRows'>V_т4(м3)</td>"

Print #2, "<td class='ThRows'>T_т5(°C)</td>"

Print #2, "<td class='ThRows'>P_т5(кгс/cм2)</td>"

Print #2, "<td class='ThRows'>M_т5(т)</td>"

Print #2, "<td class='ThRows'>W_т5(ГКал)</td>"

Print #2, "<td class='ThRows'>tи_т5(ч)</td>"

Print #2, "<td class='ThRows'>tк_т5(ч)</td>"

Print #2, "<td class='ThRows'>V_т5(м3)</td>"

Print #3, "<html>"

Print #3, "<head>"

Print #3, "<title>Суточный архив узла СПТ961</title> <LINK REL=STYLESHEET TYPE='text/css' HREF='1.txt'></head>"

Print #3, "<body>"

Print #3, "<Table Border='1' Cellpadding='4' Cellspacing='1'>"

Print #3, "<tr>"

Print #3, "<td class='ThRows'>Время</td>"

Print #3, "<td class='ThRows'>Tхв(°C)</td>"

Print #3, "<td class='ThRows'>Pхв(кгс/cм2)</td>"

Print #3, "<td class='ThRows'>T_т1(°C)</td>"

Print #3, "<td class='ThRows'>P_т1(кгс/cм2)</td>"

Print #3, "<td class='ThRows'>M_т1(т)</td>"

Print #3, "<td class='ThRows'>W_т1(ГКал)</td>"

Print #3, "<td class='ThRows'>tи_т1(ч)</td>"

Print #3, "<td class='ThRows'>tк_т1(ч)</td>"

Print #3, "<td class='ThRows'>V_т1(м3)</td>"

Print #3, "<td class='ThRows'>dM_п1(т)</td>"

Print #3, "<td class='ThRows'>dW_п1(ГКал)</td>"

Print #3, "<td class='ThRows'>T_т2(°C)</td>"

Print #3, "<td class='ThRows'>P_т2(кгс/cм2)</td>"

Print #3, "<td class='ThRows'>M_т2(т)</td>"

Print #3, "<td class='ThRows'>W_т2(ГКал)</td>"

Print #3, "<td class='ThRows'>tи_т2(ч)</td>"

Print #3, "<td class='ThRows'>tк_т2(ч)</td>"

Print #3, "<td class='ThRows'>V_т2(м3)</td>"

Print #3, "<td class='ThRows'>dM_п2(т)</td>"

Print #3, "<td class='ThRows'>dW_п2(ГКал)</td>"

Print #3, "<td class='ThRows'>T_т3(°C)</td>"

Print #3, "<td class='ThRows'>P_т3(кгс/cм2)</td>"

Print #3, "<td class='ThRows'>M_т3(т)</td>"

Print #3, "<td class='ThRows'>W_т3(ГКал)</td>"

Print #3, "<td class='ThRows'>tи_т3(ч)</td>"

Print #3, "<td class='ThRows'>tк_т3(ч)</td>"

Print #3, "<td class='ThRows'>V_т3(м3)</td>"

Print #3, "<td class='ThRows'>T_т4(°C)</td>"

Print #3, "<td class='ThRows'>P_т4(кгс/cм2)</td>"

Print #3, "<td class='ThRows'>M_т4(т)</td>"

Print #3, "<td class='ThRows'>W_т4(ГКал)</td>"

Print #3, "<td class='ThRows'>tи_т4(ч)</td>"

Print #3, "<td class='ThRows'>tк_т4(ч)</td>"

Print #3, "<td class='ThRows'>V_т4(м3)</td>"

Print #3, "<td class='ThRows'>T_т5(°C)</td>"

Print #3, "<td class='ThRows'>P_т5(кгс/cм2)</td>"

Print #3, "<td class='ThRows'>M_т5(т)</td>"

Print #3, "<td class='ThRows'>W_т5(ГКал)</td>"

Print #3, "<td class='ThRows'>tи_т5(ч)</td>"

Print #3, "<td class='ThRows'>tк_т5(ч)</td>"

Print #3, "<td class='ThRows'>V_т5(м3)</td>"

Set dbs = CurrentDb

Set rst = dbs.openrecordset("T961_ARCHIVE")

Do While Not rst.EOF

i = 1

For Each rstprop In rst.Fields

s = rstprop

If i = 1 Then

i = 2

Else

If i = 2 Then

f = s

i = 3

If f = 0 Then

Print #1, "<tr>"

End If

If f = 1 Then

Print #2, "<tr>"

End If

If f = 2 Then

Print #3, "<tr>"

End If

Else

If f = 0 Then

If IsNull(s) Then

Print #1, "<td class='TrOdd' align=center>&nbsp</td>"

Else

Print #1, "<td class='TrOdd' align=center>", s

End If

End If

If f = 1 Then

If IsNull(s) Then

Print #2, "<td class='TrOdd' align=center>&nbsp</td>"

Else

Print #2, "<td class='TrOdd' align=center>", s

End If

End If

If f = 2 Then

If IsNull(s) Then

Print #3, "<td class='TrOdd' align=center>&nbsp</td>"

Else

Print #3, "<td class='TrOdd' align=center>", s

End If

End If

End If

End If

Next rstprop

rst.MoveNext

Loop

Print #1, "</table>"

Print #1, "</body>"

Print #1, "</html>"

Print #2, "</table>"

Print #2, "</body>"

Print #2, "</html>"

Print #3, "</table>"

Print #3, "</body>"

Print #3, "</html>"

rst.Close

dbs.Close

Close #1

Close #2

Close #3

Размещено на Allbest.ru


Подобные документы

Работы в архивах красиво оформлены согласно требованиям ВУЗов и содержат рисунки, диаграммы, формулы и т.д.
PPT, PPTX и PDF-файлы представлены только в архивах.
Рекомендуем скачать работу.