Cara Menghitung Jumlah Lilitan Primer pada Trafo

Struktur Pemograman untuk menghitung Jumlah Lilitan Primer menggunakan Visual Basic :

Private Sub Command1_Click()

ns = Val(Text1)

Vp = Val(Text2)

Vs = Val(Text3)

np = ns * Vp / Vs

Text4 = np

End Sub