PB BOARD

Everything else that doesn't fall into one of the other PB categories.
User avatar
microdevweb
Enthusiast
Enthusiast
Posts: 179
Joined: Fri Jun 13, 2014 9:38 am
Location: Belgique

PB BOARD

Post by microdevweb »

Hello guys,

For prepare a crazy project about a visual scripting for PureBasic, i've developed a special module for displaying of visual boxes. We have two packages, the first about the main classes (BOARD) and the second (BOX) with some personal classes in accord with my crazy project.

This module isn't finished, it going to advance step by step with my master project.

Sorry but at this moment i don't make help, maybe later.

To Github

Look this test

Image

Code: Select all

; ***********************************************************************************************
; AUTHOR        : microDevWeb
; PROJECT       : PB BOARD
; TEST          : main.pb
; VERSION       : 1.0
; DESIGNED WITH : PB 5.71
; DATE          : 2019/07/04
; ***********************************************************************************************
XIncludeFile "BOARD\PACKAGES\BOARD\BOARD.pbi"
XIncludeFile "BOARD\PACKAGES\BOX\BOX.pbi"

#FORM = 0
#CONTAINER = 0
Define flags = #PB_Window_SystemMenu|#PB_Window_ScreenCentered|#PB_Window_SizeGadget|
               #PB_Window_MaximizeGadget|#PB_Window_MinimizeGadget
OpenWindow(#FORM,0,0,800,600,"Test",flags)
ContainerGadget(#CONTAINER,0,0,800,600,#PB_Container_BorderLess)
CloseGadgetList()
Global myBoard.BOARD::BOARD = BOARD::newBoard(#CONTAINER)
Global c.BOX::ClassBox = BOX::newClassBox("Contact",300,200)
Global ca.BOX::ClassBox = BOX::newClassBox("Person",50,100,1)
Global cs.BOX::ClassBox = BOX::newClassBox("Divers",500,300,2)


c\addMeToBoard(myBoard)
ca\addMeToBoard(myBoard)
cs\addMeToBoard(myBoard)

myBoard\build()

Repeat
  WaitWindowEvent()
Until Event() = #PB_Event_CloseWindow
Use Pb 5.73 lst and Windows 10

my mother-language isn't english, in advance excuse my mistakes.
User avatar
RSBasic
Moderator
Moderator
Posts: 1218
Joined: Thu Dec 31, 2009 11:05 pm
Location: Gernsbach (Germany)
Contact:

Re: PB BOARD

Post by RSBasic »

Looks very good. 8)
Image
Image
User avatar
microdevweb
Enthusiast
Enthusiast
Posts: 179
Joined: Fri Jun 13, 2014 9:38 am
Location: Belgique

Re: PB BOARD

Post by microdevweb »

Thanks RsBasic
Use Pb 5.73 lst and Windows 10

my mother-language isn't english, in advance excuse my mistakes.
User avatar
Lord
Addict
Addict
Posts: 847
Joined: Tue May 26, 2009 2:11 pm

Re: PB BOARD

Post by Lord »

This module looks very interesting and seem to have a large potential. :wink:
Image
User avatar
STARGÅTE
Addict
Addict
Posts: 2067
Joined: Thu Jan 10, 2008 1:30 pm
Location: Germany, Glienicke
Contact:

Re: PB BOARD

Post by STARGÅTE »

Your project looks very similar to my project:
https://www.purebasic.fr/german/viewtop ... 11&t=31251

I also want to write a visual scripting language usable in Pure Basic, similar to LabView
It would be very interesting if we can exchange experiences.
PB 6.01 ― Win 10, 21H2 ― Ryzen 9 3900X, 32 GB ― NVIDIA GeForce RTX 3080 ― Vivaldi 6.0 ― www.unionbytes.de
Lizard - Script language for symbolic calculations and moreTypeface - Sprite-based font include/module
User avatar
microdevweb
Enthusiast
Enthusiast
Posts: 179
Joined: Fri Jun 13, 2014 9:38 am
Location: Belgique

Re: PB BOARD

Post by microdevweb »

Hello STARGÅTE,

Your project looks very nice, you've be very in advance than me, yes if you want we can share our experience. Personally i dirige my project to a oop concept, when i'll more advanced i shared some code.
Use Pb 5.73 lst and Windows 10

my mother-language isn't english, in advance excuse my mistakes.
User avatar
Kwai chang caine
Always Here
Always Here
Posts: 5342
Joined: Sun Nov 05, 2006 11:42 pm
Location: Lyon - France

Re: PB BOARD

Post by Kwai chang caine »

Waooouuuh amazing !!! :shock:
A professional look, and works very well here on W7 X86
Thanks for sharing the code, it's very interesting to learn how you have make this nice effect 8)
ImageThe happiness is a road...
Not a destination
Post Reply