Procurando pela internet acabei me deparando com isso também.
A última versão é a 1.9, de 2016. Por curiosidade acabei baixando o programa pra ver como funciona. No meu caso, ainda não consegui ver onde eu poderia utilizar. Talvez para elaborar telas ou relatórios futuramente. Enfim... Fiz um pequeno exemplo e o código fonte gerado ficou um tanto grande, para o que deveria ser simples.
Vi mais ou menos como o aplicativo funciona através de um exemplo, fiz algo qualquer aqui e gerei o código.
Esse foi o fonte gerado:
Código: Selecionar todos
*---------------------------------------------------------------------------*
* Time : 15:00:18 Date : 07/06/2017
*---------------------------------------------------------------------------*
* Programming Without Coding Technology (PWCT)
* 2006-2016 , Mahmoud Fayed <msfclipper@yahoo.com>
* Version : PWCT 1.9 (Art) 2016.06.24
* URL : http://www.sourceforge.net/projects/doublesvsoop
*---------------------------------------------------------------------------*
* Visual Programming Language : HarbourPWCT
*---------------------------------------------------------------------------*
#include "SSXHB.ch"
#include "MiniGUI.ch"
#include "hbclass.ch"
Function Main
Public True,False
True = .T.
False = .F.
New Server Server1 Type Slave Server Eigen Value 000
Details :
* Get parameters from command line
Parameters SP1,SP2,SP3,SP4,SP5,SP6,SP7,SP8
DataUnit :
CodeUnit :
Circuit Main
Branch Main
Resistance Main
VetoUnit :
End Of Server
Resistance R_teste_19art1() address Code Unit : Circuits\Main\Main\Main
CALL RESISTANCE Circuits\Main\Main\Main
Return
FUNCTION STARTSERVER()
Server FireON
RETURN
* Resistance Code Unit : Circuits\Main\Main\Main
Resistance R_teste_19art1() code
Clear
?? "Olá Mundo !!! "
@ 3 , 3 SAY "Olá Mundo 2 "
WAIT "Tecle algo para continuar"
INKEY(10)
End Of Resistance
INIT PROCEDURE Init_teste
START DOUBLES
SS_ESARES("Circuits\Main\Main\Main",42)
SS_ESAGOAL("Circuits\Main\Main\Main","Main")
SS_ESASTEP("Circuits\Main\Main\Main","Clear Screen",1,1)
SS_ESASTEP("Circuits\Main\Main\Main","Print Text 'Olá Mundo !!! '",2,2)
SS_ESASTEP("Circuits\Main\Main\Main","Print Text 'Olá Mundo 2 ' - AT ROW 3 & COLUMN 3",3,3)
SS_ESASTEP("Circuits\Main\Main\Main","Wait (KEY) Message : 'Tecle algo para continuar'",4,4)
SS_ESASTEP("Circuits\Main\Main\Main","WAIT ( 10 SECONDS)",5,5)
Return
Tudo bem que o código é gerado automaticamente, mas ficou meio grande.
