Cara Menghitung Nilai Tegangan Sekunder Pada Tranformator 3 Fasa

Struktur program untuk mengitung nilai Nilai Tegangan Sekunder Pada Tranformator 3 Fasa menggunakan visual basic :

Private Sub Command1_Click()

a = Val(Text1)

Vp = Val(Text2)

Vs = Vp * 1.7320508 / a

Text4 = Vs

End Sub