Public Class TC
Public u As Double
Public un As Double
Private Sub GroupBox1_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GroupBox1.Enter
End Sub
Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles XXXXXXXXXXXXXXXeckedChanged
If XXXXXXXXXXXXXXXXXXecked = True Then
XXXXXXXXXXXXXXXXXXecked = False
XXXXXXXXXXXXXXadOnly = True
XXXXXbel22.Text = "mm"
XXXXXbel23.Text = "mm"
XXXXXbel24.Text = "mm"
XXXXXbel28.Text = "mm"
XXXXXbel33.Text = "mm"
XXXXXbel34.Text = "mm"
XXXXXbel31.Text = "mm"
XXXXXbel40.Text = "mm²"
XXXXXbel30.Text = "mm²"
XXXXXbel29.Text = "Ω·m"
XXXXXbel27.Text = "H/m"
u = 1
un = 25.4
End If
End Sub
Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles XXXXXXXXXXXXXXXeckedChanged
If XXXXXXXXXXXXXXXXXXecked = True Then
XXXXXXXXXXXXXXXXXXecked = False
XXXXXbel22.Text = "inch"
XXXXXbel23.Text = "inch"
XXXXXbel24.Text = "inch"
XXXXXbel28.Text = "inch"
XXXXXbel33.Text = "inch"
XXXXXbel34.Text = "inch"
XXXXXbel31.Text = "inch"
XXXXXbel40.Text = "inch²"
XXXXXbel30.Text = "inch²"
XXXXXbel29.Text = "Ω·ft"
XXXXXbel27.Text = "H/ft"
u = 25.4
un = 1
End If
End Sub
Private Sub RadioButton3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles XXXXXXXXXXXXXXXeckedChanged
If XXXXXXXXXXXXXXXXXXecked = True Then
XXXXXXXXXXXXXXXXXXecked = False
XXXXXXXXXXXXXXadOnly = True
End If
End Sub
Private Sub RadioButton4_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles XXXXXXXXXXXXXXXeckedChanged
If XXXXXXXXXXXXXXXXXXecked = True Then
XXXXXXXXXXXXXXXXXXecked = False
XXXXXXXXXXXXXXadOnly = False
End If
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles XXXXXXXXXXick
Me.TextBox17.Text = (((Me.TextBox4.Text / 10) + (Me.TextBox5.Text / 10) + 2 * (Me.TextBox7.Text / 10)) * Me.TextBox2.Text * 10) / u
Me.TextBox15.Text = ((Math.PI * (Me.TextBox3.Text / 10 + Me.TextBox4.Text / 10) * Me.TextBox2.Text) * 10) / u
Me.TextBox14.Text = (Math.PI * ((TextBox4.Text / 2000) - (TextBox7.Text / 1000)) ^ 2) * 1000 * 1000
Me.TextBox16.Text = (((TextBox2.Text ^ 2) * ((TextBox3.Text / 2) ^ 2)) / ((9 * TextBox3.Text / 20) + (1 * TextBox17.Text))) / (un * 10)
Me.TextBox13.Text = 5.08 * ((TextBox3.Text / un) / 2) / 1 * (0.0563 * (((TextBox17.Text / un) / 1) / (((TextBox3.Text / un) / 2) / 1)) + 0.08 + 0.38 * Math.Sqrt(1 / (((TextBox17.Text / un) / 1) / (((TextBox3.Text / un) / 2) / 1))))
Me.TextBox12.Text = (((TextBox15.Text / 1000) * TextBox6.Text) / TextBox14.Text) * 10000000
Me.TextBox23.Text = (1 / (Math.PI * 2 * Math.Sqrt(TextBox16.Text * (TextBox13.Text / 1 + TextBox9.Text))) * 1000000000)
If XXXXXXXXXXXXXXXXXXecked = False Then
Me.TextBox1.Text = (1 / (Math.PI * 2 * Math.Sqrt(TextBox16.Text * (TextBox13.Text / 1 + TextBox9.Text))) * 1000000000)
End If
Me.TextBox11.Text = 2 * Math.PI * TextBox16.Text * TextBox1.Text / 1000000
Me.TextBox10.Text = Math.Sqrt((2 * TextBox6.Text) / (TextBox1.Text * 20 * Math.PI * TextBox8.Text)) * 10000
Me.TextBox20.Text = ((TextBox14.Text / 1000000) - (3.1415926 * ((TextBox4.Text / 2000) - (TextBox10.Text / 1000)) ^ 2)) * 1000000
If TextBox10.Text > TextBox4.Text Then
Me.TextBox21.Text = "No Skin Effect"
Else
Me.TextBox21.Text = (((TextBox15.Text / 1000) * TextBox6.Text) / TextBox20.Text) * 10000000
End If
Me.TextBox19.Text = TextBox11.Text / (TextBox12.Text / 2)
If TextBox21.Text = "No Skin Effect" Then
Me.TextBox18.Text = Me.TextBox19.Text
Else
Me.TextBox18.Text = TextBox11.Text / TextBox21.Text
End If
Me.TextBox22.Text = (1 / (Math.PI * 2 * Math.Sqrt(TextBox16.Text * (TextBox13.Text / 1))) * 1000000000)
TextBox26.Text = TextBox14.Text * TextBox15.Text * 0.000009315
TextBox25.Text = (TextBox27.Text * TextBox26.Text) + TextBox28.Text
End Sub
End Class
