Craig Gemmill's Blog

Thanks for the help.  Here it is in C#!

       private Single ConvertHexToSingle (string hexVal) {

           try {

               int i=0, j=0;

               byte[] bArray = new byte[4];

               for (i = 0; i <= hexVal.Length-1; i += 2) {

                   bArray[j] = Byte.Parse (hexVal[i].ToString() + hexVal[i + 1].ToString(), System.Globalization.NumberStyles.HexNumber);

                   j += 1;

               }

               Array.Reverse (bArray);

               Single s =  BitConverter.ToSingle (bArray, 0);

               return (s);

           } catch (Exception ex) {

               throw new FormatException ("The supplied hex value is either empty or in an incorrect format.  Use the " +

                   "following format: 00000000", ex);

           }

       }

How about ConvertSingletoHex

Thanks for above code, it helped me.

Here's a little vb contribution:

   Private Function ConvertSingleToHex(ByVal SngValue As Single) As String

       Dim tmpBytes() As Byte

       Dim tmpHex As String = ""

       tmpBytes = BitConverter.GetBytes(SngValue)

       For b As Integer = tmpBytes.GetUpperBound(0) To 0 Step -1

           If Hex(tmpBytes(b)).Length = 1 Then tmpHex += "0" '0..F -> 00..0F

           tmpHex += Hex(tmpBytes(b))

       Next

       Return tmpHex

   End Function

Thanks, everybody, this was very helpful.

Thanks for code, it helps me with segy's file types

Is any body know how to do above conversions as vb6 ?

Nice coding !

It helped me for sure. Can anyone do the vice versa.

that is 401.10 to hexadecimal conversion.

       static void Main(string[] args)

       {

           // Initial Value

           float num1 = 999999f;

           // Convert to IEEE 754

           uint num2 = BitConverter.ToUInt32(BitConverter.GetBytes(num1), 0);

           Console.WriteLine("{0} : {1}", num1, num2);

           // Hex representation

           byte[] byteArray = BitConverter.GetBytes(num1);

           Array.Reverse(byteArray);

           Console.WriteLine(BitConverter.ToString(byteArray).Replace("-", ""));

           // Convert back to float

           float num3 = BitConverter.ToSingle(BitConverter.GetBytes(num2), 0);

           Console.WriteLine(num3);

           Console.ReadKey();

       }

hi all,i search for function for translate byte to real if you can help me... thanks

hi all,

can you plz tell me the way how can we convert the Hex value to Float value using VB6.0