Для антиплагиата (Разработка имитационных моделей стендов для проведения лабораторных работ по дисциплине Электроснабжение нетягового подвижного состава), страница 3
Описание файла
Файл "Для антиплагиата" внутри архива находится в следующих папках: Разработка имитационных моделей стендов для проведения лабораторных работ по дисциплине Электроснабжение нетягового подвижного состава, Соломка Никита Александрович. Документ из архива "Разработка имитационных моделей стендов для проведения лабораторных работ по дисциплине Электроснабжение нетягового подвижного состава", который расположен в категории "". Всё это находится в предмете "дипломы и вкр" из 8 семестр, которые можно найти в файловом архиве ДВГУПС. Не смотря на прямую связь этого архива с ДВГУПС, его также можно найти и в других разделах. .
Онлайн просмотр документа "Для антиплагиата"
Текст 3 страницы из документа "Для антиплагиата"
procedure TForm3.Timer1Timer(Sender: TObject);
begin
if TrackBar1.Position>TrackBar1.SelEnd
then
begin
TrackBar1.SelEnd:=TrackBar1.SelEnd+1
end;
if TrackBar1.Position<TrackBar1.SelEnd
then
begin
TrackBar1.SelEnd:=TrackBar1.SelEnd-1;
end;
end;
Для плавного аналогового отображения значений амперметров и вольтметров также используется компонент TTimer с задержкой 500 мс. Значения показателей были измерены по инвертору Энергия ПН-750 с поправкой на ток. Ток был вычитан по номинальной мощности инвертора ППБ-50 по формуле:
а) мощность, потребляемая преобразователем
P1 = U1 I1 (1.1)
где U1 – напряжение, потребляемое преобразователем;
I1 – ток, потребляемый преобразователем;
б) мощность, отдаваема преобразователем в нагрузку
P2 = U2 I2 cos φ (1.2)
где cos φ = 1, так как лампы накаливания являются активной нагрузкой;
U2 – напряжение, отдаваемое в нагрузку;
I2 – ток, отдаваемый в нагрузку.
Расчеты и измерения значений при разной степени нагружения инвертора ППБ-50 сведены в таблицы 1.2 – 1.5.
Таблица 1.2 – Значения показателей холостого хода инвертора
| V1, В | I1, А | V2, В | I2, А |
| 40 | 0,649 | 212 | 0,010 |
| 41 | 0,651 | 214 | 0,013 |
| 42 | 0,670 | 214 | 0,015 |
| 43 | 0,692 | 215 | 0,017 |
| 44 | 0,715 | 216 | 0,020 |
| 45 | 0,736 | 216 | 0,023 |
| 46 | 0,748 | 217 | 0,025 |
| 47 | 0,761 | 218 | 0,027 |
| 48 | 0,775 | 218 | 0,029 |
| 49 | 0,790 | 219 | 0,032 |
| 50 | 0,816 | 220 | 0,036 |
| 51 | 0,828 | 220 | 0,038 |
| 52 | 0,842 | 221 | 0,041 |
| 53 | 0,851 | 222 | 0,044 |
Таблица 1.3 – Значения показателей при нагрузке лампы мощностью 10 Вт
| V1, В | I1, А | V2, В | I2, А |
| 39 | 0,619 | 211 | 0,083 |
| 40 | 0,621 | 213 | 0,095 |
| 41 | 0,630 | 213 | 0,101 |
| 42 | 0,642 | 214 | 0,107 |
| 43 | 0,674 | 215 | 0,110 |
| 44 | 0,687 | 215 | 0,113 |
| 45 | 0,704 | 216 | 0,115 |
| 46 | 0,711 | 217 | 0,117 |
| 47 | 0,725 | 217 | 0,118 |
| 48 | 0,740 | 218 | 0,120 |
| 49 | 0,759 | 219 | 0,122 |
| 50 | 0,774 | 220 | 0,125 |
| 51 | 0,797 | 220 | 0,129 |
| 52 | 0,809 | 221 | 0,130 |
Таблица 1.4 – Значения показателей при нагрузке ламп мощностью 20 Вт
| V1, В | I1, А | V2, В | I2, А |
| 38 | 0,639 | 210 | 0,125 |
| 39 | 0,641 | 211 | 0,125 |
| 40 | 0,650 | 212 | 0,127 |
| 41 | 0,662 | 213 | 0,130 |
| 42 | 0,683 | 213 | 0,133 |
| 43 | 0,699 | 214 | 0,135 |
| 44 | 0,714 | 214 | 0,137 |
| 45 | 0,726 | 215 | 0,139 |
Продолжение таблицы 1.4
| V1, В | I1, А | V2, В | I2, А |
| 46 | 0,731 | 216 | 0,142 |
| 47 | 0,756 | 217 | 0,144 |
| 48 | 0,765 | 218 | 0,145 |
| 49 | 0,776 | 219 | 0,147 |
| 50 | 0,799 | 220 | 0,151 |
| 51 | 0,810 | 221 | 0,153 |
Таблица 1.5 – Значения показателей при нагрузке ламп мощностью 30 Вт
| V1, В | I1, А | V2, В | I2, А |
| 37 | 0,639 | 209 | 0,127 |
| 38 | 0,642 | 210 | 0,128 |
| 39 | 0,651 | 211 | 0,132 |
| 40 | 0,663 | 212 | 0,135 |
| 41 | 0,685 | 212 | 0,137 |
| 42 | 0,699 | 213 | 0,138 |
| 43 | 0,713 | 214 | 0,142 |
| 44 | 0,727 | 214 | 0,145 |
| 45 | 0,732 | 216 | 0,147 |
| 46 | 0,757 | 216 | 0,149 |
| 47 | 0,766 | 217 | 0,151 |
| 48 | 0,777 | 218 | 0,153 |
| 49 | 0,799 | 219 | 0,154 |
| 50 | 0,811 | 220 | 0,156 |
На языке ObjectPascal программный код выглядит следующим образом:
procedure TForm3.Timer2Timer(Sender: TObject);
begin
if S1off.Visible=false then begin
V1.Visible:=true; Button2.Enabled:=true;
V2.Visible:=true; Form4.Button1.Enabled:=true;
A1.Visible:=true; Form4.Button2.Enabled:=true;
A2.Visible:=true;
end;
if S1off.Visible=true then begin
V1.Visible:=false; Button2.Enabled:=false; Form4.Button1.Enabled:=false;
V2.Visible:=false; S2.Visible:=true; Form4.Button2.Enabled:=false;
A1.Visible:=false; Form4.ANI.Visible:=false;
A2.Visible:=false; Form4.ANI.Active:=false;
end;
if TrackBar1.SelEnd>0 then
V1.Caption:=IntToStr(TrackBar1.SelEnd+40)
else
V1.Caption:='40';
if TrackBar1.SelEnd=0 then begin
A1.Caption:='0,649'; V2.Caption:='212'; A2.Caption:='0,010';
end;
if TrackBar1.SelEnd=1 then begin
A1.Caption:='0,651'; V2.Caption:='214'; A2.Caption:='0,013';
end;
if TrackBar1.SelEnd=2 then begin
A1.Caption:='0,670'; V2.Caption:='214'; A2.Caption:='0,015';
end;
if TrackBar1.SelEnd=3 then begin
A1.Caption:='0,692'; V2.Caption:='215'; A2.Caption:='0,017';
end;
if TrackBar1.SelEnd=4 then begin
