Модуль Form1.frm. Public I1, I2, I12, U, XV, YV, XA, YA As Double

  • ID: 63361 
  • 3 страницы

Фрагмент работы:

Модуль 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 'угол поворота стрелки вольметра