PureBoard

Code: Alles auswählen

Procedure IsNULL(*Memory.BYTE,len.l)
  isnull=1
  For I=0 To len-1 Step 1
    If *Memory\b<>0
      Isnull=0
    EndIf
    *Memory+1
  Next I
  ProcedureReturn isnull
EndProcedure 

Procedure Div10(*Memory.BYTE,len.l)
  *Memory+len
  For I=0 To len-1 Step 1
    *Memory-1
    val=*Memory\b&$FF + rest*$100
    nval = val/10
    Rest=val-nval*10
    *Memory\b=nval
  Next I
  ProcedureReturn rest
EndProcedure

;Wandelt jeden belieben Speicherbereich in eine dezimale Zahl um!
Procedure.s Num2Str(*Memory.BYTE,len.l)
  *tmp=GlobalAlloc_(0,len)
  If *tmp
    CopyMemory(*Memory,*tmp,len)
    While IsNULL(*tmp,len)=0
      char.s= Str(Div10(*tmp,len))+char
    Wend
    GlobalFree_(*tmp)
  EndIf
  ProcedureReturn char
EndProcedure

Structure QWORD
  low.l
  high.l
EndStructure

;- Beispiel 1
QueryPerformanceFrequency_(frequency.QWORD)
InputRequester("QueryPerformanceFrequency_()","",Num2Str(@frequency.QWORD,8))