PureBasic Forums - English

Posted: **Fri Jul 12, 2019 3:30 pm**

Hello all,

This is a module for displaying nodes and links,

I have lot of work for finish it.

(I make some help, but it's not available at the moment)

TO GITHUB
User help

Version history:

Beta 2 -> Fixed -> x86 fatal bug
Beta 3 -> Added -> Class Triangle

How testing :

Run you editor PureBasic
Past and save this below code in your personal directory
Run it compilation
Agree to download this package
Run "EXAMPLE/EX_01.pb"
Or comment loadPackage() and uncomment "EXAMPLE/EX_01.pb"

Note: At each new version, run again loadPackage()

Code: Select all

; ******************************************************************************
; AUTHOR  : MicrodevWeb
; MODULE  : TreeView
; PROCESS : load package
; ******************************************************************************
EnableExplicit
Procedure loadPackage()
  Protected zipName.s = "PACKAGE.zip"
  If MessageRequester("Download Package","Do you agree to download the tree view package form github?",#PB_MessageRequester_YesNo) = #PB_MessageRequester_No
    End
  EndIf
  If Not InitNetwork()
    MessageRequester("Network error","Cannot connect to internet",#PB_MessageRequester_Error) 
    End
  EndIf
  If Not ReceiveHTTPFile("https://github.com/microdevweb/VISUAL_BOARD/archive/master.zip",zipName)
    MessageRequester("Download error","Cannot download the package",#PB_MessageRequester_Error) 
    End
  EndIf
  #PACKER = 0
  CreateDirectory("BOARD")
  CreateDirectory("BOARD/CLASSES")
  CreateDirectory("BOARD/CLASSES/IMG")
  CreateDirectory("EXAMPLE")
  CreateDirectory("EXAMPLE/IMG")
  UseZipPacker()
  OpenPack(#PACKER,zipName)
  If ExaminePack(#PACKER)
    While NextPackEntry(#PACKER)
      Protected dirName.s = StringField(PackEntryName(#PACKER),2,"/")
      If PackEntryType(#PACKER) = #PB_Packer_File
        Protected fileName.s = RemoveString(PackEntryName(#PACKER),"VISUAL_BOARD-master/")
        If Not UncompressPackFile(#PACKER,fileName)
          MessageRequester("Download error","Cannot unzip file "+fileName,#PB_MessageRequester_Error) 
          End
        EndIf
      EndIf
    Wend
  EndIf
  ClosePack(#PACKER)
  DeleteFile(zipName)
EndProcedure

loadPackage()

; XIncludeFile "EXAMPLE/EX_01.pb"

Posted: **Sat Jul 13, 2019 11:25 am**

Hello Guys,

The user help is available

Posted: **Sat Jul 13, 2019 1:59 pm**

Not tested yet, but your project looks very interesting. Keep up the good work!

Posted: **Sat Jul 13, 2019 6:21 pm**

It definately looks interesting and would be of good use in a project. I also keep watching it closely to make use of it once its mature and the license allows it.

Reminds me a lot on other visual programming languages that have been mostly forgotten.

Posted: **Sun Jul 14, 2019 8:50 am**

@Bitblazer,

Don't worry for use it, its licence it's creative common.

The final destination for use it, is for a visual scripting designer.

PureBasic Forums - English

Visual Board version 1.0 beta 3

Visual Board version 1.0 beta 3

Re: Visual Board version 1.0 beta 2

Re: Visual Board version 1.0 beta 2

Re: Visual Board version 1.0 beta 2

Re: Visual Board version 1.0 beta 2