PureBasic Forums - English

I tested my Deltrapp -R application (over 80k lines of code).
It works as expected.
Very good programming language.
Thanks a lot.

@threedslider: Thanks. Although my job is not in the computer field, I am not a beginner in programming.

@jacdelad: Initially I made this app and used it for personal purposes, as a tool to help me prototype various electronic assemblies.
For the PCB I used chemical etching and didn't need Gerber ...

I created an application aimed to draw the electrical routes for printed circuits boards (PCB).
It is specifically intended for users who make PCBs by chemical etching, using either Press and Peel or photoresist based technology.
The application and user manual can be downloaded here:
https ...

Another solution:


EnableExplicit

Structure Type
x.f
y.f
z.f
EndStructure


Procedure init(_x.f,_y.f,_z.f, *a.Type)
*a\x=_x.f
*a\y=_y.f
*a\z=_z.f
EndProcedure


Define other_var.Type

init(1,2,3,@other_var)


Debug other_var\x ;1.0
Debug other_var\y ;2.0
Debug other_var\z ;3.0

In addition to the examples given before, here an example of a very common use case, namely, a structure defined in a module and called in other modules.

DeclareModule module1
Structure Writer
name.s
surname.s
EndStructure
;.....
EndDeclareModule

Module module1
;here can be empty, but it ...

There are cases where a variable of type List is used only within a procedure (and declared as Protected).

In order to avoid “ memory leak ”, is it necessary to use the FreeList() command before procedure exit?
The same question in the case of a variable of type Map or Array .
A simple example ...

I remembered.

For example:

#file=200
If CreateFile(#file,"test.txt")
CloseFile(#file)
Else
Debug ("Error")
EndIf

For #file =200 it works.
For #file =2000 it does not compile, the following error message is displayed:

" File object number is very high (over 1000), are You sure of that ?"

It ...

I met a similar issue.
To open/read/close a file I used for number to identify the file a number #file (instead #PB_Any) obtained from Enumeration

E. g.:
Enumeration
#window
...
a lot of gadgets, menu, etc
...
#file
EndEnumeration

Error message was: #file is to large or some like that, i do not ...