PureBasic 6.20 est sorti

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
DisablePureLibrary Test ; Needed to avoid function conflict if the lib is already loaded

Global Test$
Global NewMap a()

Procedure InitPureLibrary()
  MessageRequester("Init","Init")
EndProcedure

Procedure FreePureLibrary()
  MessageRequester("End","End")
EndProcedure


;  QuickHelp  MyMax(Min [, Max [, Flags, Mode]]) - A standard min/max function
ProcedureDLL MyMax3(a, b, c, d)
  Static cc = 16
  Test$ = "Hello"
  ProcedureReturn OpenWindow(#PB_Any, 10, 10, 200, 200, "Test")
EndProcedure

ProcedureDLL MyMax2(a, b) ; version 2, 3, 4 .... allow to create optional parameter functions (PureBasic default values are not accepted)
  ProcedureReturn MyMax3(a, b, 0, 0)
EndProcedure

ProcedureDLL MyMax(a)
  ProcedureReturn MyMax2(15, 20)
EndProcedure

; QuickHelp GetTest() - Returns the test content
ProcedureDLL.s GetTest()
  ProcedureReturn Test$+Right(" World", 4)
EndProcedure

ProcedureDLL.s GetFloat(a.f, b.i, c.d)
  ProcedureReturn StrF(a) + ", "+ Str(b)+ ", "+StrD(c)
EndProcedure

ProcedureDLL.s GetString(a$, b$, c.d, d$)
  ; MessageRequester(a$ + b$ + c + d$, "")
  ProcedureReturn a$ + b$ + " " + c +" " + d$
EndProcedure


ProcedureDLL GetArray(Array myArray(1))
  ReDim myArray(20)
  a = myArray(3)
  ProcedureReturn ArraySize(myArray())
EndProcedure

ProcedureDLL GetList(List myList())
  AddElement(myList())
  AddElement(myList())
  ProcedureReturn ListSize(myList())
EndProcedure

ProcedureDLL GetMap(Map myMap())
  AddMapElement(myMap(), "Test")
  AddMapElement(myMap(), "Test2")
  AddMapElement(myMap(), "Test3")
  ProcedureReturn MapSize(myMap())
EndProcedure

ProcedureDLL.d GetDouble(a.d, b.d)
  b$ = "World"
  a$ = GetString("aaa", "bbb"+b$, 4545, b$+b$)
  
  ProcedureReturn a*b
EndProcedure