[Gambas-user] R: ieee754

[Jussi Lahtinen]

Not sure what you are doing exactly, but this may enhance compatibility.
hStr.ByteOrder = gb.LittleEndian

Jussi


On Fri, Dec 27, 2013 at 3:56 PM, Jussi Lahtinen <jussi.lahtinen at ...626...>wrote:

>   Dim i As Integer
>   Dim f As Single
>   Dim p As Pointer
>   Dim hStr As Stream
>
>     i = &h3EAAAAAA&
>
>     p = Alloc(SizeOf(gb.Integer))
>
>     hStr = Memory p For Read Write
>
>     Write #hStr, i As Integer
>
>     Seek #hStr, 0
>
>     f = Read #hStr As Single
>
>     Print f
>
>     Free(p)
>     Close #hStr
>
>
> Seek is needed for the automatically increasing internal pointer.
> http://gambasdoc.org/help/lang/memory?v3&en
>
>
> Jussi
>
>
>
> On Fri, Dec 27, 2013 at 2:09 PM, wally <wally at ...2037...> wrote:
>
>> Thank You !
>>
>> but result is "1.261169E-44"
>>
>> expected "3.33333E-1"
>> 3.33333313465118408203125E-1
>>
>>
>> On Friday 27 December 2013 11:31:10 Ru Vuott wrote:
>> > Using Memory Stream:
>> >
>> > Public Sub Main()
>> >
>> > ' i = &h3EAAAAAA& 'IEEE representation of 1/3
>> >
>> > Dim i As Integer
>> > Dim x As Single
>> > Dim p As Pointer
>> > Dim s As Stream
>> >
>> >     i = &h3EAAAAAA&
>> >
>> >
>> >     p = Alloc(4)
>> >
>> >     s = Memory p For Write
>> >
>> >     Write #s, i As Integer
>> >     Read #s, x
>> >     Print x
>> >     Free(p)
>> >
>> > End
>> >
>> >
>> >
>> > --------------------------------------------
>> > Ven 27/12/13, wally <wally at ...2037...> ha scritto:
>> >
>> >  Oggetto: [Gambas-user] ieee754
>> >  A: "mailing list for gambas users" <gambas-user at lists.sourceforge.net>
>> >  Data: Venerdì 27 dicembre 2013, 10:57
>> >
>> >  Hi,
>> >
>> >  i need to convert 4byte and 8byte HEX to single and float.
>> >  The following code works on gambas2 but seems to need
>> >  modifications in Gambas3.
>> >  Any working example for Gambas3 available ?
>> >
>> >  Public Sub Button3_Click()
>> >  ' i = &h3EAAAAAA& 'IEEE representation of 1/3
>> >
>> >  Dim i As Integer
>> >  Dim x As Single
>> >  Dim p As Pointer
>> >
>> >      i = &h3EAAAAAA&
>> >
>> >      p = Alloc(4)
>> >      Write #p, i, 4
>> >      ' << error *
>> >      Read #p, x
>> >      Free(p)
>> >     Print x
>> >
>> >  End
>> >
>> >
>> >  *  "Type mismatch: wanted Stream, got Pointer instead"
>> >
>> >  thx wally
>> >
>> >
>> >
>>  ---------------------------------------------------------------------------
>> > --- Rapidly troubleshoot problems before they affect your
>> >  business. Most IT
>> >  organizations don't have a clear picture of how application
>> >  performance
>> >  affects their revenue. With AppDynamics, you get 100%
>> >  visibility into your
>> >  Java,.NET, & PHP application. Start your 15-day FREE
>> >  TRIAL of AppDynamics Pro!
>> >
>> http://pubads.g.doubleclick.net/gampad/clk?id=84349831&iu=/4140/ostg.clktrk
>> > _______________________________________________
>> >  Gambas-user mailing list
>> >  Gambas-user at lists.sourceforge.net
>> >  https://lists.sourceforge.net/lists/listinfo/gambas-user
>> >
>> >
>> >
>> ----------------------------------------------------------------------------
>> > -- Rapidly troubleshoot problems before they affect your business. Most
>> IT
>> > organizations don't have a clear picture of how application performance
>> > affects their revenue. With AppDynamics, you get 100% visibility into
>> your
>> > Java,.NET, & PHP application. Start your 15-day FREE TRIAL of
>> AppDynamics
>> > Pro!
>> >
>> http://pubads.g.doubleclick.net/gampad/clk?id=84349831&iu=/4140/ostg.clktrk
>> > _______________________________________________
>> > Gambas-user mailing list
>> > Gambas-user at lists.sourceforge.net
>> > https://lists.sourceforge.net/lists/listinfo/gambas-user
>>
>>
>> ------------------------------------------------------------------------------
>> Rapidly troubleshoot problems before they affect your business. Most IT
>> organizations don't have a clear picture of how application performance
>> affects their revenue. With AppDynamics, you get 100% visibility into your
>> Java,.NET, & PHP application. Start your 15-day FREE TRIAL of AppDynamics
>> Pro!
>>
>> http://pubads.g.doubleclick.net/gampad/clk?id=84349831&iu=/4140/ostg.clktrk
>> _______________________________________________
>> Gambas-user mailing list
>> Gambas-user at lists.sourceforge.net
>> https://lists.sourceforge.net/lists/listinfo/gambas-user
>>
>
>