Binär to Dezimal, Hexa to Dezinal etc...

    • VB6

      Binär to Dezimal, Hexa to Dezinal etc...

      Hier mal Funktionen die Binär in Dezimal, Hexa in Dezimal etc. umwandelt...
      Viel Spass damit!

      Visual Basic-Quellcode

      1. Option Explicit
      2. Function CheckDual(ByVal Dual As String) As Boolean
      3. Dim i As Integer
      4. Dim Value As Variant
      5. CheckDual = True
      6. For i = 0 To Len(Dual) - 1
      7. Value = UCase(Mid(Dual, i + 1, 1))
      8. If Value <> 0 And Value <> 1 Then CheckDual = False
      9. Next i
      10. End Function
      12. Function CheckHex(ByVal Hex As String) As Boolean
      13. Dim i As Integer
      14. CheckHex = True
      15. For i = 0 To Len(Hex) - 1
      16. Select Case UCase(Mid(Hex, i + 1, 1))
      17. Case 0 To 9, "A" To "F"
      18. Case Else
      19. CheckHex = False
      20. End Select
      21. Next i
      22. End Function
      24. Function HexToDez(ByVal VarHex As Variant) As Double
      25. Dim intHochzahl As Integer
      27. Dim intHexa As Integer
      28. Dim dblDez As Double
      29. VarHex = UCase(VarHex)
      30. For intHochzahl = 0 To (Len(VarHex) - 1)
      31. Select Case (Mid(VarHex, Len(VarHex) - intHochzahl, 1))
      32. Case 0 To 9
      33. intHexa = CInt((Mid(VarHex, Len(VarHex) - intHochzahl, 1)))
      34. Case "A"
      35. intHexa = 10
      36. Case "B"
      37. intHexa = 11
      38. Case "C"
      39. intHexa = 12
      40. Case "D"
      41. intHexa = 13
      42. Case "E"
      43. intHexa = 14
      44. Case "F"
      45. intHexa = 15
      46. Case Else
      47. HexToDez = 0
      48. Exit Function
      49. End Select
      50. dblDez = dblDez + intHexa * 16 ^ intHochzahl
      51. Next intHochzahl
      52. HexToDez = dblDez
      53. End Function
      55. Function DezToBinär(ByVal VarDez As Variant) As Double
      56. Dim dblDez As Double
      57. Dim intHochzahl As Integer
      58. Dim VarBin As Variant
      59. If IsNumeric(VarDez) Then
      60. dblDez = CDbl(VarDez)
      61. If dblDez >= 2 ^ 32 Then MsgBox "Zahl ist größer als 32 Bit": Exit Function
      62. Do
      63. If (dblDez And 2 ^ intHochzahl) Then
      64. VarBin = "1" & VarBin
      65. Else
      66. VarBin = "0" & VarBin
      67. End If
      68. intHochzahl = intHochzahl + 1
      69. Loop Until 2 ^ intHochzahl > dblDez
      70. Else
      71. MsgBox ("Bitte nur Zahlen"): Exit Function
      72. End If
      73. DezToBinär = VarBin
      74. End Function
      76. Function BinärToDez(ByVal VarBin As Variant) As Double
      77. Dim dblDez As Double
      78. Dim intHochzahl As Integer
      79. Dim intCounter As Integer
      80. If IsNumeric(VarBin) Then
      81. For intHochzahl = 0 To (Len(VarBin) - 1)
      82. intCounter = CInt((Mid(VarBin, Len(VarBin) - intHochzahl, 1)))
      83. If intCounter < 0 Or intCounter > 1 Then MsgBox ("Bitte nur 1 und 0"): Exit Function
      84. dblDez = dblDez + intCounter * 2 ^ intHochzahl
      85. Next intHochzahl
      86. Else
      87. MsgBox ("Bitte nur Zahlen"): Exit Function
      88. End If
      89. BinärToDez = dblDez
      90. End Function

      Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „ValvePro“ ()