Proyecto 1 (unidad 2)

Proyecto para ver la inductancia de una bobina

El código para aplicar las formulas es el siguiente

se utiliza para calcular alguna de las tres variables de las bobinas, que se pueden utilizar para transformadores u alguno otro circuito que lo necesite.

Private Sub Command1_Click()

Val (Text1.Text)

Val (Text2.Text)

Val (Text3.Text)

res = (Text2.Text) / (Text1.Text)

Text3.Text = res

Text4.Text = res

End Sub

Private Sub Command2_Click()

Val (Text1.Text)

Val (Text2.Text)

Val (Text3.Text)

n = (Text1.Text) * (Text3.Text)

Text2.Text = n

Text5.Text = n

End Sub

Private Sub Command3_Click()

Val (Text1.Text)

Val (Text2.Text)

Val (Text3.Text)

i = (Text2.Text) / (Text3.Text)

Text1.Text = i

Text6.Text = i

End Sub

Private Sub Command4_Click()

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

Text4.Text = ""

Text5.Text = ""

Text6.Text = ""

End Sub

Private Sub Command5_Click()

End

End Sub