Написать программу, измеряющую параметры заданной цепи

  • ID: 03861 
  • 8 страниц
200 рубСкачать

антиплагиат в подарок

Form1.frm

Form2.frm

Form3.frm

frmAbout.frm

frmAbout.frx

Отчет.docx

Проект1.exe

Проект1.vbp

Проект1.vbw

Содержание:


Задание

Написать программу, измеряющую параметры заданной цепи.

PA

PV

HC1

HC2

U

Цепь имеет вид :

Токи [image] и [image] измеряются как[image], [image], ток амперметра I =[image]+ [image].

Требования:

Программа должна обладать полноценным меню.

Программа должна строить графики вольтамперной характеристики.

В программе предусмотреть возможность изменения ЭДС, сохранения вольтамперной характеристики в файле.

Амперметр и вольтметр сделать стрелочным интерфейсом.

Предусмотреть запрет изменения ЭДС, пока ключ замкнут.

Ключ сделать анимированным.

Программная реализация

В среде Visual Basic было создано приложение, Которое выполняет следующие функции:

Приложение имеет 4 формы: главная, для отображения результатов измерения, для отображения графиков и информации о программе.

Листинг программы

Модуль Form1.frm

Public I1, I2, I12, U, XV, YV, XA, YA As Double

'Подпрограма расчета угла наклона стрелок PA и PV

Public Sub ShowPAV()

Dim r, Alfa, Beta, X1, X2, Y1, Y2

X1 = arrowPV.X1: X2 = arrowPV.X2: Y1 = arrowPV.Y1: Y2 = arrowPV.Y2

r = Sqr((X1 - X2) ^ 2 + (Y1 - Y2) ^ 2) 'длина стрелки вольметра

Alfa = 0 'начальный угол наклона стрелки вольтметра

Beta = U / 220 * 3.14 'угол поворота стрелки вольметра

'новые смещения координат конца стрелки

X2 = Int(r * Cos(3.14 - Alfa - Beta))

Y2 = Int(r * Sin(3.14 - Alfa - Beta))