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次下载   

唔，沙发。。。
不过我还是觉得xls好用（源码什么的方便修改），可能是用习惯了。。。

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

不用上网计算了，很方便，谢谢分享！[s:269]

貌似有点复杂

怎么下不了!

我感兴趣的是标题一行大字怎么搞出来的[s:274]

嗯，VB写的

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

打不开，初始化失败

我怎么打不开？

装.Net Framework,xp需要装的

楼主看看编译的时候的.Net版本 我当时忘了告诉你了

你是不是编译成.Net Framework 4.0或者Profile了 [s:225]

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

我咋不记得有.Net Framework2.5 [s:225]

任哥辛苦，感谢

ymy。。。。

[s:225][s:225]路过看看

打不开呀- -[s:226]

奇怪应用错误打不开

目测恶意输入字符直接报错。。。

顶一个，支持楼主

谢谢分享,顶一个，支持楼主

弄个js的放科创工具[s:274]

非常好用一用既会

多谢啦。。很好用诶

给任某人赞一个，多谢分享啊，好软件

虽然不太懂，但是先收藏了，谢谢楼主了

大眼睛,双眼皮儿，一看就是讲究人儿～

看看

不错

好东西

感谢楼主分享。

太好了

谢谢分享

叔叔好，这里后辈来借鉴研究成果了

感谢任某人！