It is currently Mon Sep 23, 2019 6:47 pm

All times are UTC + 1 hour




Post new topic Reply to topic  [ 7 posts ] 
Author Message
 Post subject: PB BOARD
PostPosted: Mon Jul 08, 2019 9:23 am 
Offline
Enthusiast
Enthusiast
User avatar

Joined: Fri Jun 13, 2014 9:38 am
Posts: 131
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:
; ***********************************************************************************************
; 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.60 lst and Windows 10

my mother-language isn't english, in advance excuse my mistakes.


Top
 Profile  
Reply with quote  
 Post subject: Re: PB BOARD
PostPosted: Mon Jul 08, 2019 9:26 am 
Offline
Moderator
Moderator
User avatar

Joined: Thu Dec 31, 2009 11:05 pm
Posts: 1098
Location: Germany::Berlin()
Looks very good. 8)

_________________
ImageImageImageImage Image


Top
 Profile  
Reply with quote  
 Post subject: Re: PB BOARD
PostPosted: Mon Jul 08, 2019 9:34 am 
Offline
Enthusiast
Enthusiast
User avatar

Joined: Fri Jun 13, 2014 9:38 am
Posts: 131
Thanks RsBasic

_________________
Use Pb 5.60 lst and Windows 10

my mother-language isn't english, in advance excuse my mistakes.


Top
 Profile  
Reply with quote  
 Post subject: Re: PB BOARD
PostPosted: Mon Jul 08, 2019 10:54 am 
Offline
Enthusiast
Enthusiast

Joined: Tue May 26, 2009 2:11 pm
Posts: 585
This module looks very interesting and seem to have a large potential. :wink:

_________________
Image


Top
 Profile  
Reply with quote  
 Post subject: Re: PB BOARD
PostPosted: Mon Jul 08, 2019 9:32 pm 
Offline
Addict
Addict
User avatar

Joined: Thu Jan 10, 2008 1:30 pm
Posts: 1214
Location: Germany, Glienicke
Your project looks very similar to my project:
https://www.purebasic.fr/german/viewtopic.php?f=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.

_________________
ImageImage


Top
 Profile  
Reply with quote  
 Post subject: Re: PB BOARD
PostPosted: Tue Jul 09, 2019 9:09 am 
Offline
Enthusiast
Enthusiast
User avatar

Joined: Fri Jun 13, 2014 9:38 am
Posts: 131
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.60 lst and Windows 10

my mother-language isn't english, in advance excuse my mistakes.


Top
 Profile  
Reply with quote  
 Post subject: Re: PB BOARD
PostPosted: Wed Jul 10, 2019 8:11 am 
Offline
Addict
Addict
User avatar

Joined: Sun Nov 05, 2006 11:42 pm
Posts: 4502
Location: Lyon - France
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


Top
 Profile  
Reply with quote  
Display posts from previous:  Sort by  
Post new topic Reply to topic  [ 7 posts ] 

All times are UTC + 1 hour


Who is online

Users browsing this forum: No registered users and 4 guests


You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum

Search for:
Jump to:  

 


Powered by phpBB © 2008 phpBB Group
subSilver+ theme by Canver Software, sponsor Sanal Modifiye