PWCT 1.9 Art Documentation ( http://doublesvsoop.sourceforge.net )

2006-2011, Mahmoud Fayed ( msfclipper@users.sourceforge.net )

_____________________________________________________________________________________

 

Delivery Application

----------------------

 

        * Source code

        * Screen shot 1

        * Screen shot 2

        * Distributing Application

        * Delivery2 Source code

        * What is new in Delivery2?

 
 
Delivery.nova
---------------
 
The application title is "Delivery"
Set window auto show off
Set window resize off
 
[myarray]. = (3).
[myarray]\(1). = (Tea).
[myarray]\(2). = (Cafe).
[myarray]\(3). = (Sandwich).
 
I want window and the window title is "Delivery"
Window width = 730. and window height = 530.
 
I want label 
The label width is 700. and label height is 120.
The label font size is 20. 
The label back color = white.
The label caption is 
"       
        What do you want ?
"
 
I want label and label top is 140.
label caption is Title :.
label font name is "arial"
label font size is "14"
 
I want textbox
textbox left is 80.
textbox top is 140.
textbox width is 500.
textbox font name is arial.
textbox font size is 14.
 
I want button
button top is 140.
button left is 600.
button caption is Search.
button font name is arial.
button font size is 14.
button name is BtnSearch.
 
I want listbox and listbox top is 180.
Listbox width is 700. and listbox height is 250.
The listbox font name is arial.
The listbox font size is 14.
 
[x]. = (1). and do while [x] <= [myarray].
The listbox must add from [myarray]\[x].
[x]. = [x] + (1).
end while
 
I want button and the button top is 450.
The button left is 240. and button caption = "Ok"
The button name is btn1.
The button back color is white.
 
I want button and the button top is 450.
The button left is 360. and button caption = "Close"
The button name is btnclose.
The button fore color is white.
The button back color is red.
btnclose mouseclick. instructions are you close application ok
 
listbox value is 1.
 
You centre window and You show window
 
btn1 mouseclick. instructions are
        The listbox value to [x].
        do if not [x] == (0).
               [myitem]. = [myarray]\[x].
               [mystr]. = "(
                       Delivery Application 
-------------------------------------------------------------------
Date  :) thedate  (
Time  :) thetime  (
Month :) themonth (
Day   :) theday   (
Item  :---------------> ) [myitem] (
-------------------------------------------------------------------)"
               [mystr]. memory to file "(delivery.txt)"
               execute file "delivery.txt"
        end if
end of instructions
 
btn search mouse click. instructions are
        textbox value to [mystr].
        [mystr]. = lower [mystr].
        [x]. = (1). 
        do while [x] <= [myarray].
               [myitem]. = lower [myarray]\[x].
               [check]. = [mystr] at [myitem].
               do if not [check] == (0).
                       listbox value from [x].
               end if
               [x]. = [x] + (1).
        end while
end of instructions

 

 

shot138.JPG

 

shot139.JPG

 

How to distribute the Delivery application as EXE File ?
 
1 - Run nova.exe
2 - Select "Delivery.nova"
    This will generate the object file "Delivery.nova.star"
3 - Rename file "Delivery.nova.star" to "Delivery.star"
4 - copy file "nova.exe" to delivery folder
5 - rename file "nova.exe" to "Delivery.exe"
 
Now you can distribute (Delivery.exe + Delivery.star)
 
 
Delivery2.nova
----------------
 
The application title is "Delivery2"
Set window auto show off
Set window resize off
 
[myarray]. = (3).
[myarray]\(1). = (Tea).
[myarray]\(2). = (Cafe).
[myarray]\(3). = (Sandwich).
 
I want window and the window title is "Delivery"
Window width = 730. and window height = 530.
 
I want label 
The label width is 700. and label height is 120.
The label font size is 20. 
The label back color = white.
The label caption is 
"       
        What do you want ?
"
 
I want label and label top is 140.
label caption is Title :.
label font name is "arial"
label font size is "14"
 
I want textbox
textbox left is 80.
textbox top is 140.
textbox width is 500.
textbox font name is arial.
textbox font size is 14.
textbox name is text1.
 
I want listbox and listbox top is 180.
Listbox width is 700. and listbox height is 250.
The listbox font name is arial.
The listbox font size is 14.
 
[x]. = (1). and do while [x] <= [myarray].
The listbox must add from [myarray]\[x].
[x]. = [x] + (1).
end while
 
I want button and the button top is 450.
The button left is 240. and button caption = "Ok"
The button name is btn1.
The button back color is white.
 
I want button and the button top is 450.
The button left is 360. and button caption = "Close"
The button name is btnclose.
The button fore color is white.
The button back color is red.
btnclose mouseclick. instructions are you close application ok
 
listbox value is 1.
 
You centre window and You show window
 
btn1 mouseclick. instructions are
        The listbox value to [x].
        do if not [x] == (0).
               "(
                       Delivery Application 
-------------------------------------------------------------------
Date  :) thedate  (
Time  :) thetime  (
Month :) themonth (
Day   :) theday   (
Item  :---------------> ) [myarray]\[x] (
-------------------------------------------------------------------)"
               memory to file "(delivery.txt)"
               execute file "delivery.txt"
        end if
end of instructions
 
text1 change. instructions are
        textbox value to [mystr].
        [mystr]. = lower [mystr].
        [x]. = (1). 
        do while [x] <= [myarray].
               [myitem]. = lower [myarray]\[x].
               [check]. = [mystr] at [myitem].
               do if not [check] == (0).
                       listbox value from [x].
               end if
               [x]. = [x] + (1).
        end while
end of instructions

 

shot140.JPG

 

What is new in Delivery2.nova ?
 
1 - Interactive search (NO SEARCH BUTTON)
 
2 - Report Generation code changed  
    From :-
               [myitem]. = [myarray]\[x].
               [mystr]. = "(
                       Delivery Application 
-------------------------------------------------------------------
Date  :) thedate  (
Time  :) thetime  (
Month :) themonth (
Day   :) theday   (
Item  :---------------> ) [myitem] (
-------------------------------------------------------------------)"
               [mystr]. memory to file "(delivery.txt)"
 
   To :-
 
        "(
                       Delivery Application 
-------------------------------------------------------------------
Date  :) thedate  (
Time  :) thetime  (
Month :) themonth (
Day   :) theday   (
Item  :---------------> ) [myarray]\[x] (
-------------------------------------------------------------------)"
               memory to file "(delivery.txt)"