ArmandoCircuitos
Inicio
Electronica
Programacion
Resultado
Codigo
using System; using System.Collections.Generic; using System.ComponentModel; using System.Data; using System.Drawing; using System.Text; using System.Windows.Forms; namespace Rebobinado_Transformador_01 { public partial class Form1 : Form { public Form1() { InitializeComponent(); } private void button1_Click(object sender, EventArgs e) { double[] mm2 = { 53.58, 52.41, 33.63, 26.67, 21.15, 16.77, 13.3, 10.55, 8.366, 6.634, 5.262, 4.172, 3.309, 2.624, 2.081, 1.65, 1.309, 1.038, 0.823, 0.653, 0.518, 0.411, 0.326, 0.258, 0.205, 0.162, 0.129, 0.102, 0.081, 0.064, 0.051, 0.04, 0.032, 0.025, 0.02, 0.016, 0.013, 0.01, 0.008, 0.006, 0.005, 0.004, 0.0025, 0.002 }; double a, b, p,s,area, seccion, nebp, nebs, ipri, isec, cp, cs; byte awgp = 0; byte awgs = 0; string cadena = ""; a=Convert.ToDouble(txtA.Text); b=Convert.ToDouble(txtB.Text); p = Convert.ToDouble(txtP.Text); s = Convert.ToDouble(txtS.Text); area = a * b; seccion = (area / 0.903) * (area / 0.903); nebp = (p * 37.53) / area; nebs = ((s * nebp) / p) + (((s * nebp) / p) * 0.068); ipri = seccion / p; isec = seccion / s; cp = ipri / 4.5; cs = isec / 4.5; for (byte j = 0; j <=44; j++){ if(cp > mm2[j]){ awgp = j; break; } } for (byte j = 0; j <=44; j++){ if(cs > mm2[j]){ awgs = j; break; } } cadena += "Nebp = " + Math.Round(nebp,0).ToString() + " Espiras\n"; cadena += "Nebs = " + Math.Round(nebs,0).ToString() + " Espiras\n"; cadena += "Ibp = " + Math.Round(ipri,3).ToString() + " Amperios\n"; cadena += "Ibs = " + Math.Round(isec,3).ToString() + " Amperios\n"; cadena += "Calibre P. = " + awgp.ToString() + " AWG\n"; cadena += "Calibre S. = " + awgs.ToString() + " AWG"; lblSalida.Text = cadena; } } }
Descarga del archivo
Descargar archivo