PureBasic Forums - English

Code: Select all

;i found my old OmikronBasic-Manual and i found some things:

; Local -> same as "Protect" (and it would make more sense)

; first of all: Blocks would be nice
;   {
;     a=10
;     debug a
;   }
; in combination with local
;   a=10
;   debug a; display 10
;   {
;     local a
;     a=99
;     debug a; display 99
;   }
;   debug a; display 10

; and when then the editor can fold the blocks...

Procedure AbsL(Value); - makes value always positiv
  If Value<0:Value=-Value:EndIf
  ProcedureReturn Value
EndProcedure
Procedure Bit(BitNumber,Value); - Test if a bit is set
  If Value&(1<<BitNumber)
    ProcedureReturn #True
  Else
    ProcedureReturn #False
  EndIf
EndProcedure
;Procedure SetBit(BitNumber,Value); - set a bit in the value (name same as a userlib-command...)
;  ProcedureReturn Value|(1<<BitNumber)
;EndProcedure
Procedure BLoad(File$,Address); - Load a file into memory
  If ReadFile(0,File$)
    ReadData(Address,Lof())
    CloseFile(0)
    ProcedureReturn #True
  Else
    ProcedureReturn #False
  EndIf
EndProcedure
Procedure BSave(File$,Address,length); - Save a memory-block
  If CreateFile(0,File$)
    WriteData(Address,length)
    CloseFile(0)
    ProcedureReturn #True
  Else
    ProcedureReturn #False
  EndIf
EndProcedure
;         Clear([StringBufferSize[,StackSize]])
;         clear all variables, dims, linkedlist.
;         Close all open files, DLLs, etc
;         -> Close everything!
;         also: Set the StringBufferSize for all, who need more than 64Kbyte
;         And for people, who have many procedures-in-procedures-calls, like
;             Procedure CallAgain(i)
;               i+1
;               If i<999999
;                 CallAgain(i)
;               Else
;                 Debug "ready!"
;               EndIf
;             EndProcedure
;         
;             CallAgain(-999999) 
;         a possibility to set the Stack-Size.
Procedure.s DateString(); - In otherlanguage it is a varibale called Date$; Return the current date in the system-default-style
  Date$=Space(1000)
  GetDateFormat_(#LOCALE_USER_DEFAULT	,#DATE_LONGDATE	,0,0,@Date$,1000)
  ProcedureReturn Date$
EndProcedure
Procedure.s Time(); - Return the current time in the system-default-style (24-Hours or AM/PM)
  time$=Space(1000)
  GetTimeFormat_(#LOCALE_USER_DEFAULT,0,0,0,@time$,1000)
  ProcedureReturn time$
EndProcedure
;DefInt [STRING] nearly: DefType.w
;   DefInt "A-C,E" -> All variables without a type and start with a A,B,C,E will be Word
;DefIntL : DefType.l
;DefSng : DefType.f
;DefStr : DefType.s

;Deg
;  all cos/sin and so on will be switch to deg
;RAD
;  s. DEG

;Exit -> same as break

;Fill -> It would be nice, when i can set a Stop-Border-Color, where the fill-command will stop filling, or -1 for all colors will stop filling.

;For to [step] next
;  At the moment it is impossible to use a variable after step
Procedure.f Frac(Float.f); return the float after the "dot"  frac(1.345)=.345
  int=Float
  Float-int
  ProcedureReturn Float
EndProcedure
Procedure.f Fix(Float.f); return the value before the "dot"  Fix(123.55=)=123; Fix(-123.55)=-123
  int=Float:Float=int
  ProcedureReturn Float
EndProcedure

Procedure InStr(start,String$,find$); first parameter is optional
  ProcedureReturn FindString(String$,find$,start)
EndProcedure
;Int
;  Round to the nearest smallest(!) value
;  int(2.5)=2 ; int(-2.5)=-3 (! PB caluculate -2)

; LET a=10
;   What exact do let? Nothing, you can simple write "a=10" :)

;LineStyle()
; to set widht and style (dotted, and so on); See createpen_()

Procedure.s Lower(String$)
  ProcedureReturn LCase(String$)
EndProcedure
Procedure LPeek(adr)
  ProcedureReturn PeekL(adr)
EndProcedure
Procedure LPoke(adr,Value)
  ProcedureReturn PokeL(adr,Value)
EndProcedure
; Procedure Max(Value1,Value2)
;   If Value1>Value2
;     ProcedureReturn Value1
;   Else
;     ProcedureReturn Value2
;   EndIf
; EndProcedure
; Procedure.f MaxF(Value1.f,Value2.f)
;   If Value1>Value2
;     ProcedureReturn Value1
;   Else
;     ProcedureReturn Value2
;   EndIf
; EndProcedure
; Procedure Min(Value1,Value2)
;   If Value1<Value2
;     ProcedureReturn Value1
;   Else
;     ProcedureReturn Value2
;   EndIf
; EndProcedure
; Procedure.f MinF(Value1.f,Value2.f)
;   If Value1<Value2
;     ProcedureReturn Value1
;   Else
;     ProcedureReturn Value2
;   EndIf
; EndProcedure
Procedure.s ReplaceMid(String$,position,length,ReplaceString$); - Replace a part in the string and return the result
  ProcedureReturn Left(String$,position-1)+ReplaceString$+Right(String$,Len(String$)-position-length+1)
EndProcedure
Procedure SetMid(*string.BYTE,position,*ReplaceString.BYTE); - Replace a part in the string direct!
  *string+(position-1)
  While *ReplaceString\b
    *string\b=*ReplaceString\b:*string+1:*ReplaceString+1
  Wend
EndProcedure
Procedure Mirror(String$); mirror a string
  a$=""
  For i=Len(String$) To 1 Step -1
    a$+Mid(String$,i,1)
  Next
  ProcedureReturn a$
EndProcedure

;Oct(Value) create a Octal-Value
#PI=3.1415926535897932
;Rem -> same as ;

; better loop-support
;  do
;  loop
;  do until
;  loop
;  do while
;  loop
;  do
;  loop until
;  do
;  loop while

Global oldRandom
Procedure.f Rnd(Value)
  Result.f=0
  Select Value
    Case 0:Result=oldRandom
    Case 1:Result=Random(9999)/10000
    Default:Result=Random(Value-1)
  EndSelect
  ProcedureReturn Result
EndProcedure
Procedure Sgn(Value); return the signum
  If Value<0
    ProcedureReturn -1
  ElseIf Value=0
    ProcedureReturn 0
  Else
    ProcedureReturn 1
  EndIf
EndProcedure
Procedure.s Spc(Value)
  ProcedureReturn Space(Value)
EndProcedure
;Stop -> calldebugger
Procedure String(count,Char$)
  ProcedureReturn LSet("",count,Char$)
EndProcedure
;Swap -> swap the values
ProcedureReturn Timer()
Procedure.s Upper(String$)
  ProcedureReturn UCase(String$)
EndProcedure
; a good Using is missing...

; VAL() should handle Hexadezimal ($1f) and Binaries (%011010)

; VarPtr(Variable) same as @Variable

Procedure Wait(Value.f)
  Delay(Value*1000)
EndProcedure
Procedure WPeek(adr)
  ProcedureReturn PeekW(adr)
EndProcedure
Procedure WPoke(adr,Value)
  ProcedureReturn PokeW(adr,Value)
EndProcedure


; And better Joystick-Routines, which are support more than one joystick, and more axis.
; I wrote a little example with simple api-calls.