注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

JonRao的博客

PC游戏 VB.NET PC技巧 硬盘维修

 
 
 

日志

 
 

硬盘整数分区计算器源码  

2011-05-14 11:17:12|  分类: VB.NET |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |

 Public Class Form1

    Class NTFS分区

        Const 每柱面大小 As Single = 7.84423828125

        Dim 柱面数 As Int32

        Dim NTFS分区大小MB As Int32

        Dim FAT32分区大小MB As Int32

        ''' <summary>

        ''' 得到要NTFS分区大小值MB

        ''' </summary>

        ''' <param name="分区大小GB">输入想要分的分区大小GB</param>

        ''' <returns></returns>

        ''' <remarks></remarks>

        Function NTFS分区大小MB函数(ByRef 分区大小GB As Int16) As Int32

            柱面数 = Convert.ToInt32(分区大小GB * 1024 / 每柱面大小) '如果用cint小数转成NTFS就四舍五入取整了

            NTFS分区大小MB = Convert.ToInt32(Int(柱面数 * 每柱面大小 + 1)) ' Fix() 'Math.Floor(a)也可以

            Return NTFS分区大小MB

        End Function

        ''' <summary>

        ''' 得到要FAT32分区大小值MB

        ''' </summary>

        ''' <param name="分区大小GB">输入想要分的分区大小GB</param>

        ''' <returns></returns>

        ''' <remarks></remarks>

        Function FAT32分区大小MB函数(ByRef 分区大小GB As Int16) As Int32

            FAT32分区大小MB = (分区大小GB - 1) * 4 + 1024 * 分区大小GB

            Return FAT32分区大小MB

        End Function

    End Class

 

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        If RadioButton1.Checked = True Then '选择NTFS分区就...

            Dim a As New NTFS分区

            Try

                TextBox2.Text = a.NTFS分区大小MB函数(Convert.ToInt16(TextBox1.Text)).ToString & "MB"

                TextBox1.AppendText("GB") '追加个单位标示

            Catch ex As Exception

 

            End Try

        ElseIf RadioButton2.Checked = True Then '选择FAT32分区就...

            Dim a As New NTFS分区

            Try

                TextBox2.Text = a.FAT32分区大小MB函数(Convert.ToInt16(TextBox1.Text)).ToString & "MB"

                TextBox1.AppendText("GB") '追加个单位标示

            Catch ex As Exception

 

            End Try

        End If

 

    End Sub

 

    Private Sub TextBox1_MouseClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles TextBox1.MouseClick

        TextBox1.Text = "" '点鼠标就清空,方便输入新值

    End Sub

 

    Private Sub LinkLabel1_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked

        关于.Show()

    End Sub

End Class

  评论这张
 
阅读(132)| 评论(0)
推荐 转载

历史上的今天

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2017