FiveWeb - tutorial (step by step)

[Antonio Linares]

tutor01.prg

Code: Select all  Expand view

#include "FiveWeb.ch"

function Main()

   MsgInfo( "Hello world from FiveWeb" )

return nil

Running on the web:
http://www.fivetechsoft.net/cgi-bin/tutor01

[Antonio Linares]

tutor02.prg

Code: Select all  Expand view

#include "FiveWeb.ch"

function Main()

   local oDlg
   
   DEFINE DIALOG oDlg TITLE "Hello FiveWeb" SIZE 600, 400
   
   ACTIVATE DIALOG oDlg

return nil

Test it:
http://www.fivetechsoft.net/cgi-bin/tutor02

[Antonio Linares]

tutor03.prg

Code: Select all  Expand view

#include "FiveWeb.ch"

function Main()

   local oDlg, lValue := .T.
   
   SET COLOR TO "#99CCFF"
   
   DEFINE DIALOG oDlg TITLE "Hello FiveWeb" SIZE 600, 400
   
   @ 120,  70 BUTTON "One" SIZE 120, 50 OF oDlg ACTION MsgInfo( "one" )

   @ 120, 220 BUTTON "Two" SIZE 120, 50 OF oDlg ACTION MsgInfo( "two" )

   @ 120, 370 BUTTON "Three" SIZE 120, 50 OF oDlg ACTION MsgInfo( "three" )
   
   @ 200, 160 CHECKBOX lValue PROMPT "Tested" SIZE 150, 40 OF oDlg
   
   ACTIVATE DIALOG oDlg

return nil

Test it:
http://www.fivetechsoft.net/cgi-bin/tutor03

[Antonio Linares]

testmenu.prg

Code: Select all  Expand view

#include "FiveWeb.ch"

function Main()

   BuildMenu()

return nil

function BuildMenu()

   local oMenu

   MENU oMenu
      MENUITEM "Your app"
      MENU
         MENUITEM "About..." ACTION MsgInfo( "My app" )
         MENUITEM "Quit"
      ENDMENU
     
      MENUITEM "Files"
      MENU
         MENUITEM "Clients"
         MENUITEM "Stock"
         MENUITEM "Agents"
      ENDMENU
     
      MENUITEM "Reports"
      MENU
         MENUITEM "Clients"
         MENU
            MENUITEM "List"
            MENUITEM "By Last name"
            MENUITEM "By State"
         ENDMENU
         
         MENUITEM "Stock"
         MENU
            MENUITEM "By id"
            MENUITEM "By amount"
            MENUITEM "My price"
         ENDMENU
      ENDMENU
     
      MENUITEM "Utilities"
     
      MENUITEM "Help"
      MENU
         MENUITEM "Wiki"
      ENDMENU
   ENDMENU

return nil

Test it:
http://www.fivetechsoft.net/cgi-bin/testmenu

[Antonio Linares]

testfold.prg

Code: Select all  Expand view

#include "FiveWeb.ch"

function Main()

   local oDlg, oFld

   DEFINE DIALOG oDlg TITLE "Using folders"

   @ 10, 10 FOLDER oFld PROMPTS "One", "Two", "Three" OF oDlg SIZE 400, 300

   ACTIVATE DIALOG oDlg

return nil

Test it:
http://www.fivetechsoft.net/cgi-bin/testfold

[Otto]

Dear Antonio,
I ran all the test programs with the new Internet Explorer and IE 9.
The design is beautiful. There is one problem with menu example. Here I do not see the submenus.
With firefox it is working.
Thanks for your work and best regards,
Otto

[Antonio Linares]

Otto,

Thanks for your feedback

[ADutheil]

Could not have the samples working with IE10 for Windows 7 (64bits). With Chrome everything works OK.

[Massimo Linossi]

Hi Antonio.
On Safari, in OSX 10.8.3, works perfectly. Also on iPad with the last update.
Many compliments.

[Silvio.Falconi]

Dear Antonio,
also I tried from Tablet and run ok

a question please ...if we create an app on Fiveweb the Archives are as "Dbf" format ?

[Antonio Linares]

Silvio,

You can use DBFs, MySQL, etc. whatever you may want or need

[Silvio.Falconi]

I ask it because I not remember on Server there is the possibility to run dbf because in past had had a shop application with asp and I used Mdb archives

[Antonio Linares]

On the server you are running a Harbour (+ FIveWeb) app and of course you can manage DBFs etc, as it is a Harbour app

[Silvio.Falconi]

But If I wish try it on Local ( on a Pc or a Portable Pc) How I can make ?

[Antonio Linares]

Silvio,

Use wamp or xampp, on Windows.