【计算工具】震撼发布！！任氏次级计算器exe版！TC设计必备！！

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