Programa #3 Circuitos Electromagneticos

[pic 1]

Nombre:

Gensy Janine Lobo Santos

No. De Cuenta:

20122003578

Catedrático:

Ing. Ricardo Caraccioli.

Clase:

IE-422 Circuitos Electromagnéticos Estáticos.

Trabajo:

Programa para Cálculo de Reluctancia y Flujo Magnético en Núcleo con Salto

       San Pedro Sula, Cortés, Honduras; 17/02/2016.

INTRODUCCION.

Como un aditivo práctico a la clase de circuitos electromagnéticos estáticos se presenta el cálculo de reluctancia y flujo magnético de un modelo de circuito magnético ideal con salto, utilizando técnicas informáticas a partir de parámetros ingresados por usuarios.

CAPTURA DE PARAMETROS Y RESULTADO DEL CÁLCULO DE LA RELUCTANCIA Y FLUJO MAGNETICO.

[pic 2]

CODIGO DEL PROGRAMA.

ublic Class Form1

    Dim N, lm, ancho, espesor, lg, pr, i, miun, miu, A, Rn, Rg, Rt, F As Single

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        N = CSng(TextBox1.Text)

        lm = CSng(TextBox2.Text)

        lm = lm / 100

        ancho = CSng(TextBox3.Text)

        ancho = ancho / 100

        espesor = CSng(TextBox4.Text)

        espesor = espesor / 100

        lg = CSng(TextBox5.Text)

        lg = lg / 1000

        pr = CSng(TextBox6.Text)

        i = CSng(TextBox8.Text)

        miu = 4 * Math.PI * (10 * 4 ^ -7)

        miun = miu * pr

        A = ancho * espesor

        Rn = (lm) / (miun * A)

        Rg = (lg) / (miu * A)

        Rt = Rn + Rg

        F = (N * i) / Rt

        TextBox7.Text = CStr(Rn)

        TextBox9.Text = CStr(Rg)

        TextBox10.Text = CStr(F)

    End Sub

End Class

...