form1.frm

Visual.Basic.NET实用编程百例-47.6M.zip

VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "十进制和十六进制转换"
   ClientHeight    =   1545
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   ScaleHeight     =   1545
   ScaleWidth      =   4680
   StartUpPosition =   3  'Windows Default
   Begin VB.TextBox Text2 
      Height          =   375
      Left            =   2880
      TabIndex        =   2
      Top             =   600
      Width           =   1575
   End
   Begin VB.TextBox Text1 
      Height          =   375
      Left            =   120
      TabIndex        =   1
      Top             =   600
      Width           =   1335
   End
   Begin VB.CommandButton Command1 
      Caption         =   "转换"
      Height          =   375
      Left            =   1560
      TabIndex        =   0
      Top             =   600
      Width           =   1215
   End
   Begin VB.Label Label2 
      Caption         =   "十六进制"
      Height          =   255
      Left            =   2880
      TabIndex        =   4
      Top             =   360
      Width           =   1215
   End
   Begin VB.Label Label1 
      Caption         =   "十进制"
      Height          =   255
      Left            =   120
      TabIndex        =   3
      Top             =   360
      Width           =   855
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
  If IsNumeric(Text1.Text) Then
            Text2.Text = Hex(CDbl(Text1.Text))
        Else
            MsgBox ("Not a Number.")
        End If
End Sub
 Function Hex2Dec(ByVal InputData As String) As Double
        Dim I As Integer
        Dim DecOut As Double
        Dim Lenhex As Integer
        Dim HexStep As Double
        DecOut = 0
        InputData = UCase(InputData)
        Lenhex = Len(InputData)
        For I = 1 To Lenhex
            If IsNumeric(Mid(InputData, I, 1)) Then
                GoTo NumOk
            ElseIf Mid(InputData, I, 1) = "A" Then
                GoTo NumOk
            ElseIf Mid(InputData, I, 1) = "B" Then
                GoTo NumOk
            ElseIf Mid(InputData, I, 1) = "C" Then
                GoTo NumOk
            ElseIf Mid(InputData, I, 1) = "D" Then
                GoTo NumOk
            ElseIf Mid(InputData, I, 1) = "E" Then
                GoTo NumOk
            ElseIf Mid(InputData, I, 1) = "F" Then
                GoTo NumOk
            Else
                MsgBox("Number given is not in Hex format", vbCritical)
                Exit Function
            End If
NumOk:
        Next I
        HexStep = 0
        For I = Lenhex To 1 Step -1
            HexStep = HexStep * 16
            If HexStep = 0 Then
                HexStep = 1
            End If
            If Mid(InputData, I, 1) = "0" Then
                DecOut = DecOut + (0 * HexStep)
            ElseIf Mid(InputData, I, 1) = "1" Then
                DecOut = DecOut + (1 * HexStep)
            ElseIf Mid(InputData, I, 1) = "2" Then
                DecOut = DecOut + (2 * HexStep)
            ElseIf Mid(InputData, I, 1) = "3" Then
                DecOut = DecOut + (3 * HexStep)
            ElseIf Mid(InputData, I, 1) = "4" Then
                DecOut = DecOut + (4 * HexStep)
            ElseIf Mid(InputData, I, 1) = "5" Then
                DecOut = DecOut + (5 * HexStep)
            ElseIf Mid(InputData, I, 1) = "6" Then
                DecOut = DecOut + (6 * HexStep)
            ElseIf Mid(InputData, I, 1) = "7" Then
                DecOut = DecOut + (7 * HexStep)
            ElseIf Mid(InputData, I, 1) = "8" Then
                DecOut = DecOut + (8 * HexStep)
            ElseIf Mid(InputData, I, 1) = "9" Then
                DecOut = DecOut + (9 * HexStep)
            ElseIf Mid(InputData, I, 1) = "A" Then
                DecOut = DecOut + (10 * HexStep)
            ElseIf Mid(InputData, I, 1) = "B" Then
                DecOut = DecOut + (11 * HexStep)
            ElseIf Mid(InputData, I, 1) = "C" Then
                DecOut = DecOut + (12 * HexStep)
            ElseIf Mid(InputData, I, 1) = "D" Then
                DecOut = DecOut + (13 * HexStep)
            ElseIf Mid(InputData, I, 1) = "E" Then
                DecOut = DecOut + (14 * HexStep)
            ElseIf Mid(InputData, I, 1) = "F" Then
                DecOut = DecOut + (15 * HexStep)
            Else
                MsgBox ("Something is Screwed up, Wahhhhhhhhhhh")
            End If
        Next I
        Hex2Dec = DecOut
eds:
    End Function