рефераты конспекты курсовые дипломные лекции шпоры

Реферат Курсовая Конспект

Модуль ввода исходных данных и пересчета на влажный газ

Модуль ввода исходных данных и пересчета на влажный газ - Курсовая Работа, раздел Философия, МЕТОДИЧЕСКИЕ УКАЗАНИЯ И ЗАДАНИЯ К КУРСОВОЙ РАБОТЕ для студентов специальностей «Энергетический менеджмент», «Теплоэнергетика»   Unit U_Ish_Dan;   Interface &...

 

unit U_ish_dan;

 

interface

 

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

StdCtrls, Buttons, ExtCtrls;

 

type

TForm_ish_dan = class(TForm)

Edit_dsg: TEdit;

Label14: TLabel;

Edit_alfa: TEdit;

Label25: TLabel;

Edit_t: TEdit;

Label63: TLabel;

Label64: TLabel;

Edit_dsv: TEdit;

BitBtn_vg: TBitBtn;

GroupBox1: TGroupBox;

. . . . . . . . . . . . . .

BitBtn_clear_ish: TBitBtn;

BitBtn_close_ish: TBitBtn;

Label68: TLabel;

procedure BitBtn_close_ishClick(Sender: TObject);

procedure BitBtn_clear_ishClick(Sender: TObject);

