bank=CreateBank(4)
byte=ReadFloat(bank)

CloseFile WriteFile("c:\testfile.txt");sicherstellen dass da
file=OpenFile("c:\testfile.txt");writefile geht nicht readfile erst recht nicht.
WriteByte file,123
WriteByte file,0
WriteByte file,0
WriteByte file,0

SeekFile file,0

Print ReadInt(file)
Closefile file

CloseFile WriteFile("c:\testfile.txt");sicherstellen dass da
file=OpenFile("c:\testfile.txt");writefile geht nicht readfile erst recht nicht.
WriteFloat file,7.5

SeekFile file,0

Print ReadFloat(file)

SeekFile file,0

Print Byte2Float(ReadByte(file),ReadByte(file),ReadByte(file),ReadByte(file))
CloseFile file

Function Byte2Float#(byte1,byte2,byte3,byte4)
   ;Nach einer Formel aus Wikipedia: http://de.wikipedia.org/wiki/Gleitkommazahl#Berechnung_einer_IEEE_single_precision_Gleitkommazahl_.2832-Bit-Gleitkommazahl.29
   ;By FTC / Silver_Knee www.Fs-COM.com
   
   vz=%1 And (byte1 Shr 7);8. bit von rechts entscheidet ;nur 1 bit gültig
   e=$000000FF And ((byte1 Shl 1) Or (byte2 Shl 7) );1. byte um 1bit erhöhen und 8.bit des 2.bytes hintanhängen;auf ein Byte begrenzen
   m#=byte4+(byte3 Shl 8)+((byte2) Shl 16);byte4 normal; byte3 um 8bit erhöht;byte2 um 16bit erhöht und auf die erechten 7 bit begrenzt
   
   Stop
   ;ich verwende nicht ^ da das durch den blitz-algo etwas langsam ist. 2^52 ist konstant ich denke deswegen wird das programm nicht verangsamt
   Return  (vz=0)-(vz=1)*(1.0+m/2.0^52)*2^(e-127)
End Function

CloseFile WriteFile("c:\testfile.txt");sicherstellen dass da

file=writefile("c:\testfile.txt")
Closefile file

zahl#=11.511

Print "Zahl: "+zahl#

WriteFloat(zahl#)

WaitKey()


Function WriteFloat(z#)

   Local bit
   Local t1$,t2$
   
   If z#>0 Then bit=0
   If z#<0 Then bit=1
   
   Exponent%=log2(z)+127
   mantisse%=((z#/(2^FLOOR(Log2(z)))) -1)*2^23
   
   t1$=ToBin$(Exponent%)
   t2$=ToBin$(mantisse%)

      For a=1 To 23-Len(t2)
         t2="0"+t2
      Next
      
      Fl$= bit+t1$+t2$
      
   
      Print Fl$
      
      Print "1: "+Mid(Fl$,1,8)
      Print "2: "+Mid(Fl$,9,8)
      Print "3: "+Mid(Fl$,17,8)
      Print "4: "+Mid(Fl$,24,8)
      
      Print "Byte 1: "+BitToByte(Mid(Fl$,1,8))
      Print "Byte 2: "+BitToByte(Mid(Fl$,9,8))
      Print "Byte 3: "+BitToByte(Mid(Fl$,17,8))
      Print "Byte 4: "+BitToByte(Mid(Fl$,24,8))
      
      Return Fl$
   
End Function

Function Log2#(x#)
   epsilon#=1.0/(10^12)
   Integer_value=0
   While(X#<1)
      integer_value = integer_value - 1
    X# = X# * 2
   Wend
   While(X#>=2)
      integer_value = integer_value + 1
      X# = X# / 2
   Wend
      decfrac# = 0.0
      partial# = 0.5
      X#=X#*X#

   While(partial > epsilon)
    if X >= 2:
      decfrac# = decfrac# + partial#
      X# = X# / 2
      EndIf
    partial# = partial# / 2
    X#=X#*X#
   Wend
  return (integer_value + decfrac#)   
End Function

Function ToBin$(z%)
   Local val$
   Repeat

      val$=(z Mod(2))+val$
      z=floor(z/2)

      If z=1 Then val$="1"+val$ : Exit
      If z=0 Then Exit
            
   Forever
   
   Return val$
End Function

Function BitToByte(t$)
   Local bit[7]
      For a=0 To 7
         bit[a]=int(mid(t$, a+1,1))
      Next
      byte=bit[0]*128+bit[1]*64+bit[2]*32+bit[3]*16+bit[4]*8+bit[5]*4+bit[6]*2+bit[7]*1
   
      Return byte
End Function