Реферат: Лабораторная работа №1 по Delphi
Название: Лабораторная работа №1 по Delphi Раздел: Рефераты по информатике, программированию Тип: реферат |
Министерство
общего и профессионального
образования Кафедра УИТЭСЛабораторная работа №1«Исследование характеристик феррорезонансного стабилизатора напряжения» Выполнил: Есин Г.Н. Принял: Галас В.П. Владимир 2000Цель работы: Исследование характеристик феррорезонансного стабилизатора напряжения. Описание лабораторной установки: В лабораторной работе исследуются характеристики феррорезонансного стабилизатора, трехстержневой сердечник которого имеет воздушный зазор и набран из пластин, штампуемых из холоднокатной электротехнической стали марки Э-310. В качесве нагрузки используется реостат, расчитанный на силу тока не более 1 А. Напряжение изменяют с помощью автотрансформатора, величины и контролируют вольтметром. С помощью тумблера вольтметр может быть переключен на измерение необходимого напряжения. Тумблеры используются для подключения емкостей параллельно обмотке
Вывод:
согласно предыдущей
таблице КПД
выше для режима
Б, т.е. при включенной
емкости. Следовательно,
выгоднее использовать
феррорезонансные
стабилизаторы
напряжения
с емкостным
фильтром. Схема лабораторной установки: Лабораторная работа №1. Цель работы: Изучение методов визуального программирования в Delphi. Текст программы: unit Unit1; 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; procedure Button2Click(Sender: TObject); procedure Button1Click(Sender: TObject); procedure ComboBox1Change(Sender: TObject); procedure ScrollBar1Change(Sender: TObject); procedure ScrollBar2Change(Sender: TObject); procedure BitBtn1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.DFM} procedure TForm1.Button2Click(Sender: TObject); begin if ColorDialog1.Execute then Form1.Color:=ColorDialog1.Color; end; procedure TForm1.Button1Click(Sender: TObject); begin if colorDialog1.Execute then Shape1.Brush.Color:=ColorDialog1.Color; end; procedure TForm1.ComboBox1Change(Sender: TObject); begin Shape1.Shape:=TShapeType(ComboBox1.ItemIndex); end; procedure TForm1.ScrollBar1Change(Sender: TObject); begin Shape1.Width:=ScrollBar1.Position*3; end; procedure TForm1.ScrollBar2Change(Sender: TObject); begin Shape1.Height:=Scrollbar2.Position*2; end; procedure TForm1.BitBtn1Click(Sender: TObject); begin Close; end; end. Внешний вид программы: |