Function dez()
      Cls
      Locate 0,0
      dezi$=Input("Bitte Dezimalzahl eingeben: ")
      Locate 0,0
      Print "Hexdezimal: "+Hex$(dezi$)
      Print "Binär: "+Bin$(dezi$)
      Cls
      WaitKey()
   End Function

dez() ;<-- du musst die funktion aufrufen, falls du das nicht gemacht hast, obwohl dies nicht zu einer fehlermeldung führt.

;kurz und bündig
Function dez() 
      dezi$=Input("Bitte Dezimalzahl eingeben: ")
      Print "Hexdezimal: "+Hex$(dezi$)
      Print "Binär: "+Bin$(dezi$)
      WaitKey()
End Function


- hier meine letzte antwort!

; ===================
;
; CheckValidBin()
;

Function CheckValidBin( val$ )
   For i% = 1 To Len( val$ )
      c$ = Mid( val$, i, 1 )
      
      If ( c$ < "0" Or c$ > "1" ) Return False
   Next
   
   Return True
End Function

Function float_bin$(val#)
   If val<0 Then vz$="1" Else vz$="0"
   val=Abs(val)
   
   dat$=""
   For t=20 To -20 Step -1
   If val# => 2^t Then val# = val - 2^t : dat$=dat$+"1" Else dat$=dat$+"0"
   If t=0 Then dat$=dat$+"."
   Next
   
   a = Instr(dat$,"1")
   b = Instr(dat$,".")
   If a > b Then a=b
   dat$=Mid$(dat$,a)
   a=0
   Repeat
    b=a+1
    a=Instr(dat$,"1",b)
   Until a=0
   dat$=Left$(dat$,b-1)    
   
   If Left$(dat$,1)="." Then
      c=Instr(dat$,"1")
      expo= - (c-1)
      dat$=Mid$(dat$,c+1)
   Else
      c=Instr(dat$,".")
      expo=c-2
      dat$=Replace(dat$,".","")
      dat$=Mid$(dat$,2)      
   EndIf
   
   For t=Len(dat$) To 22
   dat$=dat$+"0"
   Next
   dat$ = Left$(dat$,23)
   dat$ = vz$ + Right$(Bin$(127+expo),8)+dat$
   
   Return dat$
End Function

Function bin_float#(dat$)
If Left$(dat$,1)="1" Then vz=-1 Else vz=1
expo = bit_byte(Mid$(dat,2,8)) - 127
val# = 2^expo
st = 10
For t=10 To 32
   If Mid$(dat$,t,1)="1" Then val#=val#+ 2^(9+expo-t)
Next   
Return val
End Function

Function bit_byte(dat$)
   val=0
   For t=1 To 8
      If Mid$(dat$,t,1)="1" Then val = val + 2^(8-t)
   Next
   Return val
End Function

Function IsntHex(hexz$)
 For i=1 To Len( hexz$)
  fehler=1
  Select Mid$(hexz$,i,1)
  Case "0" fehler=0
  Case "1" fehler=0
  Case "2" fehler=0
  Case "3" fehler=0
  Case "4" fehler=0
  Case "5" fehler=0
  Case "6" fehler=0
  Case "7" fehler=0
  Case "8" fehler=0
  Case "9" fehler=0
  Case "A" fehler=0
  Case "B" fehler=0
  Case "C" fehler=0
  Case "D" fehler=0
  Case "E" fehler=0
  Case "F" fehler=0
  End Select
  If fehler Then Return 1
 Next
 Return 0
End Function
Function IsntBin(binz$)
 For i=1 To Len(binz$)
  fehler=1
  Select Mid$(binz$,i,1)
  Case "0" fehler=0
  Case "1" fehler=0
  End Select
  If fehler Then Return 1
 Next
 Return 0
End Function