Rabu, 23 Maret 2016
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