procedure BitBtn_vgClick(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form_ish_dan: TForm_ish_dan;

implementation

uses u_main, u_rez;

 

{$R *.DFM}

//============================================================

// закрытие формы

//============================================================

procedure TForm_ish_dan.BitBtn_close_ishClick(Sender: TObject);

begin

close

end;

 

//============================================================

// очистка полей

//============================================================

procedure TForm_ish_dan.BitBtn_clear_ishClick(Sender: TObject);

begin

Edit_CO.Text:='0';

Edit_H2.Text:='0';

Edit_CH4.Text:='0';

Edit_C2H4.Text:='0';

Edit_C2H2.Text:='0';

. . . . . . . . . . . . . .

//===============

Edit_COv.Text:='0';

Edit_H2v.Text:='0';

Edit_CH4v.Text:='0';

Edit_C2H4v.Text:='0';

Edit_C2H2v.Text:='0';

. . . . . . . . . . . . . .

//=================

Edit_dsg.Text:='0';

Edit_dsv.Text:='0';

Edit_t.Text:='0';

Edit_alfa.Text:='0';

Edit_Ssg.Text:='0';

Edit_Svg.Text:='0';

end; // clear


//============================================================

// пересчет на влажный газ

//============================================================

procedure TForm_ish_dan.BitBtn_vgClick(Sender: TObject);

var

koef:real; // коэф-т пересчета сухого состава на влажный

i:integer;

begin

ssg:=0; //сумма процентов для сухого газа

svg:=0; //сумма процентов для влажного газа

//===== ввод исходных данных============

CO:=strtofloat(Edit_CO.Text); Ssg:=ssg+CO;

H2:=strtofloat(Edit_H2.Text); Ssg:=ssg+H2;

CH4:=strtofloat(Edit_CH4.Text); Ssg:=ssg+CH4;

C2H2:=strtofloat(Edit_C2H2.Text); Ssg:=ssg+C2H2;

C2H4:=strtofloat(Edit_C2H4.Text); Ssg:=ssg+C2H4;

C2H6:=strtofloat(Edit_C2H6.Text); Ssg:=ssg+C2H6;

C3H8:=strtofloat(Edit_C3H8.Text); Ssg:=ssg+C3H8;

C4H10:=strtofloat(Edit_C4H10.Text); Ssg:=ssg+C4H10;

C5H12:=strtofloat(Edit_C5H12.Text); Ssg:=ssg+C5H12;

CO2:=strtofloat(Edit_CO2.Text); Ssg:=ssg+CO2;

N2:=strtofloat(Edit_N2.Text); Ssg:=ssg+N2;

O2:=strtofloat(Edit_O2.Text); Ssg:=ssg+O2;

SO2:=strtofloat(Edit_SO2.Text); Ssg:=ssg+SO2;

H2S:=strtofloat(Edit_H2S.Text); Ssg:=ssg+H2S;

dsg:=strtofloat(Edit_dsg.Text);

t:=strtofloat(Edit_t.Text);

alfa:=strtofloat(Edit_alfa.Text);

Edit_Ssg.Text:=formatfloat('##0',Ssg);

If (abs(Ssg-100)>1E-6) then begin

ShowMessage('Сухой состав не равен 100%. Исправьте!');

Exit

end;

 

//======== пересчет на влажный газ =========

H2Ov:=100*dsg/(803.6+dsg);

koef:=(100-H2Ov)/100;

COv:=koef*CO; SG[1]:=CO; VG[1]:=COv;

H2v:=koef*H2; SG[2]:=H2; VG[2]:=H2v;

CH4v:=koef*CH4; SG[3]:=CH4; VG[3]:=CH4v;

C2H2v:=koef*C2H2; SG[4]:=C2H2; VG[4]:=C2H2v;

C2H4v:=koef*C2H4; SG[5]:=C2H4; VG[5]:=C2H4v;

C2H6v:=koef*C2H6; SG[6]:=C2H6; VG[6]:=C2H6v;

C3H8v:=koef*C3H8; SG[7]:=C3H8; VG[7]:=C3H8v;

C4H10v:=koef*C4H10; SG[8]:=C4H10; VG[8]:=C4H10v;

C5H12v:=koef*C5H12; SG[9]:=C5H12; VG[9]:=C5H12v;

CO2v:=koef*CO2; SG[10]:=CO2; VG[10]:=CO2v;

N2v:=koef*N2; SG[11]:=N2; VG[11]:=N2v;

O2v:=koef*O2; SG[12]:=O2; VG[12]:=O2v;

SO2v:=koef*SO2; SG[13]:=SO2; VG[13]:=SO2v;

H2Sv:=koef*H2S; SG[14]:=H2S; VG[14]:=H2Sv;

VG[15]:=H2Ov;

//=== вывод влажного состава =================

Edit_COv.Text:=formatfloat('##0.00',COv); svg:=svg+COv;

Edit_H2v.Text:=formatfloat('##0.00',H2v); svg:=svg+H2v;

Edit_CH4v.Text:=formatfloat('##0.00',CH4v); svg:=svg+CH4v;

Edit_C2H2v.Text:=formatfloat('##0.00',C2H2v); svg:=svg+C2H2v;

Edit_C2H4v.Text:=formatfloat('##0.00',C2H4v); svg:=svg+C2H4v;

Edit_C2H6v.Text:=formatfloat('##0.00',C2H6v); svg:=svg+C2H6v;

Edit_C3H8v.Text:=formatfloat('##0.00',C3H8v); svg:=svg+C3H8v;

Edit_C4H10v.Text:=formatfloat('##0.00',C4H10v); svg:=svg+C4H10v;

Edit_C5H12v.Text:=formatfloat('##0.00',C5H12v); svg:=svg+C5H12v;

Edit_CO2v.Text:=formatfloat('##0.00',CO2v); svg:=svg+CO2v;

Edit_N2v.Text:=formatfloat('##0.00',N2v); svg:=svg+N2v;

Edit_O2v.Text:=formatfloat('##0.00',O2v); svg:=svg+O2v;

Edit_SO2v.Text:=formatfloat('##0.00',SO2v); svg:=svg+SO2v;

Edit_H2Sv.Text:=formatfloat('##0.00',H2Sv); svg:=svg+H2Sv;

Edit_H2Ov.Text:=formatfloat('##0.000',H2Ov); svg:=svg+H2Ov;;

Edit_Svg.Text:=formatfloat('##0',Svg);

If (abs(Svg-100)>1E-6) then begin

ShowMessage('Влажный состав не равен 100%. Ошибка в выч-ях!');

Exit

end;

//============================================================

// Выч-ние по табл. D.5 влагосодержания сухого воздуха

//============================================================

i:=1;

while (i<9) and (D5t[i]<>t) do inc(i);

if i=9 then

begin

showmessage ('Температуры нет в таблице. Уточните темпер-ру');

exit

end;

dsv:=D5d[i];

Edit_dsv.Text:=formatfloat('##0.00',dsv);

//включение кнопок

Form_rez.BitBtn_calc.Enabled:=True;

 

end;

 

end.

 

– Конец работы –

Эта тема принадлежит разделу:

МЕТОДИЧЕСКИЕ УКАЗАНИЯ И ЗАДАНИЯ К КУРСОВОЙ РАБОТЕ для студентов специальностей «Энергетический менеджмент», «Теплоэнергетика»

Донецкий национальный технический университет... МЕТОДИЧЕСКИЕ УКАЗАНИЯ И ЗАДАНИЯ К КУРСОВОЙ РАБОТЕ для студентов...

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

Что будем делать с полученным материалом:

Если этот материал оказался полезным ля Вас, Вы можете сохранить его на свою страничку в социальных сетях:

Все темы данного раздела:

К КУРСОВОЙ РАБОТЕ
по дисциплине «Основы информационных технологий и программирования» для студентов специальностей «Энергетический менеджмент», «Теплоэнергетика»  

Требования к структурным элементам пояснительной записки
«Титульный лист» (образец приведен в приложении В.1) является первой страницей пояснительной записки и служит основным источником библиографической информации, необходимой для обработки и по

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

Состав топлива
Компоненты, из которых состоит органическое топливо, делятся на горючие и негорючие. Количество и качество горючих компонентов определяют тепловую ценность топлива. Негорючи

Состояние топлива
При изучении характеристик твердых и жидких топлив и их состава различают рабочее, горючее и сухое состояние топлива. Рабочее – это состояние

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

Определение объема кислорода для сжигания 1кг топлива
Каким бы сложным ни был состав углеводородного топлива, при его полном сгорании углерод окисляется до СО2, водород – до Н2О, сера – до SО2. Рассмотрим стех

Определение объема воздуха для сжигания 1 кг топлива
Теоретический объем сухого воздуха можно определить из выражения: м3/кг, (4.3) г

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

АНАЛИТИЧЕСКИЙ РАСЧЕТ ГОРЕНИЯ ГАЗООБРАЗНОГО ТОПЛИВА
В отличие от твердого и жидкого топлива химический состав газообразного топлива приводится на сухую массу. По составу сухого газа необходимо определить состав газа во влажном (рабочем) состоянии. Д

Расчет выхода продуктов сгорания
Продукты полного сгорания газообразного топлива при a = 1 состоят из СО2, SО2, Н2О, N2 . Объемы отдельных составляющих продуктов сгорания состав

ПРОВЕРКА ПРАВИЛЬНОСТИ РАСЧЕТА ПО МАТЕРИАЛЬНОМУ БАЛАНСУ
В соответствии с законом сохранения массы суммарный вес всех продуктов сгорания топлива равен весу сжигаемого топлива плюс вес расходуемого при сжигании воздуха.   При правил

Исходные данные
  № п/п Наименование величины Значение Состав газа в сухом состоянии, %:

Основной модуль
unit U_main; // главный модуль interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, Menus, ComCtrls; const K=3.76;

Модуль вычисления результата
( результат выводится его в форму и сохраняется в файл)     unit U_rez;   interface   uses

Модуль просмотра файла с решением в окне формы
  unit U_resh;   interface   uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, B

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

Формулы и уравнения
Формулы и уравнения располагают непосредственно после текста, в котором они упоминаются, посередине страницы. Выше и ниже каждой формулы или уравнения должно быть оставлено не менее одной свободной

Определение количества воздуха, необходимого для сжигания 1 кг мазута
Рассчитаем по формуле (4.2) количество кислорода, необходимого для полного сгорания 1 кг мазута: =

Проверка материального баланса горения
Рассчитаем материальный баланс горения мазута массой в 1000 кг. Для этого сначала найдем приход в кг, а затем – расход в кг и сравним их. Масса мазута равна 1000 кг. Для вычислени

Пересчет состава газа на рабочую (влажную) массу
Используя формулу (5.1), рассчитаем процентное содержание водяных паров в 1 м3 природного газа при влагосодержании dС.Г. = 5,0 г/м3 сухого газа:

Расчет теплоты сгорания природного газа
Для вычисления низшей теплоты сгорания воспользуемся формулой (3.9), подставив в нее те горючие составляющие, которые указаны в исходных данных и пересчитаны на рабочую массу в п.6.2.2:

Проверка материального баланса горения
Рассчитаем материальный баланс горения природного газа объемом V=100 м3. Плотность топлива по формуле (6.3) равна: rтопл = 16 × CH4В.Г.+44 &

Хотите получать на электронную почту самые свежие новости?
Education Insider Sample
Подпишитесь на Нашу рассылку
Наша политика приватности обеспечивает 100% безопасность и анонимность Ваших E-Mail
Реклама
Соответствующий теме материал
  • Похожее
  • Популярное
  • Облако тегов
  • Здесь
  • Временно
  • Пусто
Теги