MENCARI RUGI - RUGI TOTAL MOTOR INDUKSI

                                      RUGI - RUGI TOTAL MOTOR INDUKSI

P.inti      = I0^2 . R0
P. stator  =I2^ 2 . R1
P. rotor   =I2^2 .R2

P.rugi-rugi Total = P.inti + P. stator + P. roto

FLOCHART RUGI - RUGI TOTAL MOTOR INDUKSI

Listing Program Rugi Daya Total

Private Sub Command1_Click()

Text7.Text = Val(Text4.Text) * Val(Text4.Text) * Val(Text1.Text)

Text8.Text = Val(Text5.Text) * Val(Text5.Text) * Val(Text2.Text)

Text9.Text = Val(Text6.Text) * Val(Text6.Text) * Val(Text3.Text)

Text10.Text = Val(Text7.Text) + Val(Text8.Text) + Val(Text9.Text)

End Sub

Private Sub Command2_Click()

Text1.Text = Clear

Text2.Text = Clear

Text3.Text = Clear

Text4.Text = Clear

Text5.Text = Clear

Text6.Text = Clear

Text7.Text = Clear

Text8.Text = Clear

Text9.Text = Clear

Text10.Text = Clear

End Sub