Visual Board version 1.0 beta 3

[microdevweb]

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"

[microdevweb]

Hello Guys,

The user help is available

[Andre]

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

[Bitblazer]

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.

[microdevweb]

@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.