V带选型工具V3.1.0发布（提供下载，含源码）

        最近可能各大学都在做课程设计,很多人要这个工具的源码,当时写完了之后机器硬盘坏了,修复硬盘之后恢复了这个程序的一小部分源文件,V带选型工具3.1.0是在原来3.0所恢复的一些文件上凭记忆重新写代码编译生成的，源代码已经遗失了。原本该完善窄V带这一部分的，但是手头没有工具书查窄V带的资料和计算方程，所以较上一版基本没有改动什么。

        纯粹是再写一遍，测试下代码，然后把代码给需要的朋友。解决了上一版运行提示缺少文件的问题。主要是软件写的时候用了一个VB6.0的SStab控件，而一般没装VB的机器没有这个TABCTL32.OCX控件，现在一起打包发上来。较老版本下载：[V带选型工具V3.0发布]，[普通V带选型工具V2.0发布]，[我的第三个小程序普通V带选型工具V1.0终于面世啦]

1.上图先：

2.源代码(见下面虚线之间红色部分)：

----------------------------------------------朴素的分割线----------------------------------------------

Public Pca As Single '定义变量.
Public n1 As Single
Private Sub input1_KeyPress(KeyAscii As Integer)     '限定input1.text只能输入正数和小数点!
 strValid = ".0123456789"                            '这个过滤方法是临时想的,但是不知道为什么不能过滤汉字,
        If KeyAscii > 26 Then                        '还有一个的BUG是在文本框中右键粘贴还是可将字符串粘贴进来!
          If InStr(strValid, Chr(KeyAscii)) = 0 Then '所以这一步过滤还不是很完整,下个版本会解决!
            KeyAscii = 0
          End If
        End If
End Sub
Private Sub input2_KeyPress(KeyAscii As Integer)     '作用同上面一个模块
 strValid = ".0123456789"
        If KeyAscii > 26 Then
          If InStr(strValid, Chr(KeyAscii)) = 0 Then
            KeyAscii = 0
          End If
        End If
End Sub
Private Sub Command1_Click()
Pca = (input1.Text)
n1 = (input2.Text)
If n1 <= (10 ^ -0.24592) * (Pca ^ 1.32193) Then
 output.Text = "建议您选择E型带"
 MsgBox ("建议您选择E型带")
Else
 If n1 <= (10 ^ 0.89902) * (Pca ^ 1.21825) Then
  output.Text = "建议您选择D型带"
  MsgBox ("建议您选择D型带")
 Else
  If n1 <= (10 ^ 1.46891) * (Pca ^ 1.16112) Then
   output.Text = "建议您选择C型带"
   MsgBox ("建议您选择C型带")
  Else
   If n1 <= (10 ^ 2.13101) * (Pca ^ 0.9659) Then
     output.Text = "建议您选择B型带"
     MsgBox ("建议您选择B型带")
   Else
    If n1 <= (10 ^ 2.7228) * (Pca ^ 0.9659) Then
     output.Text = "建议您选择A型带"
     MsgBox ("建议您选择A型带")
    Else
     output.Text = "建议您选择Z型带"
     MsgBox ("建议您选择Z型带")
    End If
   End If
  End If
 End If
End If
End Sub
Private Sub mnuHelpAbout_Click()
 Form2.Show 1
End Sub

Private Sub mnuHelpUpdate_Click()
Shell "explorer.exe http://www.vdai.didedi.cn/", 1 '升级
End Sub

Private Sub mnusupportBlog_Click()
 Shell "explorer.exe http://www.didodi.cn/", 1 '博客
End Sub

Private Sub mnusupportHomepage_Click()
 Shell "explorer.exe http://www.didedi.cn/", 1 '主页
End Sub

Private Sub mnuAbout_ProgramCopyright_Click()
Form3.Show 1
End Sub

Private Sub mnuAbout_ProgramProgram_Click()
 Form1.Show 1
End Sub

Private Sub mnuFileExit_Click()
    '卸载窗体
    Unload Me
End Sub

----------------------------------------------朴素的分割线----------------------------------------------

3.参考资料：

        1.普通V带选型图中各黄色曲线的方程(从左到右,查资料可知)
        第一条n1=(10^2.72280)*(Pca^0.9659) 
        第二条n1=(10^2.13101)*(Pca^0.9659) 
        第三条n1=(10^1.46891)*(Pca^1.16112)
        第四条n1=(10^0.89902)*(Pca^1.21825)
        第五条n1=(10^-0.24592)*(Pca^1.32193)

        2.窄V带资料，计算方程不全，待完善。

4.下载地址：