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

提供中文版&英文版两种版本供大家选择~~本着雷锋精神免费供大家下载~~

rmr's calc pro.rar 15.71KB RAR 83次下载

中文版rmrcalc.rar 19.37KB RAR 378次下载   

既然是计算器还改啥源码额。。

怎么会复杂呢= =要输入的就那么几个参数么。。跟网页上的差不多呢。。输出结果比网页多出一大堆

没有啊。。特意降到2.5的。。