Лабораторная работа №1 по Delphi

Министерствообщего и профессиональногообразования
ВладимирскийГосударственныйУниверситет

КафедраУИТЭС

Лабораторнаяработа №1

«Исследованиехарактеристикферрорезонансногостабилизаторанапряжения»

Выполнил:Есин Г.Н.

Принял: ГаласВ.П.

Владимир 2000

Цель работы:Исследованиехарактеристикферрорезонансногостабилизаторанапряжения.

Описаниелабораторнойустановки: Влабораторнойработе исследуютсяхарактеристикиферрорезонансногостабилизатора,трехстержневойсердечниккоторого имеетвоздушный зазори набран изпластин, штампуемыхиз холоднокатнойэлектротехническойстали маркиЭ-310. В качесвенагрузки используетсяреостат, расчитанныйна силу токане более 1 А.Напряжениеизменяют спомощью автотрансформатора,величины и контролируютвольтметром.С помощью тумблеравольтметр можетбыть переключенна измерениенеобходимогонапряжения.Тумблеры используютсядля подключенияемкостей параллельнообмотке

1. Снялихарактеристикив режимах А, Би В:

2. СнялиВАХ работыстабилизаторадля трех произвольновыбранныхзначений нагрузкив режимах А иБ.

3. Определиливлияние величинынагрузки наэффект стабилизации:

4. Определиливлияние величиныемкости наэффект стабилизации:

5. Определилипотребляемую(на входе) иполезную (навыходе) мощностистабилизатора:

Вывод:согласно предыдущейтаблице КПДвыше для режимаБ, т.е. при включеннойемкости. Следовательно,выгоднее использоватьферрорезонансныестабилизаторынапряженияс емкостнымфильтром.
______________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________

Схемалабораторнойустановки:

Лабораторнаяработа №1.

Цельработы: Изучениеметодов визуальногопрограммированияв Delphi.

Текстпрограммы:

unitUnit1;

interface

uses

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

StdCtrls,ExtCtrls, Buttons;

type

TForm1= class(TForm)

ScrollBar1:TScrollBar;

ScrollBar2:TScrollBar;

Shape1:TShape;

ColorDialog1:TColorDialog;

Panel1:TPanel;

Button1:TButton;

Button2:TButton;

ComboBox1:TComboBox;

BitBtn1:TBitBtn;

procedureButton2Click(Sender: TObject);

procedureButton1Click(Sender: TObject);

procedureComboBox1Change(Sender: TObject);

procedureScrollBar1Change(Sender: TObject);

procedureScrollBar2Change(Sender: TObject);

procedureBitBtn1Click(Sender: TObject);

private

{Private declarations }

public

{Public declarations }

end;

var

Form1:TForm1;

implementation

{$R *.DFM}

procedureTForm1.Button2Click(Sender: TObject);

begin

ifColorDialog1.Execute then

Form1.Color:=ColorDialog1.Color;

end;

procedureTForm1.Button1Click(Sender: TObject);

begin

ifcolorDialog1.Execute then

Shape1.Brush.Color:=ColorDialog1.Color;

end;

procedureTForm1.ComboBox1Change(Sender: TObject);

begin

Shape1.Shape:=TShapeType(ComboBox1.ItemIndex);

end;

procedureTForm1.ScrollBar1Change(Sender: TObject);

begin

Shape1.Width:=ScrollBar1.Position*3;

end;

procedureTForm1.ScrollBar2Change(Sender: TObject);

begin

Shape1.Height:=Scrollbar2.Position*2;

end;

procedureTForm1.BitBtn1Click(Sender: TObject);

begin

Close;

end;

end.

Внешнийвид программы: