Для антиплагиата (1207203), страница 3
Текст из файла (страница 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